{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: ARCHIVNW83)}}
====== ARCHIVNW83 ======
(George Source)
**Macros used:** [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BBUS|BBUS]], [[george:macro:BXU|BXU]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:DELETE|DELETE]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FNORM|FNORM]], [[george:macro:GEOERR|GEOERR]], [[george:macro:MFREE|MFREE]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:NAME|NAME]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OPENRELN|OPENRELN]], [[george:macro:OUTMON|OUTMON]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:REPALLER|REPALLER]], [[george:macro:REWIND|REWIND]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPARAPAS|SPARAPAS]], [[george:macro:STEP|STEP]], [[george:macro:TESTNAMX|TESTNAMX]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TOPFCB|TOPFCB]]
22FL #LIS K0ARCHIVE
22^= SEG ARCHIVNW,83,EX-COMPUTEL,DUMPSYS
23DW SEGENTRY K1ARCHIVNW,X1ARCHIVE
23YG SEGENTRY K2ARCHIVNW,X2ARCHIVE
24D6 #
24XQ # THIS SEGMENT ENABLES A USER TO SPECIFY THAT CERTAIN OF HIS FILES
25CB # SHOULD BE THROWN OFF-LINE
25X2 # IT IS NOT POSSIBLE TO "CANCEL" THIS SPECIFICATION.
26BL #
26W= # THERE ARE TWO ENTRY POINTS: X1ARCHIVE FOR /ARCHIVE/
27*W # X2ARCHIVE FOR /CANCEL ARCHIVE/
27TG #
28*6 NOTBIT0 #57777777
28SQ NOTBIT1 #57777777
29#B TYPEBITS #32202040
29S2 MULTIBITS #06000000
2=?L ONE +1
2=R= XLAB2 GEOERR 1,ARCHIVE?
2?=W XARCHERY +ERARCH
2?QG XARCHERZ +JPARMIS
2#=6 XINUSE 7HNOT YET
2#PQ XNOTON 10HNOT ONLINE
2*9B XERBOK3 +ERBOK3
2*P2 XEBPNO +EBPNO
2B8L MONCAT #40
2BN= ONERR
2C7W SBX 7 FX1
2CMG SMO FX1
2D76 LDX 1 0(1)
2DLQ ERRORX 1
2F6B ADX 7 FX1
2FL2 EXIT 7 0
2G5L RCHECKFREE
2GK= SBX 7 FX1
2H4W SETNCORE 6,4,FILE,FLOCNB
2HJG MHUNT 3,FILE,ENT
2J46 ADN 4 A1
2JHQ ADN 3 ELOC1
2K3B MOVE 3 5
2KH2 LDX 0 ELAN-ELOC1(3)
2L2L SMO 4
2LG= STO 0 5
2L^W OPENRELN XLAB2,READR,REPLY,NOWAIT,LEAVE,DIROPEN,ERASING
2MFG TESTREPN OK,PE2
2M^6 TOPFCB 2
2NDQ LDX 0 FWAITCOUNT(2)
2NYB BNZ 0 PE1
2PD2 P20 LDX 0 FREEZECOUNT(2)
2PXL BNZ 0 PE1
2QC= P25 LDCT 0 #300
2QWW ADN 0 #400
2RBG ANDX 0 COMM(2)
2RW6 BNZ 0 PE1
2S*Q LDX 0 FCOMM(2)
2STB ANDX 0 #2000
2T*2 BNZ 0 PE1
2TSL LDX 0 CTOPEN(2)
2W#= SBN 0 1
2WRW BNZ 0 PE1
2X?G CLOSETOP
2XR6 READAGAIN
2Y=Q MHUNTW 1,FILE,FRB
2YQB NAME 1,BSTB,FULLB
2^=2 FULLBPASS 1,2
2^PL DELETE
329= MHUNTW 1,FILE,ENT
32NW NAME 1,FILE,FWB
338G LDX 0 ECOPS(1)
33N6 SRL 0 15
347Q SLL 0 15
34MB STO 0 ECOPS(1)
3572 REWRITE
35LL MHUNTW 1,FILE,FWB
366= NAME 1,FILE,ENT
36KW MFREE FILE,FLOCNB
375G PE0 ADX 7 FX1
37K6 EXIT 7 0
384Q PE1 CLOSETOP
38JB PE2 LDN 6 1
3942 MFREE FILE,FLOCNB
39HL ADX 7 FX1
3=3= EXIT 7 0
3=GW X1ARCHIVE
3?2G LDX 2 FX2
3?G6 STOZ AWRK2(2)
3?^Q SPARAPAS
3#FB MHUNT 3,CPB,CUNI
3#^2 LDX 5 ANUM(3)
3*DL BNG 5 REND
3*Y= BZE 5 RFREECUNI
3BCW NAMETOP 3,FILE,FNAME
3BXG FNORM
3CC6 MHUNT 3,FILE,FNAME
3CWQ NAMETOP 3,CPB,CUNI
3DBB TESTREP NAMEFORM,RFREECUNI
3DW2 MHUNT 3,FILE,FABSNB
3F*L BBUS 16,ATYPE(3),RNOTWORK
3FT= LDN 1 XARCHERY
3G#W CALL 7 ONERR
3GSG BRN RFREEFABSNB
3H#6 RNOTWORK
3HRQ OPENDIR XLAB2,GENERAL,QUERY
3J?B TESTREP OK,ROK1
3JR2 REPALLER
3K=L BRN RFREECUNI
3KQ= ROK1 MHUNT 3,FILE,ENT
3L9W NGN 6 1
3LPG LDX 0 ESER(3)
3M96 BNZ 0 RMESSAGE
3MNQ LDX 0 EUSE1(3)
3N8B BNZ 0 RMESSAGE
3NN2 LDX 0 TYPEBITS(1)
3P7L ANDX 0 EINF2(3)
3PM= BNZ 0 RMESSAGE
3Q6W LDX 0 ESVCT(3)
3QLG BNZ 0 RMESSAGE
3R66 LDN 6 2
3RKQ LDX 0 MULTIBITS(1)
3S5B ANDX 0 EINF1(3)
3SK2 BNZ 0 RMULTI
3T4L LDX 0 ECOPS(3)
3TJ= SLL 0 9
3W3W BZE 0 RMESS1
3WHG LDX 0 ECOPS(3)
3X36 SRL 0 15
3XGQ BZE 0 RMESS1
3Y2B LDN 6 1
3YG2 LDX 0 EINF2(3)
3Y^L BNG 0 RMESSAGE
3^F= LDN 6 0
3^YW BACKSPACE
42DG CALL 7 RCHECKFREE
42Y6 BRN RMESSAGE
43CQ RMULTI
43XB REWIND
44C2 RSTEP
44WL STEP
45B= BZE 3 RDIFF1
45TW LDX 0 ERES-A1(3)
46*G BNZ 0 RSTEP
46T6 MHUNTW 1,FILE,ENT
47#Q TESTNAMX 3,ELOC1(1),ELOC1-A1(3),RDIFF
47SB LDX 7 ELAN(1)
48#2 BXU 7 ELAN-A1(3),RDIFF
48RL LDN 7 1
49?= ADS 7 AWRK2(2)
49QW LDX 0 ECOPS-A1(3)
4==G SLL 0 9
4=Q6 BZE 0 RSTEP
4?9Q LDX 0 EINF2-A1(3)
4?PB BPZ 0 RSTEP1
4#92 NGN 0 4095
4#NL STO 0 AWRK2(2)
4*8= BRN RSTEP
4*MW RSTEP1
4B7G LDN 6 0
4BM6 LDX 0 ECOPS-A1(3)
4C6Q SRL 0 15
4CLB BZE 0 RSTEP
4D62 READAGAIN
4DKL MHUNTW 1,FILE,FRB
4F5= NAME 1,FILE,ENT
4FJW CALL 7 RCHECKFREE
4G4G MFREE FILE,ENT
4GJ6 BZE 6 RSTEP
4H3Q LDX 2 FX2
4HHB NGN 0 4095
4J32 STO 0 AWRK2(2)
4JGL BRN RSTEP
4K2= RDIFF
4KFW LDX 2 FX2
4K^G LDX 7 AWRK2(2)
4LF6 BZE 7 RSTEP
4LYQ RDIFF1
4MDB LDX 7 AWRK2(2)
4MY2 BPZ 7 RMESSAGE
4NCL LDN 6 1
4NX= RMESSAGE
4PBW LDX 1 FX1
4PWG LDX 5 XERBOK3(1)
4QB6 BZE 6 ROUT
4QTQ LDX 5 XEBPNO(1)
4R*B BNG 6 ROUT
4RT2 SBN 6 1
4S#L BNZ 6 RMESS1
4SS= SETNCORE 7,2,CPB,CUNI
4T?W LDX 7 MONCAT(1)
4TRG ADN 2 A1
4W?6 ADN 1 XINUSE
4WQQ MOVE 1 2
4X=B LDN 6 7
4XQ2 BRN RMESSOUT
4Y9L RMESS1
4YP= SETNCORE 7,2,CPB,CUNI,
4^8W LDX 7 MONCAT(1)
4^NG ADN 2 A1
5286 ADN 1 XNOTON
52MQ MOVE 1 3
537B LDN 6 10
53M2 RMESSOUT
546L OUTMON 6,A1,7,CPB,CUNI
54L= MFREE CPB,CUNI
555W BRN RCLOSE
55KG ROUT MONOUTX 5
5656 RCLOSE
56JQ CLOSETOP
574B MFREEW FILE,ENT
57J2 RFREEFABSNB
583L MFREE FILE,FABSNB
58H= RFREECUNI
592W MFREE CPB,CUNI
59GG BRN RENDCOM
5=26 REND
5=FQ LDN 1 XARCHERZ
5=^B CALL 7 ONERR
5?F2 RSOME
5?YL MFREE CPB,CUNI
5#D= RENDCOM
5#XW ENDCOM
5*CG +KMBMARCH
5*X6 X2ARCHIVE
5BBQ # CANCEL ARCHIVE ENTRY POINT
5BWB SMO FX1
5CB2 LDX 5 X2ARCHIVE-1
5CTL MONOUTX 5
5D*= ENDCOM
5DSW
5F#G #END
^^^^ ...504144560008