TESTTP

(GIN Macro)

Defined in: RCTPMACS

Used in: CHARGESC867, COMPRO867, CORE867, COREALLJ865, DOMONOP867, GIVE867, GIVEA867, PROSTART867, SWAP865, TPINS861

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