Syzygy Magazine 7/Syzygy_Magazine_7_1999___pl_Disk_2_of_2_Side_B.atr/myszy.arc/MOUSEDLI.M65

Text File | 1988-09-01 | 3KB | 1 lines

1000 ;MOUSE ROUTINE IN A DLI¢1010 ; MAKE YOUR OWN DL WITH¢1020 ;INTERUPT ENABLE, ETC.¢1030 ;OR YSE THE INTERUPT IN¢1040 ;POKEY TIME INTERUPT!¢1050 ;¢1060 ;PUBLIC DOMAIN 1994¢1070 ;PUBLISHED ON MEGAMAGAZINE¢1080 ;             POKEY MAGZINE¢1090 ;             THE BEST OF...¢1100 ;¢1110 ;WRITTEN BY THE MISSING LINK¢1120 ;¢1130 ;OLDX = OLD X-VALUE MOUSE¢1140 ;OLDY = OLD Y-VALUE MOUSE¢1150 ;MXAS = X POSITION FOR CURSOR¢1160 ;MMAXX=MAXIMUM X-SCREEN-POS¢1170 ;MMAXY=MAXIMUM Y-SCREEN-POS¢1180 ;MMINX=MINIMUM X-SCREEN-POS¢1190 ;MMINY=MINIMUM Y-SCREEN-POS¢1191 ;¢1200 ;צדקáחמקדפרסקסנחמקדפ¢1210     LDA # <MOUSE¢1220     STA 512¢1230     LDA # >MOUSE¢1240     STA 513¢1250 ;חמחקáלנרצדáפנרקחמד¢1260     JSR MOUSEON¢1270 ;חמחקáשאחáפנרקחמדáהנפáקזדáברפצנפ¢1280     LDA #6¢1290     LDX # >VBI¢1300     LDY # <VBI¢1310     JSR $E45C¢1320 ;דמגכדצצáכננס¢1330 DO  JMP DO¢1340 ;¢1350 ;¢1360 ;קזדáלנרצדפנרקחמד¢1370 MOUSE¢1380     PHA ¢1390     TXA ¢1400     PHA ¢1410     TYA ¢1420     PHA ¢1430 MOUSEA¢1440     LDA $D300   ;¢1450     LSR A       ;MOUSE ON¢1460     LSR A       ;PORT 1¢1470     LSR A       ;¢1480     LSR A       ;¢1490     PHA         ;SAVE VALUE¢1500     AND #3      ;GET X-VALUE¢1510     ORA OLDX    ;¢1520     TAX         ;¢1530     AND #3      ;MAKE X-INDEX¢1540     ASL A       ;¢1550     ASL A       ;¢1560     STA OLDX    ;SAVE AS OLD¢1570     LDY MXAS    ;¢1580     LDA MOUSETAB,X ;GET TABLE¢1590     BMI MOUSY   ;ACTION? NO!¢1600     BNE MOUSE1  ;YES! DECREASE¢1610 MOUSE0¢1620     INY         ;INCREASE¢1630     CPY MMAXX   ;MAXIMUM XAS?¢1640     BCC MOUSY   ;NO, EXIT¢1650 MOUSE1¢1660     DEY         ;DECREASE¢1670     CPY MMINX   ;MINIMUM XAS?¢1680     BCC MOUSE0  ;YES! INCREASE¢1690 MOUSY¢1700     STY MXAS    ;STORE XPOINTER¢1710     PLA         ;GET MOUSEVALUE¢1720     LSR A¢1730     LSR A       ;SEE THE ROUTINE¢1740     AND #3      ;ON THE XAS. IT¢1750     ORA OLDY    ;IS THE SAME!¢1760     TAX ¢1770     AND #3¢1780     ASL A¢1790     ASL A¢1800     STA OLDY¢1810     LDY MYAS¢1820     LDA MOUSETAB,X¢1830     BMI MOUSEX¢1840     BNE MOUSE2¢1850 MOUSE1.1¢1860     INY ¢1870     JMP MOUSE3¢1880 MOUSE2¢1890     DEY ¢1900 MOUSE3¢1910     CPY MMINY¢1920     BCC MOUSE1.1¢1930     CPY MMAXY¢1940     BCS MOUSE2¢1950 MOUSEX ;        END OF¢1960     STY MYAS    ;Y-ROUTINE¢1970     PLA         ;RESTORE¢1980     TAY         ;A, X & Y¢1990     PLA ¢2000     TAX ¢2010     PLA ¢2020     RTI ¢2030 ;¢2040 ;קזדáחמגדןקIJאכדíáã©מנáIJבקחנמí¢2050 MOUSETAB¢2060     .BYTE 255,1,0,255,0,255,255,1,1,255,255,0,255,0,1,255¢2070 ;¢2080 ;דמIJאכדáגכח¢2090 MOUSEON¢2100     LDA #192¢2110     STA $D40E¢2120     RTS ¢2130 ;גחצIJאכדáגכח¢2140 MOUSEOFF¢2150     LDA #64¢2160     STA $D40E¢2170     RTS ¢2180 ;¢2190 VBI¢2200 ;PUT CURSOR ON SCREEN...¢2210     JMP $E45F¢2220 ;¢2230 ;¢