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

	DEBUG=0			; THIS SYMBOL IS SET TO 0 IF THE PRODUCTION
				; $$$BLK IS DESIRED AND THE PSECTS ARE MADE
				; RO. IF DEBUG=1 THEN PSECTS ARE MADE RW.
				; ALSO, THIS SYMBOL IS AVAILABLE TO ENABLE
				; THE USER TO EASILY IDENTIFY DEBUG CODE IN
				; THE EVENT THAT TESTING IS NEEDED.
				; ******************************************
				; DEBUG=0 - THEN YOU GET PRODUCTION VERSION
				; DEBUG=1 - THEN YOU GET DEBUG VERSION

;
; DEFINE ERROR MESSAGE SYMBOLS
; *** DO NOT CHANGE THESE VALUES BELOW
	GCMLXX=1
	SYNTXX=2
	LSYNXX=3
	LSWIXX=4
	LWLDXX=5
	LMULXX=6
	LPRSXX=7
	LOPNXX=10
	ISYNXX=11
	IWLDXX=12
	IOPNXX=13
	BOPNXX=14
	XOPNXX=15
	IREDXX=16
	LCNVXX=17
	LORDXX=20
	LDUPXX=21
	BREDXX=22
	XREDXX=23
	BLBNXX=24
	EPARXX=25
	MRETXX=26
	XCMPXX=27
; *** DO NOT CHANGE THESE VALUES ABOVE

;
; ERROR MACRO IS USED, ALONG WITH THE MESSAGE SYMBOL, TO 
; DISPLAY ERROR MESSAGES. TRAP CAUSES BLKTRP 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