 ZX.SPECTRUM (2:5090/31.7)  ZX.SPECTRUM 
 Msg  : 921 of 951 -832                                                         
 From : Vyacheslav Mednonogov               2:5030/362.4    25 Aug 98  02:51:36 
 To   : Pavel Scherbinin                                    26 Aug 98  00:46:40 
 Subj : driver kmpstn-mouse                                                     

                            Get Msg, Pavel!

23 Aug 98 11:29, Pavel Scherbinin coo騫 All  {driver kmpstn-mouse}:

 PS>    y ?

    ਢ ᠡ  ᥫ஬ -   ᠬ  (   
㣠 :)
    ᫨ ᥫ  㦥,  室  饭  / MSElog (
ᠬ /)
    ᫨  孨 㣮  ६饭   ࠢ (0,0) - 室
।ᬮ ⥫ ࠢ-࠭⥫.


=== Cut ===

;// ࠩ ⮭-

OLDCO   DEFW 0 ;
COORD   DEFW 0 ;न (-訩, y-訩)
CONTRB  DEFB 0 ;   - 

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


=== Cut ===
                                             C 稬 ਢ⮬, !

...    ᫮ 䨣, 祬 㯨 ᥡ 
--- MS GENS'98 v3.00.Beta4++
 * Origin:  -= Made by Copper Feet =-   (2:5030/362.4)

