{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DEADA867)}}
====== DEADA867 ======
(George Source)
**Macros used:** [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:CONSERNO|CONSERNO]], [[george:macro:DELETE|DELETE]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHKILL|FSHKILL]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MTINFORM|MTINFORM]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:STEP|STEP]], [[george:macro:STEPAGAIN|STEPAGAIN]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTUNPR|TESTUNPR]], [[george:macro:UNLOAD|UNLOAD]], [[george:macro:UP|UP]]
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