;PROGRAM TO CHANGE THE I/O BYTE SUCH THAT
;THE LIST DEVICE ON THE OSBORNE-1 IS ALTERNATED
;BETWEEN THE SERIAL PORT AND THE PARALLEL (CENTRONICS)
;PORT
;
;WRITTEN BY KENT WALKER, AUGUST, 1982
;
;
	ORG	100H
IOBYTE	EQU	0003H
CR	EQU	0DH
LF	EQU	0AH
HT	EQU	09H
PRBUFF	EQU	09H
BDOS	EQU	0005H
REBOOT	EQU	0000H
MASK	EQU	11000000B
	LDA	IOBYTE
	XRI	MASK
	STA	IOBYTE	
	JM	SERIAL
	LXI	D,PARMSG
	JMP	PRNT
SERIAL:	LXI	D,SERMSG
PRNT:	MVI	C,PRBUFF
	JMP	BDOS
	JMP	REBOOT
;
SERMSG:	DB	CR,LF,LF,LF,HT,'SERIAL Printer Selected',CR,LF,LF,'$'
PARMSG:	DB	CR,LF,LF,LF,HT,'PARALLEL Printer Selected',CR,LF,LF,'$'
;
	END
