;	MACRO LIBRARY FOR SIMPLE I/O
BDOS	EQU	0005H	;BDOS ENTRY
CONIN	EQU	1	;CONSOLE INPUT FUNCTION
MSGOUT	EQU	9	;PRINT MESSAGE TIL $
CR	EQU	0DH	;CARRIAGE RETURN
LF	EQU	0AH	;LINE FEED
;
READ	MACRO	VAR
;;	READ A SINGLE CHARACTER INTO VAR
	MVI	C,CONIN	;CONSOLE INPUT FUNCTION
	CALL	BDOS	;CHARACTER IS IN A
	STA	VAR
	ENDM
;
WRITE	MACRO	MSG
;;	WRITE MESSAGE TO CONSOLE
	LOCAL	MSGL,PMSG
	JMP	PMSG
MSGL:	DB	CR,LF	;;LEADING CRLF
	DB	'&MSG'	;;INLINE MESSAGE
	DB	'$'	;;MESSAGE TERMINATOR
PMSG:	MVI	C,MSGOUT	;;PRINT MESSAGE TIL $
	LXI	D,MSGL
	CALL	BDOS
	ENDM