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

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

**Used in:** [[george:source:CLOSTIDY860|CLOSTIDY860]], [[george:source:DELETE864|DELETE864]], [[george:source:FILEMAP|FILEMAP]]

<code - MAPBDEL.mac.txt>
 *Q94 ...[??? MAPBDEL SECT FILE FGN 11 DOC   
 *QDW    #MAC  MAPBDEL   
 *RD6          SFMAP    %A,%B
 *RXQ          STO   0  GEN0 
 *SCB          STO   1  GEN1 
 *SX2          STO   2  GEN2 
 *TBL          LDX   2  0
 *TW=          LDN   1  3
 *W*W          ORS   1  FBCOMM(2)
 *WTG          LDX   1  FBITMOD(2)   
 *XSQ          BZE   1  M6MAPBDEL
 *Y#B          LDN   0  1
 *YS2          SBS   0  FBITMOD(2)   
 *^?L          LDN   0  24   
 *^R=          DVS   0  0
 B2=W          BNZ   0  M1MAPBDEL
 B2QG          LDN   0  FBITS-A1(1)  
 B3=6          STO   0  ALOGLEN(2)   
 B3PQ    M1MAPBDEL   
 B49B          ADN   1  1
 B4P2          ADS   1  GEN0 
 B58L          LDX   1  GEN1 
 B5N=          ADX   2  GEN2 
 B67W          NGN   0  1
 B6MG          SRL   0  0(1) 
 B776          LDX   1  FBITS(2) 
 B7LQ          ANDX  1  0
 B86B          ERS   1  FBITS(2) 
 B8L2          SLL   1  1
 B95L          ANDX  1  0
 B9K=          ORX   1  FBITS(2) 
 B=4W    [ I THINK THIS DOUBLE LOOP IS UNNECESSARY   
 B=JG    M2MAPBDEL   
 B?46          ADN   2  1
 B?HQ          TXU   2  GEN0 
 B#3B          BCC      M3MAPBDEL
 B#H2          TXL   2  GEN0 
 B*2L          BCC      M5MAPBDEL
 B*G=          LDXC  0  FBITS(2) 
 B*^W    M3MAPBDEL   
 BBFG          STO   1  FBITS-1(2)   
 BB^6          SLL   0  1
 BCDQ          ADN   2  1
 BCYB          TXU   2  GEN0 
 BDD2          BCC      M4MAPBDEL
 BDXL          TXL   2  GEN0 
 BFC=          BCC      M5MAPBDEL
 BFWW          LDXC  1  FBITS(2) 
 BGBG    M4MAPBDEL   
 BGW6          STO   0  FBITS-1(2)   
 BH*Q          SLL   1  1
 BHTB          BRN      M2MAPBDEL
 BJ*2    M6MAPBDEL   
 BJSL          GEOERR 1,BIT DEL? 
 BK#=    M5MAPBDEL   
 BKRW          LDX   1  FX1  
 BL?G          LDX   2  FX2  
 BLR6    #NOR
</code>