10 ; .OPT NO LIST 20 CH = 57344 30 PMDATA = $5000 40 LEN = ENDTEXT-TEXT 50 DAT = PMDATA+512 60 ;------------------------------ 70 *= 32768 80 START 90 LDA # PMDATA 0120 STA $CC 0130 LDX #$08 0140 LOOP1 LDY #$00 0150 LOOP2 LDA #$00 0160 STA ($CB),Y 0170 INY 0180 CPY #$FF 0190 BNE LOOP2 0200 INC $CC 0210 DEX 0220 BNE LOOP1 0230 ;----------------------------- 0240 LDA #PMDATA/256 0250 STA 54279 ;PMBAS 0260 LDA #90 0270 STA 704 ;PCLOR0 0280 LDA #46 0290 STA 559 ;SDMCTL 0300 LDA #3 0310 STA 53277 ;GRACTL 0320 LDA #52 0330 STA 53248 ;HPOSP0 0340 LDA # DAT 0370 STA 208 0380 LDA # TEXT 0410 STA 204 0420 LDA 0 0430 STA COUNT 0440 STA COUNT+1 0450 ;----------------------------- 0460 GTEXT LDA # CH 0490 STA 206 0500 LDA #0 0510 STA CAR 0520 LDY #0 ;GET CHAR 0530 LDA (203),Y 0540 ASL A 0550 ASL A 0560 ASL A 0570 ROL CAR 0580 ADC 205 0590 STA 205 0600 LDA 206 0610 LSR CAR 0620 ADC #0 0630 STA 206 0640 INC 203 0650 BNE MAIN 0660 INC 204 0670 ;----------------------------- 0680 MAIN LDY #7 0690 L4 LDA (205),Y 0700 STA SPACE,Y 0710 DEY 0720 BNE L4 0730 ;----------------------------- 0740 SCROL LDX #0 ;DOUB. line res. 0750 L2 JSR DELAY 0760 LDY #128 0770 LDA SPACE,X 0780 STA (207),Y 0790 LDY #0 0800 L1 INY 0810 LDA (207),Y 0820 DEY 0830 STA (207),Y 0840 INY 0850 CPY #128 0860 BNE L1 0870 INX 0880 CPX #8 0890 BNE L2 0900 INC COUNT 0910 BNE L3 0920 INC COUNT+1 0930 L3 LDA COUNT+1 0940 CMP # >LEN 0950 BNE L6 0960 LDA COUNT 0970 CMP #