00000000: 00 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 0D 2A A0 A0 A0 62 61 73 65 A0 69 6E 74 65 |**.*...base.inte|
00000030: 72 72 75 70 74 A0 72 6F 75 74 69 6E 65 2E 62 6A |rrupt.routine.bj|
00000040: A0 A0 2A 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..*.************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 0D 20 73 65 69 0D 20 6C 64 61 20 23 |****. sei. lda #|
00000070: 24 30 64 0D 20 73 74 61 20 24 30 33 31 34 0D 20 |$0d. sta $0314. |
00000080: 6C 64 61 20 23 24 38 30 0D 20 73 74 61 20 24 30 |lda #$80. sta $0|
00000090: 33 31 35 0D 20 63 6C 69 0D 20 72 74 73 0D 62 75 |315. cli. rts.bu|
000000A0: 69 6C 64 20 6C 64 61 20 64 61 74 61 2C 78 0D 20 |ild lda data,x. |
000000B0: 73 74 61 20 39 36 30 2C 78 0D 20 69 6E 78 0D 20 |sta 960,x. inx. |
000000C0: 63 70 78 20 23 36 33 0D 20 62 6E 65 20 62 75 69 |cpx #63. bne bui|
000000D0: 6C 64 0D 20 6C 64 61 20 23 31 35 0D 20 73 74 61 |ld. lda #15. sta|
000000E0: 20 32 30 34 32 0D 20 6C 64 61 20 23 34 0D 20 73 | 2042. lda #4. s|
000000F0: 74 61 20 35 33 32 36 39 0D 20 6C 64 61 20 23 37 |ta 53269. lda #7|
00000100: 0D 20 73 74 61 20 35 33 32 38 39 0D 20 69 6E 79 |. sta 53289. iny|
00000110: 0D 20 73 74 79 20 35 33 32 35 32 0D 20 6C 64 61 |. sty 53252. lda|
00000120: 20 23 31 30 30 0D 20 73 74 61 20 35 33 32 35 33 | #100. sta 53253|
00000130: 0D 20 6A 73 72 20 70 61 75 73 65 0D 20 6A 6D 70 |. jsr pause. jmp|
00000140: 20 65 6E 64 0D 64 61 74 61 20 64 66 62 20 33 31 | end.data dfb 31|
00000150: 2C 31 35 39 2C 31 32 38 2C 36 33 2C 32 35 35 2C |,159,128,63,255,|
00000160: 31 39 32 2C 36 33 2C 32 35 35 2C 32 32 34 2C 33 |192,63,255,224,3|
00000170: 31 2C 32 35 35 2C 32 32 34 2C 31 31 31 2C 32 35 |1,255,224,111,25|
00000180: 35 0D 20 64 66 62 20 31 39 32 2C 32 35 35 2C 32 |5. dfb 192,255,2|
00000190: 35 35 2C 31 39 32 2C 32 35 35 2C 32 35 35 2C 32 |55,192,255,255,2|
000001A0: 32 34 2C 31 32 37 2C 32 35 35 2C 32 32 34 2C 31 |24,127,255,224,1|
000001B0: 32 37 2C 32 35 35 2C 32 32 34 0D 20 64 66 62 20 |27,255,224. dfb |
000001C0: 32 35 35 2C 32 35 35 2C 31 39 32 2C 31 30 33 2C |255,255,192,103,|
000001D0: 31 39 31 2C 31 32 38 2C 30 2C 30 2C 30 2C 38 2C |191,128,0,0,0,8,|
000001E0: 36 38 2C 31 32 38 2C 33 34 2C 30 2C 30 2C 30 2C |68,128,34,0,0,0,|
000001F0: 31 38 2C 33 32 0D 20 64 66 62 20 30 2C 30 2C 30 |18,32. dfb 0,0,0|
00000200: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000210: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000220: 2C 30 2C 30 0D 20 6C 64 61 20 23 31 35 0D 2A 2A |,0,0. lda #15.**|
00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 2A |**************.*|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.|
00000270: 65 6E 64 20 6A 6D 70 20 24 65 61 33 31 0D 70 61 |end jmp $ea31.pa|
00000280: 75 73 65 20 6C 64 78 20 23 30 0D 70 61 75 73 65 |use ldx #0.pause|
00000290: 32 20 69 6E 78 0D 20 63 70 78 20 23 31 30 30 0D |2 inx. cpx #100.|
000002A0: 20 62 6E 65 20 70 61 75 73 65 32 0D 20 72 74 73 | bne pause2. rts|
000002B0: 0D |. |
..********************************.* B
ASE INTERRUPT ROUTINE.BJ *.************
********************. SEI. LDA #$0D. STA
$0314. LDA #$80. STA $0315. CLI. RTS.BU
ILD LDA DATA,X. STA 960,X. INX. CPX #63.
BNE BUILD. LDA #15. STA 2042. LDA #4. S
TA 53269. LDA #7. STA 53289. INY. STY 53
252. LDA #100. STA 53253. JSR PAUSE. JMP
END.DATA DFB 31,159,128,63,255,192,63,2
55,224,31,255,224,111,255. DFB 192,255,2
55,192,255,255,224,127,255,224,127,255,2
24. DFB 255,255,192,103,191,128,0,0,0,8,
68,128,34,0,0,0,18,32. DFB 0,0,0,0,0,0,0
,0,0,0,0,0,0,0,0,0,0,0,0,0,0. LDA #15.**
******************************.*********
***********************.END JMP $EA31.PA
USE LDX #0.PAUSE2 INX. CPX #100. BNE PAU
SE2. RTS.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL