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