RBS

(GIN Macro)

Defined in: MACROS SJ

Used in:

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