.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