12 22FL #LIS K0RETURNIT>K0LIBRARY>K0ALLGEO 15 22_= #SEG RETURNIT65 [N.R.BOULT 4 2357 ...[ 15 2394 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 23#_ ...[ 10 23DW 8HRETURNIT 13 23YG SEGENTRY K1RETURNIT,QK1RETURNIT 4 2435 ...# 19 245N ... FSHENTRY K2RETURNIT,QK2RETURNIT,QK2RETURNIT,QK2RETURNIT 10 248? ... FSHENTRY K3RETURNIT,,, 10 24=W ... FSHENTRY K4RETURNIT,,, 4 24*F ...# 8 24D6 TLANG 4HC1 12 24XQ SPOOL 12HPOOL TAPE ,0,0,0 7 254Y ...#UNS JMODGCR 4 25=6 ...#SKI 9 25CB ...SBITS #21560000 9 25X2 OPADD #10000000 6 26BL QK1RETURNIT 4 26W= XBEG 10 27*W HUNT 3,FILE,ENT 9 27TG LDX 6 ESER(3) 17 28*6 BZE 5 RET [J. IF NOT REQUESTED 8 28SQ READAGAIN 1 10 29#B HUNT 3,FILE,FRB 10 29S2 NAME 3,FILE,FWB 8 2=?L LDCT 0 #400 17 2=R= ORS 0 A1+5(3) [MARK TO-BE-RETURNED 7 2?=W REWRITE 1 9 2?QG MFREE FILE,FWB 10 2#=6 HUNT 3,FILE,ENT 10 2#PQ NAME 3,FILE,FWB 8 2*9B LDCT 0 #40 17 2*P2 ORS 0 EINF2(3) [MARK TO-BE-ERASED 7 2B8L REWRITE 9 2BN= MFREE FILE,FWB 16 2C7W BNG 7 RETB [J. IF RETURNB 15 2CMG CLOSETOP [DIRECTORY 14 2D76 CLOSETOP [SERIAL 7 2DLQ SUICIDE 4 2F6B RETB 5 2FL2 UP 4 2G5L RET 19 2GK= LDX 0 CPPTR(2) [TAPE ALLOCATED TO ACTIVITY 8 2H4W BNZ 0 NLD 15 2HJG FINDPEREC 3,APTSER,6 [TAPE LOADED? 15 2J46 BNG 3 NLD [J. IF NOT 9 2JHQ JALLOC 3,XALLOC 16 2K3B SETALLOC 3 [MARK ALLOCATED 9 2KH2 STO 3 CPPTR(2) 8 2L2L NLD READAGAIN 1 10 2LG= HUNT 3,FILE,FRB 9 2L_W LDX 5 A1+5(3) 19 2MFG STO 5 AWORK1(2) [SAVE WD5 OF SYS.SER RECORD 9 2M_6 ANDX 5 OPADD(1) 17 2NDQ BNZ 5 XDD [J.IF TO-BE-DEADED 10 2NYB MHUNT 1,FILE,ENT 9 2PD2 LDX 5 ELOC1(1) 16 2PXL LDX 4 ENUSE(1) [NO OF RECORDS 17 2QC= BZE 4 XDEL2 [J IF NO TRAP RECORDS 4 2QWW XDEL 18 2RBG STEP [POSITION AT END OF ENTRY 8 2RW6 BCT 4 XDEL 10 2S*Q MHUNT 1,FILE,ENT 18 2STB LDX 4 ENUSE(1) [NUMBER OF TRAP RECORDS 5 2T*2 XDEL2 7 2TSL ADN 4 1 5 2W#= XDEL1 6 2WRW DELETE 18 2X?G BCT 4 XDEL1 [DELETE ENTRY BACKWARDS 17 2XR6 LONGON #12,5 [NAME NOW AVAILABLE 6 2Y2Y ...WASDONINA 10 2Y=Q MHUNT 3,FILE,FRB 10 2YQB NAME 3,FILE,FWB 17 2_=2 STOZ A1+2(3) [ZEROISE USER NAME 9 2_PL STOZ A1+3(3) 9 329= STOZ A1+4(3) 7 32=_ ...#UNS JMODGCR 4 32#N ...( 21 32BC ... MBC 3,GSERBRTURN,GSERBDEAD,GSERBNAMWK,GSERBUSWR,GSERBBCKMP 10 32D6 ... FC 3,GSERFCTREQ 4 32FT ...) 7 32HJ ...#UNS JMODGCR 4 32K? ...#SKI 4 32M2 ...( 9 32NW LDX 0 SBITS(1) 21 338G ANDS 0 A1+5(3) [WORKTAPE,WRONGED,QUERY STATUS LEFT 4 33D# ...) 15 33N6 REWRITE 1 [SERIAL ENTRY 9 347Q MFREE FILE,FWB 9 34MB LDX 5 AWORK1(2) 7 3572 SLL 5 1 9 35LL LDX 0 CPPTR(2) 8 366= BZE 0 NTUP 8 36KW BNG 5 WKTP 17 375G DFSET ,POOL [MARK AS POOL TAPE 8 37K6 BRN NTUP 16 384Q WKTP DFSET ,WORK [MARK AS WORKFILE 14 38JB NTUP BNG 7 RB [RETURNB? 7 3942 CLOSETOP 7 39HL CLOSETOP 16 3=3= BNG 5 WT [J. IF WORK TAPE 7 3=GW LDN 0 3 7 3?2G SBX 0 7 14 3?G6 BZE 0 NWT [RETURNA 5 3?_Q UPBUG 16 3#FB CALL 4 XBUDG [UPDATE BUDGETS 10 3#_2 NWT CONSERNO 6,ACOMMUNE1 13 3*DL OUTPARAM ACOMMUNE1(2),ACOMMUNE2 18 3*Y= MTINFORM GRET [NOW A POOL TAPE MESSAGE 9 3BCW LDX 0 CPPTR(2) 15 3BXG BZE 0 NUNL [TAPE NOT UP 15 3CC6 BPZ 7 TSTQ [NOT RETURNB 7 3CWQ CLOSETOP 7 3DBB CLOSETOP 18 3DW2 STO 7 AWORK2(2) [INDICATE FILES CLOSED 8 3F*L ...TSTQ LDCT 0 #004 9 3FT= ANDX 0 AWORK1(2) 18 3G#W BNZ 0 UNLT [J. IF IN QUERY STATUS 9 3GSG LDX 0 CPPTR(2) 16 3H#6 LMODEQ 0,1 [CURRENT MODE 16 3HRQ DFLOAD 0,SMODE,2 [STANDARD MODE 7 3J?B TXU 1 2 18 3JR2 BCS UNLT [UNLOAD IF NOT STANDARD 8 3K=L LDX 1 FX1 8 3KQ= LDX 2 FX2 9 3L9W JWPR ,RENMT 14 3LPG BRN UNLT [NO WPR 5 3M96 RENMT 11 3MNQ SETNCORE 7,3,AONBS,GREN 9 3N8B LDN 0 SPOOL(1) 9 3NN2 LDN 1 A1+1(3) 7 3P7L MOVE 0 6 8 3PM= STO 6 A1(3) 10 3Q6W STOZ ACOMMUNE2(2) 17 3QLG DOWN RENAMEMT,3 [TO REHEAD THE TAPE 14 3R66 BRN UNLT [NO WPR 17 3RKQ TESTREP TAPEFAIL,XFAIL [FAIL ON RELABELLING 9 3S5B TESTREPN OK,UNLT 9 3SK2 UNLOAD ,,,RET 8 3T4L BRN XLONG 5 3TJ= XFAIL 10 3W3W CONSERNO 6,ACOMMUNE1 13 3WHG OUTPARAM ACOMMUNE1(2),ACOMMUNE2 18 3X36 MTINFORM FAILPT [INFORM TAPE NOT REHEADED 4 3XGQ UNLT 15 3Y2B UNLOAD ,,,UNL [UNLOAD TAPE 8 3YG2 XLONG LONGON #61,6 14 3Y_L NUNL BNG 7 RTNB [RETURNB 7 3_F= SUIC SUICIDE 4 3_YW RTNB 15 42DG LDX 0 AWORK2(2) [FILES OPEN? 8 42Y6 BZE 0 RETB 10 43CQ OPFL HUNT 1,AONBS,GLIST 8 43XB LDX 0 A1(1) 7 44C2 SBN 0 1 17 44WL BZE 0 SUIC [ALL TAPES DEALT WITH 13 45B= OPENSYS XBRKERR,SERIAL,GENERAL 14 45TW OPEN XBRKERR,GENERAL,ERASING,QUERY 9 46*G TESTREP OK,RETB 7 46T6 CLOSETOP 7 47#Q SUICIDE 4 47SB WT 18 48#2 STO 5 AWORK2(2) [INDICATE FILES CLOSED 8 48RL BRN TSTUP 4 49?= RB 16 49QW STOZ AWORK2(2) [FILES STILL OPEN 8 4==G BPZ 5 UPBUG 9 4=Q6 TSTUP LDX 0 CPPTR(2) 14 4?9Q BZE 0 NUNL [NOT UP 9 4?PB LDX 0 AWORK2(2) 19 4#92 BNZ 0 UNLT [J.IF FILES ALREADY CLOSED 15 4#NL CLOSETOP [DIRECTORY 14 4*8= CLOSETOP [SERIAL 16 4*MW STO 7 AWORK2(2) [FILES NOW CLOSED 8 4B7G BRN UNLT 9 4BM6 ...XDD DOWN DEADA,2 16 4C6Q BNG 7 OPFL [J. IF RETURNB 9 4CLB LDX 0 AWORK1(2) 7 4D62 SLL 0 1 16 4DKL BNG 0 SUIC [J. IF WORKTAPE 16 4F5= CALL 4 XBUDG [UPDATE BUDGETS 7 4FJW SUICIDE 4 4G4G # 4 4GJ6 # 5 4H3Q XALLOC 10 4HHB LONGSET #61,WTSTYLE,6 8 4J32 READAGAIN 1 10 4JGL HUNT 3,FILE,FRB 10 4K2= NAME 3,FILE,FWB 8 4KFW LDX 0 GSIGN 9 4K_G ORS 0 A1+5(3) 19 4LF6 LDN 0 1 [UPDATE COUNT OF REQUESTERS 9 4LYQ ADS 0 A1+5(3) 7 4MDB REWRITE 1 9 4MY2 MFREE FILE,FWB 10 4NCL MHUNT 3,FILE,ENT 10 4NX= NAMETOP 3,FILE,FWB 16 4PBW LDCT 0 #40 [TO BE RETURNED 9 4PWG ORS 0 EINF2(3) 7 4QB6 REWRITE 9 4QTQ MFREE FILE,FWB 11 4R*B SETNCORE 12,3,FILE,FABSNB 8 4RT2 LDN 0 #2001 9 4S#L ORS 0 ATYPE(3) 8 4SS= LDN 0 10 8 4T?W STO 0 A1(3) 7 4TRG TOPFCB2 2 8 4W?6 ADN 2 FME1 8 4WQQ ADN 3 A1+1 18 4X=B MOVE 2 3 [USER NAME OF DIRECTORY 8 4XQ2 STOZ 3(3) 8 4Y9L LDN 2 3(3) 8 4YP= LDN 3 4(3) 16 4_8W MOVE 2 5 [ZERO LOCAL NAME 7 4_NG LDN 0 1 16 5286 NGS 0 5(3) [RETENTION PERIOD 13 52MQ STO 6 6(3) [TSN 15 537B CLOSETOP [DIRECTORY 14 53M2 CLOSETOP [SERIAL 19 546L LONGSTOP XBRKERR [WAIT FOR TAPE TO BE FREED 13 54L= OPENSYS XBRKERR,SERIAL,GENERAL 19 555W SSEARCH ,6 [FIND RECORD IN SYSTEM.SERIAL 14 55KG OPENDIR XBRKERR,GENERAL,QUERY,ERASING 9 5656 TESTREPN OK,XGEO 10 56JQ MFREE FILE,FABSNB 16 574B READAGAIN 1 [SERIAL RECORD 10 57J2 MHUNT 3,FILE,FRB 10 583L NAME 3,FILE,FWB 21 58H= SSCOR A1(3),DEC [SUBTRACT 1 FROM CNT OF REQUESTERS 9 592W LDX 5 A1+5(3) 8 59GG ANDN 5 #7777 7 5=FQ REWRITE 1 9 5=_B MFREE FILE,FWB 8 5?F2 ... BRN XBEG 8 5#XW # SUBROUTINES 4 5*CG # 5 5*X6 XBUDG 8 5BBQ SBX 4 FX1 11 5BWB SETNCORE 4,3,FILE,FABSNB 8 5CB2 ADN 3 A1+1 10 5CTL HUNT 2,FLIB,FTJOB 8 5D*= ADN 2 A1 7 5DSW MOVE 2 3 7 5F#G SBN 3 1 7 5FS6 LDN 0 4 8 5G?Q STO 0 0(3) 8 5GRB ... OPENBUDO XNOUS 7 5H?2 NGN 5 1 10 5HQL BUDGINCR GSPACEMT,5 7 5J== CLOSBUDG 8 5JPW ...XNOUS ADX 4 FX1 7 5K9G EXIT 4 0 4 5KP6 # 7 5L8Q # GEOERRS 5 5LNB XBRKERR 9 5M82 GEOERR 1,BRKIN 5 5MML WTSTYLE 9 5N7= GEOERR 1,WTSTYLE 4 5NLW XGEO 9 5P6G GEOERR 1,NOUSER 11 5PL6 MENDAREA 50,K99RETURNIT 4 5Q5Q #END 8 ____ ...63062061000200000000