Antic Magazine 1989 February/Antic_Magazine_1989_02_Antic_Side_A.atr/spelling.m65

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¢əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə