	STKLN	10H
;
	PUBLIC	CI,RI,CO,PO,LO,CSTS,IOCHK,IOSET,MEMCHK
;
	CSEG
CI:	JMP	01CDH
;
RI:	JMP	05BEH
;
CO:	JMP	01E0H
;
PO:	JMP	05A1H
;
LO:	JMP	001EH	; ILLEGAL CALL SIGN ON MESSAGE
;
CSTS:	IN	0EDH	; CONSOLE STATUS PORT
	ANI	02H	; CHAR RECEIVED
	JNZ	C1
	MVI	A,0	; FALSE
	RET
C1:	MVI	A,0FFH	; TRUE
	RET
;
IOCHK:	MVI	A,0FFH	; PUNCH NOT TTY
	RET
;
IOSET:	JMP	001EH	; ILLEGAL CALL SIGN ON MESSAGE
;
MEMCHK:	LXI	H,7FFFH
	RET
;
	END
