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

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:COREALL865|COREALL865]], [[george:source:COREALLF867|COREALLF867]], [[george:source:FIXED867|FIXED867]], [[george:source:JAMSWAP865|JAMSWAP865]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:STRATEGY865|STRATEGY865]], [[george:source:UNJAMMER866|UNJAMMER866]]

<code - COBJUNUSE.mac.txt>
 HYHW ...#MAC  COBJUNUSE 
 H^3G ...[   
 H^H6 ...[     MACRO TO CALCULATE TOTAL FREE PROGRAM CORE/PAGES  
 J22Q ...[     %A - ACCUMULATOR IN WHICH TO STORE RESULT 
 J2GB ...[        - IF ABSENT X0 IS USED 
 J322 ...#STR  %A
 J3FL ...#SKI
 J3^= ...      COBJUNUSE 0                  [USE X0  
 J4DW ...#STR  %A
 J4YG ...(   
 J5D6 ...#SKI  G3
 J5XQ ...      LDX   %A  COBJUNUSE   
 J6CB ...#SKI  G4
 J6X2 ...(   
 J7BL ...      LDX   %A COBJFREE 
 J7W= ...      ADX   %A CPAGETURNS   
 J8*W ...      SBX   %A APTURNPAGS   
 J8TG ...      BPZ   %A MCOB 
 J9*6 ...      LDN   %A 0
 J9SQ ...MCOB
 J=#B ...      SLL   %A 10                  [CONVERT TO WORDS(I.E. * BY 1024)
 J=S2 ...)   
 J??L ...)   
 J?R= ...#NOR
</code>