.TITLE	TTYIODEF	MACRO DEFINITIONS FOR TTYIO PACKAGE
	.IDENT	/1.01/			;FILE: "TTYIODEF.MAR"

;
;	COPYRIGHT (C) 1979
;		MANAGEMENT SCIENCE ASSOCIATES, INC.
;		5100 CENTRE AVENUE
;		PITTSBURGH, PENNSYLVANIA  15232
;
;	THIS SOFTWARE IS DISTRIBUTED WITHOUT COST, AND MAY BE
;	REPRODUCED ONLY WITH THE INCLUSION OF THIS COPYRIGHT
;	STATEMENT.  MANAGEMENT SCIENCE ASSOCIATES ASSUMES NO
;	RESPONSIBILITY FOR THE PERFORMANCE OF THIS SOFTWARE.
;

;++
;	TTYIODEF
;
; FUNCTION:
;	PROVIDE MACRO DEFINITIONS FOR INVOCATION OF THE TTYIO ROUTINES
;
; SPECIAL CONSIDERATIONS:
;	THIS MODULE DOES NOT CONTAIN EXECUTABLE CODE.  IT SHOULD BE
;	USED TO PRODUCE A MACRO LIBRARY MODULE (A ".MLB" FILE) TO
;	BE REFERENCED BY AN ASSEMBLY USING THE ROUTINES IN TTYIO.
;--
	.MACRO	TTYIOARG	L
		.NTYPE	.L,L
		..L=.L&^XF
		.IF NE <.L-..L-^X50>
			PUSHAB L
			.MEXIT
			.ENDC
		.IF LT <..L-12>
			PUSHL #..L
			.MEXIT
			.ENDC
		.ERROR	;TTYIO: Invalid Register;
	.ENDM

	.MACRO	INCHRW	L
		TTYIOARG	L
		CALLS	#1,G^INCHRW$
	.ENDM

	.MACRO	OUTCHR	L
		TTYIOARG	L
		CALLS	#1,G^OUTCHR$
	.ENDM

	.MACRO	OUTSTR	L
		TTYIOARG	L
		CALLS	#1,G^OUTSTR$
	.ENDM

	.MACRO	INCHWL	L
		TTYIOARG	L
		CALLS	#1,G^INCHWL$
	.ENDM

	.MACRO	GETLCH	L
		TTYIOARG	L
		CALLS	#1,G^GETLCH$
	.ENDM

	.MACRO	SETLCH	L
		TTYIOARG	L
		CALLS	#1,G^SETLCH$
	.ENDM

	.MACRO	RESCAN
		CALLS	#0,G^RESCAN$
	.ENDM

	.MACRO	CLRBFI
		CALLS	#0,G^CLRBFI$
	.ENDM

	.END				;THAT'S ALL, FOLKS!