(GIN Macro)
Defined in: ACCESSMACROS
B3^J ...[??? SCURFUB SECT FILE FGN 19 DOC B49B # THIS MACRO SETS %A POINTING TO THE CURRENT USAGE BLOCK OF THE B4P2 # FILE OPEN AT DEPTH [%B] & JUMPS TO %C IF THE BLOCK'S NOT THERE B58L #MAC SCURFUB B5N= #STR %B B67W SFSTACK %B,1,2 B6MG #STR %B B776 #SKI B7LQ ( B86B TOPFCA 1 B8L2 PSTAC 2,1 B95L ) B9K= LDX 0 FREADBLOCK(1) B=4W BPZ 0 M1SCURFUB B=JG LDN 0 FBLKS B?46 STO 0 FREADBLOCK(1) B?HQ M1SCURFUB B#3B LDX 0 2 B#H2 BFCBX 2,2 B*2L ADX 2 FREADBLOCK(1) B*G= LDX 1 0 B*^W SFUB 1,0(2),%A,%C BBFG #STR %A,1 BB^6 #SKI BCDQ #OPT M2SCURFUB=1 BCYB #STR %A,2 BDD2 #SKI BDXL #OPT M2SCURFUB=2 BFC= #OPT M2SCURFUB=0 BFWW #SKI M2SCURFUB$1 BGBG LDX 1 FX1 BGW6 #SKI M2SCURFUB$2 BH*Q LDX 2 FX2 BHTB #FRE M2SCURFUB BJ*2 #NOR