 lib environment
 lib acia
 lib macdefs
 data
 sttl System console Code - GIMIX IOP
 pag
 name sys_iop
 global systpc,sysrtt,sysbrg

*
* 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 cc,a save a reg
 seti mask interrupts
 cmpa #$0A line feed?
 beq 99f yes - ignore it
 jsr Pchar
99 puls cc,a,pc return

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

sysrtt jsr Tinit initialize terminal
 rts return


*
* sysbrg
*
* Setup baud rates.  Y points to receive baud rate, U points to xmit.
* A has configuration byte.  Preserve all regs but A.
*

sysbrg rts
