407 lines
6.7 KiB
ArmAsm
407 lines
6.7 KiB
ArmAsm
debugtext nop
|
|
sta SETTEXT
|
|
sta KBDSTROBE
|
|
?1 lda KEYBOARD
|
|
sta debug_last_key
|
|
cmp #$A0 ; space?
|
|
bne ?1
|
|
rts
|
|
|
|
; print one byte as two hex digits on current drawing screen
|
|
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"
|
|
|
|
; copy string to the current drawing screen
|
|
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
|
|
|
|
error_bounds_text .byte "BOUNDS", 0
|
|
|
|
; debug function to display address near where the problem was found.
|
|
; By calling using a JSR, the return address is available on the stack
|
|
error_bounds nop
|
|
lda #9
|
|
sta scratch_row
|
|
|
|
ldx #34 ; x coord on screen for "BOUNDS"
|
|
ldy scratch_row
|
|
lda #<error_bounds_text
|
|
sta scratch_ptr
|
|
lda #>error_bounds_text
|
|
sta scratch_ptr+1
|
|
jsr printstr
|
|
|
|
inc scratch_row
|
|
pla
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr debughex
|
|
pla
|
|
ldx #36
|
|
ldy scratch_row
|
|
jsr debughex
|
|
|
|
inc scratch_row
|
|
lda current_actor
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr debughex
|
|
|
|
inc scratch_row
|
|
ldx #34
|
|
ldy scratch_row
|
|
lda #'x'
|
|
jsr fastfont
|
|
ldx current_actor
|
|
lda actor_x,x
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr debughex
|
|
ldx current_actor
|
|
lda actor_y,x
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr debughex
|
|
|
|
inc scratch_row
|
|
ldx #34
|
|
ldy scratch_row
|
|
lda #'c'
|
|
jsr fastfont
|
|
ldx current_actor
|
|
lda actor_col,x
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr debughex
|
|
ldx current_actor
|
|
lda actor_row,x
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr debughex
|
|
|
|
inc scratch_row
|
|
ldx #34
|
|
ldy scratch_row
|
|
lda #'p'
|
|
jsr fastfont
|
|
ldx current_actor
|
|
lda actor_xpixel,x
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr debughex
|
|
ldx current_actor
|
|
lda actor_ypixel,x
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr debughex
|
|
|
|
inc scratch_row
|
|
ldx #34
|
|
ldy scratch_row
|
|
lda #'.'
|
|
jsr fastfont
|
|
ldx current_actor
|
|
lda actor_xfrac,x
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr debughex
|
|
ldx current_actor
|
|
lda actor_yfrac,x
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr debughex
|
|
|
|
inc scratch_row
|
|
ldx #34
|
|
ldy scratch_row
|
|
lda #'d'
|
|
jsr fastfont
|
|
ldx current_actor
|
|
lda actor_dir,x
|
|
ldx #35
|
|
ldy scratch_row
|
|
jsr debughex
|
|
ldx current_actor
|
|
lda actor_target_col,x
|
|
ldx #38
|
|
ldy scratch_row
|
|
jsr debughex
|
|
|
|
jsr pageflip
|
|
ldx current_actor ; restore X register
|
|
?1 jmp ?1 ; wait for debugger
|
|
|
|
|
|
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
|
|
|
|
|
|
rand_test ldx #0
|
|
?1 jsr get_rand_byte
|
|
sta $2000,x
|
|
inx
|
|
bne ?1
|
|
?2 jsr get_rand_spacing
|
|
sta $2100,x
|
|
inx
|
|
bne ?2
|
|
?3 jsr get_rand_col
|
|
sta $2200,x
|
|
inx
|
|
bne ?3
|
|
|
|
brk
|