TRYCORE [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: TRYCORE)}}
====== TRYCORE ======
(GIN Macro)

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** [[george:source:GETWORD867|GETWORD867]]

<code - TRYCORE.mac.txt>
 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
</code>