 sttl Stand-alone System console Code - ACIA
 pag
*
* These are non-interrupt output routines for the system
* console.
*

*
* systpc
*
* Output the character in A.  X points to the port.  All
* registers should be preserved.
*

systpc pshs a save a reg
2 lda 0,x get acia status
 bita #ACTBSY xmit busY?
 beq 2b
 puls a get character
 sta 1,x output char
 rts return


*
* sysrtt
*
* Reset the console port.  X points to port.  Preserve all but A reg.
*

sysrtt lda #$03 reset code
 sta 0,x
 lda #$15 config byte
 sta 0,x
 rts return

