MAPBDEL
(GIN Macro)
Defined in: CLOSE-MACROS
Used in: CLOSTIDY860, DELETE864, FILEMAP
- 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