00000000: 00 0A 20 6F 72 67 20 33 32 37 36 38 0D 20 6C 64 |.. org 32768. ld|
00000010: 78 20 23 30 30 0D 20 6A 73 72 20 24 65 35 34 34 |x #00. jsr $e544|
00000020: 0D 20 6A 73 72 20 63 6C 65 61 72 0D 6C 6F 6F 70 |. jsr clear.loop|
00000030: 31 20 6C 64 61 20 74 65 78 74 31 2C 78 0D 20 63 |1 lda text1,x. c|
00000040: 70 78 20 23 31 33 0D 20 62 65 71 20 6C 6F 6F 70 |px #13. beq loop|
00000050: 32 0D 20 6A 73 72 20 24 66 66 64 32 0D 20 69 6E |2. jsr $ffd2. in|
00000060: 78 0D 20 6A 6D 70 20 6C 6F 6F 70 31 0D 6C 6F 6F |x. jmp loop1.loo|
00000070: 70 32 20 72 74 73 0D 74 65 78 74 31 20 74 78 74 |p2 rts.text1 txt|
00000080: 20 27 64 77 69 A0 70 72 65 73 65 6E 74 73 3A 27 | 'dwi.presents:'|
00000090: 0D 63 6C 65 61 72 20 6C 64 61 20 23 30 33 0D 20 |.clear lda #03. |
000000A0: 73 74 61 20 35 33 32 38 31 0D 20 73 74 61 20 35 |sta 53281. sta 5|
000000B0: 33 32 38 30 0D 20 6C 64 61 20 23 30 30 0D 20 73 |3280. lda #00. s|
000000C0: 74 61 20 36 34 36 0D 20 6C 64 61 20 23 30 30 0D |ta 646. lda #00.|
000000D0: 20 6C 64 78 20 23 30 30 0D 20 72 74 73 0D | ldx #00. rts. |
.. ORG 32768. LDX #00. JSR $E544. JSR CL
EAR.LOOP1 LDA TEXT1,X. CPX #13. BEQ LOOP
2. JSR $FFD2. INX. JMP LOOP1.LOOP2 RTS.T
EXT1 TXT 'DWI PRESENTS:'.CLEAR LDA #03.
STA 53281. STA 53280. LDA #00. STA 646.
LDA #00. LDX #00. RTS.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL