mirror of
https://github.com/robmcmullen/fujirun.git
synced 2024-12-29 14:33:23 +00:00
96 lines
1.4 KiB
ArmAsm
96 lines
1.4 KiB
ArmAsm
debugtext nop
|
|
sta SETTEXT
|
|
sta KBDSTROBE
|
|
?1 lda KEYBOARD
|
|
sta debug_last_key
|
|
cmp #$A0 ; space?
|
|
bne ?1
|
|
rts
|
|
|
|
|
|
printhex ; A = hex byte, X = column, Y = row; A is clobbered, X&Y are not
|
|
pha
|
|
stx param_x
|
|
lsr
|
|
lsr
|
|
lsr
|
|
lsr
|
|
tax
|
|
lda hexdigit,x
|
|
ldx param_x
|
|
jsr fastfont
|
|
pla
|
|
and #$0f
|
|
tax
|
|
lda hexdigit,x
|
|
ldx param_x
|
|
inx
|
|
jsr fastfont
|
|
rts
|
|
|
|
hexdigit .byte "0123456789ABCDEF"
|
|
|
|
printstr ; X = column, Y = row, scratch_ptr is text (null terminated)
|
|
sty param_y
|
|
ldy #0
|
|
?next lda (scratch_ptr),y
|
|
beq ?exit
|
|
ldy param_y
|
|
jsr fastfont
|
|
inx
|
|
bne ?next
|
|
?exit rts
|
|
|
|
debug_player nop
|
|
lda #22
|
|
sta scratch_row
|
|
|
|
ldx #0
|
|
lda actor_input_dir,x
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr printhex
|
|
ldx #0
|
|
lda actor_dir,x
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr printhex
|
|
|
|
dec scratch_row
|
|
ldx #0
|
|
lda actor_x,x
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr printhex
|
|
ldx #0
|
|
lda actor_y,x
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr printhex
|
|
|
|
dec scratch_row
|
|
ldx #0
|
|
lda actor_col,x
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr printhex
|
|
ldx #0
|
|
lda actor_row,x
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr printhex
|
|
|
|
dec scratch_row
|
|
ldx #0
|
|
lda tdamageindex1
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr printhex
|
|
ldx #0
|
|
lda tdamageindex2
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr printhex
|
|
|
|
rts
|