Show pageBacklinksBack to top 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: 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 KJYG ...( [FROM ACT OR WORK KKD6 ...#SKI MTFCBd 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 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
 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 [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 [FROM FILE TO HALF LJN6 ...( LK7Q ...#SKI MTFCBh$#104 LKMB ...#DEL LL72 ...) LLLL ...#SKI MTFCBƑ LM6= ... LDN 0 1 LMKW ...#SKI MTFCBh LN5G ... NGN 0 1 LNK6 ... ADS 0 BHALFN [UPDATE FCB COUNTS LP4Q ... SBS 0 BFILEN LPJB ... SBS 0 BDIRN LQHL ...#SKI MTFCBƐ LR3= ... LDN 2 BHALF LRGW ...#SKI MTFCBd 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Ƒ 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 MTFCBh 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> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In