00000000: 00 0A 73 70 72 69 74 65 30 20 65 71 75 20 24 37 |..sprite0 equ $7|
00000010: 66 38 0D 65 6E 61 62 6C 65 20 65 71 75 20 24 64 |f8.enable equ $d|
00000020: 30 31 35 0D 63 6F 6C 6F 72 30 20 65 71 75 20 24 |015.color0 equ $|
00000030: 64 30 32 37 0D 73 70 30 78 20 65 71 75 20 24 64 |d027.sp0x equ $d|
00000040: 30 30 30 0D 73 70 30 79 20 65 71 75 20 24 64 30 |000.sp0y equ $d0|
00000050: 30 31 0D 6D 73 62 78 20 65 71 75 20 24 64 30 31 |01.msbx equ $d01|
00000060: 30 0D 73 68 6F 75 73 65 20 65 71 75 20 24 30 33 |0.shouse equ $03|
00000070: 34 30 0D 20 6A 73 72 20 24 65 35 34 34 0D 20 6C |40. jsr $e544. l|
00000080: 64 61 20 23 30 0D 20 73 74 61 20 24 64 30 32 30 |da #0. sta $d020|
00000090: 0D 20 73 74 61 20 24 64 30 32 31 0D 20 6C 64 61 |. sta $d021. lda|
000000A0: 20 23 24 30 64 0D 20 73 74 61 20 73 70 72 69 74 | #$0d. sta sprit|
000000B0: 65 30 0D 20 6C 64 61 20 23 31 0D 20 73 74 61 20 |e0. lda #1. sta |
000000C0: 65 6E 61 62 6C 65 0D 20 6C 64 61 20 23 37 20 3B |enable. lda #7 ;|
000000D0: 79 65 6C 6C 6F 77 0D 20 73 74 61 20 63 6F 6C 6F |yellow. sta colo|
000000E0: 72 30 0D 20 6C 64 78 20 23 30 0D 20 6C 64 61 20 |r0. ldx #0. lda |
000000F0: 23 24 30 30 0D 63 6C 65 61 6E 75 70 20 73 74 61 |#$00.cleanup sta|
00000100: 20 73 68 6F 75 73 65 2C 78 0D 20 69 6E 78 0D 20 | shouse,x. inx. |
00000110: 63 70 78 20 23 36 34 0D 20 62 6E 65 20 63 6C 65 |cpx #64. bne cle|
00000120: 61 6E 75 70 0D 20 6C 64 78 20 23 30 0D 62 75 69 |anup. ldx #0.bui|
00000130: 6C 64 20 6C 64 61 20 64 61 74 61 2C 78 0D 20 73 |ld lda data,x. s|
00000140: 74 61 20 73 68 6F 75 73 65 2C 78 0D 20 69 6E 78 |ta shouse,x. inx|
00000150: 0D 20 63 70 78 20 23 36 33 0D 20 62 6E 65 20 62 |. cpx #63. bne b|
00000160: 75 69 6C 64 0D 20 6C 64 61 20 23 30 0D 20 73 74 |uild. lda #0. st|
00000170: 61 20 6D 73 62 78 0D 20 6C 64 78 20 23 30 0D 20 |a msbx. ldx #0. |
00000180: 6C 64 61 20 23 37 30 0D 6D 6F 76 65 20 73 74 78 |lda #70.move stx|
00000190: 20 73 70 30 78 0D 20 73 74 61 20 73 70 30 79 0D | sp0x. sta sp0y.|
000001A0: 20 6C 64 79 20 23 30 0D 70 61 75 73 65 20 69 6E | ldy #0.pause in|
000001B0: 79 0D 20 63 70 79 20 23 32 35 35 0D 20 62 6E 65 |y. cpy #255. bne|
000001C0: 20 70 61 75 73 65 0D 20 69 6E 78 0D 20 63 70 78 | pause. inx. cpx|
000001D0: 20 23 32 35 34 0D 20 62 6E 65 20 6D 6F 76 65 0D | #254. bne move.|
000001E0: 20 6A 6D 70 20 6D 6F 76 65 0D 20 72 74 73 0D 64 | jmp move. rts.d|
000001F0: 61 74 61 20 64 66 62 20 30 2C 30 2C 30 2C 30 2C |ata dfb 0,0,0,0,|
00000200: 30 2C 30 2C 30 2C 30 0D 20 64 66 62 20 30 2C 30 |0,0,0,0. dfb 0,0|
00000210: 2C 30 2C 30 2C 30 2C 31 32 38 2C 30 2C 30 0D 20 |,0,0,0,128,0,0. |
00000220: 64 66 62 20 32 32 34 2C 30 2C 30 2C 32 35 32 2C |dfb 224,0,0,252,|
00000230: 30 2C 30 0D 20 64 66 62 20 32 35 35 2C 31 32 38 |0,0. dfb 255,128|
00000240: 2C 30 0D 20 64 66 62 20 32 35 35 2C 32 34 30 2C |,0. dfb 255,240,|
00000250: 32 38 0D 20 64 66 62 20 33 31 2C 32 35 35 2C 32 |28. dfb 31,255,2|
00000260: 34 30 0D 20 64 66 62 20 36 33 2C 32 35 35 2C 36 |40. dfb 63,255,6|
00000270: 33 0D 20 64 66 62 20 36 33 2C 32 35 35 2C 36 33 |3. dfb 63,255,63|
00000280: 0D 20 64 66 62 20 33 31 2C 32 35 35 2C 32 34 30 |. dfb 31,255,240|
00000290: 0D 20 64 66 62 20 32 35 35 2C 32 34 30 2C 30 0D |. dfb 255,240,0.|
000002A0: 20 64 66 62 20 32 35 35 2C 31 32 38 2C 30 0D 20 | dfb 255,128,0. |
000002B0: 64 66 62 20 32 35 32 2C 30 2C 30 0D 20 64 66 62 |dfb 252,0,0. dfb|
000002C0: 20 32 32 34 2C 30 2C 30 0D 20 64 66 62 20 31 32 | 224,0,0. dfb 12|
000002D0: 38 2C 30 2C 30 0D 20 64 66 62 20 30 2C 30 2C 30 |8,0,0. dfb 0,0,0|
000002E0: 2C 30 2C 30 2C 30 0D |,0,0,0. |
..SPRITE0 EQU $7F8.ENABLE EQU $D015.COLO
R0 EQU $D027.SP0X EQU $D000.SP0Y EQU $D0
01.MSBX EQU $D010.SHOUSE EQU $0340. JSR
$E544. LDA #0. STA $D020. STA $D021. LDA
#$0D. STA SPRITE0. LDA #1. STA ENABLE.
LDA #7 ;YELLOW. STA COLOR0. LDX #0. LDA
#$00.CLEANUP STA SHOUSE,X. INX. CPX #64.
BNE CLEANUP. LDX #0.BUILD LDA DATA,X. S
TA SHOUSE,X. INX. CPX #63. BNE BUILD. LD
A #0. STA MSBX. LDX #0. LDA #70.MOVE STX
SP0X. STA SP0Y. LDY #0.PAUSE INY. CPY #
255. BNE PAUSE. INX. CPX #254. BNE MOVE.
JMP MOVE. RTS.DATA DFB 0,0,0,0,0,0,0,0.
DFB 0,0,0,0,0,128,0,0. DFB 224,0,0,252,
0,0. DFB 255,128,0. DFB 255,240,28. DFB
31,255,240. DFB 63,255,63. DFB 63,255,63
. DFB 31,255,240. DFB 255,240,0. DFB 255
,128,0. DFB 252,0,0. DFB 224,0,0. DFB 12
8,0,0. DFB 0,0,0,0,0,0.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL