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

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

**Used in:** [[george:source:CORESHED861|CORESHED861]], [[george:source:FIXED867|FIXED867]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:PMFSADDA866|PMFSADDA866]], [[george:source:SETPC867|SETPC867]], [[george:source:UNPLUG867|UNPLUG867]]

<code - COBJUSRT.mac.txt>
 HWJ2 ...[??? COBJUSRT SECT CENT FGN 32 DOC  
 HWJ5 ...#MAC  COBJUSRT  
 HWJ6 ...[   
 HWJ8 ...[     MACRO TO CALCULATE CORE IN USE FOR REALTIME PROGRAMS. 
 HWJ= ...[     %A - ACCUMULATOR IN WHICH TO STORE RESULT.
 HWJ# ...[        - IF ABSENT X0 IS USED 
 HWJB ...[   
 HWJD ...#STR  %A
 HWJG ...#SKI
 HWJJ ...      COBJUSRT 0                   [USE X0  
 HWJL ...#STR  %A
 HWJN ...(   
 HWJQ ...#SKI  G3
 HWJS ...      LDX   %A COBJUSRT 
 HWJW ...#SKI  G4
 HWJY ...(   
 HWK2 ...      LDX   %A CRTPAGES 
 HWK4 ...      ADX   %A CPAGTAB  
 HWK6 ...      ADX   %A APTURNPAGS   
 HWK8 ...      SLL   %A 10                  [CONVERT TO WORDS(I.E. * BY 1024)
 HWK= ...)   
 HWK# ...)   
 HWKB ...#NOR
</code>