home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pokey's Magazine 9 & 10
/
Pokeys_Magazine_09__10_1991_06___nl_Side_B.atr
/
crmei.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
1 lines
0100 .OPT NOLIST¢0110 ;¢0120 ;¢0130 ;¢0140 ;¢0150 ;¢0160 ;¢0170 ;¢0180 *=$5000¢0190 JMP MAIN¢0200 DPL¢0210 .BYTE $70,$70,$70¢0220 .BYTE $46+32¢0230 DPA .WORD SCR1¢0240 .BYTE 6+32,6+32,6+32¢0250 .BYTE 6+32,6¢0260 .BYTE 0¢0270 .BYTE $46+16¢0280 DPB .WORD SCR2¢0290 .BYTE $46+16¢0300 DPC .WORD SCR2¢0310 .BYTE $41¢0320 .WORD DPL¢0330 ;¢0340 ;¢0350 .WORD 0¢0360 MAIN¢0370 LDA #DPL&255¢0380 STA $230¢0390 LDA #DPL/256¢0400 STA $231¢0410 LDY #VBI&255¢0420 LDX #VBI/256¢0430 LDA #7¢0440 JSR $E45C¢0450 STOP¢0460 JMP STOP¢0470 VBI¢0480 PHA¢0490 TXA¢0500 PHA¢0510 TYA¢0520 PHA¢0530 FSCROLL¢0540 DEC FS¢0550 LDY FS¢0560 CPY #0¢0570 BMI COARSE¢0580 STY $D404¢0590 STY $D405¢0600 LDA #0¢0610 BEQ EXIT¢0620 COARSE¢0630 LDY #7¢0640 STY FS¢0650 CSCROLL¢0660 SEC¢0670 LDA DPA¢0680 SBC #20¢0690 CMP #0¢0700 BMI DOOR¢0710 LDA #$FF¢0720 DOOR¢0730 STA DPA¢0740 INC DPB¢0750 INC DPC¢0760 STY $D404¢0770 STY $D405¢0780 EXIT¢0790 PLA¢0800 TAY¢0810 PLA¢0820 TAX¢0830 PLA¢0840 JMP $E462¢0850 ;¢0860 DF .BYTE 1¢0870 CNT .BYTE 20¢0880 FS .BYTE 7,0¢0890 ;¢0900 SCR1 .BYTE 0¢0910 *= SCR1 + 112¢0920 LINE .BYTE "@@@@@@@@verticale@scroll@@@@@@@@@@@@@@"¢0921 *= LINE + 200¢1130 SCR2 .BYTE "deze@lijnen@van@rechts@"¢1140 .BYTE "naar@links"¢əəəəəəəəəəəəəəəəəəəəəəəə