DELFCB [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

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

**Used in:** [[george:source:BACKROOM865|BACKROOM865]], [[george:source:BMINDEX866|BMINDEX866]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:CLOSEND867|CLOSEND867]]

<code - 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
</code>