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

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CORE867|CORE867]], [[george:source:COREALLF867|COREALLF867]], [[george:source:CORESHED861|CORESHED861]], [[george:source:FIXED867|FIXED867]], [[george:source:GIVE867|GIVE867]], [[george:source:LLSMESS867|LLSMESS867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:SCHEDOUT865|SCHEDOUT865]], [[george:source:SETPC867|SETPC867]], [[george:source:STRATEGY865|STRATEGY865]], [[george:source:SWAP865|SWAP865]], [[george:source:UNJAMMER866|UNJAMMER866]]

<code - COBJUSE.mac.txt>
 HWGH ...[??? COBJUSE SECT CENT FGN 32 DOC   
 HWGL ...#MAC  COBJUSE   
 HWGM ...[   
 HWGN ...[     MACRO TO CALCULATE CORE IN USE FOR PROGRAMS.  
 HWGQ ...[     %A - ACCUMULATOR IN WHICH TO STORE RESULT.
 HWGS ...[        - IF ABSENT X0 IS USED 
 HWGW ...[   
 HWGY ...#STR  %A
 HWH2 ...#SKI
 HWH4 ...      COBJUSE 0                    [USE X0  
 HWH6 ...#STR  %A
 HWH8 ...(   
 HWH= ...#SKI  G3
 HWH# ...      LDX   %A COBJUSE  
 HWHB ...#SKI  G4
 HWHD ...(   
 HWHG ...      LDX   %A AOBJFREE 
 HWHH ...#UNS  ISTDP 
 HWHJ ...      BZE   %A MCOBJ
 HWHK ...      SBX   %A COBJFREE 
 HWHL ...      SBX   %A CPAGETURNS   
 HWHN ...      ADX   %A APTURNPAGS   
 HWHQ ...      SLL   %A 10                  [CONVERT TO WORDS(I.E. * BY 1024)
 HWHR ...MCOBJ   
 HWHS ...)   
 HWHW ...)   
 HWHY ...#NOR
</code>