{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: RBS)}}
====== RBS ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** 

<code - RBS.mac.txt>
 =7W8 ...[   
 =83B ...[   
 =88L ...[??? RBS SECT FILE FGN 24 DOC   
 =9MG    #MAC  RBS   
 ==76    [ SETS BIT(S) IN A GEORGE SEGMENT AT  RESTORE TIME  
 ==LQ    [ %A IS THE SEGMENT CONTAINING THE BIT  
 =?6B    [ %B IS A POINTER REL TO WHICH THE BIT IS ADDRESSED 
 =?L2    [ %C ETC ARE BIT IDENTIFIERS
 =#5L    #STR  %A
 =#K=    (   
 =*4W    #MEN  %A       [NOT IF %A NULL  
 =*JG    #DEF 22?=D%A
 =B46    )   
 =BHQ    #TRA  +%B+(%C/BITMULT&#7777)       [TRA TO THE WORD 
 =C3B    #DEF 20?=22?&#177+34?+0?           [ADDR OF WORD IN SEG BIFF
 =CH2    #DEF  21?=#40000000@L-(%C&#37)  
 =D2L                   +20?]^21?
 =DG=    #STR %D        [SKIP UNLESS MORE IDS
 =D^W     RBS ,%B,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W,%X 
 =FFG    #STR  %A
 =F^6    #END
 =GDQ    #NOR
</code>