Here's the code, It's in CBM prg Studio
Code: Select all
*=$1800 ; starting location is $1800
init
lda #$0A ; load char J
sta $1400 ; store into $1400 for later use
ldx #$00 ; load position
lda #$93
jsr $ffd2 ; clean the screen before continuing
start ; done intializing
lda $1400
sta $1E00,x ; store into position
lda #$06
sta 38400,x ; store blue into color ram
lda $00C5 ; load value of C5 (keyboard matrix)
cmp 18 ; compare with 18 (d key)
beq moveright ; if d is pressed, move right 1 tile
bne start ; if no key pressed, go back to start label
loop
jmp loop ; just lock the vic-20
moveright
inx ; increment x
lda #$93
jsr $ffd2 ; and clean the screen so no trail is present
lda $1400 ; load player character
sta $1E00,x ; redraw it
jmp start ; and then return to start lab