COBJUSRT

(GIN Macro)

Defined in: COREMACROS

Used in: CORESHED861, FIXED867, PLUGIN867, PMFSADDA866, SETPC867, UNPLUG867

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