TRUSTED [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: TRUSTED)}}
====== TRUSTED ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_JSR|MACROS JSR]]

**Used in:** [[george:source:CHINTEG867|CHINTEG867]], [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:IPCOPENA83|IPCOPENA83]], [[george:source:MESSAH|MESSAH]], [[george:source:MESSBC|MESSBC]], [[george:source:MESSBH|MESSBH]], [[george:source:PERION867|PERION867]], [[george:source:SQOPEN867|SQOPEN867]], [[george:source:TPINS861|TPINS861]]

<code - 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
</code>