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

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

**Used in:** [[george:source:BSALFAIL|BSALFAIL]], [[george:source:BSBLFAIL867|BSBLFAIL867]], [[george:source:RITEFAIL864|RITEFAIL864]], [[george:source:TRANFAIL866|TRANFAIL866]]

<code - UNSETFB.mac.txt>
 *NXX ...[??? UNSETFB SECT FILE FGN 9 DOC
 *NY8 ...#   
 *NYP ...#   
 *P22    #MAC  UNSETFB   
 *PFL    #SKI  %A-2  
 *P^=    (   
 *QDW    #SKI  %A-1  
 *QYG    (   
 *RD6          LDX   1  %B   
 *RXQ          SLL   1  1
 *SCB          ADX   1  ALFTP
 *SX2          LDX   0  A1(1)
 *TBL    #SKI  K6BSTS>199-199
 *TW=    (   
 *W*W          BPZ   0 MUNSETFB3 
 *WTG          GEOERR   0,WRNGLFN
 *X*6    MUNSETFB3   
 *XSQ    )   
 *Y#B          SRL   0  12   
 *YS2          ANDN  0  #1777
 *^?L          MPY   0  ASBSAB   
 *^R=          NGX   1  1
 B2=W          ADX   1  BBAC 
 B2QG          ADX   1  ASBSAB   
 B3=6    )   
 B3PQ    #SKI  %A
 B49B          LDX   1  %B   
 B4P2          HUNT2    2,BSTB,BFAIL,1   
 B58L          LDXC  0  A1(2)
 B5N=          BNZ   0  MUNSETFB1
 B67W          LDN   0  BNOFB
 B6MG          ERS   0  BSFAIL(1)
 B776          LDN   0  BOFB 
 B7LQ          ANDX  0  BSFAIL(1)
 B86B          BNZ   0  MUNSETFB1
 B8L2          LDCT  0  BFB  
 B95L          ERS   0  BSFAIL(1)
 B9K=    MUNSETFB1   
 B=4W    )   
 B=JG    #SKI  %A-2<1$1  
 B?46    (   
 B?HQ          LDX   0  %B   
 B#3B          MPY   0  ASBSAB   
 B#H2          NGX   1  1
 B*2L          ADX   1  BBAC 
 B*G=          ADX   1  ASBSAB   
 B*^W          LDN   0  BOFB 
 BBFG          ERS   0  BSFAIL(1)
 BB^6          LDN   0  BNOFB
 BCDQ          ANDX  0  BSFAIL(1)
 BCYB          BNZ   0  MUNSETFB2
 BDD2          LDCT  0  BFB  
 BDXL          ERS   0  BSFAIL(1)
 BFC=    MUNSETFB2   
 BFWW    )   
 BGBG          LDX   1  FX1  
 BGW6          LDX   2  FX2  
 BH*Q    #NOR
</code>