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

**Defined in:** [[george:source:BMAP_MACROS|BMAP MACROS]]

**Used in:** [[george:source:BMAPDIR865|BMAPDIR865]], [[george:source:BMAPONE867|BMAPONE867]], [[george:source:BMFIXIT864|BMFIXIT864]]

<code - BLOCKMAP.mac.txt>
 54W4 ...[??? BLOCKMAP SECT FILE FGN 36 DOC  
 55*N ...#MAC BLOCKMAP   
 55KG    [ X1=FX1, X2=FX2, X3-> BLOCKS RECORD, X4=NO OF BLOCKS IN FILE (FROM ECOP
 5656    [ X5=BLOCKS RECORD HEADER   
 574B          SBN   5  2
 57#8 ...      STO   4  ACOMMUNE1(2) 
 57RS ...      STO   6  ACOMMUNE3(2) 
 583L          BXU   4  5,M97BLOCKMAP
 58H=          LDX   0  1(3) 
 592W          SBN   0  3
 59GG          BNG   0  M2BLOCKMAP   
 5=26          SBN   0  64-3 
 5=8B ...      BPZ   0  M2BLOCKMAP   
 5#?# ...M55BLOCKMAP 
 5##G ...      LDX   4  1(3) 
 5##^ ...#UNS FPARTRES   
 5#*D ...      LDX   2  BSACHAPTR
 5#*X ...#UNS FPARTRES   
 5#BB ...#SKI
 5#BW ...      HUNT2    2,BSA,CHAPTER
 5#F= ...M5BLOCKMAP  
 5#HL ...      HUNT2J   2,BSTB,FBSIB,,%A 
 5#L2 ...      LDEX  0  ATYPE(2) 
 5#NB ...      SBX   0  4
 5#QQ ...      BNZ   0  M5BLOCKMAP   
 5#XW          BZE   5  %B   
 5*CG          LDX   6  ALOGLEN(2)   
 5*X6          SBN   6  1
 5B33 ...      SMO      FX2  
 5B6Y ...      ADX   3  ACOMMUNE1
 5B=T ...      SBX   3  5
 5BBQ    M1BLOCKMAP  
 5BWB          ADN   3  1
 5CB2          LDN   0  3
 5CTL          ANDX  0  1(3) 
 5D*=          BNZ   0  M2BLOCKMAP   
 5DSW          LDCT  0  #200 
 5F#G          ANDX  0  1(3) 
 5FS6          ERX   0  1(3) 
 5G?Q          SRL   0  BLS  
 5GRB          DVS   7  M6BLOCKMAP(1)
 5H?2 ...      BXL   6  0,M2BLOCKMAP 
 5HQL          LDX   4  GSIGN
 5J==          SMO      7
 5JPW          SRL   4  0                   [CONVERT REMAINDER TO BIT POSITION   
 5K9G          SMO      0
 5KP6          ANDX  4  A1(2)
 5L8Q          BZE   4  M98BLOCKMAP  
 5LNB          SMO      0
 5M82          ERS   4  A1(2)               [MAP BLOCK   
 5MGB ...M10BLOCKMAP 
 5MML          BCT   5  M1BLOCKMAP   
 5MNR          BRN      M7BLOCKMAP   
 5MPY    M97BLOCKMAP 
 5MQ# ...      DOWN     BMFIXIT,2
 5MQD ...      BRN      M7BLOCKMAP   
 5MTC    M98BLOCKMAP 
 5MTN ...      SMO      FX2  
 5MTR ...      STO   5  ACOMMUNE5          [ SAVE PTR. TO BLOCK NO.  
 5MTW ...      DOWN     BMFIXIT,1
 5MT^ ...      STEPAGAIN 
 5MW3 ...      BCT   5  M55BLOCKMAP  
 5MW5 ...      BRN      M7BLOCKMAP   
 5NLW    M2BLOCKMAP  
 5P6G ...      ACROSS   BMAPONE,12   
 5SHW    M6BLOCKMAP     +24  
 5T3G    M7BLOCKMAP  
 5TH6          LDX   2  FX2  
 5TQY ...      LDX   4  ACOMMUNE1(2) 
 5W=J ...      LDX   6  ACOMMUNE3(2) 
 5WGB    #NOR
</code>