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

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** 

<code - BSUJDUMP.mac.txt>
 ?DFN ...[??? BSUJDUMP SECT FILE FGN 65 DOC  
 ?DPG    #MAC BSUJDUMP   
 ?F96          LDX   0  BSNDUMP(1)   
 ?FNQ          BXL   0  BSLEFT(1),M2BSUJDUMP 
 ?G8B    #STR %B 
 ?GN2    #SKI %B 
 ?H7L    (   
 ?HM=          STO   6  ACOMMUNE1(2) 
 ?J6W          LDN   2  0
 ?JLG          LDX   6  BSAB 
 ?K66          LDX   3  BMISC               [PICK UP BASE OF MISC CHAIN  
 ?KKQ    M1BSUJDUMP  
 ?L5B          LDX   3  FPTR(3)             [PICK UP NEXT BLOCK  
 ?LK2          BXE   3  CXMI,M3BSUJDUMP     [JUMP IF END OF CHAIN
 ?M4L          BXU   6  ATYPE(3),M1BSUJDUMP [JUMP IF NOT BSLIST  
 ?MJ=          ADX   2  BSTOT(3)            [ADD TOTAL SIZE OF RESIDENCE 
 ?N3W          SBX   2  BSFREE(3)           [SUBTRACT FREE BLOCKS
 ?NHG          BRN      M1BSUJDUMP   
 ?P36    M3BSUJDUMP  
 ?PGQ    #STR %B 
 ?Q2B          LDN   6  %B                  [PICK UP PARAMETER IF PRESENT
 ?QG2    #STR %B 
 ?Q^L    #STR
 ?RF=          LDN   6  10                  [OTHERWISE TAKE DEFAULT VALUE
 ?RYW          MPY   2  6                   [X2 3 = %B.T O/L F/S 
 ?SDG          LDN   0  1000 
 ?SY6          DVD   2  0                   [ X3 CONTAINS ( %B /10 ) % OF TOLFS  
 ?TCQ          LDX   2  FX2  
 ?TXB          LDX   6  ACOMMUNE1(2) 
 ?WC2          BXL   3  BSNDUMP(1),%A
 ?WWL    )   
 ?XB=    #STR %B 
 ?XTW    (   
 ?Y*G    #SKI %B 
 ?YT6    #SKI
 ?^#Q          BRN      %A   
 ?^SB    )   
 #2#2    M2BSUJDUMP  
 #2RL    #NOR
</code>