FPCACA [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FPCACA)}}
====== FPCACA ======
(GIN Macro)

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

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:ANTIC867|ANTIC867]], [[george:source:CAFSPERI867|CAFSPERI867]], [[george:source:CHINERR867|CHINERR867]], [[george:source:CHINTEG867|CHINTEG867]], [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:COMPCHAN84|COMPCHAN84]], [[george:source:COMPRO867|COMPRO867]], [[george:source:CONTXCOD60|CONTXCOD60]], [[george:source:CORE867|CORE867]], [[george:source:COREALLF867|COREALLF867]], [[george:source:DELCOM5|DELCOM5]], [[george:source:DETACH867|DETACH867]], [[george:source:DISPCOM867|DISPCOM867]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:ENTRUST|ENTRUST]], [[george:source:EVENTS864|EVENTS864]], [[george:source:FAIL5|FAIL5]], [[george:source:GETWORD867|GETWORD867]], [[george:source:GIVE867|GIVE867]], [[george:source:HALT5|HALT5]], [[george:source:HLSOCCUR865|HLSOCCUR865]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:ILLEXC70|ILLEXC70]], [[george:source:ILLPERI70|ILLPERI70]], [[george:source:JAMSWAP865|JAMSWAP865]], [[george:source:LOAD60|LOAD60]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:LOADX60|LOADX60]], [[george:source:MATALO860|MATALO860]], [[george:source:MODEA65|MODEA65]], [[george:source:MONEVENT867|MONEVENT867]], [[george:source:MONITOR36|MONITOR36]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:OLMTB867|OLMTB867]], [[george:source:OLMTD65|OLMTD65]], [[george:source:OLMTE85|OLMTE85]], [[george:source:ONOFFALT60|ONOFFALT60]], [[george:source:OPCAXCOD5|OPCAXCOD5]], [[george:source:OPILLS70|OPILLS70]], [[george:source:OPILLSA206|OPILLSA206]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PRINT70|PRINT70]], [[george:source:PROSTART867|PROSTART867]], [[george:source:PUTPER85|PUTPER85]], [[george:source:QUESCOM867|QUESCOM867]], [[george:source:QUOTA850|QUOTA850]], [[george:source:REALTIME867|REALTIME867]], [[george:source:RELPER867|RELPER867]], [[george:source:RUNPROG840|RUNPROG840]], [[george:source:SAVE864|SAVE864]], [[george:source:SAVEDA70|SAVEDA70]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SQOPEN867|SQOPEN867]], [[george:source:SWAP865|SWAP865]], [[george:source:TPINS861|TPINS861]], [[george:source:UNPLUG867|UNPLUG867]]

<code - FPCACA.mac.txt>
 66^8 ...[??? FPCACA SECT CENT FGN 18 DOC
 67?L    #   
 67R=    #   
 68=W    #   
 68QG    #   
 69=6    #MAC  FPCACA                       [FIND PCA FROM CPA   
 69PQ    [   
 6=9B    #STR  %B
 6=P2          MOD LDX %A JOBRING+BPTR,%B
 6?8L    #STR  %B
 6?N=    #SKI
 6#7W          LDX   %A JOBRING+BPTR(%A) 
 6#MG          SBN   %A JOBRING  
 6*76    [   
 6*LQ    #STR  N,%C  
 6B6B    (   
 6BL2    #SKI  K6ALLGEO                     [CHECK THAT BLOCK FOUND  
 6C5L    (                                  [IS OF THE RIGHT TYPE
 6CK=          LDCH  0  ATYPE(%A)
 6D4W          SBN   0  APET/64  
 6DJG          BZE   0  MFPCACA1 
 6F46          GEOERR   1,PCA?   
 6FHQ    MFPCACA1
 6G3B    )   
 6GH2    )   
 6H2L    [   
 6HG=    #NOR
</code>