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

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

**Used in:** [[george:source:BMINDEX866|BMINDEX866]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:CLOSEND867|CLOSEND867]], [[george:source:CREATE867|CREATE867]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:RESTLIMB864|RESTLIMB864]], [[george:source:WORKFILE860|WORKFILE860]]

<code - TRANSFCB.mac.txt>
 J^X6 ...[??? TRANSFCB SECT FILE FGN 22 DOC  
 K2BQ ...#MAC TRANSFCB   
 K2WB ...[   
 K3B2 ...[  TRANSFER FCB FROM FFLE,ACT,HALFOR WORK CHAINS
 K3TL ...[             TO FILE,WORK OR HALF CHAINS   
 K4*= ...[   
 K5#G ...#OPT  MTFCBFILE=1   
 K5S6 ...#OPT MTFCBHALF=4
 K6?Q ...#OPT  MTFCBWORK=8   
 K6RB ...#OPT  MTFCBACT=16   
 K7QL ...#DEF MTFCB=MTFCB%C*64+MTFCB%B   
 K8PW ...[FROM ACT  TO FILE KEYFCB   
 K99G ...[                  CHAIN BFILE+1
 K9P6 ...[                  UPDATE BFILEN AND OR BDIRN   
 K=8Q ...[          TO WORK CHAIN BWORKRING+1(FX1)   
 K=NB ...[   
 K?82 ...[FROM FILE TO HALF CHAIN BHALF  
 K?ML ...[                  UPDATE BDIRN,BFILEN,BHALFN   
 K#7= ...[   
 K#LW ...[FROM HALF TO FILE CHAIN BFILE+1
 K*6G ...[                  UPDATE BDIRN,BFILEN,BHALFN   
 K*L6 ...[   
 KB5Q ...[FROM WORK TO FILE CHAIN BFILE+1
 KBKB ...[                  KEYFCB   
 KC52 ...[                  UPDATE BFILEN
 KD4= ...#SKI  %A>2-2
 KDHW ...#DEF  MTFCBPT=%A
 KF3G ...#SKI  %A>2-2
 KFH6 ...#SKI
 KG2Q ...(   
 KGGB ...#DEF  MTFCBPT=GEN0  
 KH22 ...      STO   %A  GEN0
 KHFL ...)   
 KJDW ...#SKI  MTFCB&#30 
 KJYG ...(               [FROM ACT OR WORK   
 KKD6 ...#SKI  MTFCB&#100
 KKXQ ...(                [TO FILE   
 KLCB ...#SKI  %A-1  
 KLX2 ...      LDX   1  MTFCBPT            [%A=ADDRESS OF FCB
 KMBL ...#SKI %D-2               [FOR BMINDEX
 KMW= ...      LDX   2  BFILE+1  
 KN*W ...      CHAIN 1,2        [CHAIN FCB INTO FILE CHAIN   
 KP*6 ...      LDN   0  1
 KPSQ ...      ADS   0  BFILEN            [UPDATE FCB COUNT FOR FILE 
 KQ#B ...      LDX   2  BFILE
 KQS2 ...      ADN   2  FCBRING  
 KR?L ...      LDX   2  1(2)         [RING BEFORE MASTERS FCB
 KRR= ...      LDX   1  MTFCBPT  
 KS=W ...      LDX   1  BACK2(1) 
 KSQG ...      BPZ   1  MTFCB1         [B IF TERMINAL FILE FCB   
 KT=6 ...      LDX   2  0(2)         [RING AFTER MASTERS FCB FOR DIRECTORY   
 KTPQ ...      ADS   0  BDIRN         [UPDATE DIR FCB COUNT  
 KW9B ...MTFCB1  
 KWP2 ...      LDX   1  MTFCBPT  
 KX8L ...      ADN   1  FCBRING  
 KXN= ...#SKI  MTFCB&#20 
 KY7W ...(   
 KYMG ...      STO   1  0(1) 
 K^76 ...      STO   1  1(1) 
 K^LQ ...      ENRING 1,2        [NEW FCB FROM ACT RING  
 L26B ...)   
 L2L2 ...#SKI MTFCB&#10  
 L35L ...      RERING 1,2         [FCB FROM WORKFILE RING
 L3K= ...      LDX   1  FX1  
 L44W ...      LDX   2  FX2  
 L4JG ...#FRE  MTFCBPT   
 L546 ...#FRE  MTFCB 
 L5HQ ...#EXI
 L63B ...)   
 L72L ...#SKI  MTFCB&#1000$#1000         [FROM ACT TO WORK   
 L7G= ...#DEL NOT PERMITTED  
 L7^W ...(   
 L8FG ...      LDX   2  FX2  
 L8^6 ...      ADN   2  BWORKRING
 L9DQ ...#SKI  %A-1  
 L9YB ...      LDX   1  MTFCBPT  
 L=D2 ...      CHAIN 1,2         [CHAIN FCB IN WORKFILE RING 
 L=XL ...      ADN   2  BWORKRING
 L?C= ...      LDX   1  MTFCBPT  
 L?WW ...      LDN   0  FCBRING(1)   
 L#BG ...      STO   0  FCBRING(1)   
 L#W6 ...      STO   0  FCBRING+1(1) 
 L**Q ...      BXE   2  0(1),MTRANSF1         [FCB  IS THE FIRST IN THE RING 
 L*TB ...      LDX   2  1         [X1 POINTS TO THE FCB  
 LB*2 ...      LDX   2  0(2)         [X2 TO THE NEXT 
 LBSL ...      ADN   2  FCBRING  
 LC#= ...      ADN   1  FCBRING  
 LCRW ...      LDX   2  1(2)         [X2TO THE LAST FCB'S FCBRING
 LD?G ...      ENRING 1,2            [RING IN FCB IN SAME ORDER AS FCBS  
 LDR6 ...MTRANSF1
 LF=Q ...#FRE  MTFCBPT   
 LFQB ...#FRE  MTFCB 
 LG=2 ...#EXI
 LGPL ...)   
 LH9= ...)   
 LJ8G ...#SKI  MTFCB&#401$#401            [FROM FILE TO HALF 
 LJN6 ...(   
 LK7Q ...#SKI  MTFCB&#104$#104   
 LKMB ...#DEL
 LL72 ...)   
 LLLL ...#SKI  MTFCB&#401
 LM6= ...      LDN   0  1
 LMKW ...#SKI  MTFCB&#104
 LN5G ...      NGN   0  1
 LNK6 ...      ADS   0  BHALFN            [UPDATE FCB COUNTS 
 LP4Q ...      SBS   0  BFILEN   
 LPJB ...      SBS   0  BDIRN
 LQHL ...#SKI  MTFCB&#400
 LR3= ...      LDN   2  BHALF
 LRGW ...#SKI  MTFCB&#100
 LS2G ...      LDX   2  BFILE+1  
 LSG6 ...#SKI  %A-1  
 LS^Q ...      LDX   1  MTFCBPT  
 LTFB ...      CHAIN 1,2            [CHAAN FCB INTO FILE OR HALF CHAIN   
 LWDL ...#SKI  MTFCB&#401
 LWY= ...(   
 LXCW ...      LDX   1  MTFCBPT  
 LXXG ...      ADN   1  FCBRING         [POINT TO FCB
 LYC6 ...      DERING 1  
 LYWQ ...      LDX   1  MTFCBPT  
 L^BB ...      ADN   1  FCBRING         [AND AGAIN   
 L^W2 ...      STO   1  0(1)            [MAKE RING NULL FOR 1ST CASE 
 M25S ...      STO   1   BPTR(1) 
 M2*L ...      LDX   2  BHALF+1  
 M2T= ...      LDX   2  1(2)         [POINT TO LAST FCB ON HALF  
 M3#W ...      ADN   2  FCBRING  
 M3SG ...      ENRING  1,2         [RING FCB IN CORRECT SEQ  
 M4#6 ...)   
 M4RQ ...#SKI  MTFCB&#104
 M5?B ...(   
 M5R2 ...      LDX   2  BFILE
 M6=L ...      ADN   2  FCBRING  
 M6Q= ...      LDX   1  MTFCBPT       [POINT TO LAST FCB IN CHAIN
 M79W ...      ADN   1  FCBRING  
 M7PG ...      RERING 1,2         [RING IN FCB AT END ?  
 M896 ...)   
 M8NQ ...#FRE  MTFCBPT   
 M98B ...#FRE  MTFCB 
 M9N2 ...#NOR
</code>