 ZX.SPECTRUM (2:5090/31.7)  ZX.SPECTRUM 
 Msg  : 255 of 515 -188                                                         
 From : Vyacheslav Mednonogov               2:5030/727.12   24 Nov 98  12:58:28 
 To   : Boris Tereschenko                                   27 Nov 98  20:52:32 
 Subj : Kempston Mouse                                                          

                            Get Msg, Boris!

22 Nov 98 02:35, Boris Tereschenko coo騫 All  {Kempston Mouse}:


 BT>     ᪠  . All,   㡦 ६ ࠡ? TNX.


=== Cut ===

;// ࠩ ⮭- *** Kempston-mouse driver

OLDCO   DEFW 0 ;(७ ६)
COORD   DEFW 0 ;न (-訩, y-訩)
CONTRB  DEFB 0 ;   -  (,ࠢ,।; 1-)

MOUSE   ;(c) 1994-98 Max Romanoff, Slava Mednonogov
        ;******************************************
        LD BC,#FBDF
        LD DE,(OLDCO)
        LD HL,(COORD)
        IN A,(C) ;᫥ X
        LD (OLDCO),A
        SUB E
        JR Z,MSEx0
        JP P,MSEx1
        NEG
        CALL MSElog
        NEG
        ADD A,L
        JR C,MSExe
        XOR A
        JR MSExe
MSEx1   CALL MSElog
        ADD A,L
        JR C,MSEx11
        CP 248 ;max X
        JR C,MSExe
MSEx11  LD A,248 ;max X
MSExe   LD L,A
MSEx0   LD B,#FF ;᫥ Y
        IN A,(C)
        LD (OLDCO+1),A
        SUB D
        JR Z,MSEy0
        JP M,MSEy1
        CALL MSElog
        NEG
        ADD A,H
        JR C,MSEye
        XOR A
        JR MSEye
MSEy1   NEG
        CALL MSElog
        ADD A,H
        JR C,MSEy11
        CP 190 ;max Y
        JR C,MSEye
MSEy11  LD A,190 ;max Y
MSEye   LD H,A
MSEy0   LD (COORD),HL
        LD B,#FA  ;
        IN A,(C)
        LD (CONTRB),A
        RET
        ;
MSElog  CP 4 ;誠  ᪮७
        RET C
        ADD A,A
        JR C,MSElgC
        CP 8*2
        RET C
        ADD A,8
        JR C,MSElgC
        CP 120
        RET C
MSElgC  LD A,120
        RET

;) ᫨ ᥫ   㦥, 㤠 / MSElog   饭  .
;) ᫨  न  , 祬 (0,0), 室 
;⥫ ࠭祭
=== Cut ===

                                             C 稬 ਢ⮬, !


--- MS GENS'99 BUGGY v3.00.Beta5++
 * Origin:  -= Made by Copper Feet =-   (2:5030/727.12)

