14 22FL SEG RETURN,1,N.R.BOULT,LIBRARY 4 22KH ...[ 15 22PD ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22T* ...[ 12 22_= SEGENTRY K1RETURN,QK1RETURN 12 23DW SEGENTRY K2RETURN,QK2RETURN 12 23YG SEGENTRY K3RETURN,QK3RETURN 12 24D6 SEGENTRY K4RETURN,QK4RETURN 12 24XQ SEGENTRY K5RETURN,QK5RETURN 12 25CB SEGENTRY K7RETURN,QK7RETURN 12 25X2 SEGENTRY K8RETURN,QK8RETURN 4 26BL # 10 26W= FSHENTRY K9RETURN,,, 15 27*W FSHENTRY K10RETURN,,QK10RETURN,QK10RETURN 15 27TG FSHENTRY K11RETURN,QK11RETURN,,QK11RETURN 4 28*6 # 9 28SQ NDUMPER 12HDUMPER 11 29#B NPROCTP 12HGEO3PROCTAPE 4 29S2 # 8 2=?L NLANG 4HC1 5 2=R= SLINK 9 2?=W PAIR RETURNA,1 5 2?QG SLINK1 9 2#=6 PAIR RETURNA,2 6 2D76 QK1RETURN 15 2DLQ LDN 7 1 [ENTRY MARKER 7 2F6B LDN 0 1 9 2FL2 STO 0 AWORK3(2) 10 2G5L MHUNT 3,FILE,FABSNB 9 2GK= LDX 0 ATYPE(3) 8 2H4W ANDN 0 #200 18 2HJG BNZ 0 THU2 [BRANCH IF NAMED WORKTAPE 8 2J46 LDCT 0 #200 9 2JHQ SMO HDREC(3) 9 2K3B LDX 1 A1-2(3) 7 2KH2 ANDX 0 1 8 2L2L BZE 0 THU1 8 2LG= ANDN 1 #7777 8 2L_W BZE 1 THU1 15 2MFG SETREP NOFILE [ERROR IF +N 8 2M_6 BRN TT 4 2NDQ THU2 8 2NYB LDCT 0 #200 9 2PD2 SMO HDREC(3) 16 2PXL STO 0 A1-2(3) [HIGHEST LEVEL 8 2QC= BRN THU1 4 2QWW THU 10 2RBG HUNT 3,FILE,FABSNB 4 2RW6 THU1 7 2S*Q LDN 0 1 14 2STB ORS 0 ATYPE(3) [MAG TAPE 16 2T*2 LDN 5 0 [FIRST TAPE ROUND 8 2TSL BRN TOP 6 2W#= QK2RETURN 11 2WRW SETNCORE 3,3,FLIB,FTJOB 18 2X?G MHUNT 2,FILE,FABSNB [COPY USERNAME TO FTJOB 20 2XR6 LDX 0 A1(2) [FOR USE WHEN UPDATING BUDGETS 7 2Y=Q SBN 0 4 8 2YQB BNZ 0 XLFAB 8 2_=2 ADN 2 A1+1 4 2_PL XFTJ 8 329= ADN 3 A1 7 32NW MOVE 2 3 9 338G GETACT ACTDOC 9 33N6 LDX 3 BPTR(2) 17 347Q LINKSET 3,SLINK(1) [LINK FOR K7RETURN 17 34MB HUNT 1,FILE,FABSNB [NAME OF DIRECTORY 8 3572 CHAIN 1,3 16 35LL HUNT 1,AONBS,GLIST [TSNS TO RETURNED 8 366= CHAIN 1,3 10 36KW HUNT 1,FLIB,FTJOB 8 375G CHAIN 1,3 7 37K6 LDX 2 3 6 384Q FPUT 5 38JB UP 5 3942 XLFAB 8 39HL SMO A1(2) 8 3=3= ADN 2 A1-5 8 3=GW BRN XFTJ 16 3?2G QK3RETURN [RETURNA MACRO 7 3BCW LDN 7 3 13 3BXG LDX 6 EXEC1(2) [TSN 13 3CC6 OPENSYS XBRKERR,SERIAL,GENERAL 4 3CWQ NREC 6 3DBB STEP 8 3DW2 BZE 3 POOL 9 3F*L BXU 6 1(3),NREC 8 3FT= LDX 0 2(3) 17 3G#W BZE 0 POOL [BRANCH IF POOL TAPE 7 3GSG READAGAIN 11 3H#6 SETNCORE 12,3,FILE,FABSNB 10 3HRQ HUNT 1,FILE,FRB 9 3J?B LDN 0 A1+2(1) 9 3JR2 LDN 1 A1+1(3) 15 3K=L MOVE 0 3 [USER NAME 17 3KQ= STOZ A1+4(3) [ZEROISE LOCAL NAME 9 3L9W LDN 0 A1+4(3) 9 3LPG LDN 1 A1+5(3) 7 3M96 MOVE 0 5 7 3MNQ NGN 0 1 9 3N8B STO 0 A1+10(3) 13 3NN2 STO 6 A1+11(3) [TSN 8 3P7L LDN 0 10 8 3PM= STO 0 A1(3) 17 3Q6W LDN 0 #2000 [INDICATE TSN GIVEN 9 3QLG DSA 0 ATYPE(3) 9 3R66 MFREE FILE,FRB 7 3RKQ BACKSPACE 8 3S5B BRN THU 4 3SK2 POOL 7 3T4L CLOSETOP 4 3Y2B XUP 5 3YG2 UP 6 3Y_L QK4RETURN 17 3_F= LDN 7 4 [ENTRY FROM LIBSEC 17 3_YW LDN 5 0 [X4 ALREADY SET UP 11 42DG SETNCORE 3,1,FLIB,FTJOB 8 42Y6 STEPAGAIN 1 10 435# ...TAC1 HUNT 1,FLIB,FTJOB 8 43=G ... LDN 0 2(3) 8 43CN ... LDN 1 A1(1) 7 43JW ... MOVE 0 3 10 43Q4 ...TAC ACROSS RETURNIT,1 6 43XB QK5RETURN 7 44C2 LDN 7 5 11 44WL SETNCORE 18,3,FILE,FABSNB 7 45B= STEPAGAIN 13 45TW LDX 6 1(3) [TSN 8 46*G LDX 5 5(3) 17 46T6 SLL 5 1 [X5 -VE IF TEMP TAPE 10 47#Q HUNT 1,FILE,FABSNB 8 47SB LDN 0 10 16 48#2 BPZ 5 PN1 [J IF NOT TEMP 7 48RL ADN 0 6 9 49?= PN1 STO 0 HDREC(1) 8 49QW LDN 0 #2001 9 4==G DSA 0 ATYPE(1) 8 4=Q6 LDN 0 2(3) 9 4?9Q LDN 1 A1+1(1) 17 4?PB MOVE 0 3 [MOVE IN USER NAME 10 4#92 HUNT 3,FILE,FABSNB 17 4#NL BPZ 5 PN2 [J IF NOT TEMP TAPE 10 4*8= HUNT 1,FLIB,FTJOB 8 4*MW LDN 0 A1(1) 9 4B7G LDN 1 A1+4(3) 21 4BM6 MOVE 0 3 [MOVE IN JOB NAME AS LEFT BY UNLOAD 7 4C6Q LDN 0 1 9 4CLB STO 0 A1+7(3) 9 4D62 STO 0 A1+8(3) 8 4DKL SMO FX1 8 4F5= LDX 0 NLANG 17 4FJW STO 0 A1+9(3) [TEMP DIR LANGUAGE 7 4G4G ADN 3 6 4 4GJ6 PN2 17 4H3Q STOZ A1+4(3) [ZEROISE LOCAL NAME 9 4HHB LDN 0 A1+4(3) 9 4J32 LDN 1 A1+5(3) 7 4JGL MOVE 0 5 7 4K2= NGN 0 1 9 4KFW STO 0 A1+10(3) 15 4K_G STO 6 A1+11(3) [STORE TSN 8 4LF6 BNG 5 PN3 8 4LYQ LDN 5 12 8 4MDB ALTLEN 3,5 11 4MY2 SETNCORE 3,1,FLIB,FTJOB 4 4NCL PN3 10 4NX= HUNT 3,FILE,FABSNB 10 4PBW HUNT 1,FLIB,FTJOB 9 4PWG LDN 0 A1+1(3) 8 4QB6 LDN 1 A1(1) 18 4QTQ MOVE 0 3 [MOVE IN USER NAME FOR 13 4R*B OPENDIR XBRKERR,GENERAL,ERASING 10 4RGJ ... HUNT 3,FILE,ENT 9 4RMQ ... LDX 6 ESER(3) 8 4RSY ... SSEARCH ,6,1 8 4S26 ... LDX 5 5(3) 9 4S7# ... ANDN 5 #7777 8 4S#L BRN TAC 4 4SS= TOP 10 4T?W HUNT 3,FILE,FABSNB 18 4TRG LDX 0 ATYPE(3) [TEST IF NAMED WORKTAPE 8 4W?6 ANDN 0 #200 8 4WQQ BZE 0 TOPA 18 4X=B LDN 5 1 [TEMP DIR TO BE OPENED 4 4XQ2 TOPA 12 4Y9L OPENDIR YBRKIN,GENERAL,QUERY 9 4YP= TESTREPN OK,TT1 10 4_8W HUNT 3,FILE,FABSNB 10 4_NG HUNT 1,FILE,ENT 9 5286 LDX 0 ATYPE(3) 8 52MQ ANDN 0 #200 20 537B BNZ 0 OK1 [DO NOT CHECK IF NAMED WORKTAPE 9 53M2 LDX 0 ELOC1(1) 21 546L BZE 0 OK1 [OR IF DIRECTORY ENTRY HAS NO NAME 9 54L= SMO HDREC(3) 9 555W LDX 0 A1-6(3) 18 55KG BZE 0 OK1 [OR IF NO NAME SPECIFIED 19 5656 SMO HDREC(3) [CHECK IF SPECIFIED GEN NO IS 20 56JQ LDX 0 A1-2(3) [SAME AS THAT IN DIRECTORY ENTRY 8 574B BNG 0 TOPA1 7 57J2 SLL 0 1 16 583L BNG 0 TOPA1 [J IF REL GEN NO 16 58H= BZE 0 TOPA1 [OR IF NO GEN NO 7 592W SRL 0 1 8 59GG ANDN 0 #7777 10 5=26 BXU 0 EGEN(1),TOPA2 20 5=FQ TOPA1 SMO HDREC(3) [CHECK IF SPECIFIED REEL NO IS 20 5=_B LDX 0 A1-3(3) [SAME AS THAT IN DIRECTORY ENTRY 8 5?F2 ANDN 0 #777 10 5?YL BXE 0 EREEL(1),OK1 5 5#D= TOPA2 16 5#XW CLOSETOP [CLOSE DIRETORY 9 5*CG SETREP DISAGREE 4 5*X6 TT1 16 5BBQ ERRTEST 3,TERR,DISAGREE,VRYWRONG,NOUSER,WRGEN 8 5BWB BZE 5 TRYT 9 5CB2 TESTREPN NAME,TT 9 5CTL SETREP NOFILE 12 5D*= TT ERRTEST 3,TERR,NAME,NOFILE 9 5DSW T2 GEOERR 1,OPENDIR 4 5F#G TRYT 9 5FS6 TESTREPN NOFILE,TT 10 5G?Q HUNT 3,FILE,FABSNB 18 5GRB LDX 6 ALOGLEN(3) [LENGTHEN FOR TEMP DIR 7 5H?2 ADN 6 6 11 5HQL ALTLEN 3,6,FILE,FABSNB 10 5J== HUNT 3,FILE,FABSNB 9 5JPW SBX 6 HDREC(3) 7 5K9G SBN 6 6 8 5KP6 BZE 6 PA1 9 5L8Q SMO HDREC(3) 8 5LNB LDN 0 A1(3) 7 5M82 LDX 1 0 7 5MML ADN 1 6 7 5N7= SMO 6 7 5NLW MOVE 0 0 9 5P6G PA1 SMO HDREC(3) 9 5PL6 LDN 0 A1-6(3) 7 5Q5Q LDX 1 0 7 5QKB ADN 1 6 7 5R52 MOVE 0 6 7 5RJL CJOBLOCK 2 16 5S4= LDN 0 JNAME(2) [MOVE IN JOB NAME 9 5SHW SMO HDREC(3) 9 5T3G LDN 1 A1-6(3) 7 5TH6 MOVE 0 3 7 5W2Q LDN 0 1 8 5WGB STO 0 3(1) 8 5X22 STO 0 4(1) 8 5XFL SMO FX1 8 5X_= LDX 0 NLANG 8 5YDW STO 0 5(1) 7 5YYG LDN 0 6 9 5_D6 ADS 0 HDREC(3) 17 5_XQ LDN 5 1 [INDICATE SECOND TIME 15 62CB BRN TOP [TRY AGAIN 4 62X2 OK1 7 63BL LDX 0 7 7 63W= SBN 0 3 16 64*W BZE 0 XNOTRAPCH [J IF K3 ENTRY 10 64TG HUNT 3,FILE,ENT 10 65*6 LDX 0 EINCLOOK(3) 21 65SQ BPZ 0 OK3 [J IF TAPE NOT BEING USED AS DUMPTAPE 5 66#B PDUMP 15 66S2 CLOSETOP [DIRECTORY 16 67?L CLOSETOP [SYSTEM.SERIAL 9 67R= LDX 0 AWORK3(2) 15 68=W BNZ 0 PDUMP1 [IF NECESSARY 18 68QG CLOSETOP [CLOSE :SYSTEM.INCINDEX 5 69=6 PDUMP1 9 69PQ COMERR HDINUSE 4 6=9B OK3 19 6=P2 TOPFCB 3 [FIND USERNAME OF DIRECTORY 8 6?8L LDX 2 FX1 18 6?N= LDX 4 FME1(3) [AND CHECK FOR :DUMPER 9 6#7W LDX 5 FME2(3) 9 6#MG LDX 6 FME3(3) 10 6*76 TXU 4 NDUMPER(2) 10 6*LQ TXU 5 NDUMPER+1(2) 10 6B6B TXU 6 NDUMPER+2(2) 16 6BL2 BCS PROCOK [JUMP IF UNEQUAL 9 6C5L LDX 4 ELOC1(1) 9 6CK= LDX 5 ELOC2(1) 9 6D4W LDX 6 ELOC3(1) 16 6DJG TXU 4 NPROCTP(2) [CHECK LOCAL NAME 16 6F46 TXU 5 NPROCTP+1(2) [FOR GEO3PROCTAPE 10 6FHQ TXU 6 NPROCTP+2(2) 16 6G3B BCS PROCOK [JUMP IF UNEQUAL 8 6GH2 SMO FX2 9 6H2L LDX 0 AWORK3 18 6HG= BZE 0 PROC2 [JUMP IF INCINDEX OPEN 10 6H_W # OPEN :SYSTEM.INCINDEX 7 6JFG CLOSETOP 7 6J_6 CLOSETOP 14 6KDQ OPENSYS XBRKERR,INCINDEX,READ,QUERY 9 6KYB TESTREP OK,PROC1 11 6LD2 TESTREPN CLUDGE,XINCERR 9 6LXL COMERR ERG3PT 5 6MC= PROC1 18 6MWW STOZ AWORK3(2) [SET INCINDEX OPEN MARKER 13 6NBG OPENSYS XBRKERR,SERIAL,GENERAL 7 6NW6 LDN 5 0 8 6P*Q BRN TOPA 5 6PTB PROC2 10 6Q*2 HUNT 1,FILE,ENT 14 6QSL LDX 4 ESER(1) [GET TSN 19 6R#= TSININC PDUMP,4,2 [AND SEARCH :SYSTEM.INCINDEX 5 6RRW PROCOK 17 6S?G SETUPTAB [REMEMBER POSITION IN 18 6SR6 TABSET [DIRECTORY FOR RETURNIT 17 6T=Q CHECKTRAPS [ACOMMUNE7 => TRAPS 15 6TQB LDX 0 ACOMMUNE7(2) [X0 => TRAPS 12 6W=2 ANDN 0 CERASET [ 17 6WPL BNZ 0 XTRAPSET [J IF ERASE TRAP SET 16 6X9= CLOSETOP [CLOSE DIRECTORY 17 6XNW CLOSETOP [AND :SYSTEM SERIAL 9 6Y8G LDX 0 AWORK3(2) 15 6YN6 BNZ 0 XNOINC [IF NECESSARY 18 6_7Q CLOSETOP [CLOSE :SYSTEM.INCINDEX 5 6_MB XNOINC 18 7272 COMERR ERNOTRAP [OUTPUT ERROR MESSEGE ETC 12 72LL XTRAPSET [ 21 736= TABULATE [RESET READ POINTERS FOR DIRECTORY 18 73KW FREETAB [NO MORE TABS REQUIRED 12 745G XNOTRAPCH [ 7 74K6 LDX 0 7 7 754Q SBN 0 1 8 75JB BNZ 0 NLOG 8 7642 LOGACCESS 4 4 76HL NLOG 9 773= GETACT ACTDOC 9 77GW LDX 3 BPTR(2) 17 782G LINKSET 3,SLINK1(1) [LINK FOR K8RETURN 10 7?CW HUNT 1,FILE,ENT 8 7?XG CHAIN 1,3 9 7#C6 STO 7 ACC7(3) 7 7#WQ LOCK 3 9 7*BB CHANGEFILE 3,0,1 8 7*W2 CHANGEFILE 3 7 7B*L UNLOCK 3 7 7BT= LDX 2 3 6 7C#W FPUT 7 7CSG LDX 0 7 7 7D#6 SBN 0 1 15 7DRQ BZE 0 OK4 [J IF COMMAND 4 7F?B OK5 6 7NKQ QK10RETURN 5 7T2B UP 4 7TG2 OK4 9 7T_L LDX 0 AWORK3(2) 15 7WF= BNZ 0 OKEND [IF NECESSARY 18 7WYW CLOSETOP [CLOSE :SYSTEM.INCINDEX 5 7XDG OKEND 6 7XY6 ENDCOM 6 7YCQ QK8RETURN 6 7YXB QK7RETURN 9 7_C2 GEOERR 1,NOTRET 4 7_WL # 4 889Q TERR 7 88PB SBN 7 3 8 8992 BNZ 7 TERR1 9 89NL GEOERR 1,RETURNA 5 8=8= TERR1 7 8=MW CLOSETOP 9 8?7G LDX 0 AWORK3(2) 16 8?M6 BNZ 0 TERR2 [IF NECESSARY 19 8#6Q CLOSETOP [CLOSE :SYSTEM.INCINDEX 5 8#LB TERR2 6 8*62 ENDCOM 5 8*KL WRONGREP 10 8B5= GEOERR 1,WRONGREP 5 8BJW XINCERR 9 8C4G GEOERR 1,RTNOINC 5 8CJ6 XBRKERR 9 8D3Q GEOERR 1,BREAKIN 5 8DHB YBRKIN 7 8F32 CLOSETOP 7 8FGL SBN 7 1 8 8G2= BNZ 7 X1 9 8GFW LDX 0 AWORK3(2) 9 8G_G BNZ 0 XCOMBK 7 8HF6 CLOSETOP 5 8HYQ XCOMBK 7 8JDB COMBRKIN 4 8JY2 X1 8 8KCL BRN OK5 10 8KX= MENDAREA 50,K99RETURN 4 8LBW #END 6 ____ ...631562550002