2017-07-19 22:29:05 +00:00
|
|
|
debugtext nop
|
|
|
|
sta SETTEXT
|
|
|
|
sta KBDSTROBE
|
|
|
|
?1 lda KEYBOARD
|
|
|
|
sta debug_last_key
|
|
|
|
cmp #$A0 ; space?
|
|
|
|
bne ?1
|
|
|
|
rts
|
2017-07-20 16:48:26 +00:00
|
|
|
|
|
|
|
|
|
|
|
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"
|
2017-07-20 20:43:49 +00:00
|
|
|
|
|
|
|
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
|
|
|
|
|
2017-07-21 20:20:57 +00:00
|
|
|
|
|
|
|
debug_damage .byte 0
|
|
|
|
debug_paint_box .byte 0
|
|
|
|
debug_mark_box .byte 0
|
|
|
|
|
|
|
|
|
2017-07-20 20:43:49 +00:00
|
|
|
debug_player nop
|
2017-07-20 22:09:45 +00:00
|
|
|
lda #22
|
|
|
|
sta scratch_row
|
|
|
|
|
2017-07-21 21:12:43 +00:00
|
|
|
ldx #34
|
|
|
|
ldy scratch_row
|
|
|
|
lda #'d'
|
|
|
|
jsr fastfont
|
2017-07-20 20:43:49 +00:00
|
|
|
ldx #0
|
|
|
|
lda actor_input_dir,x
|
|
|
|
ldx #35
|
2017-07-20 22:09:45 +00:00
|
|
|
ldy scratch_row
|
|
|
|
jsr printhex
|
|
|
|
ldx #0
|
|
|
|
lda actor_dir,x
|
|
|
|
ldx #38
|
|
|
|
ldy scratch_row
|
2017-07-20 20:43:49 +00:00
|
|
|
jsr printhex
|
|
|
|
|
2017-07-20 22:09:45 +00:00
|
|
|
dec scratch_row
|
2017-07-21 21:12:43 +00:00
|
|
|
ldx #34
|
|
|
|
ldy scratch_row
|
|
|
|
lda #'x'
|
|
|
|
jsr fastfont
|
2017-07-20 20:43:49 +00:00
|
|
|
ldx #0
|
|
|
|
lda actor_x,x
|
|
|
|
ldx #35
|
2017-07-20 22:09:45 +00:00
|
|
|
ldy scratch_row
|
2017-07-20 20:43:49 +00:00
|
|
|
jsr printhex
|
|
|
|
ldx #0
|
|
|
|
lda actor_y,x
|
|
|
|
ldx #38
|
2017-07-20 22:09:45 +00:00
|
|
|
ldy scratch_row
|
2017-07-20 20:43:49 +00:00
|
|
|
jsr printhex
|
|
|
|
|
2017-07-20 22:09:45 +00:00
|
|
|
dec scratch_row
|
2017-07-21 21:12:43 +00:00
|
|
|
ldx #34
|
|
|
|
ldy scratch_row
|
|
|
|
lda #'c'
|
|
|
|
jsr fastfont
|
2017-07-20 20:43:49 +00:00
|
|
|
ldx #0
|
|
|
|
lda actor_col,x
|
|
|
|
ldx #35
|
2017-07-20 22:09:45 +00:00
|
|
|
ldy scratch_row
|
2017-07-20 20:43:49 +00:00
|
|
|
jsr printhex
|
|
|
|
ldx #0
|
|
|
|
lda actor_row,x
|
|
|
|
ldx #38
|
2017-07-20 22:09:45 +00:00
|
|
|
ldy scratch_row
|
2017-07-20 20:43:49 +00:00
|
|
|
jsr printhex
|
|
|
|
|
2017-07-21 04:49:24 +00:00
|
|
|
dec scratch_row
|
2017-07-21 21:12:43 +00:00
|
|
|
ldx #34
|
|
|
|
ldy scratch_row
|
|
|
|
lda #'t'
|
|
|
|
jsr fastfont
|
2017-07-21 04:49:24 +00:00
|
|
|
ldx #0
|
|
|
|
lda tdamageindex1
|
|
|
|
ldx #35
|
|
|
|
ldy scratch_row
|
|
|
|
jsr printhex
|
|
|
|
ldx #0
|
|
|
|
lda tdamageindex2
|
|
|
|
ldx #38
|
|
|
|
ldy scratch_row
|
|
|
|
jsr printhex
|
|
|
|
|
2017-07-21 20:20:57 +00:00
|
|
|
dec scratch_row
|
2017-07-21 21:12:43 +00:00
|
|
|
ldx #34
|
|
|
|
ldy scratch_row
|
|
|
|
lda #'p'
|
|
|
|
jsr fastfont
|
2017-07-21 20:20:57 +00:00
|
|
|
ldx #0
|
|
|
|
lda debug_mark_box
|
|
|
|
ldx #35
|
|
|
|
ldy scratch_row
|
|
|
|
jsr printhex
|
|
|
|
ldx #0
|
|
|
|
lda debug_paint_box
|
|
|
|
ldx #38
|
|
|
|
ldy scratch_row
|
|
|
|
jsr printhex
|
|
|
|
|
2017-07-20 20:43:49 +00:00
|
|
|
rts
|