BASEFCB

(GIN Macro)
Used in: BACKROOM865, OPENREL865, OPENWAIT867, ORELMAIN867, PERFPASS864, RENAME864, USERSTRM867
BASEFCB.mac.txt
 =7F8 ...[??? BASEFCB SECT FILE FGN 20 DOC   
 =7P2    [   
 =7S7 ...#MAC  BASEFCB   
 =7X# ...[   
 =82F ...[    SET UP FOR SEARCH VIA FCB RING 
 =85L ...[    %A MODIFIER FOR FCB RING   
 =88R ...[    %B FILE,HALF,DIR OR WORK   
 =8?Y ...[    %C LABEL IF NO FCBS
 =8C5 ...[    %D SPARE ACC NULL TAKES X0 
 =8KC ...#STR  %D
 =8NJ ...#STR
 =8RP ...      BASEFCB %A,%B,%C,0,%E 
 =8WW ...#STR  %D
 =923 ...(   
 =98* ...#OPT  MBFCBFILE=1   
 =9?G ...#OPT  MBFCBDIR=2
 =9BM ...#OPT  MBFCBHALF=4   
 =9FS ...#OPT  MBFCBWORK=8   
 =9J^ ...#DEF  MBFCB=MBFCB%B 
 =9R? ...#SKI  MBFCB&7   
 =9WD ...(   
 =9^K ...                [NOT WORK FILE  
 ==4Q ...      %E
 ==7X ...      LDX   %D  B%BN
 ==?4 ...#SKI  MBFCB&4   
 ==B9 ...      BZE   %D  %C         [ZERO FCBS MAYBE FOR HALF ONLY   
 ==JH ...#SKI  MBFCB&1   
 ==MN ...      LDX   %A  BFILE   
 ==W2 ...#SKI  MBFCB&2   
 ==^7 ...      LDX   %A  BFILE   
 =?7F ...#SKI  MBFCB&4   
 =?=L ...      LDX   %A  BHALF   
 =?DY ...      ADN   %A  FCBRING 
 =?M= ...#SKI  MBFCB&5   
 =?QC ...(   
 =?TJ ...#STR  %E
 =?YP ...#SKI
 =#3W ...      LDX   %A  1(%A)   
 =#73 ...)   
 =#=8 ...)   
 =#DG ...#SKI  MBFCB&8   
 =#HM ...(   
 =#LS ...      LDN   %D  BWORKRING(%A)         [WORKFILE CASE
 =#P^ ...      BXE   %D  BWORKRING(%A),%C         [EMPTY 
 =#T6 ...      LDX   %D  BWORKRING(%A)   
 =#Y? ...      ADN   %D  FCBRING 
 =*3D ...      LDX   %A  %D  
 =*9Q ...)   
 =*D4 ...#FRE  MBFCB 
 =*H9 ...)   
 =*LB ...#NOR