14 22FL SEG OPENEND,,JUDY BIDGOOD,OPEN 11 22_= SEGENTRY K1OPENEND,OPENEND 11 23DW SEGENTRY K2OPENEND,THAW 12 23YG SEGENTRY K3OPENEND,TESTOPEN 12 24D6 SEGENTRY K4OPENEND,THAWSAVE 12 24MY ... SEGENTRY K5OPENEND,RESTOREN 21 24XQ # THIS ROUTINE PUTS THE LAST LOCAL NAME OF A GIVEN FILE/FABSNB INTO A F 4 25CB [ 14 25X2 OPENEND [ENTER 10 26BL LDX 7 ACOMMUNE7(2) 10 26W= HUNT 1,FILE,FABSNB 15 27*W LDX 4 ALOGLEN(1) [X4 = 4+6N+R 7 27TG LDX 0 4 21 28*6 SBX 0 A1(1) [SEE IF RECORD HEADER =LOGICAL LENGTH 15 28SQ BZE 0 SAME [J IF SAME 7 29#B SBN 0 6 20 29S2 BNG 0 SAME [J IF DIFFERENCE IS LESS THAN SIX 20 2=?L LDX 4 A1(1) [OTHERWISE GO BY RECORD LENGTH 4 2=R= SAME 7 2?=W SBN 4 4 7 2?QG LDN 6 6 13 2#=6 DVS 3 6 [X3=R 14 2#PQ MPY 4 6 [X5=6N 14 2*9B TRACEIF K6OPENEND,199,299,3,OPENLAST 17 2*P2 SETUPCOR 6(3),2,FILE,FLOCNB [GET R+6 WORD FLOCNB 10 2B8L HUNT 1,FILE,FABSNB 9 2BN= LDX 0 ATYPE(1) 17 2C7W DSA 0 ATYPE(2) [TRANSFER TYPE BITS 17 2CMG ADN 2 A1 [POINTER TO CLOCNB 7 2D76 ADX 1 5 18 2DLQ ADN 1 A1-2 [X1 -> LAST LOCAL NAME 8 2F6B MOVE 1 6(3) 18 2FL2 ACROSS OPENREL,5 [SETTING OF X7 MATTERS. 14 2G5L [THIS IS THE ENTRY POINT FOR THE THAW MACRO. 4 2GK= THAW 10 2H4W LDN 6 EAUTOCOUNT 10 2HJG LDN 5 FREEZECOUNT 8 2J46 BRN MERGE 21 2JHQ THAWSAVE [ENTRY FOR THAW WITH 'SAVE' PARAMETER 10 2K3B LDN 6 ESAVECOUNT 8 2KH2 LDN 5 FSVCT 5 2L2L MERGE 10 2LG= MHUNTW 1,FILE,ENT 20 2L_W LDEX 0 ECOPS(1) [IF NO ONLINE COPIES OF FILE THE 21 2MFG BZE 0 NBS [DIRECTORY ALREADY POSITIONED AFTER 21 2M_6 BACKSPACE [NAME RECORD & THUS IS OK,OTHERWISE 10 2NDQ MHUNTW 1,FILE,ENT 4 2NYB NBS 7 2PD2 SMO 6 18 2PXL LDEX 7 0(1) [GET FREEZE OR SAVE COUNT 7 2QC= SBN 7 1 18 2QWW BNG 7 NFR [GEOERR IF WASN'T FROZEN 7 2RBG SMO 6 15 2RW6 DEX 7 0(1) [NEW COUNT 10 2S*Q NAME 1,FILE,FWB 7 2STB REWRITE 10 2T*2 MHUNTW 1,FILE,FWB 10 2TSL NAME 1,FILE,ENT 9 2W#= BNZ 7 NOTLONG 20 2WRW LONGON 6,ELOC1(1) [WAKE UP WAITERS TO EMPTY FILE 5 2X?G NOTLONG 7 2XR6 LDN 2 6 7 2Y=Q LOCFCB 3 10 2YQB TESTRPN2 OK,NOTOPEN 7 2_=2 SMO 5 18 2_PL LDEX 0 0(3) [GET FREEZE OR SAVE COUNT 7 329= SBN 0 1 7 32NW SMO 5 15 338G DEX 0 0(3) [NEW COUNT 9 33N6 ... BNZ 0 NOTOPEN 16 347Q LONGON 6,BACK2(3) [WAKE UP WAITERS 9 34CJ ... BZE 7 NOTOPEN 4 34MB UP 7 3572 UPPLUS 1 10 35LL NFR GEOERR 1,NOFREEZE 5 366= NOTOPEN 18 36KW BNZ 7 UP [EXIT IF STILL FROZEN 10 375G MHUNTW 1,FILE,ENT 11 379C ... JBCC NOTAB,1,BECLOSEAB 9 37*# ... BRN NOWERASE 5 37F9 ...NOTAB 19 37K6 JBC UP,1,BEERASE [EXIT UNLESS 'TO BE ERASED' 5 37SY ...NOWERASE 19 384Q SETNCORE 6,2,FILE,FLOCNB [TEMPORARY FRIG FOR ERASEND 10 38JB MHUNTW 1,FILE,ENT 9 3942 LDX 0 ELAN(1) 9 39HL STO 0 A1+5(2) 8 3=3= ADN 1 ELOC1 8 3=GW ADN 2 A1 7 3?2G MOVE 1 5 7 3?G6 ERASEND 10 3?_Q MHUNT 1,FILE,FLOCNB 19 3#FB NAME 1,FILE,ENT [TEMPORARY FRIG FOR LISTFILE 8 3#_2 BRN UP 15 3*DL [ THIS IS THE ENTRY POINT FOR THE TESTOPEN MACRO 5 3*Y= TESTOPEN 21 3BCW LOCFCB 3 [LOCATE FCB & TESTIF OPEN UNCLEANLY 8 3BXG TESTRPN2 OK,UP 21 3CC6 UNOPCH 3,UNCL [OPEN UNCLEANLY SO TAKE NO UNCLEAN 15 3CWQ NFCB UPPLUS 1 [OPEN PATH. 5 3DBB UNCL UP 4 3DW2 [ 13 3DWD ...# SPECIAL SET UP MACRO FOR GEN RESTORE 4 3DWW ...[ 5 3DX# ...RESTOREN 13 3DXQ ... LDX 7 ACOMMUNE1(2) [MODE 9 3DY8 ... LDX 3 BFILE+1 9 3DYL ... LDX 0 ATYPE(3) 18 3D_4 ... SBX 0 STACK(1) [IS THIS BLOCK A FSTACK 14 3D_G ... BNZ 0 STAKNTHERE [J IF NOT 19 3D_Y ... ALTLENR 3,4 [ADD NEW SPACE FOR ELEMENT 9 3F2B ... LDX 3 BFILE+1 10 3F2S ... BRN STACALREDI 6 3F3= ...STAKNTHERE 15 3F3N ... SETNCORE FELLEN,3,FILE,FSTACK,,1,FELLEN 6 3F46 ...STACALREDI 17 3F4J ... ADN 3 A1 [SET UP FSTACK BLOCK 16 3F52 ... RINGFILE 3 [RING IN ELEMENT 10 3F5D ... STOZ FGENERAL2(3) 8 3F5W ... LDN 0 A1 16 3F6# ... NGS 0 FBACKPOINT(3) [BACKWARD POINTER 17 3F6Q ... NGS 0 FREADWORD(3) [SET FILE UNACCESSED 10 3F78 ... NGS 0 FREADBLOCK(3) 7 3F7L ... LDN 0 1 7 3F84 ... SRC 7 9 7 3F8G ... SMO 7 7 3F8Y ... SRC 0 0 15 3F9B ... STO 0 FGENERAL1(3) [SET MODE BIT 15 3F9S ... SBN 3 A1 [X3 -> FSTACK 20 3F== ... LDX 2 BFILE+1 [FOR G.R. FCB LAST IN FILE CHAIN 16 3F=N ... CHAIN 3,2 [CHAIN IN FSTACK 5 3F?6 ... UP 5 3F?J ...STACK 8 3F#2 ...#HAL FILE+FSTACK,0 4 3F#D ...[ 12 3F*L MENDAREA GAPOPEN,K99OPENEND 4 3FT= #END 8 ____ ...66745411000200000000