************************************************
*
*  Horizon serial port output driver
*
SERIAL EQU $
 MOV A,B
 SHLD RETURN+1  Save the interrupt routine address
*
COUT PUSH PSW
 IN 5
 ANI 1
 JNZ OUT2
*
RETURN CALL $  Interrupt back to North *
 JMP COUT+1
*
OUT2 POP PSW
 OUT 4
 RET
*
********************
*
*  Horizon parallel port output routine
*
PARAL EQU $
 MOV A,B
 SHLD PRET+1
*
POUT PUSH PSW
 IN 6
 ANI 1
 JNZ POUT2
*
PRET CALL $
 JMP POUT+1
*
POUT2 POP PSW
 OUT 0
 MVI A,20H
 OUT 6
 RET
*
PRGEND EQU 2*BUFSIZ+IOBUFS+1FFH
*
 END