UNSETFB
(GIN Macro)
Defined in: MACROS
Used in: BSALFAIL, BSBLFAIL867, RITEFAIL864, TRANFAIL866
- 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