.NLIST
	.TITLE 	LSPMAC
	.LIST	TTM
; DEFINITIONS:
; DEFINE SWITCHES TO INDICATE TARGET RUNTIME SYSTEM -- RT11 IS DEFAULT (DRW)
RSTS = 1			; USE OF THE RT11 EMULATOR IS ASSUMED
;RSX = 1			; RSX CAN BE DEFINED WITH RSTS TO INDICATE USE 
				; OF THE RSX EMULATOR
;	 SET UP DEFAULT
	.IF NDF  RSTS & RSX
RT11 = 1
	.ENDC
;
; DO NOT USE SYSMAC UNDER RSX (DRW)
;
	.IF NDF  RSX
	.MCALL	..V2..,.REGDEF
	.REGDEF
	..V2..
	.ENDC
;
; ESTABLISH CALL TO EMULATOR TRAP FOR USE WITH SYSTEM DIRCTIVES UNDER
; RSTS USING THE RT11 EMULATOR (DRW)
;
	.IF	DF RSTS
	.IF	NDF RSX
.PRIV	=	EMT + ^O 377	; PREFIX EMT FOR DIRECTIVE CALLS UNDER RSTS
				; USED IN PLACE OF PF.EMT IN $COMMON.MAC
				; TO FACILITATE DEFINITION OF RUNTIME SYSTEM.
	.IFF
.PRIV	=	^O 240
	.ENDC
	.ENDC
;
; DEFINE MENOMICS FOR RSTS/RT11 EMT CALLS NOT IN COMMON.MAC (DRW 29-AUG-80)
;
	.IF	DF,RSTS
	.IF	NDF,RSX
.SETFQB =	EMT + ^O 360	; SET FIRQB TO REFLECT RESULT OF .CSI??? CALL
.SETCC  =	EMT + ^O 362	; ENABLE CTRL/C TRAPPING ROUTINE
.PRTERR	=	EMT + ^O 364	; PRINT ERROR MESSAGE FOR ERROR CODE FOUND IN R0
.DOFSS  =	EMT + ^O 365	; PERFORM A RSTS/E FILE NAME STRING SCAN
.GETCOR	=	EMT + ^O 366	; EXPAND TO K WORDS SET IN R0
	.ENDC
	.ENDC
;
; DEFINE APPROPRIATE SWITCHES TO REFLECT HARDWARE OPTIONS OF TARGET MACHINE
;
FPU=1
; FIS=1
EIS=1
; EAE=1
; THE FOLLOWING MODULES ARE SENSITIVE TO THE ABOVE SWITCHES:
;     LISP,ADR,CMR,DVI,DVR,IR,MLI,MLR,RI
;
; UTILITY MACROS:
;
;	CHECK FOR STACK SPACE.  TRAPS TO G2 ERROR HANDLER IF
;	NOT ENOUGH AVAILABLE.  INVOKE WITH NUMBER= NUMBER
;	OF WORDS DESIRED (NOTE: A TRAP REQUIRES 1 WORD OF
;	STACK SPACE).
	.MACRO	ROOM	NUMBER
	MOV	R4,-(SP)
	ADD	#2*NUMBER,@SP
	CMP	(SP)+,R5
	BLOS	.+4
	.GLOBL	QG2ERR
	QG2ERR
	.ENDM
;
	.LIST