(GIN Macro)
Defined in: MACROS EWDAS
Used in: BSTS867, KARTCONT867, PMJOURNL866
WHJB # WJ42 [??? FINDBSA WJHL # ******* WK3= #MAC FINDBSA WKGW # WL2G #STR %B WLG6 #SKI WL^Q ( WMFB #STR %A,1 WM^2 LDX 1 %A WNDL SLL 1 1 [MULTIPLY BY 2 WNY= ADX 1 ALFTP [ADD BASE OF ALFTABLE WPCW LDX 1 A1(1) [GET APPROPRIATE RECORD WPXG SRL 1 12 [BSUN MOVED FROM B2-11 WQC6 ANDN 1 #1777 [ TO B14-23 WQWQ ) WRBB #STR %B WRW2 ( WS*L #STR %B,1 WST= LDX 1 %B [BSUN IF %A ABSENT WT#W ) WTSG MPY 1 ASBSAB [ASBSAB = ASIZE OF ANY BSA WW#6 NGX 2 2 WWRQ ADX 2 BBAC [BASE OF BSA S WX?B ADX 2 ASBSAB [X2 CONTAINS ADDRESS OF BSA WXR2 #NOR