FPCACA

(GIN Macro)

Defined in: MACROS GLJ

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

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