Как быстро добраться до мыши?

[Destr]

MS_DET LD HL,#27FF
LD E,L
LD BC,#FADF
MT_D0 IN A,(C)
CPL
AND 7
JR Z,MT_D1
LD E,0
MT_D1 DEC HL
LD A,L
OR H
JR NZ,MT_D0
RET

MOUSE LD BC,#FADF:IN A,(C):AND 7:XOR 7
LD (MBUTT),A
LD HL,(MCOOR),B,#FF:IN A,(C)
MOS11 LD D,0,(MOS11+1),A:SUB D
CALL NZ,MOS30:LD B,#FB:IN A,(C)
MOS12 LD D,0,(MOS12+1),A:SUB D
CALL NZ,MOS40:LD (MCOOR),HL:RET
MOS30 JP P,MOS35:XOR #FF:INC A:ADD A,H
LD H,A:CP VMAX+1:RET C
LD H,VMAX:RET
MOS35 LD D,A:LD A,H:SUB D:JP C,MOS37
LD H,A:CP VMIN:RET NC
MOS37 LD H,VMIN:RET
MOS40 JP P,MOS45:XOR #FF:INC A:LD E,A
LD A,L:SUB E:JP C,MOS43
LD L,A:CP HMIN:RET NC
MOS43 LD L,HMIN:RET
MOS45 ADD A,L:JP C,MOS46
LD L,A:CP HMAX:RET C
MOS46 LD L,HMAX:RET
MINIT LD B,250
MINI1 LD A,#FB:IN A,(#DF):XOR #FF
JR NZ,MINI2JNZ MINI1
SCF:RET
MINI2 CALL MOUSE
XOR A:LD (MBUTT),A
LD HL,#6080,(MCOOR),HL
RET

---------- Post added at 21:34 ---------- Previous post was at 21:33 ----------

Не правда-ли похоже на репортаж из дурдома?
А ведь тем не менее это рабочий мышкин код!

[Advertiser]