(GIN Macro)
Defined in: COREMACROS
Used in: GETWORD867
JY?G ...#MAC TRYCORE JYR6 ...[ J^=Q ...[ MACRO TO SEE IF A VALID FPB EXISTS FOR THE CURRENT ACTS. PROG. J^QB ...[ %A - LABEL TO BRANCH TO IF FPB DOESN'T EXIST K2=2 ...[ %B - TO CONTAIN ON EXIST ADDR. OF AREA SPECIFIED IN %C K2PL ...[ %C - ADDR. WITHIN OBJ. PROG. OF REQUIRED AREA K39= ...[ K3NW ... LDX 0 JOBNO(2) [LOAD JOB NO. FOR COMPARISION K48G ... LDN 2 BOBJUNUSE [BASE OF FPB CHAIN K4N6 ...MEXTFPB K57Q ... LDX 2 FPTR(2) [LOAD NEXT FPB K5MB ... BXU 2 CXOBJUN,MFPB [J IF NOT END OF CHAIN K672 ... LDX 2 FX2 K6LL ... LDX 1 FX1 K76= ... BRN %A [EXIT AS NO FPB FOUND K7KW ...MFPB K85G ... BXU 0 JOBNOWAS(2),MEXTFPB [J IF NOT CORRECT FPB K8K6 ... ADX 2 %C [ADD IN REQUIRED ADDR. K8N= ...#UNS CA1D K8RB ... ADX 2 CA1D K8WG ...#UNS CA1D K8^L ...#SKI K94Q ... ADN 2 A1D K9JB ...#STR %B,2 K=42 ...( K=HL ... STO 2 %B [STORE REQUIRED GEORGE ADDR. K?3= ... LDX 2 FX2 K?GW ...) K#2G ...#STR %B,1 K#G6 ... LDX 1 FX1 K#^Q ...#NOR