.NLIST
;+
;	MACHINE/SYSTEM	- PDP-11/70 / IAS V3.0
;	AUTHOR		- JOHN GUIDI
;	DATE		- 13-AUGUST-80
;	RESIDENCE	- LB:[?,?]LBNPRE.MAC
;	TYPE/LANGUAGE	- $$$LBN UTILITY PREFIX FILE / MACRO-11 D1113
;	ABSTRACT	- THIS MODULE DEFINES THE ERROR SYMBOLS AND SOME
;			  MACROS WHICH ARE USED THROUGHOUT THE $$$LBN
;			  UTILITY.
;-

	DEBUG=0			; THIS SYMBOL IS SET TO 0 IF THE PRODUCTION
				; $$$LBN IS DESIRED (RO PSECTS). SET DEBUG=1
				; IF RW PSECTS ARE DESIRED FOR DDT.
				; ******************************************
				; DEBUG=0 - THEN YOU GET PRODUCTION VERSION
				; DEBUG=1 - THEN YOU GET DEBUG VERSION

;
; DEFINE ERROR MESSAGE SYMBOLS
; *** DO NOT CHANGE THESE VALUES ABOVE
	GCMLXX=1
	SYNTXX=2
	LSYNXX=3
	LSWIXX=4
	LWLDXX=5
	LMULXX=6
	LPRSXX=7
	LOPNXX=10
	ISYNXX=11
	IWLDXX=12
	IOPNXX=13
	GETSXX=14
	INSYXX=15
	INSMXX=16
	WLPRXX=17
	XOPNXX=20
	XREDXX=21
	XCMPXX=22
	MRETXX=23
	NFILXX=24
; *** DO NOT CHANGE THESE VALUES ABOVE

;
; ERROR MACRO IS USED, ALONG WITH THE MESSAGE SYMBOL, TO 
; DISPLAY ERROR MESSAGES. TRAP CAUSES LBNTRP TO EXECUTE.
;
	.MACRO	ERROR	MESSAGE
	TRAP	MESSAGE
	.ENDM	ERROR

;
; TABLE MACRO IS USED TO SET UP AN OFFSET TABLE.
;
	.MACRO	TABLE	SYMBOL
	.WORD	SYMBOL'$
	.ENDM	TABLE

;
; MSG MACRO IS USED TO ASSOCIATE AN ERROR MESSAGE WITH A LABEL.
;
	.MACRO	MSG	SYMBOL,TEXT
SYMBOL'$:	.ASCIZ	/'TEXT'/
	.ENDM

;
; PRINT MACRO IS USED TO WRITE TEXT ONTO TERMINAL.
;
	.MACRO	PRINT	TXT,SIZ,CC=#40
	.MCALL	DIR$
	MOV	TXT,<WRITE+Q.IOPL>
	MOV	SIZ,<WRITE+Q.IOPL+2>
	MOV	CC,<WRITE+Q.IOPL+4>
	DIR$	#WRITE
	.ENDM	PRINT

;
; PUSH MACRO IS USED TO PUSH ELEMENTS OF A LIST ONTO THE STACK.
;
	.MACRO	PUSH	LIST
	.IRP	SYM,<LIST>
	MOV	SYM,-(SP)
	.ENDM
	.ENDM	PUSH

;
; POP MACRO IS USED TO POP ELEMENTS OFF THE STACK INTO SUCCESSIVE ELEMENTS
; OF A LIST.
;
	.MACRO	POP	LIST
	.IRP	SYM,<LIST>
	MOV	(SP)+,SYM
	.ENDM
	.ENDM	POP

	.LIST