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