DELFCB

(GIN Macro)

Used in: BACKROOM865, BMINDEX866, CLOSEALT864, CLOSEND867

DELFCB.mac.txt

 =M== ...[??? DELFCB SECT FILE FGN 22 DOC
 =M*W ...#MAC  DELFCB
 =MK6 ...[ MACRO TO FREE AN FCB  
 =MNQ ...[ %A IS POINTER TO FCB %B IS FILE HALF OR WORK  
 =MSB ...[[  
 =N3L ...      LDX   1  %A   
 =N7= ...[   
 =N=W ...#STR  WORK,%B   
 =NBG ...(   
 =NG6 ...      LDN   0  1         [ADJUST COUNTS FOR HALF AND FILE   
 =NKQ ...#STR  HALF,%B   
 =NPB ...(   
 =NT2 ...      LDX   2  BACK2(1)      [DIR COUNT AS WELL TO BE ADJUSTED  
 =NYL ...      BPZ   2  MDELFCB  
 =P4= ...      SBS   0  BDIRN
 =P7W ...MDELFCB 
 =P?G ...)   
 =PGQ ...      SBS   0  B%BN 
 =PLB ...)   
 =PQ2 ...      FREECORE 1
 =PTL ...#NOR