128 lines
980 B
ArmAsm
128 lines
980 B
ArmAsm
|
|
;
|
|
; Helper code for debugging the monitor
|
|
;
|
|
|
|
; XXX disable this code once the monitor integration is complete
|
|
|
|
DBG_print_Buf_Index:
|
|
|
|
php
|
|
pha
|
|
phx
|
|
phy
|
|
phz
|
|
|
|
jsr PRIMM
|
|
!pet $0D, "buf idx : ", 0
|
|
|
|
lda Buf_Index
|
|
jsr Print_Hex
|
|
|
|
plz
|
|
ply
|
|
plx
|
|
pla
|
|
plp
|
|
|
|
rts
|
|
|
|
|
|
DBG_print_long_ac:
|
|
|
|
php
|
|
pha
|
|
phx
|
|
phy
|
|
phz
|
|
|
|
jsr PRIMM
|
|
!pet $0D, "long ac : ", 0
|
|
|
|
lda Long_AC+3
|
|
jsr Print_Hex
|
|
lda Long_AC+2
|
|
jsr Print_Hex
|
|
lda Long_AC+1
|
|
jsr Print_Hex
|
|
lda Long_AC+0
|
|
jsr Print_Hex
|
|
|
|
jsr PRIMM
|
|
!pet " addr mode : ", 0
|
|
|
|
lda Addr_Mode
|
|
jsr Print_Hex
|
|
|
|
jsr PRIMM
|
|
!pet " :: ", 0
|
|
|
|
plz
|
|
ply
|
|
plx
|
|
pla
|
|
plp
|
|
|
|
rts
|
|
|
|
DBG_print_hex:
|
|
|
|
php
|
|
pha
|
|
phx
|
|
phy
|
|
phz
|
|
|
|
pha
|
|
jsr PRIMM
|
|
!pet $0D, "hex : ", 0
|
|
pla
|
|
|
|
jsr Print_Hex
|
|
|
|
plz
|
|
ply
|
|
plx
|
|
pla
|
|
plp
|
|
|
|
rts
|
|
|
|
DBG_print_CP1:
|
|
|
|
php
|
|
pha
|
|
phx
|
|
phy
|
|
phz
|
|
|
|
jsr PRIMM
|
|
!pet $0D, "checkpoint 1", 0
|
|
|
|
jmp DBG_END
|
|
|
|
DBG_print_CP2:
|
|
|
|
php
|
|
pha
|
|
phx
|
|
phy
|
|
phz
|
|
|
|
jsr PRIMM
|
|
!pet $0D, "checkpoint 2", 0
|
|
|
|
; FALLTROUGH
|
|
|
|
DBG_END:
|
|
|
|
plz
|
|
ply
|
|
plx
|
|
pla
|
|
plp
|
|
|
|
rts
|
|
|
|
|