SHORTFALL
(GIN Macro)
Defined in: COREMACROS
Used in: CORESHED861, LLSMESS867
- 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