;
; set of macros to make references to rtl routines easier to use
; this was modified for v3 by making all such references general addr mode
;
.MACRO LIB$GET_INPUT	INPUT_DESC,PROMPT
	PUSHAL	PROMPT
	PUSHAL	INPUT_DESC
	CALLS	#2,G^LIB$GET_INPUT
.ENDM LIB$GET_INPUT

.MACRO LIB$TPARSE BLOCK,PARSER,TABLE
	PUSHAL	TABLE
	PUSHAL	PARSER
	PUSHAL	BLOCK
	CALLS	#3,G^LIB$TPARSE
.ENDM LIB$TPARSE

.MACRO LIB$PUT_OUTPUT STRING
	PUSHAL	STRING
	CALLS	#1,G^LIB$PUT_OUTPUT
.ENDM LIB$PUT_OUTPUT

.MACRO LIB$GET_VM NUM,ADDR
	PUSHAL	ADDR
	PUSHAL	NUM
	CALLS	#2,G^LIB$GET_VM
.ENDM LIB$GET_VM

.MACRO LIB$FREE_VM NUM,ADDR
	PUSHAL	ADDR
	PUSHAL	NUM
	CALLS	#2,G^LIB$FREE_VM
.ENDM LIB$FREE_VM

.MACRO LIB$SIGNAL ARG
	PUSHL	ARG
	CALLS	#1,G^LIB$SIGNAL
.ENDM LIB$SIGNAL
;
; macro to let you specify in-line text strings
;
.MACRO DESC	STRING,?A
	.SAVE_PSECT
	.PSECT STRINGS
A:	.ASCID /STRING/
	.RESTORE_PSECT
.ENDM DESC
.END