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