TESTTP [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: TESTTP)}}
====== TESTTP ======
(GIN Macro)

**Defined in:** [[george:source:RCTPMACS|RCTPMACS]]

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:COMPRO867|COMPRO867]], [[george:source:CORE867|CORE867]], [[george:source:COREALLJ865|COREALLJ865]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:GIVE867|GIVE867]], [[george:source:GIVEA867|GIVEA867]], [[george:source:PROSTART867|PROSTART867]], [[george:source:SWAP865|SWAP865]], [[george:source:TPINS861|TPINS861]]

<code - TESTTP.mac.txt>
 25CB    #     THIS MACRO TESTS WHETHER THE CURRENT ACTIVITY 
 25X2    #     IS THAT OF A TRUSTED PROGRAM. 
 26BL    #MAC           TESTTP   
 26W=    #STR  %A
 27*W     MOD  LDX   0  ATYPE,%A 
 27TG    #STR  %A
 28*6    #STR
 28SQ    (   
 29#B          SMO      FX2  
 29S2          LDX   0  ATYPE
 2=?L    )   
 2=R=          SRL   0  6
 2?=W          ANDN  0  #7700
 2?QG          SBN   0  ATP*64   
 2#=6          BZE   0  %B   
 2#PQ    #NOR
</code>