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 A0 A0 6D 6F 76 65 A0 61 A0 |**.*.....move.a.|
00000030: 73 70 72 69 74 65 A0 69 6E A0 73 74 65 70 73 A0 |sprite.in.steps.|
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 6C 64 61 20 23 31 32 30 0D 20 |****. lda #120. |
00000070: 73 74 61 20 32 30 34 30 0D 20 6C 64 61 20 31 32 |sta 2040. lda 12|
00000080: 38 0D 20 73 74 61 20 35 33 32 34 38 0D 20 73 74 |8. sta 53248. st|
00000090: 61 20 35 33 32 34 39 0D 20 6C 64 61 20 23 31 0D |a 53249. lda #1.|
000000A0: 20 73 74 61 20 35 33 32 36 39 0D 20 73 74 61 20 | sta 53269. sta |
000000B0: 35 33 32 37 31 0D 20 73 74 61 20 35 33 32 37 37 |53271. sta 53277|
000000C0: 0D 6A 6F 79 32 20 6C 64 61 20 35 36 33 32 30 0D |.joy2 lda 56320.|
000000D0: 20 61 6E 64 20 23 31 35 0D 20 73 74 61 20 74 65 | and #15. sta te|
000000E0: 6D 70 0D 20 6C 64 61 20 23 31 35 0D 20 73 65 63 |mp. lda #15. sec|
000000F0: 0D 20 73 62 63 20 74 65 6D 70 0D 20 73 74 61 20 |. sbc temp. sta |
00000100: 74 65 6D 70 0D 20 61 6E 64 20 23 31 0D 20 62 65 |temp. and #1. be|
00000110: 71 20 75 70 0D 20 6C 64 61 20 74 65 6D 70 0D 20 |q up. lda temp. |
00000120: 61 6E 64 20 23 32 0D 20 62 65 71 20 64 6F 77 6E |and #2. beq down|
00000130: 0D 20 6C 64 61 20 74 65 6D 70 0D 20 61 6E 64 20 |. lda temp. and |
00000140: 23 34 0D 20 62 65 71 20 6C 65 66 74 0D 20 6C 64 |#4. beq left. ld|
00000150: 61 20 74 65 6D 70 0D 20 61 6E 64 20 23 38 0D 20 |a temp. and #8. |
00000160: 62 65 71 20 72 69 67 68 74 0D 20 6C 64 61 20 31 |beq right. lda 1|
00000170: 39 37 0D 20 63 6D 70 20 23 35 37 0D 20 62 65 71 |97. cmp #57. beq|
00000180: 20 65 6E 64 0D 75 70 20 6C 64 78 20 75 64 73 74 | end.up ldx udst|
00000190: 65 70 0D 20 6C 64 79 20 75 64 73 69 67 6E 0D 20 |ep. ldy udsign. |
000001A0: 63 70 79 20 23 30 0D 20 62 6E 65 20 6E 65 78 74 |cpy #0. bne next|
000001B0: 31 0D 20 69 6E 78 0D 20 6A 6D 70 20 75 70 62 61 |1. inx. jmp upba|
000001C0: 6B 0D 20 64 65 78 0D 20 63 70 78 20 23 32 35 35 |k. dex. cpx #255|
000001D0: 0D 20 62 6E 65 20 67 6F 62 61 63 6B 0D 20 6C 64 |. bne goback. ld|
000001E0: 78 20 23 30 0D 20 6C 64 79 20 23 30 0D 67 6F 62 |x #0. ldy #0.gob|
000001F0: 61 63 6B 20 73 74 78 20 75 64 73 74 65 70 0D 20 |ack stx udstep. |
00000200: 73 74 79 20 75 64 73 69 67 6E 0D 20 6A 6D 70 20 |sty udsign. jmp |
00000210: 6A 6F 79 32 0D 64 6F 77 6E 20 6C 64 78 20 75 64 |joy2.down ldx ud|
00000220: 73 74 65 70 0D 20 6C 64 79 20 75 64 73 69 67 6E |step. ldy udsign|
00000230: 0D |. |
..********************************.*
MOVE A SPRITE IN STEPS *.************
********************. LDA #120. STA 2040
. LDA 128. STA 53248. STA 53249. LDA #1.
STA 53269. STA 53271. STA 53277.JOY2 LD
A 56320. AND #15. STA TEMP. LDA #15. SEC
. SBC TEMP. STA TEMP. AND #1. BEQ UP. LD
A TEMP. AND #2. BEQ DOWN. LDA TEMP. AND
#4. BEQ LEFT. LDA TEMP. AND #8. BEQ RIGH
T. LDA 197. CMP #57. BEQ END.UP LDX UDST
EP. LDY UDSIGN. CPY #0. BNE NEXT1. INX.
JMP UPBAK. DEX. CPX #255. BNE GOBACK. LD
X #0. LDY #0.GOBACK STX UDSTEP. STY UDSI
GN. JMP JOY2.DOWN LDX UDSTEP. LDY UDSIGN
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL