Upload

Digital Research

MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/CONTROL/SIMPIO.LIB

@@ -0,0 +1,26 @@
+;	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
+