 global Phex,Pdata

*
* Pdata - Print a null terminated string on the
*   system console (without interrupts).
*   X - string address
*
Pdata pshs d,x
10 lda ,x+ get next character
 beq 99f
 cmpa #$0D carriage return?
 bne 20f
 pshs x save pointer
 jsr syspch print CR
 puls x
 lda #$0A print LF
20 pshs x save pointer
 jsr syspch
 puls x
 bra 10b
99 puls d,x,pc return

*
* Phex - Print the value in (A) in hex
*    A - value to print
*
Phex pshs d,x
 ldx #hexchrs
 lsra
 lsra ** print upper nibble
 lsra
 lsra
 lda a,x
 pshs x
 jsr syspch
 puls x
 lda 0,s
 anda #$0F
 lda a,x
 jsr syspch
 puls d,x,pc return
*
hexchrs fcc '0123456789ABCDEF'
