tänään askartelin tälläisen koodin pätkän
vaikka normaalisti kirjoittelen mahdollisimman yksinkertaisia
ja simpeleitä koodia niin ajattelin nyt laittaa sitten tälläisen hieman kieromman
version nähtäville
ja kuten aina kysyä saa ihan mitä vain !
vaikka normaalisti kirjoittelen mahdollisimman yksinkertaisia
ja simpeleitä koodia niin ajattelin nyt laittaa sitten tälläisen hieman kieromman
version nähtäville
ja kuten aina kysyä saa ihan mitä vain !
Koodi [Valitse]
;-------------------------------------------
; Joystic Read and move ship
;-------------------------------------------
read_joy
lda #$ff
sta $dc01
sta $d015
ldx #5
joy_loop lda $dc00
and binar,x
bne back
jsr do_some
back dex
bpl joy_loop
rts
;----------------------------------
do_some lda jump_tab,x
sta hop+1
hop bne hop
jmp left
jmp right
jmp down
jmp up
jmp fire
;-------------------------------------------
jump_tab .byte 0,3,6,9,12,15,18,21,24
binar .byte 1,2,4,8,16,32,64,128
;-------------------------------------------
up lda you_ship_x
clc
adc you_ship_speed
sta you_ship_x
sta $d000
rts
down lda you_ship_x
sec
sbc you_ship_speed
sta you_ship_x
sta $d000
rts
left lda you_ship_y
sec
sbc you_ship_speed
sta you_ship_y
sta $d001
rts
right lda you_ship_speed
clc
adc you_ship_y
sta you_ship_y
sta $d001
rts
fire inc $d020
rts