2RBG    #MAC  FCONDCBE                     [D. WEBSTER  
 2RW6    #STR  %B,7  
 2S*Q          LDX   7  %B   
 2STB    #STR  %A,%C 
 2T*2          HUNT2    %A,AMXOR,CSTATE,%C   
 2TSL    #STR  %A,%C 
 2W#=    #SKI
 2WRW          HUNT2    %A,AMXOR,CSTATE  
 2X?G          LDX   %A A1+FPTR(%A)  
 2XR6          SBX   7  IDNUM(%A)
 2Y=Q          LDN   0  CONDCBLEN
 2YQB          STO   0  %D   
 2^=2          MPY   7  %D   
 2^PL          ADX   %A 0
 329=    #STR  %E
 32NW    (   
 338G          LDX   %E IDNUM(%A)
 33N6          ANDN  %E #7777
 347Q    )   
 34MB    #NOR