fujirun/debug.s
2017-07-22 12:47:55 -07:00

273 lines
4.4 KiB
ArmAsm

debugtext nop
sta SETTEXT
sta KBDSTROBE
?1 lda KEYBOARD
sta debug_last_key
cmp #$A0 ; space?
bne ?1
rts
debughex ; 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
sty param_index
?next ldy param_index
lda (scratch_ptr),y
beq ?exit
ldy param_y
jsr fastfont
inc param_index
inx
bne ?next
?exit rts
debug_damage .byte 0
debug_paint_box .byte 0
debug_mark_box .byte 0
debug_player nop
lda #22
sta scratch_row
; ldx #34
; ldy scratch_row
; lda #'d'
; jsr fastfont
; ldx #0
; lda actor_input_dir,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #0
; lda actor_dir,x
; ldx #38
; ldy scratch_row
; jsr debughex
;
; dec scratch_row
; ldx #34
; ldy scratch_row
; lda #'x'
; jsr fastfont
; ldx #0
; lda actor_x,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #0
; lda actor_y,x
; ldx #38
; ldy scratch_row
; jsr debughex
;
; dec scratch_row
; ldx #34
; ldy scratch_row
; lda #'c'
; jsr fastfont
; ldx #0
; lda actor_col,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #0
; lda actor_row,x
; ldx #38
; ldy scratch_row
; jsr debughex
dec scratch_row
ldx #34
ldy scratch_row
lda #'s'
jsr fastfont
ldx #0
lda actor_status,x
ldx #35
ldy scratch_row
jsr debughex
ldx #0
lda actor_active,x
ldx #38
ldy scratch_row
jsr debughex
dec scratch_row
ldx #34
ldy scratch_row
lda #'t'
jsr fastfont
ldx #0
lda actor_frame_counter,x
ldx #35
ldy scratch_row
jsr debughex
ldx #0
lda actor_active,x
ldx #38
ldy scratch_row
jsr debughex
; dec scratch_row
; ldx #34
; ldy scratch_row
; lda #'t'
; jsr fastfont
; ldx #0
; lda tdamageindex1
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #0
; lda tdamageindex2
; ldx #38
; ldy scratch_row
; jsr debughex
;
; dec scratch_row
; ldx #34
; ldy scratch_row
; lda #'p'
; jsr fastfont
; ldx #0
; lda debug_mark_box
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #0
; lda debug_paint_box
; ldx #38
; ldy scratch_row
; jsr debughex
; ; amidar 4
; dec scratch_row
; ldx #34
; ldy scratch_row
; lda #'4'
; jsr fastfont
; ldx #FIRST_AMIDAR+3
; lda actor_col,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #FIRST_AMIDAR+3
; lda actor_row,x
; ldx #38
; ldy scratch_row
; jsr debughex
;
; ; amidar 3
; dec scratch_row
; ldx #34
; ldy scratch_row
; lda #'3'
; jsr fastfont
; ldx #FIRST_AMIDAR+2
; lda actor_col,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #FIRST_AMIDAR+2
; lda actor_row,x
; ldx #38
; ldy scratch_row
; jsr debughex
;
; ; amidar 2
; dec scratch_row
; ldx #FIRST_AMIDAR+1
; lda actor_xpixel,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #FIRST_AMIDAR+1
; lda actor_ypixel,x
; ldx #38
; ldy scratch_row
; jsr debughex
;
; dec scratch_row
; ldx #34
; ldy scratch_row
; lda #'2'
; jsr fastfont
; ldx #FIRST_AMIDAR+1
; lda actor_col,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #FIRST_AMIDAR+1
; lda actor_row,x
; ldx #38
; ldy scratch_row
; jsr debughex
;
; ; amidar 1 (orbiter)
; dec scratch_row
; ldx #FIRST_AMIDAR
; lda actor_xpixel,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #FIRST_AMIDAR
; lda actor_ypixel,x
; ldx #38
; ldy scratch_row
; jsr debughex
;
; dec scratch_row
; ldx #FIRST_AMIDAR
; lda actor_xfrac,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #FIRST_AMIDAR
; lda actor_yfrac,x
; ldx #38
; ldy scratch_row
; jsr debughex
;
; dec scratch_row
; ldx #34
; ldy scratch_row
; lda #'1'
; jsr fastfont
; ldx #FIRST_AMIDAR
; lda actor_col,x
; ldx #35
; ldy scratch_row
; jsr debughex
; ldx #FIRST_AMIDAR
; lda actor_row,x
; ldx #38
; ldy scratch_row
; jsr debughex
rts