home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antic Magazine 1989 February
/
Antic_Magazine_1989_02_Antic_Side_A.atr
/
spelling.m65
< prev
next >
Wrap
Text File
|
2023-02-26
|
3KB
|
1 lines
0100 ; SPELLING FLASH CARDS¢0110 ; BY ANDY BARTON¢0120 ; (c)1988, ANTIC PUBLISHING¢0130 ;¢0140 ; ASM TO MOVE BLOCKS OF DATA¢0150 ; AND REDEFINE DISPLAY LIST¢0160 ;¢0170 ;DEFINITIONS¢0180 ; $F0-$F1 = FROM ADR¢0190 ; $D4-$D5 = TO ADR¢0200 ; $EE-$EF = COUNT OR DL ADR¢0210 *= $0600¢0220 ;TO MOVE > 256 BYTES¢0230 DM¢0240 PLA ¢0250 JSR LOAD¢0260 DM1¢0270 LDY #0¢0280 LDA ($F0),Y¢0290 STA ($D4),Y¢0300 INC $D4¢0310 BNE DM2¢0320 ;¢0330 INC $D5¢0340 DM2¢0350 INC $F0¢0360 BNE DM3¢0370 ;¢0380 INC $F1¢0390 DM3¢0400 DEC $EE¢0410 BNE DM1¢0420 ;¢0430 DEC $EF¢0440 BPL DM1¢0450 ;¢0460 RTS ¢0470 ;¢0480 ;MOVE MEM AND ALTER DISPLAY LIST¢0490 ;¢0500 ;X=USR (ADLON,¢0510 ;[SAVE 160] SC+400,ADR(S$),160,¢0520 ;[BLANK 80] ADR(S$),SC+400,80,¢0530 ;[MOVE UP ] SC+560,SC+480,400,¢0540 ;[ALTER DL] ADL.DATA,DL+15,4)¢0550 ;¢0560 ADLON¢0570 PLA ¢0580 ;SAVE 160 BYTES¢0590 JSR LOAD¢0600 JSR SM¢0610 ;BLANK-OUT WINDOW¢0620 JSR LOAD¢0630 JSR SM¢0640 ;MOVE UP 400 BYTES¢0650 JSR LOAD¢0660 JSR DM1¢0670 ;ALTER DL¢0680 JSR LOAD¢0690 JSR SM¢0700 RTS ¢0710 ;¢0720 ;MOVE MEN & RESTORE DISPLAY LIST¢0730 ;X=USR (ADLOFF,¢0740 ;[DOWN] SC+879,SC+959,400,¢0750 ;[RESTORE] ADR(S$),SC+400,160¢0760 ;[ DL ] DL+14,DL+15,4)¢0770 ;¢0780 ADLOFF¢0790 PLA ¢0800 ;MOVE DOWN 400¢0810 JSR LOAD¢0820 LDY #0¢0830 RDM¢0840 LDA ($F0),Y¢0850 STA ($D4),Y¢0860 DEC $D4¢0870 BNE RDM1¢0880 ;¢0890 DEC $D5¢0900 RDM1¢0910 DEC $F0¢0920 BNE RDM2¢0930 ;¢0940 DEC $F1¢0950 RDM2¢0960 DEC $EE¢0970 BNE RDM¢0980 ;¢0990 DEC $EF¢1000 BPL RDM¢1010 ;¢1020 ;RESTORE 160¢1030 ;¢1040 JSR LOAD¢1050 JSR SM¢1060 ;RESTORE DL¢1070 JSR LOAD¢1080 JSR SM¢1090 RTS ¢1100 ;SUBROUTINES¢1110 ;¢1120 LOAD¢1130 PLA ¢1140 TAX ¢1150 PLA ¢1160 TAY ¢1170 PLA ¢1180 STA $F1¢1190 PLA ¢1200 STA $F0¢1210 PLA ¢1220 STA $D5¢1230 PLA ¢1240 STA $D4¢1250 PLA ¢1260 STA $EF¢1270 PLA ¢1280 STA $EE¢1290 TYA ¢1300 PHA ¢1310 TXA ¢1320 PHA ¢1330 RTS ¢1340 ;¢1350 ;MOVE <256 BYTES¢1360 SM¢1370 LDX $EE¢1380 LDY #0¢1390 SM1¢1400 LDA ($F0),Y¢1410 STA ($D4),Y¢1420 INY ¢1430 DEX ¢1440 BNE SM1¢1450 ;¢1460 RTS ¢1470 ;¢1480 ;ALTERNATE DL DATA¢1490 ;¢1500 ADL.DATA¢1510 .BYTE 6,7,10,10¢1520 ;¢1530 .OPT NO LIST¢əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə