MACROS RM57

(George Source)
222D ...[??? SINMAC1 SECT FILE FGN 6 DOC
222W ...#MAC  SINMAC1   
223# ...[     SECURITY INTERFACE MACRO  
223Q ...#NOR
2248 ...[   
224L ...[??? SINMAC2 SECT FILE FGN 6 DOC
2254 ...#MAC  SINMAC2   
225G ...[     SECURITY INTERFACE MACRO  
225H ...[     MACRO EXPANDS FOR G3 USER GROUP SECURITY  
225J ...[     INTERFACE ENHANCEMENT 
225K ...#SKI  G3UGSI
225L ...(   
225M ...      MHUNTW   3,FILE,ADICTENT  
225N ...      LDX   2  FX2  
225P ...      LDCT  0  #600 
225Q ...      ANDX  0  CONTEXT(2)   
225R ...      BZE   0  MS1                 [JUMP NOT SYSTEM ISSUED  
225S ...MS2 
225T ...      FREECORE 3
225W ...      BRN      MS3  
225X ...MS1 
225Y ...      SECHECK  3,MS2,MXNOR  
225^ ...      LDX   0  CONTEXT(2)   
2262 ...      ANDN  0  #10  
2263 ...      BNZ   0  MS4                 [HIGH SECURITY OK IF MOP 
2264 ...      ERROR    HSECURE  
2265 ...      BRN      %A   
2266 ...MXNOR   
2267 ...      LDX   0  CONTEXT(2)   
2268 ...      ANDN  0  #10  
2269 ...      BZE   0  MS2                 [J NOT MOP   
226= ...MS4   CHEKPASW %B,MS5   
226? ...      BRN      MS3  
226# ...MS5   ERROR    IMPASSE  
226* ...      BRN      %A   
226B ...MS3 
226C ...)   
226D ...#NOR
226F ...[   
226S ...[??? SINMAC3 SECT FILE FGN 6 DOC
227= ...#MAC  SINMAC3   
227N ...[     SECURITY INTERFACE MACRO  
2286 ...#STR  LF,%A 
228J ...#SKI
2292 ...#EXIT   
229D ...#STR  OL,%A 
229W ...#SKI
22=# ...#EXIT   
22=Q ...!     ILLEGAL PARAMETER 
22?8 ...#NOR
22?L ...[   
22#4 ...[??? SINMAC4 SECT FILE FGN 6 DOC
22#G ...#MAC  SINMAC4   
22#Y ...[     SECURITY INTERFACE MACRO  
22*3 ...#SKI  G3UGSI
22*6 ...#SKI
22*9 ...(   
22*B ...#STR  MOP,%A
22*S ...#SKI
22B= ...#EXIT   
22BN ...#STR  BACK,%A   
22C6 ...#SKI
22CJ ...#EXIT   
22D2 ...!     ILLEGAL PARAMETER 
22D9 ...)   
22DD ...#NOR
22DG ...[??? SINM551 SECT FILE FGN 6 DOC
22DJ ...#MAC SINM551
22DL ...[    MACRO TO PREVENT M551 AND SECURITY INTERFACE CLASH 
22DN ...#SKI G3UGSI 
22DQ ...(   
22DS ...#UNS  G551  
22DW ...(   
22DY ...! M551 AND SEC INTERFACE CLASH  
22F2 ...#ALT  G551=0
22F4 ...#ALT  G3UGSI=0  
22F6 ...! G551 AND G3UGSI ZEROISED  
22F8 ...)   
22F= ...)   
22F# ...#NOR
22FB ...[   
22FL ...[??? TGU SECT FILE FGN 6 DOC
29#T ...#MAC  TGU   
29*# ...[ RESTORE TIME MACRO TO GIVE TRAPS TO A SPECIFIED USER WHENEVER 
29*R ...[ A FILE IS CREATED AT RUN TIME.
29B= ...#SKI  AUSERTRAP-ATRAPEND
29BP ...#SKI
29C8 ...(   
29CM ...#CON  TGU USED TOO OFTEN
29D6 ...#EXI
29DK ...)   
29F4 ...#ALT  CERASET=CERASE
29FH ...#ALT  CERASE=#20
29G2 ...#MEN  MAKEFILE  
29GF ...#TRA  AUSERTRAP 
29GY ...               12H%A
29G^ ...#DEF  21?=0 
29H2 ...#DEF  22?=0 
29H3 ...#STR  %B
29H4 ...      TGUPARAM %B   
29H5 ...#STR  %C
29H6 ...      TGUPARAM %C   
29H7 ...#STR  %D
29H8 ...      TGUPARAM %D   
29H9 ...#STR  %E
29H= ...      TGUPARAM %E   
29H? ...#STR  %F
29H# ...      TGUPARAM %F   
29H* ...#STR  %G
29HB ...      TGUPARAM %G   
29HC ...#STR  %H
29HD ...      TGUPARAM %H   
29HF ...      +22?  
29HG ...#SKI  21?   
29HH ...!     ERROR(S) IN TRAP MODES
29HW ...               +0   
29HY ...#TRA  AUSERTRAP 
29J2 ...#DEF  20?=34?+0?+0]@L-23$1  
29J4 ...#SKI  20?   
29J6 ...!     %A IS NOT IN THE REQUIRED FORMAT  
29J8 ...#SKI  20?^21?   
29J= ...      +0
29J* ...#TRA  K93MAKEFILE   
29JS ...      LDN   6  ANOTRAPS 
29K? ...#END
29KG ...#SKI  20?^21?$1 
29KQ ...#ALT  AUSERTRAP=AUSERTRAP+4 
29L9 ...#ALT  CERASE=CERASET
29LN ...#ALT  CERASET=#20   
29M7 ...#NOR
29M8 ...[??? TGUPARAM SECT FILE FGN 6 DOC   
29M9 ...#MAC  TGUPARAM  
29M= ...#UNS  C%A   
29M? ...#DEF  22?=22?^C%A   
29M# ...#UNS  C%A   
29M* ...#SKI
29MB ...(   
29MC ...!     %A IS NOT A VALID TRAP MODE   
29MD ...#DEF  21?=1 
29MF ...)   
29MG ...#NOR
29MH ...[??? TSU SECT FILE FGN 6 DOC
29ML ...#MAC  TSU   
29N5 ...[ RESTORE TIME MACRO TO CANCEL EFFECT OF TGU MACRO. 
29NJ ...#ALT  AUSERTRAP=ATRAPEND-(ANOTRAPS*4)   
29P3 ...#MEN  MAKEFILE  
29PG ...#TRA  K93MAKEFILE   
29P^ ...      BRN      K94MAKEFILE  
29QD ...#END
29QX ...#NOR
29QY ...[??? SSTRAP SECT FILE FGN 14 DOC
29Q^ ...#MAC  SSTRAP
29R2 ...#STR  %A,ON 
29R3 ...#SKI
29R4 ...(   
29R5 ...#MEN  TRAPCHEC  
29R6 ...#TRA  K90TRAPCHEC   
29R7 ...      BRN      K91TRAPCHEC  
29R8 ...#END
29R9 ...#EXI
29R= ...)   
29R? ...#STR  %A,OFF
29R# ...#SKI
29R* ...(   
29RB ...#MEN  TRAPCHEC  
29RC ...#TRA  K90TRAPCHEC   
29RD ...      NULL  
29RF ...#END
29RG ...#EXI
29RH ...)   
29RJ ...#STR  %A,SS 
29RK ...#SKI
29RL ...(   
29RM ...#MEN  TRAPCHEC  
29RN ...#TRA  K90TRAPCHEC   
29RP ...      BRN      K92TRAPCHEC  
29RQ ...#END
29RR ...#EXI
29RS ...)   
29RT ...! PARAM MUST BE ON OFF OR SS
29RW ...#NOR
29RX ...[??? TESTTRAP SECT FILE FGN 6 DOC   
29S2    #MAC  TESTTRAP  
2=?L          SETREP   OK   
2=R=          SMO      FX2  
2?=W          LDX   0  EXEC1
2?QG          ANDN  0  C%A+C%B+C%C+C%D   [PICK UP MODES 
2#=6          SBN   0  C%A+C%B+C%C+C%D  
2#PQ          BZE   0  NTESTREP            [J IF OKAY   
2*9B          SETREP   NOTRAP   
2*P2    NTESTREP
2B8L    #NOR
2BDD ...[??? TRAPOPEN SECT FILE FGN 6 DOC   
2BN=    #MAC  TRAPOPEN  
2C7W          CHECKTRAP 
2CMG          TESTTRAP  %A,%B,%C,%D 
2D76    #NOR
2DBY ...[??? CHECKTRA SECT FILE FGN 6 DOC   
2DLQ    #MAC  CHECKTRAP 
2F6B    #STR  %A
2FL2    #SKI
2G5L          DOWN     TRAPCHEC,5   
2GK=    #STR  %A
2H4W    (   
2HJG          SMO      FX2  
2J46          STO   %A ACOMMUNE3
2JHQ          DOWN     TRAPCHEC,7   
2K3B    )   
2KH2    #NOR
2PMS ...[??? TRAPADD SECT FILE FGN 6 DOC
2PXL    #MAC  TRAPADD   
2QC=          DOWN     TRAPGO,7 
2QWW    #NOR
2^^D ...[??? SAVEACTF SECT FILE FGN 6 DOC   
329=    #MAC  SAVEACTF  
32NW    #     SAVES THE FILES OF A JOB BEING SAVED BY THE HLS   
338G          DOWN     SAVEFILE,1   
33N6    #NOR
33XY ...[??? RESTACTF SECT FILE FGN 6 DOC   
347Q    #MAC  RESTACTF  
34MB    #     RESTORES FILES TO A JOB BEING UNSAVED BY THE HLS  
3572          DOWN     SAVEFILE,2   
35LL    #NOR
^^^^ ...02004555001900000000