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

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CORESHED861|CORESHED861]], [[george:source:JAMSWAP865|JAMSWAP865]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:REALTIME867|REALTIME867]], [[george:source:RELPER867|RELPER867]], [[george:source:REQESLIP861|REQESLIP861]], [[george:source:SWAP865|SWAP865]], [[george:source:UNPLUG867|UNPLUG867]], [[george:source:WSPERIS867|WSPERIS867]]

<code - PCATEST.mac.txt>
 9*5D ...[??? PCATEST SECT CENT FGN 18 DOC   
 9**=    #MACRO         PCATEST  
 9*SW     MOD  LDX   0  ATYPE,%A 
 9B#G          SRL   0  12   
 9BS6          SBN   0  APET 
 9C?Q     OPND BZE   0, %B,MPCATEST  
 9CRB          SBN   0  ATP  
 9D?2     OPND BZE   0, %C,MPCATEST  
 9DQL          SBADN 0, APUC-ATP 
 9F==     OPND BZE   0, %D,MPCATEST  
 9FPW    #SKIP          G3   
 9G9G          GEOERR   1,NOT PCA
 9GP6    #SKIP          G4   
 9H8Q          BRN      (GEOERR) 
 9HNB    MPCATEST
 9J82    #NORMAL 
</code>