TRUSTED

(GIN Macro)

Defined in: MACROS JSR

Used in: CHINTEG867, CLOSDEL867, IPCOPENA83, MESSAH, MESSBC, MESSBH, PERION867, SQOPEN867, TPINS861

TRUSTED.mac.txt

 G?P# ...[??? TRUSTED SECT CENT FGN 9 DOC
 G?^6    #     THIS MACRO TESTS WHETHER A PROGRAM IS ALLOWED TO USE ANY OF THE   
 G#DQ    #     TRUSTED FACILITIES AVAILABLE. 
 G#YB    #     %A=POINTER TO PCA OF PROGRAM  
 G*D2    #     %B=LABEL TO JUMP TO IF THE FACILITY IS NOT AVAILABLE  
 G*XL    #     %C=Q,%D=R,%E=S,%F=T-THESE ARE OPTIONAL AND SPECIFY THE STATUSES   
 GBC=    #     BEING TESTED FOR. 
 GBWW    #   
 GCBG    #MAC  TRUSTED   
 GCW6    #DEF  MTRU=0
 GD*Q    #DEF  MTRUQ=#100
 GDTB    #DEF  MTRUR=#40 
 GF*2    #DEF  MTRUS=#20 
 GFSL    #DEF  MTRUT=#10 
 GG#=          LDCT  0  MTRU%C+MTRU%D+MTRU%E+MTRU%F  
 GGRW          MOD   ORX 0 ATRUST,%A 
 GH?G          MOD   SBX 0 ATRUST,%A 
 GHR6          BNZ   0  %B   
 GJ=Q    #FRE  MTRU,MTRUQ,MTRUR,MTRUS,MTRUT  
 GJQB    #NOR