{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: TESTPUC)}}
====== TESTPUC ======
(GIN Macro)

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

**Used in:** [[george:source:EVENTFN|EVENTFN]], [[george:source:OPCA867|OPCA867]], [[george:source:OPILLS70|OPILLS70]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:SWAP865|SWAP865]]

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