TESTPUC

(GIN Macro)

Defined in: RCTPMACS

Used in: EVENTFN, OPCA867, OPILLS70, PERFAIL866, SWAP865

TESTPUC.mac.txt

 2*9B    #     THIS MACRO TESTS WHETHER THE CURRENT ACTIVITY 
 2*P2    #     IS THAT OF A P.U.C.   
 2B8L    #MAC           TESTPUC  
 2BN=    #STR  %A
 2C7W     MOD  LDX   0  ATYPE,%A 
 2CMG    #STR  %A
 2D76    #STR
 2DLQ    (   
 2F6B          SMO      FX2  
 2FL2          LDX   0  ATYPE
 2G5L    )   
 2GK=          SRL   0  6
 2H4W          ANDN  0  #7700
 2HJG          SBN   0  APUC*64  
 2J46          BZE   0  %B   
 2JHQ    #NOR