16 22FL ...#SEG CLOSDEL70 [FRANK BLUNDELL 4 22KH ...# 16 22PD ...# COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22T* ...# 7 22_= #LIS K0CLOSDEL 7 23DW 8HCLOSDEL 4 23YG # 14 24D6 # THIS SEGMENT IMPLEMENTS MODE #1300 10 24XQ # ENTRY IS FROM CLOSBAC. 12 25CB # THE CURRENT ACTIVITY IS CPA 18 25X2 # AWORK1 CONTAINS MODE, AWORK2 CONTAINS ADDITIVE BITS 9 26BL # X7 SERIAL NUMBER 4 26W= # 4 27*W # 12 27TG SEGENTRY K1CLOSDEL,QK1CLOSDEL 4 28*6 # 4 28SQ # 20 2976 ...XTCEE +EWTCEE [TRAPS CLOSED FOR EXOFILE ENTRY 9 29#B XM1 #77777 9 29S2 XM2 #37777777 8 2=?L STEN +10 4 2=R= # 4 2?=W # 6 2?QG QK1CLOSDEL 9 2#=6 #SKI K6CLOSDEL>199-199 9 2#PQ TRACE 7,CLOSDEL 10 2*9B MHUNTW 3,EWDAS,GEXD 18 2*P2 LDN 6 5 [X6 HOLDS OBJ PROG REPLY 10 2B8L LDX 0 EOPMODE(3) 9 2BN= #SKI K6CLOSDEL>199-199 4 2C7W ( 8 2CMG SBN 0 #1600 8 2D76 BZE 0 XEA 8 2DLQ SBN 0 #100 8 2F6B BNZ 0 XEB 21 2FL2 XEA GEOERR 1,WRNGMODE [CANT DELETE IF USING SPECAIL OPEN MO 10 2G5L XEB LDX 0 EOPMODE(3) 4 2GK= ) 8 2H4W SBN 0 #200 17 2HJG BZE 0 XDA [J IF OPEN MODE READ 8 2J46 SBN 0 #200 17 2JHQ BZE 0 XDA [OR END OF FILE MODE 8 2K3B SBN 0 #200 17 2KH2 BZE 0 XDA [J IF SCRATCH FILE 18 2KLJ ... SXTEST 0,XES2B [J IF SECUREX NOT IN USE 19 2KMQ ... LDX 0 EXOTRAP(3) [EXOFILE ENTRY'S TRAPS RECORD 16 2KNY ... BNG 0 XES2B [J IF INSECURE 9 2KQ6 ... ANDN 0 CERASET 18 2KR# ... BNZ 0 XES2B [J IF WE HAVE ERASE TRAP 5 2KSG ...XES2A 15 2KTN ... KEEPMESS XTCEE(1),7 [TRAPS CLOSED 8 2KWW ... BRN XEFN 5 2KY4 ...XES2B 16 2L2L SUSEST 7,XB [GET UNIT ONLINE 15 2LRL ...XE PLOCKSU 7,XGA,XFA1 [GET LOCK OUT 10 2NDQ MHUNTW 3,EWDAS,GEXD 10 2NYB MFINDEXOF 1,CEFN(3) 9 2PD2 LDX 0 COPEN(1) 7 2PXL SBN 0 1 9 2QC= #SKI K6CLOSDEL>199-199 4 2QWW ( 8 2RBG BPZ 0 XXX 9 2RW6 GEOERR 1,CLOSCNT 4 2S*Q XXX 4 2STB ) 21 2T*2 BNZ 0 XD [JUMP IF FILE OPEN TO ANOTHER USER 14 2WRW LDCH 0 FIP+5(1) [GET IC 7 2X?G SRL 0 4 7 2XR6 SBN 0 1 20 2Y=Q BZE 0 XFB [DON'T CHECK ANY FURTHER IF IC=1 7 2YQB LDX 2 1 21 2_=2 ANYUSERS HOME(2),ASUSN(2),XGC,XD,NOC [SEE IF ANY USERS IN OTHER SI 10 2_PL MHUNTW 3,EWDAS,GEXD 10 329= MFINDEXOF 2,CEFN(3) 7 32NW NOC LDX 1 2 8 338G LDX 2 FX2 17 347Q XFB LDN 6 1 [OTHERWISE MODE OK 9 34MB LDEX 0 FIP+5(1) 18 3572 BNZ 0 XD [JUMP IF FILE HAS AREAS 7 35LL LDN 6 4 14 366= FPCACA 2 [FIND PCA 9 36KW TRUSTED 2,NOTS,S 17 375G BRN XH [JUMP IF S-TRUSTED 9 37K6 NOTS TRUSTED 2,NOTQ,Q 17 384Q BRN XH [JUMP IF Q-TRUSTED 4 38JB NOTQ 9 3942 LDX 0 FIP+7(1) 7 39HL LDX 4 0 17 3=3= ANDN 0 #7777 [X0=FILE DEALLOCATION 17 3=GW SRL 4 12 [X4=DATA RETENTION 7 3?2G TXL 4 0 8 3?G6 BCS XD 18 3?_Q XH OPENST 7 [OPEN UNIT FOR TRANSFERS 10 3#FB MFINDEXOF 2,CEFN(3) 18 3#_2 READSAVE HOME(2),XJ [READ AND SAVE FIP CELL 9 3*DL TESTREP OK,XJC 10 3*Y= TESTREPNOT EXFAIL,XR 18 3BCW BRN XFL1 [JUMP IF TRANSFER ERROR 10 3BXG XJC MFINDEXOF 2,CEFN(3) 9 3CC6 LDX 1 ECOR(3) 17 3CWQ XJ LDCT 0 4 [CHECK FOR S-TRUSTED 9 3DBB ANDX 0 EXMARK(2) 17 3DW2 BNZ 0 ZA [JUMP IF S-TRUSTED 9 3F*L #SKI K6CLOSDEL>199-199 4 3FT= ( 18 3G#W LDX 4 2(1) [CHECK FILE IDENTITY IF 14 3GSG LDX 5 3(1) [TRACING 8 3H#6 LDX 6 4(1) 9 3HRQ TXU 4 FIP(2) 9 3J?B TXU 5 FIP+1(2) 9 3JR2 TXU 6 FIP+2(2) 8 3K=L BCS XJA 8 3KQ= LDX 0 6(1) 9 3L9W ERX 0 FIP+4(2) 8 3LPG SRL 0 12 8 3M96 BZE 0 XJB 10 3MNQ XJA GEOERR 1,CLOSNAME 4 3N8B XJB 4 3NN2 ) 4 3P7L ZC 19 3PM= LDX 6 1 [SAVE CURRENT CORE POINTER 16 3Q6W LDX 4 HOME(2) [AND BS ADDRESS 8 3QLG LDX 2 FX2 9 3R66 STO 1 AWORK3(2) 18 3RKQ STO 4 AWORK4(2) [SAVE FIP CELL ADDRESSES 18 3S5B LDN 5 0 [MARKER -PREVIOUS CELL 8 3SK2 XP LDX 0 0(1) 18 3T4L BNG 0 XK [JUMP IF THIS CELL UNUSED 16 3TJ= SAVEST W,4 [SAVE THIS CELL 8 3W3W LDX 0 0(1) 8 3WHG SMO FX1 19 3X36 TXU 0 XM2 [JUMP IF END OF CHAIN OF FIPS 8 3XGQ BCC XL 19 3Y2B BZE 5 XM [JUMP IF NO CELL YET SAVED 17 3YG2 CHUCK W,5 [CHUCK PREVIOUS CELL 7 3Y_L XM LDX 5 4 17 3_F= LDX 6 1 [SAVE CELL POINTERS 8 3_YW LDX 0 0(1) 20 42DG BNZ 0 XN [JUMP IF NEXT CELL NOT CONTIGUOUS 8 42Y6 ADN 1 17 16 43CQ ADN 4 17 [UPDATE POINTERS 8 43XB BRN XP 17 44C2 XN LDX 4 0(1) [BS ADDRESS NEXT CELL 15 44WL READST 4,XP [READ CELL 15 45B= TESTREP OK,XQ [JUMP IF OK 14 45TW TESTREP EXFAIL,XFL1 [OR FAIL 10 46*G XR GEOERR 1,CLOSTRAN 16 46T6 XQ LDX 1 ECOR(3) [NEW CORE POINTER 8 47#Q BRN XP 20 47SB XK LDX 4 5 [UNUSED CELL FOUND -SET POINTERS 17 48#2 LDX 1 6 [TO1PREVIOUS CHAIN 17 48RL XL LDX 5 AWORK4(2) [X5=BS ADDRESS FIP 17 49?= LDX 2 AWORK3(2) [X2=CORE ADDRESS FIP 7 49QW TXU 1 2 18 4==G BCC XS [JUMP IF CELLS THE SAME 7 4=Q6 LDX 6 1 7 4?9Q ADN 2 1 7 4?PB ADN 1 1 17 4#92 MOVE 1 16 [COPY OVER OLD CELL 17 4#NL CHUCKWR W,5,XT [REWRITE AND CHUCK 8 4*8= TESTREP OK,XT 10 4*MW TESTREP EXFAIL,XFL1 8 4B7G BRN XR 17 4BM6 XT LDX 1 6 [RESET CORE POINTER 8 4C6Q LDCT 0 #400 16 4CLB ORS 0 0(1) [SET UNUSED BIT 8 4D62 STOZ 1(1) 8 4DKL LDN 2 2(1) 7 4F5= ADN 1 1 15 4FJW MOVE 1 15 [ZEROIZE CELL 20 4G4G LDN 1 BCCB [IF FILE MOVED IS OPEN, CORE COPY 19 4GJ6 XWA LDX 1 BPTR(1) [MUST HAVE BS HOME UPDATED 8 4H3Q TXU 1 CXCC 17 4HHB BCC XW [J IF END OF CHAIN 9 4J32 LDX 0 BACK2(1) 16 4JGL BZE 0 XW [OR NO MORE EXOFS 21 4K2= TXU 4 HOME(1) [JUMP IF NOT THIS ONE THAT WAS MOVED 8 4KFW BCS XWA 9 4K_G TXU 7 ASUSN(1) 12 4LF6 BCS XWA [ 16 4LYQ STO 5 HOME(1) [UPDATE BS HOME 21 4MDB XW CLOSEWR W,4,S [CLOSE UNIT AND REWRITE CELL(SPECAIL) 9 4PBW TESTREP OK,XXY 10 4PWG TESTREP EXFAIL,XFL1 9 4QB6 TESTREP INOP,XFL2 8 4QTQ BRN XR 19 4S#L XXY FIPPER 4,7,XGC,XX,XX [TELL OTHER SIDE TO RE-READ 8 4SS= BRN XX 19 4TRG XS LDCT 0 #400 [NO NEED TO MOVE ANOTHER FIP 16 4W?6 ORS 0 0(1) [SET UNUSED BIT 15 4WQQ ADN 1 1 [AND ZEROIZE 8 4X=B LDN 2 1(1) 8 4XQ2 STOZ 0(1) 8 4Y9L MOVE 1 15 8 4YP= CLOSEWR W,4 8 4_8W TESTREP OK,XX 10 4_NG TESTREP EXFAIL,XFL1 8 5286 BRN XR 17 52MQ XX EXMESS ALL [OUTPUT ANY MESSAGES 10 537B MHUNTW 3,EWDAS,GEXD 10 53M2 MFINDEXOF 1,CEFN(3) 8 55KG LDCT 4 #42 16 5656 ANDX 4 EXMARK(1) [ANYBODY WAITING? 15 56JQ FREECORE 1 [FREE EXOF 8 574B BZE 4 WA 18 57J2 LONGON EDFDCLS [WAKE UP ANYBODY WAITING 8 592W LDCT 0 #2 7 59GG ANDX 0 4 21 5=26 BZE 0 WA [J IF NOBODY WAITING IN OTHER PROC 17 5=FQ AUTWIN GFCLOSE [ELSE WAKE THEM UP 15 5?F2 WA UNLOCKSU 7 [UNLOCK AND 15 5?YL RELST 7 [RELEASE UNIT 10 5#D= MHUNTW 3,EWDAS,GEXD 17 5G?Q YB LDCT 4 #6 [DEVICE TYPE IN B0-B8 18 5GRB ORX 4 EXCHNL(3) [CHANNEL NO. IN B9-B23 16 5H?2 RELPERENT 4,AWORK1(2) [RELEASE CHANNEL 7 5J== LDN 6 0 17 5JPW BRN XDC [JUMP TO SET REPLIES 4 5K9G # 4 5KP6 # 9 5L8Q # UNIT NOT ONLINE 4 5LNB XB 7 5M82 LDN 6 6 9 5MML LDX 0 AWORK2(2) 7 5N7= ANDN 0 2 18 5NLW BNZ 0 XDA [JUMP IF MODE #400 IS SET 18 5N_= ... LDN 3 0 [MKR IN CASE OF BREAKIN 9 5P6G SMUSEST 7,XF,XG 15 5PL6 BRN XE [JUMP IF OK. 4 5Q5Q # 4 5QKB # 4 5R52 # 10 5RJL ZE GEOERR 1,TRANSFER 4 5S4= # 4 5SHW # 21 5T3G # UNIT IN USE BY S-TRUSTED -CHECK IF FILE MOVED AND REFIND IF NECESSARY 4 5TH6 # 16 5W2Q ZA LDX 4 2(1) [CHECK FILENAMES 8 5WGB LDX 5 3(1) 8 5X22 LDX 6 4(1) 9 5XFL TXU 4 FIP(2) 9 5X_= TXU 5 FIP+1(2) 9 5YDW TXU 6 FIP+2(2) 17 5YYG BCS ZB [JUMP IF DIFFERENT 8 5_D6 LDX 0 6(1) 9 5_XQ ERX 0 FIP+4(2) 8 62CB SRL 0 12 17 62X2 BZE 0 ZC [JUMP IF IDENTITY OK 18 63BL ZB [OTHERWISE FIND IT AGAIN 8 63W= CLOSEST ZD 9 64*W TESTREPNOT OK,XR 13 64TG ZD SETNCORE FDCELLS-A1,2,EWDAS,EXOF 10 65*6 MHUNTW 3,EWDAS,GEXD 10 65SQ MFINDEXOF 1,CEFN(3) 9 66#B LDX 0 BACK2(1) 16 66S2 STO 0 BACK2(2) [EXOFILE NUMBER 8 67?L ADN 1 A1 8 67R= ADN 2 A1 10 68=W ... MOVE 1 FDCELLS-A1 13 68QG LDN 0 BSERL+BOPEN+BSPEC+BLOCK 10 69=6 STO 0 EXMARK-A1(2) 9 69PQ DOWN EXOPEN,1 8 6=9B TESTREP OK,ZF 9 6=P2 TESTREP EXFAIL,ZG 9 6?8L ZH GEOERR 1,EXOREP 10 6?N= ZF MHUNTW 3,EWDAS,GEXD 10 6#7W MFINDEXOF 2,CEFN(3) 10 6#MG MHUNTW 1,EWDAS,EXOF 9 6*76 LDX 0 HOME(1) 9 6*LQ STO 0 HOME(2) 7 6B6B FREECORE 1 8 6BL2 BRN XH 10 6C5L ZG MHUNTW 3,EWDAS,GEXD 9 6CK= LDX 0 EMARK(3) 12 6D4W ANDN 0 ANFOUND+AFAIL+ARITE 8 6DJG BZE 0 ZH 9 6F46 ANDN 0 ANFOUND 15 6FHQ BZE 0 ZJ [JUMP IF FAIL 10 6G3B MHUNTW 2,EWDAS,EXOF 7 6GH2 FREECORE 2 15 6H2L BRN XP [NOT FOUND 19 6HG= XFL2 LDX 4 7 [CATASTROPHIC FAIL (PERHAPS?) 7 6H_W LDN 5 9 18 6JFG OUTBLOCK 5 [SET UP PARAMETER BLOCK 9 6J_6 ADN 2 ACOMMUNE1 7 6KDQ LDN 0 6 20 6KYB SLL 4 3 [CONVERT SERIAL NUMBER TO CHARS 7 6LD2 X2A SLC 4 6 8 6LXL DCH 4 0(2) 7 6MC= BCHX 2 / 7 6MWW SRL 4 3 8 6NBG BCT 0 X2A 7 6NW6 LDN 4 6 10 6P*Q OUTPARAM 4,ACOMMUNE1 10 6PTB MHUNTW 3,EWDAS,GEXD 10 6Q*2 MFINDEXOF 1,CEFN(3) 17 6QSL LDX 6 FIP+4(1) [GENERATION NUMBER 8 6R#= LDN 4 12 8 6RRW ADN 1 FIP 9 6S?G ADN 2 ACOMMUNE1 19 6SR6 MOVE 1 3 [MOVE FILENAME TO ACTIVITY 15 6T=Q X2C LDCH 0 0(2) [COUNT CHARS 8 6TQB SBN 0 #20 8 6W=2 BZE 0 X2B 7 6WPL NGX 5 4 8 6X9= X2B BCT 4 X2C 8 6XNW ADN 5 13 16 6Y8G OUTPARAM 5,ACOMMUNE1 [OUTPUT FILE NAME 8 6YN6 SRL 6 12 17 6_7Q OUTNUM 6,0 [GENERATION NUMBER 16 6_MB MONOUT HYDRA [2 HEADED FILE 8 7272 BRN XFL1 4 72LL # 4 736= # 14 74K6 XGC UNLOCKSU 7 [UNLOCK 4 74M2 ...# 7 74ML ...# IPB INOP 4 74N= ...# 7 74NW ...XFA1 NGNC 3 1 4 74PG ...# 12 74Q6 ...# BREAKIN WHEN WAITING FOR IPB 4 74QQ ...# 7 74RB ...XGA LDN 3 0 7 74S2 ... RELST 7 16 74SL ...XG [BREAKIN FOR SU 20 74T= ... MHUNTW 1,EWDAS,GEXD [X3=0 IF BREAKIN =1 IF IPB INOP 7 74TW ... FREECORE 1 17 74WG ... STEPBACK [MOVE ONR BACK ONE 15 74X6 ... BZE 3 NIPB [J IF BREAKIN 15 74XQ ... TWAIT 7,NIPB [WAIT FOR IPB 15 74YB ... RUNPROG [TRY AGAIN 16 74_2 ...NIPB PROGBRKIN [REPORT BREAKIN 4 78G6 # 4 78_Q # 11 79FB # SET OBJECT PROGRAM REPLIES 7 79_2 XD UNLOCKSU 7 7 7=DL RELST 7 8 7=Y= XDA LDCT 0 #400 7 7?CW ORX 6 0 10 7?XG XDC MHUNTW 3,EWDAS,GEXD 15 7#C6 LDX 7 CNR(3) [C.A ADDRESS 7 7#WQ ADN 7 1 15 7*BB FREECORE 3 [FREE GEXD 9 7*W2 ... GETWORD 7,7,WRITE 10 7B*L ... TESTREPNOT OK,XERR1 7 7C#W SMO 7 15 7CSG STO 6 0 [SET REPLY 7 7D4# ... WORDFIN 16 7D#6 RUNPROG [RESTART PROGRAM 4 7DRQ # 4 7F?B # 10 7FR2 ZJ MHUNTW 2,EWDAS,EXOF 7 7G=L FREECORE 2 7 7GQ= XFL1 UNLOCKSU 7 15 7H9W XFA RELST 7 [RELEASE UNIT 4 7HFN ...XEFN 16 7HPG EXMESS ALL [OUTPUT MESSAGES 10 7J96 XF MHUNTW 3,EWDAS,GEXD 16 7JNQ LDX 7 CNR(3) [CA ADDRESS 7 7K8B ADN 7 1 20 7KN2 LDX 5 EXCHNL(3) [CONVERT CHANNEL NR TO DECIMAL 7 7L7L FREECORE 3 7 7LM= ... LDCT 6 6 17 7M6W ... ADX 5 6 [DEVICE AND CHANNEL 16 7MLG ...XPAR OUTPACK 5,1,PERINAME,XPAR [ONLINE *DA FAIL 9 7N66 ... GETWORD 7,7,WRITE 10 7NKQ ... TESTREPNOT OK,XERR1 8 7T2B LDCT 6 #440 17 7TG2 SMO 7 [SET FAIL REPLY 7 7T_L STO 6 0 7 7W9D ... WORDFIN 9 7WF= ILLEGAL PERFAIL 4 7WYW # 9 7XDG XERR1 GEOERR 1,CHECKA 4 7XY6 # 10 7YCQ MENDAREA 30,K99CLOSDEL 4 7YXB #END 8 ____ ...24352632000100000000