{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: SHORTFALL)}}
====== SHORTFALL ======
(GIN Macro)

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

**Used in:** [[george:source:CORESHED861|CORESHED861]], [[george:source:LLSMESS867|LLSMESS867]]

<code - SHORTFALL.mac.txt>
 KYGQ ...#MAC  SHORTFALL 
 K^2B ...[   
 K^G2 ...[     MACRO TO CALCULATE SHORTFALL WHEN A PROGRAM FAILS TO GET IN   
 K^^L ...[     %A - ACC. IN WHICH TO STORE RESULT.IF ABSENT,X0 IS USED   
 L2F= ...[     ASSUMES ACOMMUNE3 OF FX2 CONTAINS REQUEST SIZE
 L2P4 ...[     GEN0 WILL BE OVERWRITTEN  
 L2YW ...[   
 L3DG ...#STR  %A
 L3Y6 ...#SKI
 L4CQ ...      SHORTFALL 0   
 L4XB ...#STR  %A
 L5C2 ...(   
 L5FK ...      LDX   %A  ACHAP   
 L5J8 ...      SBX   %A  CHAPQUOTA   
 L5LR ...      BPZ   %A  MSHORT  
 L5PB ...      LDN   %A  0   
 L5R^ ...MSHORT STO   %A  GEN0   
 L5WL ...      COBJUNUSE %A  
 L6B= ...      ADX   %A  CFREE   
 L6TW ...      ADX   %A  GEN0
 L7T6 ...      SBX   %A  FREZTOT 
 L8#Q ...      ADX   %A  FREZFREE
 L8SB ...      ADX   %A  FREZCHAP
 L9#2 ...      NGX   %A  %A  
 L9RL ...      SMO      FX2  
 L=?= ...      ADX   %A  ACOMMUNE3   
 L=QW ...)   
 L?=G ...#NOR
</code>