KCXG ...#MAC MOBJQUOTA KDC6 ...[ KDWQ ...[ MACRO TO OBTAIN EITHER OBJECTQUOTA MIN OR MAX KFBB ...[ %A - EITHER MIN OR MAX DEPENDING WHICH IS REQ'D KFW2 ...[ %B - ACC. IN WHICH TO STORE RESULT.IF ABSENT,X0 IS USED KG*L ...[ KGT= ...#STR MIN,%A KH#W ...#SKI KHSG ...( KJ#6 ...#STR %B KJRQ ...#SKI KK?B ... LDX 0 COBJQUOTA KKR2 ...#STR %B KL=L ... LDX %B COBJQUOTA KLQ= ...) KM9W ...#STR MIN,%A KMPG ...( KN96 ...#STR MAX,%A KNNQ ...! FIRST PARAMETER SHOULD BE EITHER MAX OR MIN KP8B ...#STR MAX,%A KPN2 ...#SKI KQ7L ...( KQM= ...#STR %B KR6W ...#SKI KRLG ... LDX 0 COBJQUOTA KS66 ...#STR %B KSKQ ... LDX %B COBJQUOTA KT5B ...) KTK2 ...) KW4L ...#NOR