=GKY ...[   
 =GR6 ...[   
 =GYB ...[??? RBC SECT FILE FGN 24 DOC   
 =HXL    #MAC  RBC   
 =JC=    [ SIMILAR TO RBS BUT UNSETS THE BIT 
 =JWW    #STR  %A
 =KBG    (   
 =KW6    #MEN  %A
 =L*Q    #DEF 22?=D%A
 =LTB    )   
 =M*2    #TRA  +%B+(%C/BITMULT&#7777)
 =MSL    #DEF 20?=22?&#177+34?+0?           [ADDR OF WORD IN SEG BIFF
 =N#=    #DEF 21?=#40000000@L-(%C&#37)   
 =NRW                   +20?]^21?$21?
 =P?G    #STR %D        [SKIP UNLESS MORE IDS
 =PR6     RBC ,%B,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W,%X 
 =Q=Q    #STR  %A
 =QQB    #END
 =R=2    #NOR