14 22FL #OPT K0DEADA=K0LIBRARY>K0ALLGEO>K0GREATGEO 7 22_= #LIS K0DEADA 13 23DW SEG DEADA,1,N.R.BOULT,LIBRARY 4 23L4 ...[ 15 23R= ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 23YG # 11 24D6 SEGENTRY K1DEADA,QK1DEADA 11 24XQ SEGENTRY K2DEADA,QK2DEADA 7 252* ...[ CONSTANTS 4 254Y ...[ 7 257H ...NLANG 4HC1 4 25=6 ...[ 4 25#P ...[ 5 25CB QK1DEADA 17 25X2 # K1DEADA DEADS A TAPE ALREADY MARKED TO BE DEADED 17 26BL # :SYSTEM.SERIAL IS POSITIONED AFTER RECORD FOR TAPE 17 26W= # COUNT OF REQUESTERS IS 0 OR 1(CURRENT ACTIVITY) 20 27*W # IF ALLOCATED, A POINTER TO THE DEVICE LIST IS HELD IN CPPTR 7 27TG LDN 0 1 15 28*6 STO 0 AWORK2(2) [ENTRY MARKER 11 28SQ SETNCORE 18,3,FILE,FABSNB 7 29#B STEPAGAIN 10 29S2 MHUNT 2,FILE,FABSNB 8 2=?L LDN 0 #2001 15 2=R= DSA 0 ATYPE(2) [SYNTAX BITS 8 2?=W LDN 0 10 8 2?QG LDX 5 5(3) 7 2#=6 SLL 5 1 8 2#PQ BPZ 5 ORD 7 2*9B ADN 0 6 4 2*P2 ORD 14 2B8L STO 0 A1(2) [HEADER 8 2BN= LDN 0 2(3) 9 2C7W LDN 1 A1+1(2) 15 2CMG MOVE 0 3 [USER NAME 8 2D76 BPZ 5 ORD1 10 2DLQ HUNT 1,FLIB,FTJOB 8 2F6B LDN 0 A1(1) 9 2FL2 LDN 1 A1+4(2) 7 2G5L MOVE 0 3 7 2GK= LDN 0 1 9 2H4W STO 0 A1+7(2) 9 2HJG STO 0 A1+8(2) 8 2J46 SMO FX1 8 2JHQ LDX 0 NLANG 9 2K3B STO 0 A1+9(2) 7 2KH2 ADN 2 6 4 2L2L ORD1 9 2LG= STOZ A1+4(2) 9 2L_W LDN 0 A1+4(2) 9 2MFG LDN 1 A1+5(2) 16 2M_6 MOVE 0 5 [CLEAR LOCAL NAME 7 2NDQ LDN 0 1 16 2NYB NGS 0 A1+10(2) [RETENTION PERIOD 8 2PD2 LDX 0 1(3) 13 2PXL STO 0 A1+11(2) [TSN 8 2QC= SMO FX2 9 2QWW STO 0 AWORK1 14 2RBG OPENDIR XBRKERR,GENERAL,QUERY,ERASING 9 2RW6 TESTREP OK,OKDIR 10 2S*Q TESTREP NOFILE,SDEL1 10 2STB TESTREP NOUSER,SDEL1 9 2T*2 GEOERR 1,DEADREP 5 2TSL QK2DEADA 10 2W#= # ENTRY FROM RETURNIT 15 2WRW STOZ AWORK2(2) [ENTRY MARKER 13 2X?G STO 6 AWORK1(2) [TSN 5 2XR6 OKDIR 10 2Y=Q MHUNT 3,FILE,ENT 9 2YQB LDX 4 ENUSE(3) 17 2_=2 BZE 4 RELOOP2 [J IF NO TRAP RECORDS 7 2_PL LDX 5 4 5 329= RELOOP 6 32NW STEP 9 338G BCT 5 RELOOP 5 33N6 RELOOP2 7 347Q ADN 4 1 5 34MB RELOOP1 6 3572 DELETE 9 35LL BCT 4 RELOOP1 4 366= SDEL 15 36KW CLOSETOP [DIRECTORY 5 375G SDEL1 18 37K6 CALL 5 MONDEAD [OUTPUT OPERATOR MESSAGE 19 384Q DELETE [RECORD FROM :SYSTEM.SERIAL 7 38JB CLOSETOP 9 3942 LDX 0 CPPTR(2) 8 39HL BZE 0 SUIC 9 3=3= UNLOAD ,,,UNL 4 3=GW SUIC 16 3?2G LDX 0 AWORK2(2) [J. IF K2 ENTRY 8 3?G6 BNZ 0 SUIC1 5 3?_Q UP 5 3#FB SUIC1 8 3#_2 FSHCODE AORB 4 3*DL ( 21 3*Y= TESTUNPR NOTIFA [ OMIT FSHKILL IF NO PAIR IN M/C A 7 3BCW FSHKILL 5 3BXG NOTIFA 4 3CC6 ) 7 3CWQ SUICIDE 5 3DBB XBRKERR 9 3DW2 GEOERR 1,DEADBRK 5 3F*L MONDEAD 8 3FT= SBX 5 FX1 8 3G#W LDX 2 FX2 9 3GSG LDX 7 AWORK1(2) 10 3H#6 CONSERNO 7,ACOMMUNE1 13 3HRQ OUTPARAM ACOMMUNE1(2),ACOMMUNE2 8 3J?B MTINFORM GDEAD 8 3JR2 ADX 5 FX1 7 3K=L EXIT 5 0 10 3KQ= MENDAREA 50,K99DEADA 4 3L9W #END 6 ____ ...646020760001