10 ;----------------------------- 20 *= $7000 30 LDA #176 40 STA 756 50 LDA # DLIST 80 STA 561 90 LDA # TEXT 0120 STA 204 0130 LDA # DLI 0160 STA 513 0170 LDA #192 0180 STA $D40E 0190 ;----------------------------- 0200 LDX #0 0210 L8 STX BUF 0220 LDY BUF2 0230 LDX #0 0240 L5 LDA LETTERS,X 0250 CMP (203),Y 0260 BEQ L6 0270 INX 0280 BNE L5 0290 L6 LDA ADDRESS,X 0300 STA 208 0310 LDA ADDRESS+1,X 0320 STA 209 0330 INY 0340 CPY #22 0350 BNE L10 0360 LDY #0 0370 INC 203 0380 BNE L10 0390 INC 204 0400 L10 LDX BUF 0410 STY BUF2 0420 COPY1 0430 LDY #0 0440 LDA (208),Y 0450 STA LINE1,X 0460 INY 0470 LDA (208),Y 0480 STA LINE1+1,X 0490 LDY #40 0500 LDA (208),Y 0510 STA LINE2,X 0520 INY 0530 LDA (208),Y 0540 STA LINE2+1,X 0550 LDY #80 0560 LDA (208),Y 0570 STA LINE3,X 0580 INY 0590 LDA (208),Y 0600 STA LINE3+1,X 0610 LDY #120 0620 LDA (208),Y 0630 STA LINE4,X 0640 INY 0650 LDA (208),Y 0660 STA LINE4+1,X 0670 ;-- 0680 INX 0690 INX 0700 CPX #44 0710 BNE L8 0720 LDX #0 0730 LDA #1 0740 STA 205 0750 L12 LDA 205 0760 BNE L12 0770 LDA 204 0780 CMP # >ENDTEXT 0790 BNE L8 0800 LDA 203 0810 CMP # TEXT 0860 STA 204 0870 JMP L8 0880 ;---------------------------- 0890 DLI 0900 PHA 0910 LDA 205 0920 BEQ L9 0930 DEC SC 0940 LDA SC 0950 STA $D404 0955 STA $D40A 0960 BNE L9 0970 LDA #8 0980 STA SC 0990 LDA #0 1000 STA $D404 1005 STA $D40A 1010 STA 205 1020 L9 PLA 1030 RTI 1040 ;----------------------------- 1050 LETTERS .SBYTE "A.B.C.D.E.F.G.H.I.J.K.L.M.N.O.P.Q.R.S.T.U.V.W.X.Y.Z.0.1.2.3.4.5.6.7.8.9.-.?...,. ." 1060 ADDR = $B400 1070 ADDRESS .WORD ADDR,ADDR+4,ADDR+8,ADDR+12,ADDR+16,ADDR+20,ADDR+24,ADDR+28,ADDR+32,ADDR+36 1080 .WORD ADDR+200,ADDR+204,ADDR+208,ADDR+212,ADDR+216,ADDR+220,ADDR+224,ADDR+228,ADDR+232,ADDR+236 1090 .WORD ADDR+400,ADDR+404,ADDR+408,ADDR+412,ADDR+416,ADDR+420,ADDR+424,ADDR+428,ADDR+432,ADDR+436 1100 .WORD ADDR+600,ADDR+604,ADDR+608,ADDR+612,ADDR+616,ADDR+620,ADDR+624,ADDR+628,ADDR+632,ADDR+636 1110 .WORD ADDR+800 1120 SC .BYTE 7 1130 BUF .BYTE 0 1140 BUF2 .BYTE 0 1150 ;---------------------------- 1160 DLIST 1170 .BYTE $70,$70,$70 1180 .BYTE $4E,$50,$81 1190 .BYTE "............................................" 1200 .BYTE "............................................" 1210 .BYTE "....." 1220 .BYTE $4E,$00,$90 1230 .BYTE "............................................" 1240 .BYTE "............................................" 1250 .BYTE "....." 1260 .BYTE $80 1270 .BYTE $54 1280 .WORD LINE1 1290 .BYTE $54 1300 .WORD LINE2 1310 .BYTE $54 1320 .WORD LINE3 1330 .BYTE $54 1340 .WORD LINE4 1350 .BYTE $41 1360 .WORD DLIST 1370 ;----------------------------- 1380 LINE1 .SBYTE " " 1390 LINE2 .SBYTE " " 1400 LINE3 .SBYTE " " 1410 LINE4 .SBYTE " " 1420 ;----------------------------- 1430 TEXT .SBYTE " " 1440 .SBYTE "THIS A DEMO FOR THE SCROLL WRITTEN BY NIR DAREY AND REVISED BY OFER " 1450 .SBYTE "SAFERMAN FROM IACT CLUB, ISRAEL." 1455 .SBYTE " THERE IS SOMTHING WIRD AT THE END OF THE TEXT " 1460 ENDTEXT 1470 .SBYTE " " 2000 *= $02E2 2010 .WORD $7000