FINDBSA [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FINDBSA)}}
====== FINDBSA ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:BSTS867|BSTS867]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:PMJOURNL866|PMJOURNL866]]

<code - FINDBSA.mac.txt>
 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
</code>