Show pageBacklinksBack to top 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: FCATP)}} ====== FCATP ====== (GIN Macro) **Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]] **Used in:** <code - FCATP.mac.txt> 8M6# ...[??? FCATP SECT CENT FGN 18 DOC 8MB6 # 8MTQ # THIS MACRO LOCATES THE CPA FROM THE TP.PCA WHETHER IT IS 8N*B # ON THE JOB RING OR NOT.IT WORKS IF THE PROG IS NOT RCTP 8NT2 # 8P#L #MAC FCATP 8PS= #STR %B 8Q?W LDX %A %B 8QRG LDX 0 JOBRING+BPTR(%A) 8R?6 BNZ 0 MFCATP [J IF PCA NOT ON JOB RING 8RQQ FINDPUC %A,%A [IF IT IS NOT THEN THE PUC.PCA MUST B 8S=B MFCATP 8SQ2 FCAPCA %A,,%C 8T9L #NOR </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In