; Dumps CCR,A,B,X,PC on the screen when the break key is pressed ; Feb 21st 2012 cpu 6800 * = $7000 ; A bit further to enable debugging of BASIC programs ; Modify the Makefile too! LOCATI equ ($c100+32*19+22) sei ldx #handu stx $100 cli rts ; Copy saved register values from the stack handu ldab #7 ldx #regs kopi pula staa ,x inx decb bne kopi des des des des des des des ; Start printing ldx #LOCATI ldab #'C' stab ,x inx ldab #'C' stab ,x inx ldab #'R' stab ,x inx inx ldaa regs bsr printa ldx #LOCATI+32 ldab #'A' stab ,x inx inx ldaa regs+2 bsr printa inx ldab #'B' stab ,x inx inx ldaa regs+1 bsr printa ldx #LOCATI+64 ldab #'X' stab ,x inx inx ldaa regs+3 bsr printa ldaa regs+4 bsr printa ldx #LOCATI+96 ldab #'P' stab ,x inx ldab #'C' stab ,x inx inx ldaa regs+5 bsr printa ldaa regs+6 bsr printa jmp $e799 ; Prints the contents of A as hex at X printa clrb clc rola rolb adda #hexasc&255 adcb #hexasc>>8 stab lada+1 staa lada+2 inca adcb #0 stab samara+1 staa samara+2 lada ldaa $ffff staa ,x inx samara ldaa $ffff staa ,x inx rts regs db 0,0,0,0,0,0,0 tmp dw 0 include hex.inc