==> advent_desc.txt <==
You're in a forest.
You're in a forest.
You're in a forest.
You're in a forest.
You're at a hill at end of road.
You're at road near house.
You're inside house.
You're beside a stream in a valley.
You're near a slit in the streambed.
You're directly above a grate in a dry streambed.
You are below the grate.
You're in cobble crawl.
You're in the debris room.
You are in an awkward sloping E/W canyon.
You're in the bird chamber.
You're at top of small pit.
You're in hall of mists.
You're in nugget of gold room.
You're on east side of fissure.
You're on the west side of fissure.
You are at the west end of the hall of mists.
==> advent_item.txt <==
There is a large sparkling nugget of gold here!
There are bars of silver here!
There is precious jewelry here!
There are many coins here!
There are several diamonds here!
There is a delicate, precious ming vase here!
To one side lies a glistening pearl!
There is a nest here, full of golden eggs!
There is a jewel-encrusted trident here!
There is an emerald the size of a plover's egg here!
There is a platinum pyramid here, eight inches on a side!
There is a golden chain here!
There are rare spices here!
There is a valuable persian rug here!
There is a chest here, full of various treasures!
There is a bottle of water here.
There is a small pool of oil here.
There is a brass lantern here.
There is a set of keys here.
There is food here.
There is a glass bottle here.
==> advent_mess.txt <==
#1
You can't move that way.
#2
Nothing happens.
#2.1
Nothing seems to happen.
#2.2
I don't think that had any affect on anything.
#2.3
I don't know how to apply that word in this situation.
#2.4
That had little effect, if anything at all.
#3
The fissure is too wide to jump.
#4
You are at the bottom of a pit with a broken neck.
#5
The bottle is already filled!
#6
The bear eagerly wolfs down the food and becomes calm and friendly.
#7
==> advent_move.txt <==
3 0 6 0 4 0 2 0 0 0
1 0 8 0 2 0 4 0 0 0
2 0 1 0 4 0 7 0 0 0
1 0 3 0 5 0 2 0 0 0
2 0 6 0 4 0 1 0 0 0
2 0 7 0 8 0 5 0 0 0
0 0 0 0 0 0 6 0 0 0
6 0 3 0 9 0 4 0 0 0
8 0 3 0 10 0 4 0 0 0
9 0 0 0 11 0 0 0 0 11
0 0 10 0 0 0 12 0 10 0
0 0 11 0 0 0 13 0 0 0
0 0 12 0 0 0 14 0 14 0
0 0 13 0 0 0 15 0 15 13
0 0 14 0 0 0 16 0 0 0
0 0 15 0 0 0 0 0 0 17
22 0 0 0 18 0 19 0 16 22
17 0 0 0 0 0 0 0 0 0
0 0 17 0 0 0 20 0 0 0
0 0 19 0 0 0 21 0 0 0
20 0 20 0 88 0 29 0 0 0
==> advent_prog.txt <==
10 REM ADVENTURE/2960 Version 1.1
11 REM This program is relatively bug-free, but one must realize
12 REM that Murphy's Law still prevails!
13 REM
14 REM ADVENTURE: Programmed in VME/K BASIC by Kev Ashley &
15 REM Robert Dunlop. Based on a version by Benjamin Moser.
16 REM The basic layout of the game was conceived by
17 REM Don Woods & Willie Crowther, both of M.I.T.
18 REM
20 PRINT "Adventure 1.1 on ";SEG$(DAT$,1,2);"-";SEG$(DAT$,3,4);
21 PRINT "-";SEG$(DAT$,6,7)
30 FILE *1: "ERCM09.ADVENT_ITEM"
31 FILE *2: "ERCM09.ADVENT_DESC"
32 FILE *3: "ERCM09.ADVENT_MESS"
33 FILE *4: "ERCM09.ADVENT_MOVE"
36 FILE *5: "GAMESAVE-MOD"
37 PRINT *5:" "
38 RESET *5
40 DIM H$(4),K(149),J(5),N$(46),O(15),S(35),T$(5),V(100),W(149),W$(149)
45 DIM Q(35)
50 REM ASK IF HE WANTS DIRECTIONS
==> advertinfo.txt <==
$A INVERT=0; INVO=0; PAGE=60; LINE=75; PAGENO=1; JUST=1
$A CAP=0; CAPSH=0; CAPO=0; CAPSHO=0; MARK=2
$A TAB=5,10,15,20,25,30,35,40,45,50,60
$B12$l1mu
Communications Group Vacancy
$B3 The Communications Group has responsibility for the development and
maintenance of software for the Universities Data Network. For the past 12 years this network, linking the University of
Edinburgh, Glasgow and Strathclyde has been based on a proprietary virtual
call protocol on a mixture of PDP11 and Modular One packet switches
, but has recently been converted to use X25, currently based on three GEC X25 packet switches integrated with a
high speed Cambridge Ring. The Edinburgh University part of the Network
currently supports a number of hosts, including:-
$A INDENT=1
$B2 One ICL 2988 and a dual ICL 2972 with a DAP, both running the EMAS
operating system.
$B1 4 systems running UNIX
$B1 2 VAXs running VMS
$B1 A File Store
$B1 A Network Information machine
$B1 Gateways to both BTs PSS and the Joint Academic Network (JANET)
$A INDENT=0
==> alert.txt <==
As part of the replacement program for TCPs, all users on TCPA
and users on the first 16 lines of TCPC (00 to 0F inclusive) will
be transferred to a PAD on the weekend of 18/19th October.
Users on TCPC who wish to know if their terminals are going to be switched
can find out their line number by logging into INFO and typing WHO.
If you require more information or PAD documentation please contact
Peter Macvean, ERCC, King's Buildings. (031-667 1081 ext. 2641 or
MAIL P.Macvean).
==> alist11s.txt <==
%BEGIN
%INTEGER LINE, ADDR
%ROUTINE POCT(%INTEGER N)
%INTEGER J
SPACE
PRINTSYMBOL(N>>J&7+'0') %FOR J = 15,-3,0
SPACE
%END
%ROUTINE GET(%INTEGERNAME N)
%INTEGER S
READSYMBOL(N); READSYMBOL(S)
N = N+S<<8
%END
%ROUTINE NEXT LINE
%INTEGER S, N
SELECTINPUT(2)
%CYCLE
READSYMBOL(S) %UNTIL S = 1; SKIPSYMBOL
GET(N); GET(ADDR)
N = (N-6)//2
%STOP %IF N <= 0
==> am1test.txt <==
;TEST PROGRAM FOR 2900 GPC INTERFACE
;THERE ARE TWO VERSIONS OF THIS PROGRAM
;DEFINE 'PCVSN' TO TEST PC CARD
;UPDATED 03/08/79..MANY CHANGES ON OPERABLE, OP CHANGE,
; PARITY ERROR, RESET ETC.
;UPDATED 13/02/78 TO DO 10 BIT TRANSFERS USING PARITY LOGIC
;UPDATED 27/01/78 FOR 'FETCH NEXT' MODIFICATIONS
;
;OPERATING INSTRUCTIONS
;ATTACH LOOP BACK PLUG TO GPC INTERFACE
;SET CORRECT BUS ADDRESS AND VECTOR ADDRES IN LOCATIONS 1004 AND 1006
;ENSURE MACHINE HAS A LINE TIME CLOCK AT LOCATION 777546,
; VECTOR ADDRESS 100
;ENSURE MACHINE HAS A TELETYPE AT LOCATION 177560
;PROGRAM START ADDRESS IS 1000
;SET BITS IN SWITCH REGISTER AS FOLLOWS:
; 0..DISABLE TEST 1 (REGISTER TEST)
; 1..DISABLE TEST 2 ( 9 BIT DATA EXERCISOR)
; 2..DISABLE TEST 3 (10 BIT DATA EXERCISOR)
; 3..DISABLE TEST 4 ( 9 BIT DATA TEST WITH INTERRUPTS)
; 4..DISABLE TEST 5 (10 BIT DATA TEST WITH INTERRUPTS)
==> amstradfs.txt <==
%externalroutine famstrad(%string (255) s)
%externalroutinespec xmode(%string (255) s)
%externalroutinespec define(%string (255) s)
%externalroutinespec prompt(%string (15) s)
%integer i,j,k
define("1,".s)
xmode("native")
k=0
printstring("Go - end with ctrl+y
")
select output(1)
prompt("")
%cycle
readch(i)
%if i = 25 %then xmode("Trans") %and %stop
%if i = 13 %then %continue; ! return - use lf only
%if i = 10 %and k = 10 %then k=0 %and %continue
k = i
printch(i)
%repeat
%end
==> anlog2s.txt <==
%externalroutine anlog(%string (255) s)
%externalroutinespec define(%string(255)s)
%externalintegerfnspec smaddr(%integer chan, %integername len)
%externalstring (*) %fnspec itos(%integer i,j)
%integer i,j,k,hmax,l,m,o,p,q,type,ent,tci,tco,tbi,tbo,tpp,node, tcf, tsm
%owninteger conns,info, rec, start, max, gsum, maxt
%owninteger free ind = 1
%integerarray n,t,co,ci,bo,bi,pp,cf,sm, icf, ism,ssm,scf(0:127)
%integer line,oline
%ownintegerarray cou(0:11)
%recordformat tabf(%integer con, pkt, byt)
%record (tabf) %array tab(1:70,1:70)
%byteintegerarray nn,tt(1:70)
%byteintegerarray nod(1:15, 0:200)
%string (6) %array nm(1:70)
%switch sw(0:11)
==> anlog4s.txt <==
%externalroutine anlog(%string (255) s)
%externalroutinespec define(%string(255)s)
%externalintegerfnspec smaddr(%integer chan, %integername len)
%externalstring (*) %fnspec itos(%integer i,j)
!nsm
%integer next tot, sum, ch, nodeb
%integer qtr6, qtr9, hr6, hr9 ,tot6, tot9, hr, min, qtr
%integer last6, last9, time6, time9, time
%string(3) hrs, mins, secs
%integerarray entb(0:1,1:25)
%recordformat totf(%integer sum, %byteinteger node, hr, min)
%record(totf) %array tot pkts(1:576)
!end
%integer i,j,k,hmax,m,o,p,q,type,ent,tci,tco,tbi,tbo,tpp,node, tcf, tsm
%integer diff, ntime, thr, tmpr
%owninteger conns,info, rec, start, max, gsum, maxt
%owninteger free ind = 1
%integerarray n,t,co,ci,bo,bi,pp,cf,sm, icf, ism,ssm,scf, mpr, lastt(0:127)
%integerarray ompr, mpx, mpp(0:127)
%integer line,oline
==> anlogs.txt <==
%externalroutine anlog(%string (255) s)
%externalroutinespec define(%string(255)s)
%externalintegerfnspec smaddr(%integer chan, %integername len)
%externalstring (*) %fnspec itos(%integer i,j)
%integer i,j,k,l,m,o,p,q,type,ent, tci, tco, tbi, tbo, tpp, node
%owninteger conns,info, rec, start, max, gsum, maxt
%owninteger free ind = 1
%integerarray n,t,co,ci,bo,bi,pp,cf,sm, icf, ism,ssm,scf(0:127)
%integer line,oline
%ownintegerarray cou(0:11)
%integerarray tab(1:60,1:60)
%byteintegerarray nn,tt(1:60)
%byteintegerarray nod(1:15, 0:200)
%string (6) %array nm(1:60)
%switch sw(0:11)
%ownintegerarray enta(1:25)
==> ass11s.txt <==
%EXTERNALROUTINE ASS11(%STRING (63)FILES)
%EXTERNALINTEGERFNSPEC SMADDR(%INTEGER CHAN, %INTEGERNAME LENGTH)
%EXTERNALROUTINESPEC DEFINE(%STRING (63)S)
%DYNAMICSTRING (8) %FN %SPEC DATE
%DYNAMICINTEGERFNSPEC TIME40(%INTEGER IN)
%DYNAMICINTEGERFNSPEC TIME03(%INTEGER IN)
%DYNAMICINTEGERFNSPEC TIME45(%INTEGER IN)
%ROUTINE DUMP BIN(%HALFINTEGERARRAYNAME CODE, %C
%INTEGER START, FINISH, %STRINGNAME T, %INTEGERNAME FLAG)
%INTEGER CHECK, J
%ROUTINE PUT(%INTEGER N)
%INTEGER M
M = N>>8&255
N = N&255
PRINTCH(N); PRINTCH(M)
CHECK = CHECK+(N+M)
%END
%RETURN %IF START < 0; !?????
SELECT OUTPUT(3)
CHECK = 0
PUT(1)
==> asst11j.txt <==
%EXTERNALROUTINE ASS11(%STRING (63)FILES)
%EXTERNALINTEGERFNSPEC SMADDR(%INTEGER CHAN, %INTEGERNAME LENGTH)
%EXTERNALROUTINESPEC DEFINE(%STRING (63)S)
%DYNAMICSTRING (8) %FN %SPEC DATE
%DYNAMICINTEGERFNSPEC TIME40(%INTEGER IN)
%DYNAMICINTEGERFNSPEC TIME03(%INTEGER IN)
%DYNAMICINTEGERFNSPEC TIME45(%INTEGER IN)
%ROUTINE DUMP BIN(%HALFINTEGERARRAYNAME CODE, %C
%INTEGER START, FINISH, %STRINGNAME T, %INTEGERNAME FLAG)
%INTEGER CHECK, J
%ROUTINE PUT(%INTEGER N)
%INTEGER M
M = N>>8&255
N = N&255
PRINTCH(N); PRINTCH(M)
CHECK = CHECK+(N+M)
%END
%RETURN %IF START < 0; !?????
==> atstats.txt <==
MTBF - KB 4190 - 3 Month Rolling Average
Month - Jan 84 - Feb 86
27
1,0,4,0,3,3,5,3,1,3,3,2,1,3,5,5,2,1,0,0,1,1,0,1,0,1,0
0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,2,1,0
==> b_am1b.txt <==
prep fep_eam9s,eam9s#imp,n,clean,b,m
dimp11 eam9s#imp
link11 /map
eam9s#rel
.stack 2000
.streams 1
.name am1h
.stackseg 6
.end
eam9s
destroy eam9sy
rename eam9s#abs,eam9sy
alist11 eam9s#imp/.lp23
==> b_am1m.txt <==
prep fep_eam77,eam77#imp,n,m,c,clean
dimp11 eam77#imp
link11 /map
eam77#rel
.stack 1000
.streams 1
.name am1h
.stackseg 6
.end
eam77
destroy eam77y
rename eam77#abs,eam77y
alist11 eam77#imp/.lp23
==> b_am1o.txt <==
prep fep_eam77,eam77#imp,clean
imp11 eam77#imp
link11 /map
i77perm
eam77#rel
.stack 1000
.streams 1
.name am1h
.end
eam77y
alist11 eam77#imp/.lp23
==> b_am1.txt <==
prep fep_eam77,eam77#imp,n,clean
dimp11 eam77#imp
link11 /map
eam77#rel
.stack 1000
.streams 1
.name am1h
.stackseg 6
.end
eam77
destroy eam77y
rename eam77#abs,eam77y
alist11 eam77#imp/.lp23
==> b_batch.txt <==
imp11 gen_batchs/batchs#rel
link11
batchs#rel
i77perm
.stack 1000
.streams 2
.end
batchy
==> b_bdk.txt <==
dimp11 bdk7s
link11 /map
bdk7s
.codeseg 2
.stackseg 6
.stack 200
.streams 0
.end
bdk7s
c bdk7s#abs,newsys_bdk7y
==> b_bgatex.txt <==
EDIT x25_gatexs,t#b
A/198/A1STM/Versi/F<X>K(M/GATX Running/M0R/Running/I<X>i/ (Min,Large,2 lines)/p1)2
E
prep t#b,gatex#imp,m,h,clean,b
IMP11 gatex#imp/gatex#rel,gatex#lst
LINK11
ERCM09.I77PERM
gatex#rel
.name gatx
.STACK 5000
.STREAMS 1
.END
gatex#obj
destroy bacg
COPY gatex#obj,gatex_hobj
rename gatex#obj,bacg
transfer bacg,erte(,)BACG(41),ma,no
DESTROY t#b
==> b_bou.txt <==
imp11 bounce/,ll
link11
bounce#rel
i77perm
.stack 1000
.streams 1
.end
bouncey
==> b_bspdnew.txt <==
prep ring_bsp78s,bsp78s#imp,n,d
dimp11 bsp78s#imp
link11 /bsp78s
bsp78s#rel
.stack 1000
.streams 0
.name bsps
.codeseg 1
.stackseg 6
.end
bsp78s
destroy bsp78dy
rename bsp78s#abs,bsp78dy
==> b_bspd.txt <==
prep ring_bsp78s,bsp78s#imp,o,d
imp11 bsp78s#imp
link11
bsp78s#rel
i77perm
.stack 1000
.streams 0
.name bsps
.end
bsp78dy
==> b_bspnew.txt <==
prep bsp78s,bsp78s#imp,n
dimp11 bsp78s#imp
link11 /bsp78s
bsp78s#rel
.stack 1000
.streams 0
.name bsps
.codeseg 1
.stackseg 6
.end
bsp78s
destroy bsp78y
rename bsp78s#abs,bsp78y
==> b_bsp.txt <==
prep bsp78s,bsp78s#imp,o
imp11 bsp78s#imp
link11
bsp78s#rel
i77perm
.stack 1000
.streams 0
.name bsps
.end
bsp78y
==> b_bspxg.txt <==
prep ring_bsp78s,bsp78s#imp,o,g
imp11 bsp78s#imp
link11
bsp78s#rel
i77perm
.stack 1000
.streams 0
.name bsps
.end
bsp78gy
==> b_buff.txt <==
imp11 x25_buff5s/buff5s#rel
link11
buff5s
i77perm
.stack 1000
.streams 0
.name buff
.end
buff5y
transfer buff5y,emas-a(,)BUFF5q(25),ma,no
alist11 x25_buff5s,buff5s#rel/.lp23
==> b_changes.txt <==
%externalroutinespec insert(%string (255) s)
%externalroutinespec remove(%string (255) s)
%externalroutine new(%string(255) s)
remove("iprogs_alist11y")
remove("iprogs_code11y")
remove("iprogs_link11y")
insert("ercs09.imp11y")
insert("ercs09.recodey")
insert("ercs09.link11y")
printstring("Gone to new compiler
")
%end
%externalroutine old(%string (255) s)
remove("ercs09.imp11y")
remove("ercs09.link11y")
remove("ercs09.recodey")
insert("iprogs_alist11y")
insert("iprogs_code11y")
insert("iprogs_link11y")
%end
==> b_cli.txt <==
dimp11 cli1s
link11 /map
cli1s
.codeseg 2
.stackseg 6
.stack 300
.streams 0
.end
cli1s
c cli1s#abs,newsys_cli1y
==> b_comms.txt <==
imp11 gen_comm77/comm77#rel
link11
i77perm
comm77#rel
.stack 1000
.streams 1
.name comm
.end
alist11 gen_comm77/.lp23
==> b_dbug.txt <==
dimp11 gen_dbug7/dbug7#rel
link11 /dbug7
dbug7
.stack 2000
.streams 1
.stackseg 6
.name dbug
.end
dbug7
c dbug7#abs,dbug7y
==> b_deimosperm.txt <==
!
! specs for deimos perm routines
!
%externalroutinespec pon(%record(*) %name p)
%externalroutinespec poff(%record(*) %name p)
%externalroutinespec ponoff(%record(*) %name p)
%externalintegerfnspec mapvirt(%integer ser,seg1,seg2)
%externalintegerfnspec map abs(%integer vadd,len,id)
%externalintegerfnspec getid
%externalroutinespec alarm(%integer ticks)
%externalroutinespec linkin(%integer ser)
%externalroutinespec maphwr(%integer segs)
%externalintegerfnspec mappsect(%integer seg,task)
%externalroutinespec push(%record(*)%name q,%record(*)%name m)
%externalrecord(*)%mapspec pop(%record(*)%name q)
%externalintegerfnspec time
%externalroutinespec set prio(%integer prio)
%constbyteintegername own id==(8_160030); !8.1 compiler bug
%constbyteintegername fsys == k'160055'
%constbyteintegername id == k'160030'
%constbyteintegername int==(8_160060)
==> b_deimosspecs.txt <==
! Deimos specs for Imp11 v8.7
%externalroutinespec set prio %alias "$SETPRIORITY"(%integer prio)
%externalbytemapspec id
%externalbytemapspec own id %alias "ID"
%externalbytemapspec int %alias "INTCHAR"
%externalintegerfnspec map virt %alias "$FMAPVIRT"(%integer id, fromseg, toseg)
%externalintegerfnspec map psect %alias "$MAPPSECT"(%integer task, toseg)
%externalintegerfnspec time %alias "$TIME"
%externalroutinespec terminate
%externalroutinespec use tt(%integer ser)
%constinteger t3 ser = 21; ! common output handler service number
%constrecord (*) %name null == 0
%endoffile
==> b_det23.txt <==
out=lp23
name=what a drag
.end
==> b_det.txt <==
out=file
outname=detout
name=what a drag
.end
==> bdiagram.txt <==
%const %real halfsize=.1
%const %real x0=0+halfsize, x0a=1, x1=3, x2=6, x2a=7, x3=8, x4=9, x5=10, x6=11,
x7=12
%const %real y0=1, y1=3, y1a=3.4 {y1+2*halfsize}, y2=4.5, y3=6, y4=7,
y4a=8, y5=10, y6=12, y6a=12.5, y7=13.5
%const %integer black=21, red=22, brown=23, blue=24, green=25, purple=26,
orange=27, thick black=28
%const %string (15) %array colours(black:thick black)="black", "red", "brown", "blue",
"green", "purple", "orange", "thick black"
!-------------------------------------------------------------------------------
! The following statement needs to be changed on a price change.
%const %string (2) %array price(1:13)= "15", "20", "20", "25", "30", "30", "30",
"35", "35", "35", "40", "40", "40"
!-------------------------------------------------------------------------------
%const %integer %array stage colours sequence(1:7)=black, red, orange,
==> b_down.txt <==
imp11 down4m
link11
down4m#rel
.stack 2000
i77perm
.streams 1
.end
down4y
==> b_dpalnew.txt <==
e gen_dpal8s/temp
f/deimosperm/s/b_deimosspecs/
%c
imp11 temp/,ll
link11
temp#rel
ercm11.newimp
.stack 2400
.streams 1
.end
dpal8y
alist11 temp/.lp23
==> b_dpal.txt <==
imp11 gen_dpal8s/dpal8s#rel,ll
link11
dpal8s#rel
i77perm
.stack 2400
.streams 1
.end
dpal8y
alist11 dpal8s/.lp23
==> b_dx11bb.txt <==
prep x25_dx11bbs,dx11bbs#imp,n,m,b
dimp11 dx11bbs
link11
dx11bbs
.stack 16000
.streams 1
.name DX1B
.stackseg 6
.end
dx11bbs
c dx11bbs#abs,dx11bby
alist11 dx11bbs
list dx11bbs#lst,.lp23
==> b_dx11.txt <==
prep x25_dx11b1s,dx11b1s,b,n,m
dimp11 dx11b1s
link11 /map
dx11b1s
.stack 2000
.streams 1
.name dx11
.stackseg 6
.end
dx11b1s
c dx11b1s#abs,dx11b1y
==> b_exters.txt <==
%externalstring (255) %map cli param
%constintegername cli addr = k'160000'
%result == string(cli addr)
%end
%endoffile
==> b_fbgatex.txt <==
EDIT x25_gatexs,t#b
A/198/A1STM/Versi/F<X>K(M/GATX Running/M0R/Running/I<X>i/ (Min,Large,Old Comp)/p1)2
E
prep t#b,gatex#imp,f,m,h,a,clean,b,o
IMP11 gatex#imp/gatex#rel,gatex#lst
LINK11
ERCM09.I77PERM
gatex#rel
.name gatx
.STACK 5000
.STREAMS 0
.END
gatex#obj
destroy bacbg
rename gatex#obj,bacbg
DESTROY t#b
==> b_fepload.txt <==
e gen_loadups/temp
f+batch go/.tt+s+LOAD FEP+
1
%c
imp11 temp
link11
temp#rel
i77perm
.stack 1000
.streams 0
.name ldup
.end
fepldupy
==> b_fgatex.txt <==
EDIT x25_gatexs,t#b
A/198/A1STM/Versi/F<X>K(M/GATX Running/M0R/Running/I<X>i/ (Min,Large,old comp)/p1)2
E
prep t#b,gatex#imp,f,m,h,a,clean,o
IMP11 gatex#imp/gatex#rel,gatex#lst
LINK11
ERCM09.I77PERM
gatex#rel
.name gatx
.STACK 5000
.STREAMS 0
.END
gatex#obj
destroy bacg
COPY gatex#obj,gatex_hobj
rename gatex#obj,bacg
DESTROY t#b
==> b_fix.txt <==
==> b_fsave.txt <==
imp11 fsaves/,ll
link11
fsaves#rel
i77perm
.stack 1000
.streams 1
.end
fsavey
alist11 fsaves/.lp23
==> b_fsys78.txt <==
imp11 sys_fsys78/fsys78#rel,l
link11
fsys78#rel
i77perm
.stack 300
.streams 0
.end
fsys78y
alist11 sys_fsys78,fsys78#rel/l2
list l2,.lp23
==> b_fsys.txt <==
dimp11 fsys79
link11 /fsys79
fsys79
.stack 300
.streams 0
.stackseg 6
.codeseg 2
.end
fsys79
c fsys79#abs,newsys_fsys79y
==> b_ftpb.txt <==
prep x25_ftp4s,ftp4s#imp,x,e,m,clean,b
imp11 ftp4s#imp/,l
link11
ftp4s#rel
i77perm
.stack 2000
.streams 1
.name ftps
.end
ftp4xy
disconnect ftp4xy
alist11 ftp4s#imp/.lp23
==> b_ftpd.txt <==
prep gen_ftpd1s,ftpd1s#imp,n,e,clean
dimp11 ftpd1s#imp
link11 /ftpd1s
ftpd1s
ercm11.imp
.fixup ercm11.imp#fix
.stack 2000
.streams 1
.STACKSEG 6
.end
ftpd1y
destroy ftpd1y
rename ftpd1y#abs,ftpd1y
==> b_ftpgbx.txt <==
new
prep x25gen_ftpd5s,ftpd5s#imp,x,g,clean,b
dimp11 ftpd5s#imp
link11 /ftpd5s
ftpd5s#rel
.stack 2400
.streams 1
.stackseg 6
.name ftpx
.end
ftpg5s
c ftpg5s#abs,ftpgxby
destroy ftpg5s#abs
alist11 ftpd5s#imp
list ftpd5s#lst,.lp23
==> b_ftpgn.txt <==
new
prep gen_ftpd3s,ftpd3s#imp,n,g,clean
dimp11 ftpd3s#imp
link11 /ftpd3s
ftpd3s#rel
.stack 2000
.streams 3
.stackseg 6
.end
ftpg3s
c ftpg3s#abs,ftpgn1y
destroy ftpg3s#abs
==> b_ftpgx.txt <==
new
prep x25gen_ftpd4s,ftpd4s#imp,x,g,clean
dimp11 ftpd4s#imp
link11 /ftpd4s
ftpd4s#rel
.stack 2400
.streams 1
.stackseg 6
.name ftpx
.end
ftpg4s
c ftpg4s#abs,ftpgx1y
destroy ftpg4s#abs
alist11 ftpd4s#imp
list ftpd4s#lst,.lp23
==> b_ftpn.txt <==
prep fep_ftp1s,ftp1s#imp,n,e,clean
imp11 ftp1s#imp/,l
link11
ftp1s#rel
i77perm
.stack 1000
.streams 1
.name ftps
.end
ftp1ny
==> b_ftpold.txt <==
imp11 ftp1es
link11
ftp1es#rel
i77perm
.stack 1000
.streams 1
.name ftps
.end
ftp1ey
list ftp1ey,.fep72
alist11 ftp1es/.lp23
==> b_ftpp.txt <==
prep ftp1s,,e,n
imp11 ftp1s#p
link11
ftp1s#rel
i77perm
.stack 1000
.streams 1
.name ftps
.end
ftp1y
list ftp1y,.fep72
alist11 ftp1s#p/.lp23
==> b_ftpra.txt <==
new
prep x25gen_ftpd5s,ftpd5s#imp,r,g,clean,a
dimp11 ftpd5s#imp
link11 /ftpd5s
ftpd5s#rel
.stack 2400
.streams 3
.stackseg 6
.end
ftpg5s
c ftpg5s#abs,ftpray
destroy ftpg5s#abs
alist11 ftpd5s#imp
list ftpd5s#lst,.lp23
==> b_ftpring.txt <==
PREP fep_FTP1S,FTP1S#IMP,R,E,CLEAN
IMP11 FTP1S#IMP/,L
LINK11
FTP1S#REL
I77PERM
.STACK 1400
.STREAMS 1
.NAME FTPS
.END
FTP1EY
==> b_ftprnew.txt <==
e gen_ftpd1s/temps
f/vsn/f/nsi/s/ring/p
m-0(f/{n}/s/!n!/)*
m-0(f/!r!/s/{r}/)*
m-0
f/deimosperm/s/b_deimosspecs/
m-0(f/own id/s/id/)*
m-0f/cli string/s/cli param/p
1
m-0f/ine connect/f/("N/i/ts./
m-0f/,4,3/l0i/!/p
m-0f/node = 74/e0i/node = 0; term = 3; ! fe4
m-0f/printsymbol(k'100000')/s/flushout/
%c
dimp11 temps
link11 /temps
temps#rel
ercm11.imp
.fixup ercm11.imp#fix
.stack 2000
.streams 3
==> b_ftpr.txt <==
new
prep x25gen_ftpd3s,ftpd3s#imp,r,g,clean
dimp11 ftpd3s#imp
link11 /ftpd3s
ftpd3s#rel
.stack 2000
.streams 3
.stackseg 6
.end
ftpg3s
c ftpg3s#abs,ftpr1y
c ftpr1y,ftpg1y
destroy ftpg3s#abs
list ftpg1y,.fep72
alist11 ftpd3s#imp
list ftpd3s#lst,.lp23
==> b_ftpsnew.txt <==
prep fep_ftp1s,ftp1s#imp,r,e,i,clean
dimp11 ftp1s#imp
link11 /ftp1s
ftp1s
.stack 1400
.streams 1
.name ftps
.stackseg 6
.end
ftp1s
destroy ftp1ey
rename ftp1s#abs,ftp1ey
==> b_ftpxa.txt <==
new
prep x25gen_ftpd5s,ftpd5s#imp,x,g,clean,a
dimp11 ftpd5s#imp
link11 /ftpd5s
ftpd5s#rel
.stack 2400
.streams 3
.stackseg 6
.end
ftpg5s
c ftpg5s#abs,ftpxay
destroy ftpg5s#abs
alist11 ftpd5s#imp
list ftpd5s#lst,.lp23
==> b_ftpx.txt <==
prep x25_ftp4s,ftp4s#imp,x,e,m,clean
imp11 ftp4s#imp/,l
link11
ftp4s#rel
i77perm
.stack 2000
.streams 1
.name ftps
.end
ftp4xy
disconnect ftp4xy
alist11 ftp4s#imp/.lp23
==> b_game.txt <==
e gen_source2/temp
f/deimosperm/s/b_deimosspecs/
%c
imp11 temp
link11 /temp
temp
ercm11.newimp
.stack 6000
.streams 0
.end
game
==> b_gate.txt <==
imp11 gate77
link11
gate77#rel
i77perm
.stack 1000
.streams 1
.end
gate77y
alist11 gate77/.lp23
==> b_gecgrabn.txt <==
prep gen_gecgrab,gecgrab#imp,f,m,i
dimp11 gecgrab#imp
link11
gecgrab#rel
.stack 2000
.streams 2
.stackseg 6
.end
gecgrab
newgen gecgrab#abs,gecgraby
==> b_gecgrab.txt <==
prep X25gen_gecgrab2,gecgrab#imp,f,b,m
imp11 gecgrab#imp/,l
link11
gecgrab#rel
i77perm
.stack 4000
.streams 3
.end
gecgrab2y
==> b_gecstr.txt <==
prep gen_gecgrab,gecgrab#imp,f,m,s
imp11 gecgrab#imp/,l
link11
gecgrab#rel
i77perm
.stack 2000
.streams 2
.end
gecstry
==> b_infoamd.txt <==
! nb: Master on amdahl
prep x25_infos,infos#imp,x,e,m,a,b,i,clean
dimp11 infos#imp
dlink11
infos#rel
.stack 2000
.stackseg 6
.name info
.end
infoxcy
destroy infoamdy
rename infoxcy#abs,infoamdy
alist11 infos#imp,infos#rel/.lp23
==> b_infopsse.txt <==
prep x25_infos,infos#imp,x,e,m,clean,g
imp11 infos#imp/,l
link11
infos#rel
i77perm
.stack 2000
.streams 1
.name info
.end
infoxgy
disconnect infoxgy
alist11 infos#imp/.lp23
==> b_infops.txt <==
prep x25_infop2s,infops#imp,x,e,m,clean
imp11 infops#imp/,l
link11
infops#rel
i77perm
.stack 2000
.streams 1
.name infp
.end
infopxy
disconnect infopxy
alist11 infops#imp/.lp15
==> b_infop.txt <==
prep x25gen_infop2s,infops#imp,x,e,m,clean
imp11 infops#imp/,l
link11
infops#rel
i77perm
.stack 2000
.streams 1
.name infp
.end
infopxy
disconnect infopxy
alist11 infops#imp/.lp15
==> b_info.txt <==
prep x25_infos,infos#imp,f,clean
imp11 infos#imp/,l
link11
infos#rel
i77perm
.stack 2000
.streams 1
.name info
.end
infoxy
disconnect infoxy
alist11 infos#imp/.lp23
==> b_infoxcall.txt <==
prep x25_infos,infos#imp,x,e,m,clean,c
imp11 infos#imp/,l
link11
infos#rel
i77perm
.stack 2000
.streams 1
.name info
.end
infoxcy
disconnect infoxcy
alist11 infos#imp/.lp23
==> b_inv.txt <==
prep invaders,inv#imp,d
imp11 inv#imp
link11 /map
inv#rel
i77perm
.stack 4000
.end
invy
==> biog.txt <==
<personal information has been edited out>
His latest paper was 'Using PABX for voice and data in large
networks', published in Data Processing Vol 27 No 8, October 1985
==> b_itps.txt <==
prep fep_itp9s,itp9s#p,e,n,clean
imp11 itp9s#p
link11
itp9s#rel
.stack 1400
.streams 0
i77perm
.name itps
.end
itp9sy
alist11 itp9s#p/.lp23
list itp9sy,.fep72
==> b_itpx.txt <==
prep fep_itp9s,itp9s#imp,x,e,a,clean
imp11 itp9s#imp/,l
link11
itp9s#rel
i77perm
.stack 1200
.name itps
.streams 1
.end
itp9xy
alist11 itp9s#imp/.lp23
==> blackboxmss.txt <==
@device(gp300)
@make(manual)
@modify(description,leftmargin +2,indent -2)
@modify(enumerate,leftmargin +2,indent -2)
@modify(itemize,leftmargin +2,indent -2)
@style(spread 1)
@style(spacing 1)
@style(widowaction=force)
@tabdivide(12)
@majorheading{ERCC BSC/X55 Protocol Convertor}
@section{@ux{Introduction}}
@label{Intro}
This document describes a @b("black-box") convertor that enables the connection
of IBM mainframes running the SERC X55 software on VM to connect to standard
X55 hardware. The requirement arises because a number of such systems in the
SERC and University communities are unable to support HDLC framed synchronous
communications lines.
@subsection{The Protocols}
==> b_link.txt <==
imp11 link77s/,l
link11
link77s#rel
.streams 4
i77perm
.stack 27200
.end
link77y
alist11 link77s/.lp23
==> b_lm2972.txt <==
e gen_lmtims/temp
f/prompt("n/k2g
node = 9; term = 75
m-0f/lmti:/s/lmf2:/p
m-0f/ercm09/s/ercv12/p
f/LIAM/s/BRIN/p
%c
imp11 temp
link11
temp#rel
i77perm
.stack 2000
.streams 1
.name lmf2
.end
lm2972y
==> b_lm2976.txt <==
imp11 lm2976
link11
lm2976#rel
i77perm
.stack 2000
.streams 1
.end
lm2976y
list lm2976y,.fep72
==> b_lm2980.txt <==
e gen_lmtims/temp
f/prompt("n/k2g
node = 80; term = 80
m-0f/ercm09/s/EYRE63/p
f/LIAM/s/..../p
%c
imp11 temp
link11
temp#rel
i77perm
.stack 2000
.streams 1
.name lm29
.end
lm2980y
==> b_lmacc.txt <==
imp11 lmaccs/,l
link11
lmaccs#rel
i77perm
.stack 1000
.streams 0
.end
lmaccy
alist11 lmaccs/.lp23
list lmaccy,.bpp6
==> b_lmacx2s.txt <==
prep x25gen_lmacxs,lmacxs#imp,b,clean
dimp11 lmacxs
link11 /map
lmacxs
.streams 1
.stack 1000
.end
lmacx2s
destroy lmacx2y
rename lmacx2s#abs,lmacx2y
==> b_lmacxs.txt <==
prep x25gen_lmacxs,lmacxs#imp
dimp11 lmacxs
link11 /map
lmacxs
.streams 1
.stack 1000
.end
lmacxs
destroy lmacxy
rename lmacxs#abs,lmacxy
==> b_lmcon.txt <==
imp11 lmcons/,l
link11
lmcons#rel
i77perm
.stack 1000
.streams 0
.end
lmcony
alist11 lmcons/.lp23
list lmcony,.bpp6
==> b_lmcox2s.txt <==
prep x25gen_lmcoxs,lmcoxs#imp,b,clean
dimp11 lmcoxs
link11 /map
lmcoxs
.streams 1
.stack 1000
.end
lmcoxs
destroy lmcoxy
rename lmcoxs#abs,lmcoxy
==> b_lmcoxs.txt <==
prep x25gen_lmcoxs,lmcoxs#imp,clean
dimp11 lmcoxs
link11 /map
lmcoxs
.streams 1
.stack 1000
.end
lmcoxs
destroy lmcoxy
rename lmcoxs#abs,lmcoxy
==> b_lmeor.txt <==
imp11 lmeors
link11
lmeors#rel
i77perm
.stack 1000
.streams 1
.end
lmeory
alist11 lmeors/.lp23
==> b_lminfo.txt <==
imp11 lminfo
link11
lminfo#rel
i77perm
.stack 2000
.streams 1
.end
lminfoy
list lminfoy,.fep72
==> b_lmiots.txt <==
new
prep x25gen_lmxots,lmxots#imp,t,clean
dimp11 lmxots#imp
link11
lmxots#rel
.stack 1000
.streams 1
.stackseg 6
.name lmio
.end
lmioty
destroy lmioty
rename lmioty#abs,lmioty
old
==> b_lmlsse.txt <==
e gen_lmpsse/temp
f/call kent/s/call loop/p
f/call emas/s/call 2972/p
f/ercc14/s/ercv06/p
f/bgxx/s/BRIN/p
%c
imp11 temp
link11
temp#rel
i77perm
.stack 2000
.streams 1
.name lmls
.end
lmlssey
list lmlssey,.fep72
==> b_lmn6.txt <==
e gen_lmtims/temp
f/prompt("n/k2g
node = 6; term = 181
m-0
f/ercm09/s/ERCM05/p
f/liam/s/LIZ!/p
%c
imp11 temp
link11
temp#rel
i77perm
.stack 2000
.streams 1
.name lmn6
.end
lmn6y
==> b_lmpsse.txt <==
imp11 lmpsse
link11
lmpsse#rel
i77perm
.stack 2000
.streams 1
.end
lmpssey
list lmpssey,.fep72
==> b_lmss.txt <==
e gen_lmtims/temp
f/prompt("n/k2g
node = 80; term = 80
m-0
f/if tim>600/g5
%if tim>600 %start
printstring("Greater than 12 secs
")
int = 'A'
%finish
%c
imp11 temp
link11
temp#rel
i77perm
.stack 2000
.streams 1
.name lmss
.end
lmssy
==> b_lmtim.txt <==
c gen_lmtims,temp
imp11 temp
link11
temp#rel
i77perm
.name lmti
.stack 2000
.streams 1
.end
lmtimy
list lmtimy,.fep72
alist11 temp/.lp23
==> b_lmtsxbs.txt <==
new
prep x25gen_lmtots,lmtots#imp,x,b,clean
dimp11 lmtots#imp
link11 /map
lmtots#rel
.stack 1000
.streams 1
.stackseg 6
.name lmts
.end
lmtsxby
destroy lmtsxby
rename lmtsxby#abs,lmtsxby
old
==> b_lmtsxs.txt <==
new
prep x25gen_lmtots,lmtots#imp,x,clean
dimp11 lmtots#imp
link11 /map
lmtots#rel
.stack 1000
.streams 1
.stackseg 6
.name lmts
.end
lmtsxy
destroy lmtsxy
rename lmtsxy#abs,lmtsxy
old
==> b_lmxs.txt <==
prep x25gen_lmxots,lmxots#imp,x,clean
imp11 lmxots#imp/,l
link11 /MAP
lmxots#rel
i77perm
.stack 1400
.streams 1
.end
lmxoty
list lmxoty,.fep72
==> b_lmxxxs.txt <==
new
prep x25_lmxots,lmxots#imp,x,clean
dimp11 lmxots#imp
link11
lmxots#rel
.stack 1000
.streams 1
.stackseg 6
.name lmxx
.end
lmxxxy
destroy lmxxxy
rename lmxxxy#abs,lmxxxy
old
==> b_load8.txt <==
dimp11 load8s
link11 /map
load8s
.codeseg 2
.stackseg 6
.stack 600
.streams 1
.end
load8s
c load8s#abs,newsys_load8y
==> b_loads.txt <==
imp11 loads
link11
loads#rel
i77perm
.stack 1000
.streams 1
.name lodf
.end
loady
list loady,.bpp155
==> b_loadup.txt <==
imp11 loadups
link11
loadups#rel
i77perm
.stack 10000
.streams 0
.name ldup
.end
loadupy
==> b_lotups.txt <==
e gen_loadups,lotups
f+batch go/.tt+s+LOAD FEP+p
1
%c
imp11 lotups
link11
lotups#rel
i77perm
.stack 1000
.streams 0
.name ldup
.end
lotupy
alist11 lotups/.lp23
list lotupy,.bpp155
destroy lotups,lotups#rel
==> b_lyn.txt <==
imp11 lynp3s/,ll
link11
lynp3s#rel
i77perm
.stack 1000
.streams 1
.end
lynp3y
alist11 lynp3s/.lp23
==> b_mail.txt <==
new
prep gen_mailte,mailte#imp,x,g,clean
dimp11 mailte#imp
link11 /mailte
mailte#rel
.stack 2400
.streams 1
.stackseg 6
.name mail
.end
mailte
c mailte#abs,mailtey
destroy mailte#abs
==> b_moth.txt <==
dimp11 newsys_moth77,moth77#rel
link11 /moth77
moth77
.stack 300
.streams 0
.codeseg 2
.stackseg 6
.end
moth77
c moth77#abs,newsys_moth77y
==> b_nbsmon.txt <==
imp11 nbsmon/,ll
link11
nbsmon#rel
i77perm
.stack 1000
.streams 0
.end
nbsmony
list nbsmony,.bpp6
==> b_nbsmox.txt <==
e nbsmon/nbsmox
f/ponoff/pk
g
p_b = k'140172'
%c
imp11 nbsmox/,ll
link11
nbsmox#rel
i77perm
.stack 1000
.streams 0
.end
nbsmoxy
list nbsmoxy,.bpp6
==> b_nbsp.txt <==
DIMP11 NBSP9S
link11 /nbsp
nbsp9s
.stack 1000
.streams 1
.codeseg 1
.stackseg 6
.end
nbsp9s
destroy nbsp9y
rename nbsp9s#abs,nbsp9y
LIST NBSP9Y,.BPP155
==> b_nbss.txt <==
DIMP11 nbss9S
link11 /nbss
nbss9s
.stack 1000
.streams 1
.codeseg 1
.stackseg 6
.end
nbss9s
destroy nbss9y
rename nbss9s#abs,nbss9y
==> b_ncon.txt <==
imp11 ncon10s/,l
link11
ncon10s#rel
i77perm
.stack 1400
.streams 1
.name node
.end
ncon10y
list ncon10y,.bpp6
==> b_nlp3s.txt <==
dimp11 node_nlp3s
link11 /nlp3s
nlp3s
.stack 1000
.streams 1
.name nlps
.end
nlp3s
destroy nlp3y
rename nlp3s#abs,nlp3y
==> b_nlpx.txt <==
imp11 x25_nlpx1/nlpx1#rel,l
link11
nlpx1#rel
i77perm
.stack 1000
.streams 1
.name nlpx
.end
nlpx1y
==> b_nodesimold.txt <==
E NODESIM/TEMP
F/B_DEIMOSSPECS/S/DEIMOSPERM/
%C
IMP11 TEMP
LINK11
TEMP#REL
I77PERM
.STACK 5000
.STREAMS 0
.END
NODESIMY
LIST NODESIMY,.FEP72
ALIST TEMP/.LP23
==> b_nodesim.txt <==
dimp11 nodesim
link11 /nodesim
nodesim
ercm11.newimp
.stack 5000
.streams 0
.end
nodesim
list nodesim#abs,.fep72
==> b_nsiw.txt <==
imp11 nsiw77s/,l
link11
nsiw77s#rel
i77perm
.stack 1000
.streams 2
.end
nsiw77y
alist11 nsiw77s/.lp23
==> b_parrf.txt <==
imp11 parr4fs
link11
parr4fs#rel
i77perm
.stack 400
.streams 0
.end
parr4fy
list parr4fy,.bpp155
==> b_parr.txt <==
imp11 parr4s
link11
parr4s#rel
i77perm
.stack 400
.streams 0
.name para
.end
parr4y
==> b_pcl.txt <==
imp11 pclo4s
link11
pclo4s#rel
i77perm
.stack 1400
.streams 0
.name clok
.end
pclo4y
==> b_peek.txt <==
imp11 peeks
link11
peeks#rel
i77perm
.stack 500
.streams 1
.end
peeky
==> b_pollpad.txt <==
new
prep x25gen_pollpads,poll#imp,x
dimp11 poll#imp
link11
poll#rel
.stack 4000
.streams 3
.stackseg 6
.name poll
.end
pollxy
destroy pollxy
rename pollxy#abs,pollxy
old
==> b_prt12.txt <==
prep node_prt12us,prt12us
destroy prt12us#rel,prt12uy
imp11 prt12us/,ll
link11
prt12us#rel
i77perm
.stack 400
.streams 1
.name prt0
.end
prt12uy
list prt12uy,.bpp155
alist11 prt12us/.lp23
==> b_prt9f.txt <==
imp11 prt9fs/,ll
link11
prt9fs#rel
i77perm
.stack 1000
.streams 0
.name PRT0
.end
prt9fy
list prt9fy,.fep72
alist11 prt9fs/.lp23
==> bridges.txt <==
%CONTROL K'100001'
%BEGIN
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A, B, C)
%ROUTINE BSP(%RECORD (PF) %NAME PQ)
!********************************
!* EMAS-2900 BSP INTERFACE *
!* HANDLER *
!* FILE: BSP4S *
!* 18:3:80 *
!*********************************
!! STK = 300, STRM = 1
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
==> b_ringdma.txt <==
prep ring35,ring35#imp,o,q
imp11 ring35#imp
link11
ring35#rel
i77perm
.stack 1000
.streams 1
.name ring
.end
ring35y
==> b_ringk.txt <==
imp11 ringk7s/,ll
link11
ringk7s#rel
i77perm
.stack 1000
.streams 1
.end
ringk7y
==> b_ringnew.txt <==
prep ring8s,ring8s#imp,n
dimp11 ring8s#imp
link11 /map
ring8s
.stack 1000
.streams 1
.stackseg 6
.end
ring8s
destroy ring8y
rename ring8s#abs,ring8y
==> b_ring.txt <==
imp11 ring8s/,ll
link11
ring8s#rel
i77perm
.stack 1000
.streams 1
.end
ring8y
list ring8y,.fep72
==> b_rjee.txt <==
e fep_rjes9s/temps
f/vsn/f/0n/s/0e/p
m-0
(f/{n}/s/!n!/)*
m-0(f/!r!/s/{r}/)*
%c
imp11 temps
link11
temps#rel
i77perm
.stack 1000
.streams 1
.name rjes
.end
rje9ey
list rje9ey,.fep72
alist11 temps/.lp23
==> b_rjes.txt <==
imp11 fep_rjes9s/rjes9s#rel,ll
link11
rjes9s#rel
i77perm
.stack 1000
.streams 0
.name rjes
.end
rjes9y
list rjes9y,.fep72
alist11 fep_rjes9s,rjes9s#rel/.lp23
==> b_rjesx.txt <==
prep x25_rjesx2,rjesx2#imp,m,clean
imp11 rjesx2#imp/,l
link11
rjesx2#rel
i77perm
.stack 1400
.name rjes
.streams 1
.end
rjesx2y
alist11 rjesx2#imp/.lp23
==> b_rl01.txt <==
dimp11 rl06s
link11 /map
rl06s
.codeseg 2
.stackseg 6
.stack 300
.streams 0
.end
rl06s
c rl06s#abs,newsys_rl06y
==> b_rles.txt <==
imp11 rles77
link11
rles77#rel
i77perm
.stack 400
.streams 1
.end
rlesy
==> b_rolb.txt <==
prep rolb77s,rolb77s#imp,n,clean
imp11 rolb77s#imp/,l
link11
rolb77s#rel
i77perm
.stack 2000
.streams 1
.end
rolb77y
alist11 rolb77s#imp/.lp23
==> b_sbld5.txt <==
imp11 gen_sbld5s/sbld5s#rel,l
link11
sbld5s#rel
i77perm
.stack 72000
.streams 4
.end
sbld5y
alist11 gen_sbld5s,sbld5s#rel/.lp23
==> b_sbld.txt <==
imp11 gen_sbld6s/sbld6s#rel,l
link11
sbld6s#rel
i77perm
.stack 72000
.streams 4
.end
sbld6y
alist11 gen_sbld6s,sbld6s#rel/.lp23
==> b_snoop.txt <==
imp11 snoops/,l
link11
snoops#rel
i77perm
.stack 1000
.streams 0
.end
snoopy
==> b_supbl.txt <==
parm free
parm opt,noarray,notrace
prep supbuilds,supbuilde,e
i supbuilde,supbuildy,l,.out
==> b_sup.txt <==
link11 /sup
newsys_dvn87y
supnew#rel
sinnew#rel
gen_pushopsrel
.fixup b_fix
.stack 0
.alone 0 77777
.squeeze
.entry ep
.end
supnew
c supnew#abs,newsys_supnewy
==> b_temp.txt <==
imp11 temp
link11
temp#rel
i77perm
.stack 62000
.streams 0
.name stte
.end
tempy
list tempy,.bpp6
==> b_tolp23.txt <==
e fsaves/temp
f/doch/t/"/u/"/i.//DOC DEST=LP23,USER=ERCM09
F/SW(1):/t/=/e0i/doch.tostring(10)
f/prompt("rem/p
k6
%c
imp11 temp/,ll
link11
temp#rel
i77perm
.stack 1000
.streams 1
.name tolp
.end
tolp23y
alist11 temp/.lp23
==> btt6ss.txt <==
!**************
!* BTT6S *
!*DA:24.MAR.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM (FAST ROUTINE ENTRY/EXIT)
%PERMROUTINESPEC SVC(%INTEGER EP, P1, P2)
%BEGIN
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %C
%INTEGER A1, A2, A3)
%RECORDFORMAT TTF(%INTEGER KBS, KBD, TTS, TTD)
%RECORDFORMAT BUFF(%INTEGER PT, LAST, %BYTEINTEGERARRAYNAME B)
%RECORDFORMAT BUFFX(%INTEGER PT, LAST, ARRAYPT)
%CONSTRECORD (BUFFX) %NAME NULL = 0
==> btt6xs.txt <==
!**************
!* BTT6S *
!*DA:24.MAR.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM (FAST ROUTINE ENTRY/EXIT)
%PERMROUTINESPEC SVC(%INTEGER EP, P1, P2)
%BEGIN
%SYSTEMROUTINESPEF MAPHWR(%INTEGER SEGS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %C
%INTEGER A1, A2, A3)
%RECORDFORMAT TTF(%INTEGER KBS, KBD, TTS, TTD)
%RECORDFORMAT BUFF(%INTEGER PT, LAST, %BYTEINTEGERARRAYNAME B)
%RECORDFORMAT BUFFX(%INTEGER PT, LAST, ARRAYPT)
%CONSTRECORD (BUFFX) %NAME NULL = 0
==> btt7ss.txt <==
! FILE 'BTT7S'
!**************
!* BTT7S *
!*DA:24.FEB.81*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM (FAST ROUTINE ENTRY/EXIT)
%PERMROUTINESPEC SVC(%INTEGER EP, P1, P2)
%BEGIN
%SYSTEMINTEGERFNSPEC MAP VIRT(%INTEGER ID, FROM SEG, TO SEG)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %C
%INTEGER A1, A2, A3)
%RECORDFORMAT TTF(%INTEGER KBS, KBD, TTS, TTD)
%RECORDFORMAT BUFF(%INTEGER PT, LAST, %BYTEINTEGERARRAYNAME B)
%RECORDFORMAT BUFFX(%INTEGER PT, LAST, ARRAYPT)
%CONSTRECORD (BUFFX) %NAME NULL = 0
==> buff3s.txt <==
! FILE 'FEP_BUFF3'
!*******************************
!* EMAS-2900 BUFFER MANAGER *
!* FILE: BUFF3 (FEP) *
!* DATE: 29.JAN.81 *
!******************************
!! STK = SIZE+200
%CONSTINTEGER SIZE = K'33000'; ! WAS 35000, BUT NEEDS LINK6S
%CONTROL K'100001'
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT D(%INTEGER I)
%CONSTRECORD (D) %NAME NULL = 0
%BEGIN
%RECORDFORMAT BF(%RECORD (BF) %NAME L, %BYTEINTEGER LEN, MODE, %C
%BYTEINTEGERARRAY A(0:99))
==> buff3.txt <==
! FILE 'FEP_BUFF3'
!*******************************
!* EMAS-2900 BUFFER MANAGER *
!* FILE: BUFF3 (FEP) *
!* DATE: 04.NOV.80 *
!******************************
!! STK = SIZE+200
%CONSTINTEGER SIZE = K'33000'; ! WAS 35000, BUT NEEDS LINK6S
%CONTROL K'100001'
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT D(%INTEGER I)
%CONSTRECORD (D) %NAME NULL = 0
%BEGIN
%RECORDFORMAT BF(%RECORD (BF) %NAME L, %BYTEINTEGER LEN, MODE, %C
%BYTEINTEGERARRAY A(0:99))
==> b_umctest.txt <==
imp11 umctest/,l
link11
umctest#rel
i77perm
.stack 1000
.streams 1
.name umct
.end
umctesty
==> b_umc.txt <==
imp11 umcs
link11
umcs#rel
i77perm
.stack 400
.streams 0
.end
umcy
==> bush83.txt <==
Networks 1983-1993
==================
(A brief look at some aspirations and problems)
The face of networks has been changing over the past few years and will
change further with the advance of technology.
Networks can be broadly split into two main types - the very high
speed Local Area Networks which operate over short distances and the much
slower Wide Area Networks for long distances.
There are various types of LANs available, the primary types being
Ethernet, the IBM token ring and the Cambridge ring. There are also a
number of other LANs made by particular manufacturers for their own
equipment, these are only similar in their inability to interwork with any
type.
In the context of WANs the existing packet switches are dramatically
increasing in power and there are two major new entries in this area - the
PABXs; capable of switching digital signals as well as the
conventional voice and the Broadband 'bus' carried over video cable.
==> b_verisnew.txt <==
e gen_veris77/temp
f/deimosperm/s/b_deimosspecs/
m-0f/cli string/s/cli param/
0
m-0f/%integername a/s/%integer a/
1
1
f/==address/e
m-0f/f2==fa(0)/k
f/f2_x/s/addr(fa(0))/
m-0
f/, ba(0)_pr/s/, addr(ba(0)_pr)/p
1
%c
dimp11 temp
link11 /temp
temp
ercm11.newimp
.stack 6000
.streams 1
.name veri
==> b_veris.txt <==
IMP11 gen_VERIS77/veris77#rel,L
LINK11
VERIS77#REL
GEN_EXTERNSREL
I77PERM
.STACK 6000
.STREAMS 1
.END
VERIS77Y
==> b_xgate.txt <==
DESTROY XGAT#OBJ,XGAT#IMP,XGAT#REL,XGAT#LIS
EDIT XGATE,XGAT#IMP
A/198/A1STM/Versi/F<X>KM/XGAT Running/M0R/Running/I<X>I/ (BACG)/P1
TR/_CONFIG/I/_BACGCONF2/
E
IMP11 XGAT#IMP/XGAT#REL,XGAT#LIS
LINK11
ERCM09.I77PERM
XGAT#REL
.STACK 5000
.STREAMS 1
.END
XGAT#OBJ
PSSE XGAT#OBJ
COPY XGAT#OBJ,XGATEy
DESTROY XGAT#LIS,XGAT#OBJ,XGAT#IMP,XGAT#REL
==> b_xprotbm.txt <==
EDIT x25_XPROT3s,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Mon)/p1)2
E
prep t#b,xprotb#imp,Q
IMP11 xprotb#IMP/xprotb#REL,xprotb#lst
LINK11
ERCM09.I77PERM
xprotb#REL
.STACK 2000
.STREAMS 1
.NAME xpr1b
.END
xpr1b#OBJ
destroy xpr1by
rename xpr1b#obj,xpr1by
alist11 xprotb#imp/l2
list l2,.lp23
==> b_xprotb.txt <==
EDIT x25_XPROT3s,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Fast)/p1)2
E
prep t#b,xprotb#imp,Q,f
IMP11 xprotb#IMP/xprotb#REL,xprotb#lst
LINK11
ERCM09.I77PERM
xprotb#REL
.STACK 2000
.STREAMS 1
.NAME xpr1b
.END
xpr1b#OBJ
destroy xpr1by
rename xpr1b#obj,xpr1by
alist11 xprotb#imp/l2
list l2,.lp23
==> b_xprotks.txt <==
! nb: source now on amdahl *************************************
EDIT x25_xprot3s,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Fast)/p1)2
E
prep t#b,xprot2#imp,f,k,clean
IMP11 xprot2#IMP/xprot2#REL,xprot2#lst
LINK11
ERCM09.I77PERM
xprot2#REL
.STACK 2000
.STREAMS 1
.NAME xpr1
.END
xpr2#OBJ
destroy xprky
rename xpr2#obj,xprky
alist11 xprot2#imp/l2
list l2,.lp23
==> b_xprotm.txt <==
EDIT x25_XPROTs,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Mon)/p1)2
E
prep t#b,xprot#imp,Q
IMP11 XPROT#IMP/XPROT#REL,xprot#lst
LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPR1
.END
XPR1#OBJ
destroy xpr1y
rename xpr1#obj,xpr1y
alist11 xprot#imp/.lp23
==> b_xprotp.txt <==
EDIT x25_XPROTs,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Fast)/p1)2
E
prep t#b,xprot#imp,F,p
IMP11 XPROT#IMP/XPROT#REL,xprot#lst
LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPR1
.END
XPR1#OBJ
destroy xpr1y
rename xpr1#obj,xpr1y
alist11 xprot#imp/.lp23
==> b_xprot.txt <==
EDIT x25_XPROTs,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Fast)/p1)2
E
prep t#b,xprot#imp,F,Q
IMP11 XPROT#IMP/XPROT#REL,xprot#lst
LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPR1
.END
XPR1#OBJ
destroy xpr1y
rename xpr1#obj,xpr1y
alist11 xprot#imp/.lp23
==> b_xprotyp.txt <==
EDIT x25_XPROTs,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Fast)/p1)2
E
prep t#b,xprot#imp,F,p,Y
IMP11 XPROT#IMP/XPROT#REL,xprot#lst
LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPRY
.END
XPR1#OBJ
destroy xpry1y
rename xpr1#obj,xpry1y
alist11 xprot#imp/.lp23
==> b_xproty.txt <==
EDIT x25_XPROTs,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Fast)/p1)2
E
prep t#b,xprot#imp,F,p,Y
IMP11 XPROT#IMP/XPROT#REL,xprot#lst
LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPRY
.END
XPR1#OBJ
destroy xpry1y
rename xpr1#obj,xpry1y
alist11 xprot#imp/.lp23
==> b_xxxa.txt <==
prep x25_xxx3as,xxx3s#imp,s,clean,b,a
imp11 xxx3s#imp/xxx3s#rel,l
link11
xxx3s#rel
i77perm
.stack 1400
.streams 1
.name xxx
.end
xxx3ay
alist11 xxx3s#imp,xxx3s#rel/.lp23
==> b_xxxbig.txt <==
prep x25_xxx3s,xxx3s#imp,s,clean,b
imp11 xxx3s#imp/xxx3s#rel,l
link11
xxx3s#rel
i77perm
.stack 1400
.streams 1
.name xxx
.end
xxx3y
alist11 xxx3s#imp,xxx3s#rel/.lp23
==> b_xxxe.txt <==
prep x25_xxx2s,xxx2s#imp,s,clean
imp11 xxx2s#imp/xxx2s#rel,l
link11
xxx2s#rel
i77perm
.stack 1400
.streams 1
.name xxx
.end
xxx2y
alist11 xxx2s#imp,xxx2s#rel/.lp23
==> b_ygatecalls.txt <==
!************************************************************
!* Function Values between Upper level and Gate
!************************************************************
%constinteger connect = 1 ;! start a call up
%constinteger accept call = 2; ! accept a call
%constinteger Disconnect = 3; ! Stop a call, or reject a connect
%constinteger Enable Input = 4; ! Allow data, Gate -> Task
%constinteger Put Output = 5; ! Output Block, Gate -> Task
%constinteger Enable Output = 4; ! Allow Output, Task -> Gate
%constinteger Input Here = 5; ! Input Block, Task -> Gate
%constinteger Expedited = 6; ! Pass 'Interrupts'
%constinteger Reset = 7; ! Reset the Virtual Circuit (!)
%constinteger Datagram = 8; ! Send a 'datagram'
%constinteger Datagram Reply = 9; ! Reply to a datagram
%constinteger Enable Facility = 10; ! Claim incoming calls Task -> Gate
%constinteger Disable Facility= 11; ! Stop them
%constinteger Control data = 12; ! control data in&out (xxx only)
%endoffile
==> b_zomnew.txt <==
dimp11 zomb82
link11 /zomb82
zomb82
ercm11.emts
ercm11.newimp
.stack 5000
.streams 0
.end
zomb82
==> b_zom.txt <==
imp11 zomb82/,ll
link11
zomb82#rel
i77perm
.stack 5000
.streams 0
.end
zomb82y
list zomb82y,.BPP155
==> cals.txt <==
%INTEGERFN INITIALDAY(%INTEGER YEAR)
%OWNINTEGER INITIAL = 0; ! BASE IN 1973
%INTEGER X
X = (INITIAL+YEAR-1973+(YEAR-1973)//4)
%WHILE X > 7 %CYCLE
X = X-7
%REPEAT
%RESULT = X
%END
%EXTERNALROUTINE CALENDAR(%STRING (63)S)
%INTEGER I, YEAR, DAY
%OWNINTEGER INITIAL = 0; !BASE IN 1973
%OWNSTRING (9) %ARRAY MONTH(1:12) = %C
'JANUARY ', 'FEBRUARY ', 'MARCH ', 'APRIL ',
'MAY ', 'JUNE ', 'JULY ', 'AUGUST ',
'SEPTEMBER', 'OCTOBER ', 'NOVEMBER ', 'DECEMBER '
%OWNBYTEINTEGERARRAY DAYS(1:12) = %C
31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
==> capsub83.txt <==
To: Clive Nicholas From: B. Gilmore
Date: 09.Sep.83
Capital Submission
======= ==========
1) Additional Terminal (on top of the currently requested one) For my
new CO/1 starting in October.
2) Approx. #2000 for software for the Intel Development sys.
3) Approx. #10,000 for H/W upgrades to the Intel System (new emulation types)
4) Allowance for about 5 or 6 new Intel TCPs to replace current PDP11 ones
in the next year.
==> capsub85.txt <==
Capital Expenditure 1985/86
---------------------------
1. Replacement for Info Machine
This will replace the existing 11/34 with an 11/73 with hard
disk + floppy for backup. If this is not purchases, an 11/34
will be needed for the extra Bush Fep. Including BBC + Colour
Monitor.
11/73 etc + X25 I/F + BBC #13,811 (incl. VAT)
2. Extra 256Kb store board for the 11/44 that will be used for the
replacement Fstore machine.
256Kb Board
3. Three synchronous line drivers from Newcastle for the new Bush
Feps and for the EMAS Ring Fep.
3 Newcastle Boards
==> capsub86.txt <==
@device[x2700]
@make[report]
@majorheading[Capital Expenditure 1986/1987]
@section[CPSE Enhancements]
Continuation of last year's allocation. Though it may also be necessary
to purshase another switch (a second TelePAC) in this year if the demand for
lines continue. Cost between 15 and 25000.
@section[Console enhancements]
Continuation of last year's allocation.
@flushright[Brian Gilmore
February 1986]
==> cent.txt <==
Our network is at the start of a major change. In the next 2 years we
are committed to changing to the international standard X25. As you probably
realise, the protocols that we use to communicate over the network date back
8 years. At that stage there were no international standards and we were
forced to create our own protocols: The carrier protocol NSI (Network
Standard Interface), RJE (Remote Job Entry) and ITP (Interactive Terminal
Protocol). Since then International standards have developed: X25 as a
carrier protocol, FTP (File Transfer Protocol) and XXX (Interactive protocol-
the symbols XXX stand for X3, X28 & X29 - the 3 relevent standards).
Increasingly manufacturers are offering these standard protocols,
and the network is now being expected to handle a variety of differing
machines, as these new hosts connect we can no longer be expected
to reprogram each of them to fit into our network.
The first change that is being made is to bring our carrier protocol
into line. We already have installed and working a small GEC X25 switch
which we are using to test our own software. In the next month we expect
to have working a PDP 11/60 as a Gateway between the X25 switch and our
Cambridge Ring (and hence to the rest of the network). This gateway will
look like the PSS Gateway but will not have the name/password accrediting
of the PSS Gateway and so will be much more transparent to the user. During the
next year we will be progressively shifting parts of the network, ie TCPs,
==> chats.txt <==
!TITLE Technical manual
!*******************************************************************************
!* *
!* chat - an EMAS utility to allow users to chat to each other using the 2900.*
!* *
!* Copyright (c) 1982 by James Darby at UKC. *
!* Assembler routines by R.D.Eager at UKC. *
!* *
!* Version 2.35 *
!* *
!* *
!*******************************************************************************
!< Introduction
!This is the source code of the EMAS chat utility. It allows users to hold an
!interactive conference on several terminals on an EMAS 2900 system. Its main
!features are :-
! 1) Low OCP overhead.
! The utility uses any a small amount of OCP time.
==> cleans.txt <==
%EXTERNALROUTINE CLEANUP(%STRING (255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING(255) S)
%STRING (255) T, U, V
%INTEGER I, J, K
%ON %EVENT 9 %START
SELECT OUTPUT(0)
WRITE(J, 1)
PRINTSTRING(" CHARS PRINTED
")
WRITE(K, 1)
PRINTSTRING(" CHARS THROWN AWAY
")
%RETURN
%FINISH
K=0; J=0
S -> T.("/").U
DEFINE("ST1,".T); DEFINE("ST2,".U.",1023")
SELECT INPUT(1); SELECT OUTPUT(2)
%CYCLE
==> clog6s.txt <==
!
!
! CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG
! CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG
!
!
!
%CONTROL K'001001'
!
!
%BEGIN
!
!
!
!G.J.B. // J.C.A. STARTED 10:11:76
! ??? LAST UPDATE 15:3:79 14:10 - FILE CLOG5S
!
! FOR ERTE MK.6 MK. 3 MODS MARKED !&&
! FOR ERTE MK.3 MK. 4 MODS MARKED !@@
! SET UP FOR F1 STANDARD COMMANDS
!
==> color3s.txt <==
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! INFO MARK 2 COLOUR DISPLAY PROGRAM #2
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
! THIS PROGRAM DISPLAYS THE STATUS AND USERS ON EACH TCP
! BY MEANS OF BAR GRAPHS OF DIFFERING COLOURS
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! FORMATS AND VARIABLES
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
%BEGIN
%INCLUDE "INC_TERMS"
%INCLUDE INC_GATEINT
==> colorinfos.txt <==
! FILE 'ERCM08.INC_COLOURDEFS'
%CONTROL K'100001'
%BEGIN
!
! *** COLOUR DEFINITIONS
!
%CONSTINTEGER BLACK=16
%CONSTINTEGER RED=17
%CONSTINTEGER GREEN=18
%CONSTINTEGER YELLOW=19
%CONSTINTEGER BLUE=20
%CONSTINTEGER MAGENTA=21
%CONSTINTEGER CYAN=22
%CONSTINTEGER WHITE=23
%CONSTINTEGER CURBACK=BLACK; !BACKGROUND FOR EVERYONE
! *** OWN ROUTINES FOR DRIVING INTECOLOUR DISPLAY
!FILE 'ERCM08.COLOURS'
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
==> colorls.txt <==
! FILE 'ERCM08.INC_COLOURDEFS'
%CONTROL K'100001'
%BEGIN
!
! *** COLOUR DEFINITIONS
!
%CONSTINTEGER BLACK=16
%CONSTINTEGER RED=17
%CONSTINTEGER GREEN=18
%CONSTINTEGER YELLOW=19
%CONSTINTEGER BLUE=20
%CONSTINTEGER MAGENTA=21
%CONSTINTEGER CYAN=22
%CONSTINTEGER WHITE=23
%CONSTINTEGER CURBACK=BLACK; !BACKGROUND FOR EVERYONE
! *** OWN ROUTINES FOR DRIVING INTECOLOUR DISPLAY
!FILE 'ERCM08.COLOURS'
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
==> colors.txt <==
! FILE 'ERCM08.INC_COLOURDEFS'
%CONTROL K'100001'
%BEGIN
!
! *** COLOUR DEFINITIONS
!
%CONSTINTEGER BLACK=16
%CONSTINTEGER RED=17
%CONSTINTEGER GREEN=18
%CONSTINTEGER YELLOW=19
%CONSTINTEGER BLUE=20
%CONSTINTEGER MAGENTA=21
%CONSTINTEGER CYAN=22
%CONSTINTEGER WHITE=23
%CONSTINTEGER CURBACK=BLACK; !BACKGROUND FOR EVERYONE
! *** OWN ROUTINES FOR DRIVING INTECOLOUR DISPLAY
!FILE 'ERCM08.COLOURS'
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
==> commsrpt.txt <==
Edinburgh Regional Computing Centre
For the attention of the E. C. U. C.
Report on Communications
SWITCHES
The major changes in the network, to achieve a greater level of reliability as
described in the last report, have been carried out over the summer vacation.
The four main switches are now fully interlinked with 48kb/s links.
The major changes involved in this reconfiguration have caused a fair amount of
disruption to the service but this was restricted to the vacation period.
The detailed performance figures are as follows:-
a) GEC Switches
==> comm.txt <==
Networking in Edinburgh University
Introduction
For more than 15 years Edinburgh University has depended on a large data
network. This has grown up under the pressure from Departments, scattered
widely across Edinburgh, to communicate first with the central mainframes and
latterly also with other departments and services both within the University
and other Universities connected to JANET (The Joint Academic Network). A
diagram of the Edinburgh University network is shown in Fig. 1.
The dispersed nature of the University has also resulted in the development
==> config509.txt <==
16th Sep. 1986
Dear Ian,
System 509
Could you please build me a T2R7 system for machine #509 with the following
changes:-
1. Line 9 to be a DCE.
==> config.txt <==
1 72 4 42 32 "TCP A "
1 72 2 42 32 "TCP C "
1 9 47 42 48 "TCP D "
1 72 8 42 48 "TCP M "
1 72 13 42 32 "TCP S "
1 9 15 42 32 " JCMB "
1 6 60 42 8 "ENGIN "
1 6 20 42 8 "CHEM "
1 9 154 42 8 "FOREST"
1 6 66 42 16 " IGS "
1 9 40 42 24 "G. SQ."
1 6 26 42 16 " GEOG "
1 6 43 42 16 " A.I. "
1 9 41 42 16 "CS-AT1"
1 6 89 42 24 "CS-AT2"
1 6 27 42 40 "ATB-1 "
1 6 70 42 32 "ATB-2 "
1 6 42 42 16 " SOCS "
1 6 63 42 24 "EULIB "
1 6 67 42 8 "POLLCK"
1 6 83 42 24 " BUSH "
==> cons.txt <==
%EXTERNALROUTINE CON(%STRING (255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING (255) S)
%STRING (255) T,U,V
%integer a,b,c,i,j,n,rx,tx,seq,tim,x,y, q
%string(15) from,to
%integerarray val(1:40)
%string (14) %array froma,toa(1:40)
%integerarray dur(1:40)
%bytearray tos(0:255)
%owninteger mtarg = 1
%constinteger nhosts=40
%ownintegerarray tno(0:nhosts)
%ownintegerarray trx(0:nhosts)
%ownintegerarray ttx(0:nhosts)
%ownintegerarray tdur(0:nhosts)
%ownstring (14) %array targa(0:nhosts)
%owninteger print all = 0; ! 0=dont print - see ":p"
%string (255) %fn getstring(%integer n)
%integer i
==> coral2i.txt <==
%begin
{'CORAL' TEST RESPONDER}
{'COMMENT' VERSION 1.1}
{}
{The official definition of Coral 66 does not provide for the output of}
{data at run time. However the facilities provided by the following}
{routines are useful within the Test Responder for logging/debugging}
{purposes. They can be supplied by the implementor either by adapting}
{existing routines or by writing new ones.}
{}
{The use of these routines is optional. If the implementor does not wish}
{to generate such output, he can define these procedures to be null,}
{comment them out, or delete each occurrence of them from the code. The}
{occurrences within read.command.octet (chart 3) have been commented out,}
{because for normal use they produce too much output:- one line per octet}
{received. The function of each of the routines is as follows:}
{}
{}
{trwritestring - writes the string supplied as the parameter to the}
{ output buffer.}
==> coral2orig.txt <==
'CORAL' TEST RESPONDER
'COMMENT' VERSION 1.1
The official definition of Coral 66 does not provide for the output of
data at run time. However the facilities provided by the following
routines are useful within the Test Responder for logging/debugging
purposes. They can be supplied by the implementor either by adapting
existing routines or by writing new ones.
The use of these routines is optional. If the implementor does not wish
to generate such output, he can define these procedures to be null,
comment them out, or delete each occurrence of them from the code. The
occurrences within read.command.octet (chart 3) have been commented out,
because for normal use they produce too much output:- one line per octet
received. The function of each of the routines is as follows:
trwritestring - writes the string supplied as the parameter to the
output buffer.
trwriteint - converts the integer supplied as the first parameter to
==> coral2.txt <==
'CORAL' TEST RESPONDER
'COMMENT' VERSION 1.1
The official definition of Coral 66 does not provide for the output of
data at run time. However the facilities provided by the following
routines are useful within the Test Responder for logging/debugging
purposes. They can be supplied by the implementor either by adapting
existing routines or by writing new ones.
The use of these routines is optional. If the implementor does not wish
to generate such output, he can define these procedures to be null,
comment them out, or delete each occurrence of them from the code. The
occurrences within read.command.octet (chart 3) have been commented out,
because for normal use they produce too much output:- one line per octet
received. The function of each of the routines is as follows:
trwritestring - writes the string supplied as the parameter to the
output buffer.
trwriteint - converts the integer supplied as the first parameter to
==> coral2x.txt <==
%begin
{'CORAL' TEST RESPONDER}
%c
{'COMMENT' VERSION 1.1}
{}
{The official definition of Coral 66 does not provide for the output of}
{data at run time. However the facilities provided by the following}
{routines are useful within the Test Responder for logging/debugging}
{purposes. They can be supplied by the implementor either by adapting}
{existing routines or by writing new ones.}
{}
{The use of these routines is optional. If the implementor does not wish}
{to generate such output, he can define these procedures to be null,}
{comment them out, or delete each occurrence of them from the code. The}
{occurrences within read.command.octet (chart 3) have been commented out,}
{because for normal use they produce too much output:- one line per octet}
{received. The function of each of the routines is as follows:}
{}
{}
{trwritestring - writes the string supplied as the parameter to the}
{ output buffer.}
==> coraltrans.txt <==
e coral2/coral2x
f/'cora/i/{/r0i/}/
(f/'comment'/i/{/(r0lv.;.\ri/}/mi.{.)*i/}/)*
m-0(f/"?"/s/"255"/)*
m-0(f/'integer' 'procedure'/s/%INTEGERFN/)*
m-0(f/'procedure'/s/%ROUTINE/)*
m-0(f/'value' 'integer'/s/%INTEGER/v. ,.ri.A.,v.).i. b.,)*
m-0(f/'integer' 'array'/s/%INTEGERARRAYname /v. ,.ri.c.,v.).i. d.,)*
m-0(f/'location' 'integer'/s/%integername /v. ,.ri.c.,v.).i. d.,)*
m-0(f/'define'/s/%owninteger /f/"/s/= /f/"/e)*
m-0(f/'then'/s/%THEN /m1f1/'begin'/s//m-r0i/%START; /,m)*
m-0(f/'answer'/s/%RESULT =/)*
m-0(f/'if'/s/%IF /)*
m-0(f/'else'/s/%else /r\m(v. .r)*v.'begin'.km-r0i/%start;/,)*
m-0(f/'and'/s/%AND /)*
m-0(f/%start/f/'end'/s/; %FINISH /)*
m-0(f/[/s/(/)*
m-0(f/]/s/)/)*
m-0(f/'or'/s/%or /)*
m-0(f/'bits'/s/BITS/)*
m-0(f/'then'/s/%then /)*
==> cp4syswor.txt <==
; CP4SYS.ASM Keep filename the same, so that we do not have to
; change CP4DEF and CP4LNK
; KERMIT - (Celtic for "FREE")
;
; This is the CP/M-80 implementation of the Columbia University
; KERMIT file transfer protocol.
;
; Version 4.0
;
; Copyright June 1981,1982,1983,1984,1985
; Columbia University
;
; Originally written by Bill Catchings of the Columbia University Center for
; Computing Activities, 612 W. 115th St., New York, NY 10025.
;
; This file contains the system-dependent code and data for KERMIT
; the Amstrad range of personal computers.
;
; Martin D. Beer
; Department of Computer Science,
; University of Liverpool.
==> cpmhelp.txt <==
SID
Syntax:
SID {pgm-filespec} {,sym-filespec}
Explanation:
The SID symbolic debugger allows you to monitor and test
programs developed for the 8080 microprocessor. SID supports
real-time breakpoints, fully monitored execution, symbolic
disassembly, assembly, and memory display and fill functions.
SID can dynamically load SID utility programs to provide
traceback and histogram facilities.
ENTER .subtopic FOR INFORMATION ON THE FOLLOWING SUBTOPICS:
COMMANDS EXAMPLES UTILITIES
==> cpsequest.txt <==
CPSE Facilities List
Smallest unit fully config.
Largest unit fully config.
Smallest unit, packet rate
Largest unit, packet rate
Line speeds & interface type
Ability to group PSE units at high speed
Pull boards on running system
Re-start attempt on failed boards
No of virtual calls: total
per link
Memory sizes
Max window size
Max packet size
==> cpsesetth.txt <==
@device[x2700]
@majorheading[CPSE]
@heading[Please do the following everytime the KB0 CPSE crashes or is reloaded:-]
@verbatim[SETTH LA14 TTD 300 10
SETTH LA14 RTF 200 10
SETTH LA14 PCC 200 10
SETTH LA41 RTF 100 10
SETTH LA42 RTF 100 10
SETTH LA42 PCC 100 10
SETTH IGST RTF 200 10
SETTH IGST TTD 100 10
SETTH ERCV RTF 50 10
]
@heading[Please do the following (at KB) everytime the AT CPSE crashes/is reloaded:-]
@verbatim[
SETTH LB07 L3T 100 10
SETTH MCSU RTF 100 10
]
==> cpsesumm.txt <==
@heading[CPSE Survey Summary]
@varbatim[
Name Range (maxs) Cost(k):10 18 48 100 Notes
===================================================================
==> cpse.txt <==
Initial Configuration for Kings Buildings Switch
================================================
Machine Speed of Line
2972-fe1 19.2
2972-fe2 19.2
2988-fe0 19.2
2988-fe1 19.2
Xgate(i/f to ring)19.2
GS Switch 19.2
C.S. Dept Vax 19.2
El. Eng. Vax 9.6
ERCC Vax 19.2
INFO 9.6
Arcus Prime 9.6
Abro Prime 9.6
Physics 11/45 9.6
==> crackerhelp.txt <==
***************************
* *
* THE CRACKER *
* Copyright (C) 1984-6 *
* I.W.SEARLE *
* All Rights Reserved *
* Version 2.31 *
* *
***************************
WELCOME to the THE CRACKER
All versions with Z80 processors
================================
INTRODUCTION
This file contains information about improvements and
updates to THE CRACKER made since the manual was printed. Many
==> cslinktest.txt <==
; PDP-11 LINK TEST PROGRAM PAL-11 VERSION(LKP11)
.ABSOLUTE
;REG DEFINITION
R1=%1
R2=%2
R3=%3
TEMP=%4
R5=%5
SP=%6 ;STACK PTR
PC=%7 ;PROG. CTR.
PS=777776 ;PSW
;********************
;CONDITIONALS HERE
BIT9=1 ;BIT9=1 FOR 9-BIT OPTION
;OMIT 'BIT9=1' FOR 8-BIT OPTION
PRAV=1 ;PRAV=1 IF STD KEYBOARD/PRINTER AVAILABLE
;OMIT 'PRAV=1' IF NOT AVAILABLE
==> cursorlyns.txt <==
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! PERKIN ELMER CURSOR ADDRESSING ROUTINES
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
%EXTERNALROUTINESPEC PROMPT(%STRING (15) S)
%CONSTINTEGER ESC = 27
%EXTERNALROUTINE PEHOME
PRINTCH(12)
%END
%EXTERNALROUTINE PECLEAR
PRINTCH(1)
%END
==> cursors.txt <==
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! PERKIN ELMER CURSOR ADDRESSING ROUTINES
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
%EXTERNALROUTINESPEC PROMPT(%STRING (15) S)
%CONSTINTEGER ESC = 27
%EXTERNALROUTINE PEHOME
PRINTCH(ESC); PRINTSYMBOL('H')
%END
%EXTERNALROUTINE PECLEAR
PRINTCH(ESC); PRINTSYMBOL('K')
%END
==> cv1.txt <==
<personal infoprmation has been edited out>
Curriculum Vitae
----------------
Thesis: 1976 University of Edinburgh M.Phil Computer Science
Title: IMP as a tool for Small Systems Implementation
Publications 'The Structure and Uses of the Edinburgh Remote Terminal Emulator'
Software - Practical Experience: Vol.8, 451-459 (1978) (joint paper)
An appraisal of the Advantages and Disadvantages of using a PBX for
Data Traffic - Proceedings, Networks '85.
==> dbug5s.txt <==
!*****************************
!* DBUG4S *
!*DATE: 04.DEC.79 *
!*****************************
!! STK = 300, STR = 1
%CONTROL K'100001'
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%PERMINTEGERMAPSPEC INTEGER
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER
%PERMINTEGERFNSPEC ADDR
%PERMINTEGERFNSPEC ACC
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%BEGIN
%CONSTINTEGER MAP PSECT = 16; ! SUPERVISOR CALL TO MAP TO PSECT
%CONSTBYTEINTEGERNAME ID = K'160030'
%CONSTINTEGER VIR DISP=K'22'; ! DISP TO 1ST VERSION NO
==> dbug77.txt <==
!FILE 'SYS_DBUG6S77'
!*****************************
!* DBUG6S *
!*DATE: 17.APR.80 *
!* MODIFIED FOR IMP77 *
!*****************************
!! STK = 300, STR = 1
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMROUTINESPEC MAP VIRT(%INTEGER A, B, C)
!%SYSTEMINTEGERFNSPEC MAP PSECT(%INTEGER TASK, SEG)
%BEGIN
%INTEGERFNSPEC MAP PSECT(%INTEGER SEG, TASK)
%CONSTBYTEINTEGERNAME ID == K'160030'
%CONSTINTEGER VIR DISP=K'22'; ! DISP TO 1ST VERSION NO
%CONSTBYTEINTEGERNAME INT == K'160060'
==> ddload.txt <==
!***************
!* DDLOS *
!* DL HANDLER *
!***************
%CONTROL K'101011'; ! 'SYSTEM' PROGRAM (FAST
! ROUTINE ENTRY/EXIT)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, R0, R1)
%BEGIN
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
%RECORDFORMAT P2F(%INTEGER D)
%RECORDFORMAT LPF(%INTEGER STATUS, DATA)
%CONSTRECORD (LPF) %NAME LP = K'116504'
! IN SEG 4 (REALLY A PUNCH!!)
==> deimosperm.txt <==
!
! specs for deimos perm routines
!
%externalroutinespec pon(%record(*) %name p)
%externalroutinespec poff(%record(*) %name p)
%externalroutinespec ponoff(%record(*) %name p)
%externalintegerfnspec mapvirt(%integer ser,seg1,seg2)
%externalintegerfnspec map abs(%integer vadd,len,id)
%externalintegerfnspec getid
%externalroutinespec alarm(%integer ticks)
%externalroutinespec linkin(%integer ser)
%externalroutinespec maphwr(%integer segs)
%externalintegerfnspec mappsect(%integer seg,task)
%externalroutinespec push(%record(*)%name q,%record(*)%name m)
%externalrecord(*)%mapspec pop(%record(*)%name q)
%externalintegerfnspec time
%externalroutinespec set prio(%integer prio)
%constbyteintegername own id==(8_160030); !8.1 compiler bug
%constbyteintegername fsys == k'160055'
%constbyteintegername id == k'160030'
%constbyteintegername int==(8_160060)
==> devlog1.txt <==
DEV 11/34 20.FEB.81 11.30
RING: 0-20978 0 0 0 0 0 0-22130-22130 1 1152 1152 0
RING: 0-28750 0 0 0 0 0 0-31398-31398 0 2648 2648 0
RING: 15 32259 3 0 0 0 0 2 29756 29735 1 2529 2529 0
RING: 0 31788 0 0 0 0 0 0 29271 29271 0 2517 2517 0
RING: 0-31428 0 0 0 0 0 0 31531 31531 0 2577 2577 0
RING: 0 32484 0 0 0 0 0 0 29949 29949 0 2535 2535 0
RING: 0 6268 0 0 0 0 0 0 4411 4411 0 1857 1857 0
RING: 0 28656 0 0 0 0 0 0 26220 26220 0 2436 2436 0
==> devlog2.txt <==
DEV 11/34 23.FEB.81 12.00 SATURATION TEST
RING: 0 0 0 0 0 0 0 0 0 0 1 0 0 0
RING: 26173-12027 21 17 359 85 509 815 2300-11237 551 516 1016 0
RING:-19973-32756 148 45 660 184 1079 1598 5953-31028 1068 1072 1986 0
RING:-26870-29405 150 46 742 202 1057 1472 11266-27745 1123 1155 2009 0
RING: 27775 14728 495 68 641 240 1395 1286-24599 16852 1321 1748 2001 0
RING: 27994 16315 439 58 647 242 1422 1258-27120 18378 1225 1699 2003 0
==> dgn1s.txt <==
! FILE 'dgn1s'
!*********************
!* dgn1s/dgn1y *
!* DATE: 10.FEB.82 *
!*********************
!STACK = 140
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL K'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (13) VSN = "DGN1:VSN001A
"
%BEGIN
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
==> dirs.txt <==
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! DIR LISTS CURRENT DIRECTORY
!
! W.S.C. 8TH APRIL 1980
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! STACK=2000 STREAMS=1
%CONTROL K'101011'
%BEGIN
! DATA AREAS
%CONSTINTEGER SERV=3
%CONSTINTEGER FSERV=4
%CONSTINTEGER DIRBLK=97
%CONSTINTEGER EXAMINE=0
%CONSTINTEGER GET NEXT=1
==> discovs.txt <==
%externalroutine disc(%string (255) s)
%externalroutinespec define(%string (255) s)
%integer i,j,k
define ("1,".s)
select input(1)
%cycle
readsymbol(i)
printsymbol(i) %if i>=32 %or i = nl
%repeat
%end
%endoffile
==> dmareq.txt <==
Use of DMA Ring Boards
Ring DMA boards will be put in the following machines:-
Nodes 2
Fep's 2
Pss Gateway 1
X25 Gateway 1
ERTE 1
Dev. Machine 1
Filestore 2
Four of these connections are new, ie the filestore machines, the second
FEP, and the 11/60 (or more correctly giving ERTE back its ring interface).
In addition, when the single word boards are released, TCP D will be
moved onto the ring as part of the switch to X25.
==> doc2.txt <==
@make[report]
@flushleft[Edinburgh Regional Computing Centre
Communications Group]
@majorheading[X.25 Packet Switch Survey]
@heading[2nd Stage Report]
@Subheading[General]
After the conclusion of the first stage survey, it was agreed that 6
companies be examined in more detail, they are Amdahl, Camtec, Dynatech, GEC,
Telefile and Telematics.
In view of the position of GEC and Camtec as existing suppliers in the Academic
Community, it was not considered necessary to examine their equipment to the
same depth as the rest.
Amdahl, GEC and Telematics are considered as suppliers for the high
connectivity and high throughput switch requirement while Camtec, Dynatech
and Telefile were considered for the small switch needs.
It should be noted that all costs are ex VAT
@subheading[Basis of Comparison]
==> docum_ddbug.txt <==
$A TAB=5, 10; CAPO=0; CAPSHO=0; INVERT=1; PAGENO=1
$A JUST=1; LINE=72; PAGE=59; TOP=3; BOTTOM=4; MARK=2
$L1CM
DEBUGGING PROGRAM
$B2
$L1C
OBJECT: DBUG
$A INDENT=1
$P2
@THIS PROGRAM IS USED AS AN AID TO DEBUGGING PROGRAMS,
IT WILL MORMALLY BE 'LINKED' TO A RUNNING PROGRAM ON THE
SYSTEM USING THE COMMAND .'T' (FOR DETAILS SEE LATER), ALL
ACCESSES TO LOCATIONS WILL THEN BE MADE IN THAT PROGRAMS
VIRTUAL MEMORY.
$B0 @IT MAY BE USED TO:-
$A INDENT=2
$B0 1) .SET AND .CLEAR BREAKPOINTS
$B0 2) @DUMP OUT THE .PSECT, .REGISTERS AND/OR THE .IMP .STACK.
$B0 3) .EXAMINE AND .CHANGE LOCATIONS IN CORE.
$B0 4) .DUMP GENERAL AREAS OF CORE.
$A INDENT=1
==> docum_dfaults.txt <==
$A INVERT=0; INVO=0
$A LINE=76; PAGE=0; MARK=2
$A CAP=0; CAPO=0; CAPSH=0; CAPSHO=0
$A TAB=4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68
$L1M
DEIMOS
$B2$T0%Fault$ Messages
$P1There are three main classes of fault messages output by
DEIMOS, they are
$A INDENT=3
$B1$T3$C-3 1)$T3Compiler run time messages
$B0$T3$C-3 2)$T3Loader error messages
$B0$T3$C-3 3)$T3System detected error messages.
$A INDENT=1
$B2$T0 1)$T1Compiler run time messages.
$P1These messages are produced when the compiler run time support
code detects an error. The program is stopped and the error number
is returned to the %task$ which$ started$ the$ program$ up. This task will
normally be the loader and the error message is produced in the form:
$B1$T2F A U L T n
$B1$T1where 'n' has the following values.
==> docum_dmanual2.txt <==
$A JUST=1; LINE=76; PAGE=58; TOP=3; BOTTOM=4; MARK=2
$A PAGENO=1
$A TAB=5,15,25
$B20
$L2CM
USER MANUAL FOR DEIMOS
AN OPERATING SYSTEM FOR THE PDP 11
$B2
$L1CM
B. GILMORE
$L2CM
AUGUST 1976
REVISED MAY 1978
$N
$L1CUM
CONTENTS
$B6
$A INDENT=1
.%TITLE $T6 .%PAGE
$B1 @GENERAL FEATURES $T6 3
$B1 @SYSTEM COMMANDS. $T6 7
==> docum_dmanual3.txt <==
$A JUST=1; LINE=76; PAGE=58; TOP=3; BOTTOM=4; MARK=2
$A PAGENO=1
$A TAB=5,15,25
$B20
$L2CM
USER MANUAL FOR DEIMOS
AN OPERATING SYSTEM FOR THE PDP 11
$B2
$L1CM
B. GILMORE
$L2CM
AUGUST 1976
REVISED MAY 1978
$N
$L1CUM
CONTENTS
$B6
$A INDENT=1
.%TITLE $T6 .%PAGE
$B1 @GENERAL FEATURES $T6 3
$B1 @SYSTEM COMMANDS. $T6 7
==> docum_dmanual.txt <==
$A JUST=1; LINE=76; PAGE=59; TOP=3; BOTTOM=4; MARK=2
$A PAGENO=1
$A TAB=5,15,25
$B20
$L1CM
USER MANUAL FOR DEIMOS
$B2
$L1CM
B. GILMORE
$L1CM
AUGUST 1976
$N
$L1CUM
CONTENTS
$B6
$A INDENT=1
.TITLE $T6 .PAGE
$B0 @GENERAL FEATURES $T6 3
$B0 @SYSTEM COMMANDS. $T6 4
$B0 @THE .EDITOR. $T6 7
$B0 @THE .IMP COMPILER. $T6 8
==> docum_dmphilp1.txt <==
$A MARK=2
$A TAB=5, 10, 15
$A JUST=1; LINE=69; PAGE=54; TOP=5; BOTTOM=7
$A NLS=2
$B10 $L1M
imp AS A tOOL FOR sMALL oPERATING sYSTEMS iMPLEMENTATION
$b2
$l1m
bRIAN a. c. gILMORE
$B10
$l1m
tHESIS pRESENTED FOR THE dEGREE OF mASTER OF pHILOSOPHY
$l1m
fACULTY OF sCIENCE, uNIVERSITY OF eDINBURGH
$l1m
oCTOBER 1976
$N
$L1CM
ABSTRACT
$P2 @THIS THESIS DISCUSSES THE DESIRABILITY
OF USING A HIGH LEVEL LANGUAGE FOR SMALL SYSTEMS
==> docum_dmphilp2.txt <==
$A PAGENO=71
$A MARK=2
$A TAB=5, 10, 15
$A JUST=1; LINE=69; PAGE=54; TOP=5; BOTTOM=7
$A NLS=1
$A MARK=2
$A TAB=5, 10
$A JUST=1; LINE=69; PAGE=54; TOP=5; BOTTOM=7
$L3CM
APPENDIX 1
USER MANUAL FOR THE FIRST SYSTEM
$N
$A TAB=5, 10; CAPO=0; CAPSHO=0; INVERT=0
$B20
$L1CM
USER MANUAL FOR MUSS11
$B2
$L1CM
B. GILMORE
$L1CM
==> docum_dsydesc2.txt <==
$A MARK=2
$A TAB=5, 10, 15
$A JUST=1; LINE=69; PAGE=54; TOP=5; BOTTOM=7
$A NLS=1
$L2CM
DESCRIPTION OF DEIMOS
AN OPERATING SYSTEM FOR PDP 11S
$B3
%@DESIGN AIMS
$P1 .DEIMOS WAS DESIGNED FOR OPERATION IN A MEDIUM
SIZED .PDP 11. @AT LEAST 16K WORDS OF CORE, A MEMORY MANAGEMENT UNIT,
A DISC OR SIMILAR FAST MASS STORAGE DEVICE, A TERMINAL AND A CLOCK ARE
REQUIRED.
$P1 @THE SYSTEM WAS DESIGNED WITH SIX MAIN AIMS:
$A INDENT=1
$B1
%@RUNNING %USER %PROGRAMS
$P0 @THE SYSTEM IS DESIGNED TO RUN GENERAL USER
PROGRAMS. @NORMALLY,
ABOUT TWENTY SIMULTANEOUS PROGRAMS ARE SUPPORTED,
BUT THIS FIGURE IS A PARAMETER AT SYSTEM
==> docum_dsydesc.txt <==
$A MARK=2
$A TAB=5, 10, 15
$A JUST=1; LINE=69; PAGE=54; TOP=5; BOTTOM=7
$A NLS=2
DESCRIPTION OF DEIMOS
$B1 $L1C
GOALS
$P0 @THE SECOND SYSTEM WAS DESIGNED FOR OPERATION IN A MEDIUM
SIZED .PDP 11. @AT LEAST 16K WORDS OF CORE, A MEMORY MANAGEMENT UNIT,
A DISC OR SIMILAR FAST MASS STORAGE DEVICE, A TERMINAL AND A CLOCK ARE
REQUIRED. @A FULLY SELF SUPPORTING SYSTEM REQUIRES 28K WORDS OF CORE
IN ORDER TO SUPPORT THE COMPILER.
$P1 @THE SYSTEM WAS DESIGNED WITH FIVE MAIN AIMS:
$A INDENT=1
$B1
%@RUNNING %USER %PROGRAMS
$P0 @THE SYSTEM IS DESIGNED TO RUN GENERAL USER
PROGRAMS. @NORMALLY,
ABOUT TWENTY SIMULTANEOUS PROGRAMS SHOULD BE SUPPORTED,
BUT THIS FIGURE SHOULD BE A PARAMETER AT SYSTEM
GENERATION. @EACH PROGRAM
==> docum_dsysman.txt <==
$A PAGENO=1; JUST=1; TOP=3; BOTTOM=4; MARK=2
$A NLS=2
$A TAB=5,10,15,20,25,30
$B1
$N
$L1CM
PDP 11/40 SYSTEM
$P1 @THE NEW SYSTEM IS BASED ON A MESSAGE PASING SCHEME. @A
MESSAGE CONSISTS OF FOUR WORDS, THE FIRST OF WHICH HOLDS THE
ROUTING INFORMATION, BOTH FOR THE MESSAGE AND ANY REPLY. @THE
REMAINING THREE WORDS ARE USED FOR PASSING PARAMETERS. @IN .IMP IT IS
EXPRESSED AS FOLLOWS:-
$A INDENT=1
.$%RECORD .$%FORMAT .PF($%BYTEINTEGER .SERVICE, .REPLY, .$%C
$I0
$I+1 .$%INTEGER .A1, .A2, .A3)
$A INDENT=0
$P1
@THREE ROUTINES ARE PROVIDED IN .'PERM' TO SEND AND RECEIVE MESSAGES,
THEY ARE ACCESSED AS FOLLOWS:-
$A INDENT=1
==> docum_kmc1.txt <==
$A INVERT=0; INVO=0
$A PAGENO=1; BOTTOM=4; TOP=3; PAGE=58
$A LINE=72; MARK=2
$A CAP=0; CAPO=0; CAPSH=0; CAPSHO=0
$A TAB=4,8,12,18,20,24,28,32,36,40,44,48,52,56,60,64,68
$N
$B15
$L1M
H A L K
$B2$L2M
A HIGH-LEVEL ASSEMBLY LANGUAGE
FOR THE KMC11
$B6
$L1M
AN INFORMAL INTRODUCTION
$N
$B2$T0%Introduction
$B2HALK is based upon the language HAL, designed and
implemented by HD on the Interdata 70 series and the
ICL 7502. Various modifications have been made to
accommodate the idiosyncracies of the KMC11.
==> docum_mdbug.txt <==
$A TAB=5, 10; CAPO=0; CAPSHO=0; INVERT=1; PAGENO=1
$A JUST=1; LINE=72; PAGE=59; TOP=3; BOTTOM=4; MARK=2
$L1CM
DEBUGGING PROGRAM
$B2
$L1C
OBJECT: DBUG
$A INDENT=1
$P2
@THIS PROGRAM IS USED AS AN AID TO DEBUGGING PROGRAMS,
IT MAY BE USED TO:-
$A INDENT=2
$B0 1) .SET AND .CLEAR BREAKPOINTS
$B0 2) @DUMP OUT THE .PSECT, .REGISTERS AND/OR THE .IMP .STACK.
$B0 3) .EXAMINE AND .CHANGE LOCATIONS IN CORE.
$B0 4) .DUMP GENERAL AREAS OF CORE.
$A INDENT=1
$P2
.DEBUG INDICATES ITS READINESS TO ACCEPT COMMANDS
BY TYPING .'DEBUG:'. @THE FOLLOWING COMMANDS MAY BE USED.
$A INDENT=2
==> docum_mflop.txt <==
$A TAB=5, 10; CAPO=0; CAPSHO=0; INVERT=1; PAGENO=1
$A JUST=1; LINE=76; PAGE=57; TOP=3; BOTTOM=4; MARK=2
$L1CM
PROGRAM TO COPY A FLOPPY DISC
$B3
$P1 @A %STAND %ALONE PROGRAM ON A PAPER TAPE IS PROVIDED
TO ENABLE A FLOPPY DISC TO BE COPIED. @THE PAPER TAPE IS
CALLED .'COPY .FLOPPY' AND THE PROCEDURE IS AS FOLLOWS:-
$A INDENT=1
$B1 1) @LOAD THE .MUSS11 SYSTEM IN THE NORMAL MANNER AND
THEN HALT THE PROCESSOR.
@THIS ACTION WILL LOAD THE 'PAPER TAPE BOOTSTRAP' INTO CORE,
ALTERNATLY THE .DEC BOOTSTRAP MAY BE USED - SEE THEIR MANUAL.
$B1 2) @REMOVE THE SYSTEM DISC FROM THE MACHINE AND PLACE THE
DISC %TO %BE %COPIED %FROM INTO DRIVE ZERO. @THE BLANK
DISC, OR DISC TO BE OVERWRITTEN IS LOADED ON DRIVE ONE.
$B1 3) @LOAD THE PAPER TAPE INTO THE READER.
$B1 4) @SET THE ADDRESS '077500' ON THE SWITCH REGISTERS
AND %PRESS .LOAD .ADDRESS.
$B1 5) @RAISE THE .HALT .SWITCH AND
%PRESS .START.
==> docum_mmanual.txt <==
$A TAB=5, 10; CAPO=0; CAPSHO=0; INVERT=0; PAGENO=1
$A JUST=1; LINE=76; PAGE=57; TOP=3; BOTTOM=4; MARK=2
$B20
$L1CM
USER MANUAL FOR MUSS11
$B2
$L1CM
B. GILMORE
$L1CM
JUNE 1975
$A INDENT=1
$A INVERT=1
$N
$L1CUM
CONTENTS
$B6
$A INDENT=1
.TITLE $T6 .PAGE
$B0 @GENERAL FEATURES $T6 3
$B0 @COMPILING A PROGRAM. $T6 4
$B0 @RUNNING A PROGRAM. $T6 5
==> docum_speeds.txt <==
$L1CM
COMPARISON OF SOME PDP11 PROCESSORS USING A PDP11/34 AS A BASE
$A TAB = 20,50,60
$B3 @TESTS WERE RUN ON @RELEASE 7 OF @DEIMOS USING THE STANDARD
EXTENDED INSTRUCTION SET EXCEPT WHERE NOTED.
$B3
11/34 $T+1 @NO MUL/DIV $T+1 $C+1 84.4$%
$B0 11/34 $T+1 @REL 6 @SUPR. $T+1 $C+1 89.2$%
$B0 11/34 $T+1 @STANDARD $T+1 100$%
$B1 11/40 $T+1 @NO MUL/DIV $T+1 105.4$%
$B0 11/40 $T+2 109.1$%
$B1 11/45 $T+1 @NO MUL/DIV $T+1 128.8$%
$B0 11/45 $T+2 148.1$%
$B6
$L1CM
DISC SPEEDS 1) RK05
$B2 @NO OF @SECTOR @INCREMENTS $T+1 @TRANSFERS/SEC
$B0 $C+8 0 $T+1 $C+6 25
$B0 $C+8 1 $T+1 $C+6 23
$B0 $C+8 2 $T+1 $C+5 103
$B0 $C+8 3 $T+1 $C+6 68
==> dpal7s.txt <==
! FILE 'DPAL7S'
!*****************
!* DPAL7S *
!* DA: 05.MAR.81 *
!* RL01 *
!*****************
! STK = 1400, STRMS = 1
%PERMROUTINESPEC SVC(%INTEGER EP, %INTEGERNAME P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%PERMINTEGERFNSPEC ACC
%CONSTINTEGERNAME DUMMY = 0
%BEGIN
%RECORDFORMAT SEGF(%INTEGER PAR, PDR, PT, X)
%RECORDFORMAT PSECTF(%INTEGER Q, %BYTEINTEGER ID, STATE, %C
%BYTEINTEGERARRAY NAME(0:3), %C
%BYTEINTEGER PRIO, %INTEGER POFFQ, R0, R1, R2, R3, %C
==> dqs12e.txt <==
! FILE 'FEP_DQS12E'
!**************
!* DQS12E *
!*DA:14.APR.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE DQS11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> dum2.txt <==
c 5
i 255
i 255
i 0
i 24
c 12
s -1
d -16
d 16
m 242
m 243
c 3
m 243
i 0
i 247
i 0
i 0
i 0
i 0
i 0
i 45
==> dum3.txt <==
m 243
c 2
d 0
d 7
d 0
d 10
d 0
d 1
d 1
d 234
d 2
d 13
d 54
d 56
d 56
d 32
d 67
d 104
d 61
d 32
d 49
==> dum4.txt <==
c 12
l 5
d -16
d 16
m 243
c 5
i 255
i 255
i 0
i 24
c 12
s -1
d -16
d 16
m 1
m 243
c 3
m 243
i 0
i 5
i 0
==> dumpgec2.txt <==
%externalroutine dumpgec(%string(63) s)
%conststring (25) vsn = " Version 1.3"
%owninteger print all = 0; ! prints lau data if <>0
%owninteger mon line = -1; ! line to monitor
%owninteger mon con = 0
%owninteger print this = 0
%constinteger our exchange = 1
%owninteger this exchange = 0, fix exch
%constinteger scd = 0
%constinteger ecd = 1
%constinteger dcd = 2
%constinteger laustats = 3
%constinteger unitstats = 4
%routinespec dumpaddr(%bytearrayname a, %byte l)
%routinespec writehex(%integer n,d)
!Routine for dumping GEC Network Management logs
%routinespec dat(%integer dat)
%routinespec tod(%integer d)
==> dumpgecjb.txt <==
%externalroutine dumpgec(%string(63) s)
%constinteger our exchange = 2
%constinteger scd = 0
%constinteger ecd = 1
%constinteger dcd = 2
%constinteger laustats = 3
%constinteger unitstats = 4
%routinespec dumpaddr(%bytearrayname a, %byte l)
%routinespec writehex(%integer n,d)
!Routine for dumping GEC Network Management logs
!J. butler 20.10.82
%routinespec dat(%integer dat)
%routinespec tod(%integer d)
%externalroutinespec define(%string(63) s)
%externalintegerfnspec smaddr(%integer chan,%integername l)
%externalintegerfnspec exist(%string(63) s)
%integer ina,inl,idunit, idexch,idtype
%string(63) t,u
u = ".out" %and t = s %unless s -> t.(",").u
define("1,".t)
==> dumpgec.txt <==
%externalroutine dumpgec(%string(63) s)
%conststring (25) vsn = " Version 1.3"
%owninteger print all = 0; ! prints lau data if <>0
%owninteger mon line = -1; ! line to monitor
%owninteger mon con = 0
%owninteger print this = 0
%constinteger our exchange = 1
%owninteger this exchange = 0, fix exch
%constinteger scd = 0
%constinteger ecd = 1
%constinteger dcd = 2
%constinteger laustats = 3
%constinteger unitstats = 4
%routinespec dumpaddr(%bytearrayname a, %byte l)
%routinespec writehex(%integer n,d)
!Routine for dumping GEC Network Management logs
%routinespec dat(%integer dat)
%routinespec tod(%integer d)
==> dvdup.txt <==
> dvn.txt <==
;**************************************
;* DVNO2S *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 06.MAR.82 *
;**************************************
; FOR SUP40 AND BEYOND - 100 INTERRUPTS - AND EXPANDED DUMP
; AUTOMATIC POWER UP ADDED
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
PXPT=56; POINTS TO RECORD P2 & PXP IN KERNAL
UPAR=177640
UPDR=177600
==> dvrub.txt <==
; FILE 'DVRUB'
;**************************************
;* DVRUB *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 06.MAR.81 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> dvrvp.txt <==
.PAGE
;****************** DPV 11 HANDLER *********************
; ELEMENT DVRVP IN NSILIB
;
; DPV11 Handler derived from the correspondng DUP11 handler.
;
; THIS VERSION PUTS THE FIRST 2 BYTES OF THE FRAME IN THE BUFFER'S
;PARAMETER BLOCK. THESE ARE NOT INCLUDED IN THE MESSAGE LENGTH.
;THE LENGTH COUNT MAY BE ZERO IF EITHER THE LENGTH REALY IS ZERO OR
;IF IT IS 256 BYTES. IN THE LATTER CASE THE POINTERS WILL BE NON-ZERO.
;
;** REGISTER DEFINITIONS **
DPVRCS=0
DPVRDB=2
DPVPSR=2
DPVTCS=4
DPVTDB=6
;** BIT DEFINITIONS **
TSOM=400
TEOM=1000
TEOMUP=2 ; TEOM in the upper byte.
==> dx11leeds.txt <==
.TITLE DX11
.SBTTL DX11 INTERRUPT ROUTINE - DATA AREAS AND DEFINTIONS
;DX11 INTERRUPT ROUTINE
;DATE: 03-FEBRUARY-84
;NOW READ SYSTEM CONFIGURATION FILE CONFIG PAL11
./ COPY=CONFIG
DX11BITS=1
DX11PAR=1
.PARAM=1
DEVPAR=1
EMTNAM=1
;
./ COPY=SYSMAC
.GLOBL $DX11I,DXTT,DXTTP,DXSPWT,DX11PCB,DXPROC,DXINIT,DXOPEN
.GLOBL DXTRAN,DXSTPR,DXBAST,DXBSTB,DXBSTA,$V,$SAVE,$RESTORE
;
DXMAX1=132. ;BURST LENGTH FOR LONG BURST DEVICES
; DXMAX2=4 ;BURST LENGTH FOR TERMINALS
; DXLONG=X'60 ;FENCE FOR LONG BURST
; DXDEV1 - LOWEST ADDRESS SUPPORTED
; DXDEV2 - ONE MORE THAN HIGHEST ADDRESS SUPPORTED
==> dxxxxx.txt <==
;**************************************
;* SYS_DXXXXX *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 06.MAR.82 *
;**************************************
;
; * PREP OPTIONS
; R - RK05 DUMPER
; F - FILESTORE SYSTEM
; N - NODES - EXTENDED INTERRUPTS
; X - RX02 DUMPER
; B - BISYNCH PSEUDO DMA
; H - DUP11 HDLC PSEUDO DMA
; V - LSI HDLC PSEUDO DMA (NB:DPV11 HARDWARE)
;
; NOTE: In order to assemble, the CLEAN option in prep MUST be used
;
; ******************** Options Included *********************
;
#IF R
; RK05 Dumper Included
==> dz11s.txt <==
!*****************************
!* *
!* DZ11 HANDLER *
!* DATE: 10.FEB.82 *
!* FOR ERTE: DATA GENERAL *
!*****************************
! STK = 300, STREAMS = 0
%CONTROL K'100001'
%CONSTSTRING (13) VSN = "Dz11:vsn001a
"
%RECORDFORMAT DUMF(%INTEGER D)
%CONSTRECORD (DUMF) %NAME NULL = 0
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%BEGIN
==> eam77.txt <==
! file 'fep_eam77'
!********************************
!* emas-2900 fep am1 handler *
!* file: eam7 *
!* date: 19.jul.82 *
!* modified for pcb interface *
!********************************
!! stack size = 300
%owninteger fep no = 9; ! number supplied on load
%control 1
%include "deimosperm"
%begin
%conststring (13)vsn = "am1h:vsn07w
"
%recordformat am1 linkf(%integer rxs, rxd, txs, txd)
==> eam88.txt <==
! file 'fep_eam77'
!********************************
!* emas-2900 fep am1 handler *
!* file: eam7 *
!* date: 19.jul.82 *
!* modified for pcb interface *
!********************************
!! stack size = 300
%owninteger fep no = 9; ! number supplied on load
%control 1
%include "deimosperm"
%begin
%conststring (13)vsn = "am1h:vsn07w
"
%recordformat am1 linkf(%integer rxs, rxd, txs, txd)
==> eamdum.txt <==
m 243
c 12
x 4
m 242
d -16
d 16
m 243
c 5
i 255
i 254
i 0
i 168
c 12
s -2
d -16
d 16
m 243
c 2
d 0
d 4
d 0
==> ecucrpt.txt <==
@make[report]
@device[x2700]
@flushleft[Edinburgh Regional Computing Centre]
@flushleft[For the attention of the E.C.U.C.]
@majorheading[Report on Communications]
The general level of the network service to users has been significantly
better this term.
@paragraph[CPSEs]
For the first time ever, the main KB CPSE has run for a period of three
months with no unscheduled hardware or software breaks. There were two
failures in the period caused by mains power outages. Over the three
months the CPSE was taken out 4 times at lunchtime, twice to fix simple
line faults and twice to upgrade the software.
The second KB CPSE had two software crashes on the 14th march, otherwise no
faults in the 3 month period. It has been taken briefly out of service in
the last few days to change network routing otherwise it has not been booked
out.
The Appleton Tower CPSE has not performed as well as the other two. There
==> edinburgh.txt <==
E0E6
Registering Institution:
Name prefix: UK.AC.
Standard name: EDINBURGH
Abbreviated name: ED
Entity Information:
Standard entity name: EDINBURGH
Abbreviated entity name: ED
Description: E.R.C.C. Distributed mail directory
Use:
Protocol Context: MAIL-NIFTP
Direction: FORWARD
Sub-network: JANET
DTE number: 000015000002
YBTS address: FTP.MAIL
Use:
Protocol Context: MAIL-NIFTP
Direction: FORWARD
Sub-network: PSS
DTE number: 234231354354
YBTS address: (DEMO,DEMO).EMAS.FTP.MAIL
==> edintcps.txt <==
EDINBURGH TCP INFO.
-------------------------
Site ! STORE ! SYNC. ! ASYNC. ! HOW !CONNECTED! NO.OF ! ! DEVICES !
! SIZE ! I/F ! I/F ! LOADED ! WHERE ! LINES ! ! !
! ! ! ! ! ! ! ! !
------------------------------------------------------------------------------------------------------------------------------------
___ATB1__!_32K___!_DPV-11_!_DZ-11___!_TU58_DL_!_NODE 6__!___32_____!___________!_______________!
___ATB2__!_32K___!_DPV-11_!_DZ-11___!_TU58_DL_!_NODE 6__!___24_____!___________!_______________!
___ATB3__!_32K___!_DUP-11_!_DZ-11___!_NODE_6__!_NODE 6__!___16_____!___________!__LP___________!
___BUSH__!_16K___!_DUP-11_!_DZ-11___!_Node_6__!_NODE 6__!___16_____!___________!_______________!
___CHEM__!_32K___!_DPV-11_!_DZ-11___!_TU58_DL_!_NODE 6__!___24_____!___________!__LP___________!
___CSA1__!_20K___!_DUP-11_!_DJ-11___!_Node_9__!_NODE 9__!___16_____!___________!__LP___________!
___CSA2__!_32K___!_DUV-11_!_TTY HAND!_TU58_DL_!_NODE 6__!___26_____!___________!_______________!
___EFCR__!_32K___!_DPV-11_!_DZ-11___!_TU58_DL_!_NODE 6__!___16_____!___________!__LP___________!
___ELIB__!_28K___!_DUP-11_!_DH-11___!_NODE_6__!_NODE 6__!___48_____!___________!_______________!
___ENG1__!_24K___!_DP-11__!_DH-11___!_Ptape___!_NODE 6__!___16_____!___________!_______________!
___ERSK__!_32K___!_DUV-11_!_TTY HAND!_TU58_DL_!_NODE 6__!___26_____!___________!_______________!
==> ednet0187.txt <==
{{circle(26,11.5,.5)}}
{{INLABEL(.14,"Fe3")}}
{{circle(9.5,15,1.5);inlabel(.2,"TelePAC@b15003000")}}
{{join(c1,c2)}}
{{circle(8,11,1.3);inlabel(.175,"TelePAC 3@b15004000")}}
{{circle(13,21.7,2);inlabel(.3,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(13,4,2);inlabel(.3,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(8.5,18,1.25);inlabel(.175,"TelePAC 2@b15005000")}}
{{CIRCLE(26,10.5,0.5);inlabel(.14,"Fe1")}}
{{CIRCLE(26,9.5,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(26,3.8,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(32.5,21.7,1.5);INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(26,7.3,.5);inlabel(.14,"Fe2")}}
{{circle(12.75,24.8,.1);fill(c12)}}
{{circle(14.75,24.8,.1);fill(c13)}}
{{circle(16.75,24.8,.1);fill(c14)}}
{{circle(20.75,25.2,0)}}
{{circle(6.75,25.2,0)}}
{{CIRCLE(6.75,1.4,0)}}
==> ednet0285.txt <==
{{circle(10,26,0.6)}}
{{INLABEL(.18,"N1")}}
{{circle(10,24.5,0.6)}}
{{INLABEL(.18,"N6")}}
{{circle(10,22.5,.75)}}
{{inlabel(.18,"RING@b")}}
{{inlabel(.12,"@b@bN72")}}
{{circle(10,15.7,3)}}
{{circle(10,4,3)}}
{{circle(24,11.5,0.5)}}
{{inlabel(.14,"Fe4@bT3")}}
{{circle(24,10.5,0.5)}}
{{inlabel(.14,"Fe1")}}
{{circle(24,9.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{circle(24,4,0.5)}}
{{inlabel(.14,"Fe2")}}
{{circle(30.5,15.7,1.5)}}
{{INLABEL(.14,"JANET@bPSE")}}
{{circle(24,7,.5)}}
{{inlabel(.14,"Fe1")}}
==> ednet0286.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.14,"Fe4")}}
{{circle(12,16,1.5);inlabel(.14,"Telepac@b15003000")}}
{{circle(31.5,4.5,0)}}
{{circle(10,21.7,2.5);inlabel(.35,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(10,4,2.5);inlabel(.35,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(23,2.5,0.5);inlabel(.14,"Fe3")}}
{{CIRCLE(23,10.5,0.5)}}
{{inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(23,3.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(30.5,21.7,1.5)}}
{{INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(23,7,.5)}}
{{inlabel(.14,"Fe2")}}
{{circle(15.4,24.8,.1);fill(c12)}}
{{circle(17.8,24.8,.1);fill(c13)}}
==> ednet0385.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.18,"EML")}}
{{circle(31.5,3,0.6)}}
{{INLABEL(.18,"N6")}}
{{circle(31.5,4.5,.75)}}
{{inlabel(.18,"RING@b")}}
{{inlabel(.12,"@b@bN72")}}
{{circle(10,21.7,3)}}
{{circle(10,4,3)}}
{{CIRCLE(28,9.5,0.5)}}
{{inlabel(.14,"Fe4@bT3")}}
{{CIRCLE(23,10.5,0.5)}}
{{inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(23,3,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(30.5,21.7,1.5)}}
{{INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(23,7,.5)}}
{{inlabel(.14,"Fe1")}}
==> ednet0485.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.18,"EML")}}
{{circle(31.5,3,0.6)}}
{{INLABEL(.18,"N6")}}
{{circle(31.5,4.5,.75)}}
{{inlabel(.18,"RING@b")}}
{{inlabel(.12,"@b@bN72")}}
{{circle(10,21.7,3)}}
{{circle(10,4,3)}}
{{CIRCLE(28,9.5,0.5)}}
{{inlabel(.14,"Fe4@bT3")}}
{{CIRCLE(23,10.5,0.5)}}
{{inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(23,3,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(30.5,21.7,1.5)}}
{{INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(23,7,.5)}}
{{inlabel(.14,"Fe1")}}
==> ednet0486.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.14,"Fe4")}}
{{circle(11,16,1.5);inlabel(.2,"TelePAC@b15003000")}}
{{circle(31.5,4.5,0)}}
{{circle(13,21.7,2.5);inlabel(.35,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(13,4,2.5);inlabel(.35,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(23,2.8,0.5);inlabel(.14,"Fe3")}}
{{CIRCLE(23,10.5,0.5);inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(23,3.8,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(32.5,21.7,1.5);INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(23,7.3,.5);inlabel(.14,"Fe2")}}
{{circle(12.75,24.8,.1);fill(c12)}}
{{circle(14.75,24.8,.1);fill(c13)}}
{{circle(16.75,24.8,.1);fill(c14)}}
{{circle(20.75,25.2,0)}}
{{circle(6.75,25.2,0)}}
{{CIRCLE(6.75,1.4,0)}}
{{circle(8.75,1.4,0)}}
==> ednet0586.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.14,"Fe4")}}
{{circle(11,16,1.5);inlabel(.2,"TelePAC@b15003000")}}
{{circle(0,0,0)}}
{{circle(13,21.7,2.5);inlabel(.35,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(13,4,2.5);inlabel(.35,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(23,2.8,0.5);inlabel(.14,"Fe3")}}
{{CIRCLE(23,10.5,0.5);inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(23,3.8,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(32.5,21.7,1.5);INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(23,7.3,.5);inlabel(.14,"Fe2")}}
{{circle(12.75,24.8,.1);fill(c12)}}
{{circle(14.75,24.8,.1);fill(c13)}}
{{circle(16.75,24.8,.1);fill(c14)}}
{{circle(20.75,25.2,0)}}
{{circle(6.75,25.2,0)}}
{{CIRCLE(6.75,1.4,0)}}
{{circle(8.75,1.4,0)}}
==> ednet0686.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.14,"Fe4")}}
{{circle(11,16,1.5);inlabel(.2,"TelePAC@b15003000")}}
{{circle(0,0,0)}}
{{circle(13,21.7,2.5);inlabel(.35,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(13,4,2.5);inlabel(.35,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(23,2.8,0.5);inlabel(.14,"Fe3")}}
{{CIRCLE(23,10.5,0.5);inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(23,3.8,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(32.5,21.7,1.5);INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(23,7.3,.5);inlabel(.14,"Fe2")}}
{{circle(12.75,24.8,.1);fill(c12)}}
{{circle(14.75,24.8,.1);fill(c13)}}
{{circle(16.75,24.8,.1);fill(c14)}}
{{circle(20.75,25.2,0)}}
{{circle(6.75,25.2,0)}}
{{CIRCLE(6.75,1.4,0)}}
{{circle(8.75,1.4,0)}}
==> ednet0785.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.18,"EML")}}
{{circle(31.5,3,0.6)}}
{{INLABEL(.18,"N6")}}
{{circle(31.5,4.5,.75)}}
{{inlabel(.18,"RING@b")}}
{{inlabel(.12,"@b@bN72")}}
{{circle(10,21.7,3);inlabel(.4,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(10,4,3);inlabel(.4,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(28,9.5,0.5)}}
{{inlabel(.14,"Fe4@bT3")}}
{{CIRCLE(23,10.5,0.5)}}
{{inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(23,3,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(30.5,21.7,1.5)}}
{{INLABEL(.14,"JANET@bPSE")}}
==> ednet0786.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.14,"Fe4")}}
{{circle(11,16,1.5);inlabel(.2,"TelePAC@b15003000")}}
{{join(c1,c2)}}
{{circle(0,0,0)}}
{{circle(13,21.7,2.5);inlabel(.35,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(13,4,2.5);inlabel(.35,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(23,2.8,0.5);inlabel(.14,"Fe4")}}
{{CIRCLE(23,10.5,0.5);inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(23,3.8,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(32.5,21.7,1.5);INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(23,7.3,.5);inlabel(.14,"Fe2")}}
{{circle(12.75,24.8,.1);fill(c12)}}
{{circle(14.75,24.8,.1);fill(c13)}}
{{circle(16.75,24.8,.1);fill(c14)}}
{{circle(20.75,25.2,0)}}
{{circle(6.75,25.2,0)}}
{{CIRCLE(6.75,1.4,0)}}
==> ednet0986.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.14,"Fe3")}}
{{circle(10.5,16,1.5);inlabel(.2,"TelePAC@b15003000")}}
{{join(c1,c2)}}
{{circle(0,0,0)}}
{{circle(13,21.7,2.5);inlabel(.35,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(13,4,2.5);inlabel(.35,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(23,2.8,0.5);inlabel(.14,"Fe4")}}
{{CIRCLE(23,10.5,0.5);inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(23,3.8,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(32.5,21.7,1.5);INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(23,7.3,.5);inlabel(.14,"Fe2")}}
{{circle(12.75,24.8,.1);fill(c12)}}
{{circle(14.75,24.8,.1);fill(c13)}}
{{circle(16.75,24.8,.1);fill(c14)}}
{{circle(20.75,25.2,0)}}
{{circle(6.75,25.2,0)}}
{{CIRCLE(6.75,1.4,0)}}
==> ednet1086.txt <==
{{circle(26,11.5,.5)}}
{{INLABEL(.14,"Fe3")}}
{{circle(9.5,17,1.5);inlabel(.2,"TelePAC@b15003000")}}
{{join(c1,c2)}}
{{circle(8.2,13.3,1.3);inlabel(.175,"TelePAC 2@b15005000")}}
{{circle(13,21.7,2);inlabel(.3,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(13,4,2);inlabel(.3,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(26,2.8,0.5);inlabel(.14,"Fe4")}}
{{CIRCLE(26,10.5,0.5);inlabel(.14,"Fe1")}}
{{CIRCLE(26,9.5,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(26,3.8,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(32.5,21.7,1.5);INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(26,7.3,.5);inlabel(.14,"Fe2")}}
{{circle(12.75,24.8,.1);fill(c12)}}
{{circle(14.75,24.8,.1);fill(c13)}}
{{circle(16.75,24.8,.1);fill(c14)}}
{{circle(20.75,25.2,0)}}
{{circle(6.75,25.2,0)}}
{{CIRCLE(6.75,1.4,0)}}
==> ednet1184.txt <==
{{circle(10,26,0.75)}}
{{INLABEL(.2,"N1")}}
{{circle(10,24,0.75)}}
{{INLABEL(.2,"N6")}}
{{circle(10,21,1)}}
{{circle(10,14,3)}}
{{circle(10,4,3)}}
{{circle(24,10.5,0.5)}}
{{circle(24,9.5,0.5)}}
{{circle(24,8.5,0.5)}}
{{circle(24,2.5,0.5)}}
{{circle(29,14,1.5)}}
{{circle(7,17.6,0)}}
{{circle(15.4,17.6,0)}}
{{circle(17.8,17.6,0)}}
{{circle(20.2,17.6,0)}}
{{circle(22.6,17.6,0)}}
{{circle(25,17.6,0)}}
{{circle(24,16.5,0)}}
{{circle(13,1.4,0)}}
{{circle(15.4,1.4,0)}}
==> ednet1186.txt <==
{{circle(26,11.5,.5)}}
{{INLABEL(.14,"Fe3")}}
{{circle(9.5,15,1.5);inlabel(.2,"TelePAC@b15003000")}}
{{join(c1,c2)}}
{{circle(8.2,11.3,1.3);inlabel(.175,"TelePAC 3@b15004000")}}
{{circle(13,21.7,2);inlabel(.3,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(13,4,2);inlabel(.3,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(8.5,18,1.25);inlabel(.175,"TelePAC 2@b15005000")}}
{{CIRCLE(26,10.5,0.5);inlabel(.14,"Fe1")}}
{{CIRCLE(26,9.5,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(26,3.8,0.5);inlabel(.14,"Fe2")}}
{{CIRCLE(32.5,21.7,1.5);INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(26,7.3,.5);inlabel(.14,"Fe2")}}
{{circle(12.75,24.8,.1);fill(c12)}}
{{circle(14.75,24.8,.1);fill(c13)}}
{{circle(16.75,24.8,.1);fill(c14)}}
{{circle(20.75,25.2,0)}}
{{circle(6.75,25.2,0)}}
{{CIRCLE(6.75,1.4,0)}}
==> ednet1284.txt <==
{{circle(10,26,0.6)}}
{{INLABEL(.18,"N1")}}
{{circle(10,24.5,0.6)}}
{{INLABEL(.18,"N6")}}
{{circle(10,22.5,.75)}}
{{inlabel(.18,"RING@b")}}
{{inlabel(.12,"@b@bN72")}}
{{circle(10,15.7,3)}}
{{circle(10,4,3)}}
{{circle(24,11.5,0.5)}}
{{inlabel(.14,"Fe4@bT3")}}
{{circle(24,10.5,0.5)}}
{{inlabel(.14,"Fe1")}}
{{circle(24,9.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{circle(24,3,0.5)}}
{{inlabel(.14,"Fe2")}}
{{circle(30.5,15.7,1.5)}}
{{INLABEL(.14,"JANET@bPSE")}}
{{circle(24,7,.5)}}
{{inlabel(.14,"Fe1")}}
==> ednet1285.txt <==
{{circle(23,11.5,.5)}}
{{INLABEL(.18,"EML")}}
{{circle(31.5,3,0.6)}}
{{INLABEL(.18,"N6")}}
{{circle(31.5,4.5,.75)}}
{{inlabel(.18,"RING@b")}}
{{inlabel(.12,"@b@bN72")}}
{{circle(10,21.7,3);inlabel(.4,"KB-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000015000000")}}
{{circle(10,4,3);inlabel(.4,"AT-CPSE@bGEC 4190@b")}}
{{inlabel(.14,"@B@B@b@b000016000000")}}
{{CIRCLE(28,9.5,0.5)}}
{{inlabel(.14,"Fe4@bT3")}}
{{CIRCLE(23,10.5,0.5)}}
{{inlabel(.14,"Fe1")}}
{{CIRCLE(23,9.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(23,3,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(30.5,21.7,1.5)}}
{{INLABEL(.14,"JANET@bPSE")}}
==> ednet.txt <==
{{circle(34,3,0.6)}}
{{INLABEL(.18,"N1")}}
{{circle(31.5,3,0.6)}}
{{INLABEL(.18,"N6")}}
{{circle(31.5,4.5,.75)}}
{{inlabel(.18,"RING@b")}}
{{inlabel(.12,"@b@bN72")}}
{{circle(10,21.7,3)}}
{{circle(10,4,3)}}
{{CIRCLE(24.5,11.5,0.5)}}
{{inlabel(.14,"Fe4@bT3")}}
{{CIRCLE(24.5,10.5,0.5)}}
{{inlabel(.14,"Fe1")}}
{{CIRCLE(24.5,9.5,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(24.5,3,0.5)}}
{{inlabel(.14,"Fe2")}}
{{CIRCLE(29.5.5,21.7,1.5)}}
{{INLABEL(.14,"JANET@bPSE")}}
{{CIRCLE(24.5,7,.5)}}
{{inlabel(.14,"Fe1")}}
==> enhance.txt <==
@make{report}
@device(x2700)
@flushleft[Edinburgh Regional Computing Centre]
@Majorheading[Proposal to Enhance the Edinburgh University Network]
@subheading{Introduction}
In 1983 the Board funded the purchase of two large GEC Campus Packet
Switches (CPSEs) to form the nucleus of the Edinburgh University X.25 network thus
replacing the older RCO network. This equipment enabled the University
to connect up a total of 62 hosts, terminal concentrators and gateways,
including a link to JANET.
The Board will recall that one of the problems that Edinburgh University
faces is a split between two sites some two kilometres apart. It was therefore
necessary to install two switches, one on the King's Buildings science campus
site and the other located in the main University area in George Square.
@subheading{Current Network}
Since 1983, the University has funded the gradual enhancement of the two
main switches up to close to their potential maximum size. In addition to
this, the University has also upgraded and extended the smaller GEC switch
which formed the pilot X.25 network. All three switches are now close
to their permitted maximum number of connections. A diagram showing the
==> equipprop.txt <==
Equipment Proposal
a) Equipment Needed
An Intel 88/45 single board computer with an ICL box and
power supply.
b) Purpose
A Name/Route Server for the Network.
On the X25 switch and the Cambridge Ring, the address of a
Server is determined by the line number, or ring station, to
which it is currently connected. On the NSI network the address
is independant of where it is attached so we have been able to
give our Servers fixed addresses. This is not possible with the
X25 switch and hence if a server is replugged we will 'lose' it.
A name/route server would enable us to keep track of the addresses
and enable load balancing of the larger mainframes.
==> erte_blog7s.txt <==
!
!
! BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY
! BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY
!
!
!
%CONTROL K'001001'
!
!
%BEGIN
!
!
!
!G.J.B. // J.C.A. STARTED 10:11:76
! ??? LAST UPDATE 14:3:79 10:30 - FILE BLOG6S
! FOR ERTE MK. 3.2 UPTO 128 USERS
! FOR CS1BM STANDARD COMMANDS
! LINES COMMENTED OUT WITH !@@ ARE CANDIDATES FOR CHANGE FOR F1 AND MK 3
==> erteburr_dup11eicl.txt <==
!**************
!* DUP11E *
!*DA:23.FEB.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE DUP11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P0, P1)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> erteburr_dvburr01.txt <==
;**************************************
;* burr01 *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* AND LOW LEVEL DUP11 HANDLER *
;* DATE: 07.FEB.80 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> erteburr_dvrub2icl.txt <==
;**************************************
;* BRUN10 *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 23.NOV.79 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
UPDR0=UPAR0+2; DITTO
==> erteburr_icl1s.txt <==
!*********************
!* ICL1S/ICL1Y *
!* DATE: 24.FEB.80 *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (7) VSN = 'VSN001B'
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PARF(%INTEGER TYPE, %RECORD (XXF) %NAME B, %C
%INTEGER LEN)
==> erteburr_init70.txt <==
!THE INITIALISE TASK "INIT" - FOR EMAS 2980.
!E.R.T.E. MK.3 VERSION - VIA THE DQS 11/E
! W.S.C. 27TH JULY 1976
! J.C.A. 31ST JAN 1978
! G.J.B. 19TH SEPT 1978
! J.C.A. 27TH SEPT 1978
! B.G. 25.JAN.80
! ??? LAST UPDATE 21:12:78 - FILE INIT70
! THIS VERSION IS FOR USE WITH ICL VME/B
!THE TASK RUNS IN SYSTEM SLOT 29
!SET STACK TO 140 STREAMS=0 PRIORITY=1
%CONTROL K'101011'
==> erteburr_xbm01.txt <==
;**************************************
;* XBM01 *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* AND LOW LEVEL DUP11 HANDLER *
;* DATE: 07.FEB.80 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> erteburr_xbur1s.txt <==
! FILE 'XBUR1S'
!*********************
!* xbur1S/xbur1Y *
!* DATE: 20.AUG.81 *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (7) VSN = 'VSN001B'
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PARF(%INTEGER TYPE, %RECORD (XXF) %NAME B, %C
==> erte_clog6s.txt <==
FILE 'CLOG6S'
!
!
! CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG
! CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG
!
!
!
%CONTROL K'001001'
!
!
%BEGIN
!
!
!
!G.J.B. // J.C.A. STARTED 10:11:76
! ??? LAST UPDATE 15:3:79 14:10 - FILE CLOG5S
!
! FOR ERTE MK.6 MK. 3 MODS MARKED !&&
! FOR ERTE MK.3 MK. 4 MODS MARKED !@@
! SET UP FOR F1 STANDARD COMMANDS
==> ertedgn_dgn1s.txt <==
! FILE 'dgn1s'
!*********************
!* dgn1s/dgn1y *
!* DATE: 10.FEB.82 *
!*********************
!STACK = 140
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL K'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (13) VSN = "DGN1:VSN001A
"
%BEGIN
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
==> ertedgn_dz11s.txt <==
!*****************************
!* *
!* DZ11 HANDLER *
!* DATE: 10.FEB.82 *
!* FOR ERTE: DATA GENERAL *
!*****************************
! STK = 300, STREAMS = 0
%CONTROL K'100001'
%CONSTSTRING (13) VSN = "Dz11:vsn001a
"
%RECORDFORMAT DUMF(%INTEGER D)
%CONSTRECORD (DUMF) %NAME NULL = 0
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%BEGIN
==> ertedgn_init90.txt <==
! FILE 'ERTE_INIT90'
!THE INITIALISE TASK "INIT" - FOR data general nova.
! W.S.C. 27TH JULY 1976
! J.C.A. 31ST JAN 1978
! G.J.B. 19TH SEPT 1978
! J.C.A. 27TH SEPT 1978
! B.G. 25.JAN.80
! ??? LAST UPDATE 21:12:78 - FILE INIT70
! THIS VERSION IS FOR USE WITH ICL VME/B
!THE TASK RUNS IN SYSTEM SLOT 29
!SET STACK TO 140 STREAMS=0 PRIORITY=1
%CONTROL K'101011'
==> ertedgn_rk07s.txt <==
!************
!* RK07S *
!*07.OCT.80*
!************
!* UNIT 4 ADDED
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM+MUL+TRUSTED
%BEGIN
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, A2, A3)
%RECORDFORMAT P2F(%INTEGER D)
%RECORDFORMAT RKF(%INTEGER RKCS1, RKWC, RKBA, RKDA, RKCS2, RKDS, RKER, %C
RKAS, RKDC, RKDB, MR1, EP1, EP2, MR2, MR3)
%CONSTRECORD (RKF) %NAME RK = K'117440'
==> erte_dup11e.txt <==
!**************
!* DUP11E *
!*DA:09.FEB.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE DUP11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P0, P1)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> erte_dupxxe.txt <==
!**************
!* DUPXXE *
!*DA:10.JUN.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN, FLAG)
%EXTERNALROUTINE DUP11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P0, P1)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> erte_duxxe.txt <==
!**************
!* DUPXXE *
!*DA:10.JUN.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN, FLAG)
%EXTERNALROUTINE DU11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P0, P1)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> erte_dvibms.txt <==
;**************************************
;* DVIBMS *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 27.AUG.80 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
UPDR0=UPAR0+2; DITTO
==> erte_dvxbms.txt <==
FILE 'ERTE_DVXBMS'
;**************************************
;* DVIBMS *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 11.JUN.80 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> erte_erteman8s.txt <==
$A PAGE=60;UND='#'
$A JUST=1;PGAP=5;TAB=5,10,20,30
$A NLS=2;INDENT=1;LINE=70
$A PAGENO=1;START=1
$L1CUM
E.R.T.E. USER MANUAL
$B8 $L1CUM
CONTENTS
$A INDENT=3
$B2 $L9CI
1) INTRODUCTION
2) SCRIPT FORMATS AND PREPROCESSING
3) PARAMETER FILES
4) RUNNING E.R.T.E.
5) ERROR MESSAGES
6) CONFIGURING E.R.T.E.
7) DATA ANALYSIS
8) OTHER RELEVANT DOCUMENTATION
$B8 $I1 $L1CUI
ISSUE NO. 8.0 (FOR ERTE MK. 6) 15TH OCTOBER 1980
==> erte_erteman.txt <==
$A PAGE=60;UND='#'
$A JUST=1;PGAP=5;TAB=5,10,20,30
$A NLS=2;INDENT=1;LINE=70
$A PAGENO=1;START=1
$L1CUM
E.R.T.E. USER MANUAL
$B8 $L1CUM
CONTENTS
$A INDENT=3
$B2 $L9CI
1) INTRODUCTION
2) SCRIPT FORMATS
3) PARAMETER FILES
4) RUNNING E.R.T.E.
5) ERROR MESSAGES
6) CONFIGURING E.R.T.E.
7) DATA ANALYSIS
8) SCRIPT FILE UTILITIES
9) OTHER RELEVANT DOCUMENTATION
$B8 $I1 $L1CUI
ISSUE NO. 6.0 (FOR ERTE MK.3 & ERTE MK.4) 16TH MARCH 1979
==> erte_ibm1s.txt <==
! FILE 'IBM2S'
!*********************
!* IBM1S/IBM1Y *
!* DATE: 10.OCT.80 *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (7) VSN = 'VSN001K'
%BEGIN
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
==> erte_icl1s.txt <==
!*********************
!* ICL1S/ICL1Y *
!* DATE: 24.FEB.80 *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (7) VSN = 'VSN001B'
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PARF(%INTEGER TYPE, %RECORD (XXF) %NAME B, %C
%INTEGER LEN)
==> erteicl_alog6s.txt <==
!
!
! ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG
! ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG
!
!
!
%CONTROL K'001001'
!
!
%BEGIN
!
!
!
!J.C.A. STARTED 10:11:76
! ??? LAST UPDATE 14:3:79 11:30 - FILE ALOG6S
! FOR ERTE MK 4.0 AND MK 3.2 UPTO 128 SCRIPTS
! --- STACK 15000, STREAMS 4 ---
==> erteicl_arith2.txt <==
! ARITHMETIC ROUTINE (SORT OF DOUBLE WORD)
!W.S.C. 24TH FEB 1977
!LAST UPDATED 25/03/77 09:45
%CONTROL K'001000'
%EXTERNALROUTINE ARITH(%INTEGERNAME N1,N2,%INTEGER BY1,BY2,OP)
!N1 & N2 ARE DOUBLE WORD INTEGERS WITH UP TO 100 IN N2,
!THE 1000'S IN N1.DITTO BY1 AND BY2.THE RESULT IS PUT
!INTO N1 &N2. FOR MPY AND DIV BY1 IS ASSUMED TO BE ZERO.
! OP MAY BE ONE OF THE FOLLOWING VALUES:-
%CONSTINTEGER ADD=0
%CONSTINTEGER SUB=1
%CONSTINTEGER MPY=2
%CONSTINTEGER DIV=3
%SWITCH SW(0:3)
==> erteicl_avars.txt <==
%CONTROL K'001001'
%EXTERNALROUTINE AVAR(%INTEGERARRAYNAME NUM,%C
%INTEGER N,START,OP,VAL,GAP)
!W.S.C. 1ST MARCH 1977
!LAST UPDATED 15/03/77 11:40
! TO COMPUTE THE AVERAGE OF THE NUMBERS IN THE ARRAY
!NUM AND THEIR STANDARD DEVIATION. THE COEFFICIENT OF VARIATION
!IS ALSO COMPUTED.
! THERE ARE N NUMBERS IN NUM,STARTING FROM START.VAL
!IS THE AVERAGE VALUE OF THE FIRST HISTOGRAM BIN(OP=4 ONLY)
!AND GAP IS THE DIFFERENCE BETWEEN ADJACENT BINS.
! OP=0 INTEGER AVERAGE ONLY
! OP=1 INTEGER AVERAGE AND S.D. ONLY
! OP=2 DECIMAL AVERAGE ONLY
! OP=3 DECIMAL AVERAGE AND S.D. ONLY
! OP=4 INTEGER AVERAGE & S.D. OF FREQUENCY GROUPED DATA.
==> erteicl_blog7s.txt <==
!
!
! BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY
! BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY BLOGY
!
!
!
%CONTROL K'001001'
!
!
%BEGIN
!
!
!
!G.J.B. // J.C.A. STARTED 10:11:76
! ??? LAST UPDATE 14:3:79 10:30 - FILE BLOG6S
! FOR ERTE MK. 3.2 UPTO 128 USERS
! FOR CS1BM STANDARD COMMANDS
! LINES COMMENTED OUT WITH !@@ ARE CANDIDATES FOR CHANGE FOR F1 AND MK 3
==> erteicl_clog6s.txt <==
! FILE 'CLOG6S'
!
!
! CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG
! CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG CLOG
!
!
!
%CONTROL K'001001'
!
!
%BEGIN
!
!
!
!G.J.B. // J.C.A. STARTED 10:11:76
! ??? LAST UPDATE 15:3:79 14:10 - FILE CLOG5S
!
! FOR ERTE MK.6 MK. 3 MODS MARKED !&&
! FOR ERTE MK.3 MK. 4 MODS MARKED !@@
! SET UP FOR F1 STANDARD COMMANDS
==> erteicl_cputs.txt <==
! FILE 'SYS_CPUTS'
! CPUT CPU UTILISATION MODULE
! W.S.C. 21ST MARCH
! LAST UPDATED 30TH MARCH 1977 10:40
! THIS MODULE RUNS AT THE LOWEST PRIORITY,MAINTAINING A
!COUNT.ON A TIME INTERRUPT IT COMPARES THE COUNT WITH A
!PREDETERMINED TOTALY IDLE VALUE TO CALCULATE THE APPROX.
! % CPU IDLE TIME.
! INT T FOR 10SEC INTERVAL
! INT H FOR 30SEC INTERVAL
! INT M FOR 60SEC INTERVAL
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%PERMINTEGERFNSPEC SVC(%INTEGER EP,P1,P2)
%RECORDFORMAT PF(%BYTEINTEGER SER,REPLY,%INTEGER A1,A2,A3)
==> erteicl_dlog8s.txt <==
!
!
! DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY
! DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY DLOGY
!
!
!
%CONTROL K'001001'
!
!
%BEGIN
!
!
!
!R.MCL. //G.J.B. // J.C.A. STARTED 20:03:78
! ??? LAST UPDATE 15:11:78 - FILE DLOG8S
!
!
!
! --- STACK NORMAL ---
!
==> erteicl_du11e.txt <==
!**************
!* DU11E *
!*DA:23.FEB.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE DU11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P0, P1)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> erteicl_dup11e.txt <==
!**************
!* DUP11E *
!*DA:23.FEB.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE DUP11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P0, P1)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> erteicl_icl1s.txt <==
!*********************
!* ICL1S/ICL1Y *
!* DATE: 24.FEB.80 *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (7) VSN = 'VSN001B'
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PARF(%INTEGER TYPE, %RECORD (XXF) %NAME B, %C
%INTEGER LEN)
==> erteicl_init70.txt <==
!THE INITIALISE TASK "INIT" - FOR EMAS 2980.
!E.R.T.E. MK.3 VERSION - VIA THE DQS 11/E
! W.S.C. 27TH JULY 1976
! J.C.A. 31ST JAN 1978
! G.J.B. 19TH SEPT 1978
! J.C.A. 27TH SEPT 1978
! B.G. 25.JAN.80
! ??? LAST UPDATE 21:12:78 - FILE INIT70
! THIS VERSION IS FOR USE WITH ICL VME/B
!THE TASK RUNS IN SYSTEM SLOT 29
!SET STACK TO 140 STREAMS=0 PRIORITY=1
%CONTROL K'101011'
==> erteicl_initdu.txt <==
!THE INITIALISE TASK "INIT" - FOR EMAS 2980.
!E.R.T.E. MK.3 VERSION - VIA THE DQS 11/E
! W.S.C. 27TH JULY 1976
! J.C.A. 31ST JAN 1978
! G.J.B. 19TH SEPT 1978
! J.C.A. 27TH SEPT 1978
! B.G. 25.JAN.80
! ??? LAST UPDATE 21:12:78 - FILE INIT70
! THIS VERSION IS FOR USE WITH ICL VME/B
!THE TASK RUNS IN SYSTEM SLOT 29
!SET STACK TO 140 STREAMS=0 PRIORITY=1
%CONTROL K'101011'
==> erteicl_printd.txt <==
! PRINTD PRINT DOUBLE WORD INTEGERS
!W.S.C. 28TH FEB 1977
!LAST UPDATED 02/03/77 12:50
%EXTERNALROUTINE PRINTD(%INTEGER N1,N2,SP,DEC)
!
!TO PRINT OUT DOUBLE WORDS,1000 S IN N1
!UP TO 1000 IN N2.SP IS TOTAL SPACE
!AS IN A WRITE COMMAND.IF DEC#0 THE LAST
!TWO DIGITS ARE PRINTED AFTER A DECIMAL POINT.
!
%BYTEINTEGERARRAY N(0:7)
%INTEGER I,P,S,M1,M2
I=10000
P=0
M1=N1
S=-1
%WHILE I>0 %CYCLE
==> erteicl_scpt2s.txt <==
!
!THE SCRIPT TASK FOR SIMPLE INTERACTIVE VIDEO CLUSTER
!
! W.S.C. MODIFIED FROM Z16301 22ND JAN 1980
!
!V001
!
! ??? LAST UPDATE 14:3:80
!
! THIS VERSION FOR USE WITH SIVC
!THIS TASK READS UP TO NUMSCR SCRIPT FILES FROM THE DISC
!AND SENDS SCRIPT LINES AT A GIVEN RATE TO THE TCP
!PROTOCOL HANDLER.THE TASK ASSUMES THAT TKPARN
!IS A PARAMETER FILE FROM WHICH IT READS:-
! 1)THE NUMBER OF SCRIPTS
! 2)THE % OF LINE SPEED TO BE TAKEN AS TYPING SPEED
! 3)THE TIME DELAY BETWEEN STARTING EACH SCRIPT
! FOR EACH SCRIPT:-
! 4)SCRIPT FILE NAME,SYSTEM AND UNIT NUMBER
! 5)LINE SPEED(CHARS/SEC)
! 6)GROUP ADDRESS
==> erteicl_sivcs9.txt <==
%CONTROL K'100001'
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SIMPLE INTERACTIVE VIDEO CLUSTER
!
! DATE OF FIRST CODING 10TH JAN 1980
!
! LAST UPDATED 12TH MAR 1980 FILE SIVCS9
!
! STACK=3000, STREAMS=1
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
%BEGIN
!
%SYSTEMROUTINESPEC LINKIN(%INTEGER SERVICE)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
!%SYSTEMROUTINESPEC SVC(%INTEGER A,B,C)
!
==> erteicl_sqrts.txt <==
!SQUARE ROOT ROUTINE
!KEN LOOSEMORE 17TH MARCH 1977
%CONTROL K'001001'
%EXTERNALROUTINE SQRT(%INTEGERNAME N1,N2)
%INTEGER R2,INC,S1,S2
%ROUTINE SQUARE(%INTEGERNAME S1,S2,%INTEGER R2)
%INTEGER A,B,X,Y,Z,D
A=R2//100
B=R2-100*A
X=A*A
Y=A*B*2
Z=B*B
D=Y//100
X=X+D
Z=Z+(Y-100*D)*100
D=Z//1000
%IF X> 3276 %OR(X=3276 %AND D>7) %START
==> erteicl_times.txt <==
!
!THE TIME TASK
!
!W.S.C. 27TH JULY 1976
!
!V006
!
!LAST UPDATED 12TH MAY 1977 09:40
!
!THIS TASK IS THE TIMING MECHANISM FOR THE STIMULATOR.IT GETS
!A CLOCK MESSAGE EVERY CTICS CLOCK TICKS AND MAINTAINS A LIST OF
!TASK REQUESTS FOR STIMULI.THESE ARE PASSED TO IT BY A PON
!WITH P_A1 THE NUMBER OF TICKS AND P_A3 A PARAMETER TO BE
!PASSED BACK TO THE CALLING TASK.
!IF P_A1<0 THIS IS TAKEN AS A REQUEST FOR A TIME STAMP
!IT SENDS BACK MINS IN P_A1,10TH SECS IN P_A2 AND LEAVES P_A3
!AS IT WAS.
!
!THIS TASK RUNS IN SLOT 28
!
!SET STACK TO 140,STREAMS=0
==> erteicl_xbm01.txt <==
;**************************************
;* XBM01 *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* AND LOW LEVEL DUP11 HANDLER *
;* DATE: 23.FEB.80 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> erteicl_xssllps.txt <==
%BEGIN
*K'104001'
%ENDOFPROGRAM
==> erteinit6.txt <==
! FILE 'ERTE_INIT70'
!THE INITIALISE TASK "INIT" - FOR EMAS 2980.
!E.R.T.E. MK.6 VERSION - VIA DUP11S
! W.S.C. 27TH JULY 1976
! J.C.A. 31ST JAN 1978
! G.J.B. 19TH SEPT 1978
! J.C.A. 27TH SEPT 1978
! B.G. 25.JAN.80
! ??? LAST UPDATE 21:12:78 - FILE INIT70
! THIS VERSION IS FOR USE WITH ICL VME/B
!THE TASK RUNS IN SYSTEM SLOT 29
!SET STACK TO 140 STREAMS=0 PRIORITY=1
==> erte_init70.txt <==
!THE INITIALISE TASK "INIT" - FOR EMAS 2980.
!E.R.T.E. MK.6 VERSION - VIA DUP11S
! W.S.C. 27TH JULY 1976
! J.C.A. 31ST JAN 1978
! G.J.B. 19TH SEPT 1978
! J.C.A. 27TH SEPT 1978
! B.G. 25.JAN.80
! ??? LAST UPDATE 21:12:78 - FILE INIT70
! THIS VERSION IS FOR USE WITH ICL VME/B
!THE TASK RUNS IN SYSTEM SLOT 29
!SET STACK TO 140 STREAMS=0 PRIORITY=1
%CONTROL K'101011'
==> erte_xbm01.txt <==
;**************************************
;* XBM01 *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* AND LOW LEVEL DUP11 HANDLER *
;* DATE: 23.FEB.80 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> etherpict.txt <==
{{horizontal}}
{{colour=thickblack}}
{{label(15,26.7,.35,0,"Possible ERCCNET in Oct. 1985")}}
{{colour=black}}
{{label(17,25.1,.14,0,"Appleton Tower")}}
{{circle(7.5,10,2)}}
{{inserc(1,.2,"KB CPSE")}}
{{circle(7.5,21,2)}}
{{inserc(2,.2,"G.Sq. CPSE")}}
{{circle(12,2,1)}}
{{inserc(3,.14,"JANET")}}
{{box(10,25.5)(10.8,26.3)}}
{{box(11.2,25.5)(12,26.3)}}
{{box(12.4,25.5)(13.2,26.3)}}
{{box(13.6,25.5)(14.4,26.3)}}
{{box(14.8,25.5)(15.6,26.3)}}
{{label(10.1,25.6,.14,0,"TCP")}}
{{label(11.3,25.6,.14,0,"TCP")}}
{{label(12.5,25.6,.14,0,"TCP")}}
{{label(13.7,25.6,.14,0,"TCP")}}
{{label(14.9,25.6,.14,0,"TCP")}}
==> fecount.txt <==
%const %string (13) vsn="26 JUL 83 1"
%external %integer %fn %spec dprocedure(%integer act, adr)
! %include "ercc04.pd21s_c03formats"
%constinteger MAXTCPNAME = 15 {TCP-name length}
%recordformat %C
PROCDATF(%string(6)USER, %string(MAXTCPNAME)TCPNAME, %byteinteger LOGKEY,
%byteinteger INVOC, PROTOCOL, NODENO, FSYS,
%integer LOGSNO,
%byteinteger SITE, REASON, CONSOLE1, CONSOLE2,
%integer ID, PROCESS, PREV WARN, SESSEND,
%byteinteger GETMODE, PREEMPT, BLNK, LINK)
!
%recordformat %c
TMODEF(%halfinteger FLAGS1, FLAGS2,
{.04} %byteinteger PROMPTCHAR, ENDCHAR,
{.06} %bytearray BREAKBIT1(0:3) {%or %halfintegerarray BREAKBIT2(0:1))} ,
{.0A} %byteinteger PADS, RPTBUF, LINELIMIT, PAGELENG,
{.0E} %byteintegerARRAY TABVEC(0:7),
{.16} %byteinteger CR,ESC,DEL,CAN, SP1,SP2,SP3,SP4,SP5,SP6)
==> fepb_bsp4s.txt <==
!********************************
!* EMAS-2900 BSP INTERFACE *
!* HANDLER *
!* FILE: BSP4S *
!* 18:3:80 *
!*********************************
!! STK = 300, STRM = 1
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
%CONTROL K'100001'
==> fepb_docs.txt <==
April 1980 - 1 -
_ ____________
1 Introduction
There are two programs, which run as separate tasks under the DEIMOS
operating system [1], to control the transmission of information on the ring.
The programs are written in IMP77 [2].
The first is a device driver for the ring interface, it provides for _____
basic
_____ [3] transfers on the ring, initialisation of the interface and
block
notification of power failure on the ring. The ring driver is designed to be
used by several tasks each of which specifies to the ring driver a range of
input ports for which it will accept input. The second program provides an
implementation of the byte stream protocol BSP [4], using the ring driver to
perform the data transfers.
The BSP handler, on initialisation, notifies the ring handler that all input to
ports in the range 1 up to the maximum number of byte stream ports allowed
==> fepb_eam7p.txt <==
!********************************
!* EMAS-2900 FEP AM1 HANDLER *
!* FILE: EAM7 *
!* DATE: 22.FEB.80 10.00 *
!* MODIFIED FOR PCB INTERFACE *
!********************************
!! STACK SIZE = 300
%OWNINTEGER FEP NO = 0
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%CONTROL K'100001'
==> fepb_itps7.txt <==
!********************************
!* EMAS-2900 FEP ITP SERVER *
!* FILE: ITPS7/ITPS7Y *
!* DATE: 30.APR.80 16.10 *
!********************************
!MODIFIED FOR RING USING BYTE STREAM PROTOCOL INSTEAD OF NSI
!
!! STACK SIZE = 500
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
==> fepb_notes.txt <==
20:6:80
This is the first NSI-less FEP
ITPS7 and RJES8 have been edited to change the record formats from
NSI compatability to BSP form, the record formats have been renamed
to reflect this. GATE has disappeared to be replaced by BSPS and the
new RING has a simpler function. NSIW has been likewise altered to
interface to BSPS. EAM, COMM and BUFF are unchanged.
==> fepb_nsiws.txt <==
!**********************
!* NSIWS/NSIWY *
!* DATE: 25.SEP.79 *
!*********************
%CONSTSTRING (7) VSN = "VSNK01B"
!! STACK = 400, STREAMS = 3
!! NOTE: FOR VERSIONS THAT ARE RUN OUT OF A 2900 FEP SYSTEM,
!! MESSAGES FROM THE NETWORK SHOULD BE ENABLED - SEE
!! THE COMMENT AT 'MESSAGES ENABLED'
%CONTROL K'100001'
!STACK=400, STREAMS=3
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%EXTERNALPREDICATESPEC READ FNAME(%RECORD(XF)%NAME FILE)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%BEGIN
%%RECORDFORMAT ITPF(%BYTEINTEGER CNSL,HB1,HB2,LEN, %C
==> fepb_ring4s.txt <==
!********************************
!* EMAS-2900 RING INTERFACE *
!* HANDLER *
!* FILE: RING4S *
!* 27:3:80 *
!*********************************
!! STK = 300, STRM = 1
! COMPILE OPTIONS
! ---------------
! TRACE OPTION #T ON
! ERROR OPTION #E ON
! STATS OPTION #S OFF
!
!NB LOCATION K'140016 IS USED TO HOLD THE CHECKSUM SO THAT IT MAY
!BE ACCESSED FROM CODE
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
==> fepb_rjes8.txt <==
%CONSTSTRING (7) VSN = "VSNK08P"
!********************************
!* EMAS-2900 FEP RJE SERVER *
!* FILE: RJES8/RJES8Y *
!* DATE: 06.MAR.80 *
!********************************
!MODIFIED FOR RING TO USE BYTE STEAM PROTOCOL INSTEAD OF NSI
!! STACK SIZE = 300
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
==> fepconn.txt <==
@majorheading[FEP Connections]
@heading[EMAS]
@verbatim[
NOW FUTURE (where different)
FE1 Line 1 000016000002 0000150010??
Line 2 000015000001
Fe2 Line 1 000015000002
Line 2 000016000001 Not in use
Fe3 Line 1 000015001028
]
@heading[Bush]
@verbatim[
FE1 Line 1 000016000003 000015000008
Line 2 000071000004 (Strathclyde)
==> fepfig2s.txt <==
%OWNINTEGER END = -1
%OWNINTEGERARRAY TIME(0:1100) = 0(1101)
%OWNINTEGERARRAY KBS(0:1100) = 0(1101)
%OWNINTEGERARRAY CPU(0:1100) = 0(1101)
%OWNINTEGERARRAY USERS(0:1100) = 0(1101)
%OWNINTEGERARRAY RJE(0:1100) = 0(1101)
%OWNINTEGERARRAY PKTS(0:1100) = 0(1101)
%OWNINTEGERARRAY SBR(0:1100) = 0(1101)
%OWNINTEGERARRAY ITP(0:1100) = 0(1101)
%OWNINTEGERARRAY RJEI(0:1100) = 0(1101)
%OWNREAL TIMEI = 1, MAX1, MAX2, SLOPE1, SLOPE2
%ROUTINESPEC SPECGRAPHS(%STRING (255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING (255) S)
%EXTERNALROUTINESPEC CLOSE STREAM(%INTEGER CHAM)
%EXTERNALROUTINE FEPDO(%STRING (255) S)
%STRING (255) T, U, UU, TITLE, UUU
%RECORDFORMAT FF( %C
%INTEGER TIM, USERS,STA,CPU,PKTS,SBR,BYT,RJEO,RJEI)
%INTEGER I, DIFF, K, L, US, CP, KB, PK, RJ, WHO, WHO1, WHO2
%OWNINTEGER USERSX, STA, CPUX, PKTSX, SBRX, BYT, RJEO, TIM, RJEIX
%OWNINTEGER POINTS, FEP NO = -1, FLAG = -1
==> fepfig3s.txt <==
%owninteger end = -1
%ownintegerarray time(0:1100) = 0(1101)
%ownintegerarray kbs(0:1100) = 0(1101)
%ownintegerarray cpu(0:1100) = 0(1101)
%ownintegerarray users(0:1100) = 0(1101)
%ownintegerarray rjeo(0:1100) = 0(1101)
%ownintegerarray pkts(0:1100) = 0(1101)
%ownintegerarray sbr(0:1100) = 0(1101)
%ownintegerarray itp(0:1100) = 0(1101)
%ownintegerarray rjei(0:1100) = 0(1101)
%owninteger length, arraddr
%ownreal timei = 1, max1, max2, slope1, slope2
%externalintegerfnspec smaddr(%integer chan, %integername len)
%externalroutinespec destroy(%string (255) s)
%externalroutinespec newsmfile(%string (255) s)
%routinespec graph1(%realarrayname results)
%routinespec graph4(%realarrayname results)
%routinespec graph5(%realarrayname results)
%routinespec graph6(%realarrayname results)
%externalroutinespec define(%string (255) s)
==> feploads.txt <==
!*************************
!* loadups/loadupy *
!* DATE: 05.jan.82 *
!* This is a special version of loadup *
!* to load the command :- *
!* batch go/.tt *
!***************************************
%include "deimosperm"
%begin
%constinteger load ser = 5
%recordformat pe(%byteinteger service, reply, (%integer a1, %c
%byteintegername b, %integer c) %or %c
(%byteinteger line, line type, %integer ad, %byteinteger rxint, txint))
%record (pe)p
%integer i, j, k, time
==> fepmons.txt <==
%externalroutine fepmon(%string (255) s)
%dynamicroutinespec fepgraphs(%string (255) s)
%externalroutinespec define(%string (255) s)
%string (255) t, u, uu, title, uuu
%recordformat ff( %c
%integer tim, users,sta,cpu,pkts,sbr,byt,rjeo,rjei)
%integer i, diff, k, l, us, cp, kb, pk, rj, who, who1, who2
%owninteger users, sta, cpu, pkts, sbr, byt, rjeo, tim, rjei
%owninteger points, fep no = -1
%constintegerarray cpu f(0:6) = %c
235(3), 197, 550(3)
%conststring (9) %array fep name(0:5) = %c
"2980(0) ", "2980(1) ", "2980(2) ",
"2972(4) ", "2972(1) ", "2972(2) "
%record (ff) f
!!
!!
!!
%routine rd(%integername n)
read(n)
%if n< 0 %then n = n+32768*2
==> figs.txt <==
@b[@I[Fig. 1 Edinburgh University Data Network]]
@blankspace[0.9 in]
@b[@I[Fig. 2 Edinburgh University Speech Network]]
@blankspace[0.9in]
@b[@I[Fig. 3 PABX/LAN Project network]]
@blankspace[0.9in]
@b[@I[Fig. 4 Data Connection to a PABX]]
@blankspace[0.9 in]
@b[@I[Fig. 5 X25 Network Connection]]
@blankspace[0.9 in]
@b[@I[Fig. 6 Host Connection to a PABX]]
@blankspace[0.9in]
@b[@I[Fig. 7 PABX/LAN Connection]]
@blankspace[0.9 in]
@b[@I[Fig. 8 Trunk Connection]]
==> files.txt <==
!F---FILE SYSTEM INTERROGATOR
!W.S.CURRIE 4TH DEC 1976
!AMENDED TO HANDLE # FILES - GJB
! V006
!LAST UPDATED 15TH MAY 1977 18:50
! THIS IS TO REPLACE THE EXISTING F.IT HAS THE
!FOLLOWING FACILITIES:-
! A : LISTS ALL FILES IN THE CURRENT DIRECTORY ALONG
! WITH THE START BLOCK,PROTECT CODE AND NUMBER
! OF BLOCKS IN THE FILE.
! B FILENAME : GIVES DATA FOR SPECIFIC FILE AS IN A.
! C : GET CURRENT L VALUES
==> flink.txt <==
!
! C.S. LINK HANDLER FOR KMC11 - GJB 28/06/78
!
!
! KMC11 PROGRAM TO PERFORM BLOCK TRANSFERS BETWEEN PDP-11 AND
! C.S. DEPARTMENT NINE BIT LINK. BUFFERS ARE PASSED, USING THE
! CSRs AS FOLLOWS :-
! (1) PDP-11 -> KMC11
! (A) PDP-11 SETS CSR0.4 (CSR REQUEST)
! (B) KMC11 SETS CSR2.1 (CSR GRANT) AFTER ARBITRARY DELAY
! (C) PDP-11 LOADS BUFFER INFO :
! CSR2.0 = 0 (RX BUFF), 1 (TX BUFF)
! CSR2.2/3 = BIT 16/17 OF ADDRESS
! CSR3 = LENGTH (IN WORDS)
! CSR2.7 = EXTRA BYTE MARKER
! CSR4/5 = BIT 0-15 OF ADDRESS
! (D) PDP-11 RESETS CSR0.4
! (2) KMC11 -> PDP-11
! (A) KMC11 LOADS BUFFER INFO, AS ABOVE
! (B) KMC11 SETS CSR2.4 (DATA READY)
!
==> fred.txt <==
%BEGIN
%EXTERNALROUTINESPEC TERMINATE
%EXTERNALROUTINESPEC PROMPT(%STRING (17) S)
%OWNSTRING(1) N="A"
%INTEGER I,J,K
CHARNO(N,1)=0
PROMPT(N)
%CYCLE
READCH(I)
PRINTCH(I)
TERMINATE
%REPEAT
%ENDOFPROGRAM
==> fspec2.txt <==
$a device = x2700
$d3 "COMPMODROMAN11"
$d4 "COMPMODITALIC11"
$3
$a bold='~'
$a tab = 1,3,10,10,55,77
$a just=1
$a wunder='%'
$a indent = 0
$4
Checklist for Shortlisted Suppliers $3
$b0$t4 H/W & S/W outline of switch systems, with details as necessary
$b0$t4 Conformance to current PSE specifications
$b0$t4 Conformance to X.25(1984), particuarily OSI CONS (ISO DP8878)
$b0$t4 packet switch rates & meaning
$b0$t4 Cost variation vs throughput
$b0$t4 Cost per conection
$b0$t4 Limits on no of connections
$b0$t4 Speed range & type of interface + details of high speed i/fs
$b0$t4 Management options for multiple switch networks
$b0$t4 - remote operation, autonnomous control etc
==> fspec.txt <==
$a device = x2700
$d3 "COMPMODROMAN11"
$d4 "COMPMODITALIC11"
$3
$a bold='~'
$a tab = 1,3,10,10,55,77
$a just=1
$a wunder='%'
$a indent = 0
$4
X25 Facilities - $3
$b0$t4 Fast Select;
$b0$t4 Packet and Window size negotiations;
$b0$t4 Call Statistics;
$b0$t4 Permanent Virtual Circuits;
$b0$t4 Call Redirection;
$b0$t4 Reverse Charging.$b1
$4
Access Units - $3$b0
$t4 Bit Rates of 2.4k,4.8k,9.6k,19.2k,48k.$b0
$t4 Physical Level Interfaces - V24/V28, V35, X21.$b0
==> fsystu581s.txt <==
! FILE 'SYS_FSYSTU581S'
!******************************
!* FILE SYSTEM HANDLER *
!* FSYS1S/FSYS1Y *
!* DATE: 28.JUN.79 *
!******************************
!*W.S.C. 25TH AUGUST 1976
!*B.G. 27.MAR.78
!*THIS HANDLER IS THE FILE SYSTEM UTILITY TO REPLACE THE
!*EXISTING ONE IN DEIMOS TO PERMIT A FILE SYSTEM TO BE
!*CREATED ON THE AMPEX 9500 DISC AS WELL AS THE RK05'S.
!*IT IS A CONCEPTUAL COPY OF THE RK05 FILE SYSTEM HANDLER
!*EXCEPT THAT A BUFFER POOL IS USED FOR BLOCK DESCRIPTORS
!*AND DIRECTORY BLOCKS.
!*THE CODE IS SHARED BY 3 SYSTEM SLOTS,4 FOR THE RK05'S,
!*AND 9,15 FOR THE AMPEX DISC.THE AMPEX DISC IS LOGICALLY
==> ftppd_buildb.txt <==
new
PREP ftppd_source,FTP#IMP,x,CLEAN,b
DIMP11 ftp#imp
LINK11 /FTP
FTP
.STACK 3000
.STREAMS 2
.NAME FTPQ
.stackseg 6
.END
FTP
destroy ftpqy
rename ftp#abs,ftpqy
old
==> ftppd_build.txt <==
new
PREP ftppd_source,FTP#IMP,x,CLEAN
DIMP11 ftp#imp
LINK11 /FTP
FTP
.STACK 3000
.STREAMS 2
.NAME FTPQ
.END
FTP
destroy ftpqy
rename ftp#abs,ftpqy
old
==> ftppd_cons.txt <==
%EXTERNALROUTINE FTPCONS(%STRING(255) FILES)
%EXTERNALROUTINESPEC CONS(%INTEGER FIGUREBASE, AMBIBASE, %C
SSBASE, PHRASEBASE, PHRASELIMIT, IDENT, %INTEGERNAME GMAX, %C
KMAX, %INTEGERARRAYNAME PHRASE, ITEM, NEXT, ATOMIC, MASK, %C
KEYDICT, INDEX, CHAR)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
%STRING(63) GRAFILE, NEWFILE, LISTFILE
%OWNINTEGER GRA=1; !IN STREAMS
%OWNINTEGER ERR=0, NEW=2, GLIST=3, DLIST=3
!OUTSTREAMS
%OWNINTEGER SSBASE=0, PHRASEBASE=1, FIGUREBASE=1, %C
IDENT=255, PHRASELIMIT=255, AMBIBASE=255
%INTEGER GMAX, KMAX
%INTEGERARRAY CHAR(1:2000), INDEX(0:511)
%INTEGERARRAY ITEM, NEXT(0:1023), PHRASE(SSBASE:PHRASELIMIT), %C
ATOMIC, MASK(FIGUREBASE:PHRASELIMIT)
%INTEGERARRAY KEYDICT(32:511)
%INTEGER I, J, K, MAX
==> ftppd_doc.txt <==
2. SOME THEORY
It is well known that the syntax of a context-free language may be
described by a set of phrases expressed as BNF productions. Alternatively,
the phrases may be described by regular expressions. This is equivalent but more
powerful. For example the language:-
<L> -> <exp> <rest>
<rest> -> <null> | + <exp> <rest> | - <exp> <rest>
<exp> -> <var> | <const>
May be written:-
L -> exp (( + , - ) exp)*
exp -> var , const
The constructs used to form the regular expression are:-
L -> A B
which describes A and B following sequentially.
==> ftppd_newlist.txt <==
! ?
" ?
# ?
$ ?
% ?
& ?
' ?
( ?
) ?
* ?
+ ?
, ?
- ?
. ?
/ ?
0 ?
1 ?
2 ?
3 ?
==> ftppd_obj.txt <==
%constbyteintegerarray token(0: 125)=0,
35, 203, 76, 77, 78, 79, 80, 63,
81, 82, 166, 211, 84, 165, 166, 84,
85, 80, 64, 38, 24, 39, 47, 168,
0, 129, 130, 131, 132, 133, 134, 135,
136, 137, 139, 140, 141, 142, 143, 144,
145, 146, 147, 43, 161, 34, 31, 33,
33, 33, 33, 33, 32, 32, 86, 88,
86, 86, 86, 86, 86, 86, 87, 88,
56, 55, 59, 58, 60, 57, 61, 62,
54, 172, 0, 43, 43, 41, 170, 0,
43, 41, 170, 0, 44, 38, 21, 30,
45, 30, 26, 30, 45, 30, 27, 45,
30, 28, 65, 66, 65, 73, 38, 20,
158, 39, 168, 0, 138, 19, 31, 32,
86, 88, 55, 54, 71, 67, 198, 72,
71, 68, 65, 71, 69
%constbyteintegerarray next(0: 125)=0,
2, 4, 5, 6, 7, 8, 9, 10,
0, 11, 14, 15, 17, 14, 14, 17,
18, 19, 9, 21, 22, 23, 24, 26,
==> ftppd_oldsource.txt <==
%control 1
#if ~x
#if n
#report NSI version
#else
#report ring version
#fi
#else
#report ts version
#fi
%include "ercm09.b_deimosspecs"
%conststring (9) vsn = "FTPQ..1n "
%begin
%externalstring (255) %fnspec cli param
#datestring
#timestring
#if ~x
#if n
==> ftppd_readme.txt <==
The contents of ftppd are as follows:-
build - example build file for the ftp handler
cons - source of the ftp table constructor
consy - object of the above
cons1y - object of the grammar contructor
doc - some documentation (covering theory only as of 4.4.83)
obj - object of the ftp program
source - source of above
table - source of the table specifying ftp
To build a new ftp handler:-
1.insert ftppd_consy and ftppd_cons1y
2.ftpcons ftppd_table/tableobject,tablelist
3.edit tableobject into ftppd_source replacing arrays token, next,
action and value
4.follow scheme of commands in ftppd_build
Best of luck - Noel
==> ftppd_source.txt <==
%control 1
#if ~x
#if n
#report NSI version
#else
#report ring version
#fi
#else
#report ts version
#fi
%include "ercm09.b_deimosspecs"
#if ~b
%conststring (9) vsn = "FTPQ..1o "
#else
%conststring (19) vsn = "FTPQ..1o (on FTQ) "
#fi
%begin
%externalstring (255) %fnspec cli param
==> ftppd_tableold.txt <==
/
[LITERALS]
[ATTRIBUTES]
1 PROTID/0
ACCESSMODE/1
TRANSCODE/2
TEXTFORM/3
MAXREC/5
TRANSLIM/6
INITM/11
TIMEOUT/13
FACILITIES/14
TRANSSTATE/15
DATATYPE/32
FILENAME/64
USERNAME/66
USERPASS/68
FILEPASS/69
ACCOUNT/74
ACCPASS/75
FILESIZE/96
==> ftppd_table.txt <==
/
[LITERALS]
[ATTRIBUTES]
1 PROTID/0
ACCESSMODE/1
TRANSCODE/2
TEXTFORM/3
MAXREC/5
TRANSLIM/6
INITM/11
TIMEOUT/13
FACILITIES/14
TRANSSTATE/15
DATATYPE/32
FILENAME/64
USERNAME/66
USERPASS/68
FILEPASS/69
ACCOUNT/74
ACCPASS/75
FILESIZE/96
==> ftppd_tablist.txt <==
! ?
" ?
# ?
$ ?
% ?
& ?
' ?
( ?
) ?
* ?
+ ?
, ?
- ?
. ?
/ ?
0 ?
1 ?
2 ?
3 ?
==> ftpsoak.txt <==
transfer nrsl,bush(ercm09,xxxx)q,FI,NO
transfer nrsl,bush(ercm09,xxxx)q,FI,NO
transfer nrsl,bush(ercm09,xxxx)q,FI,NO
transfer nrsl,bush(ercm09,xxxx)q,FI,NO
transfer nrsl,emas-a(ercm09,xxxx)z,FI,NO
transfer nrsl,emas-a(ercm09,xxxx)zz,FI,NO
transfer nrsl,emas-a(ercm09,xxxx)zzz,FI,NO
transfer nrsl,emas-a(ercm09,xxxx)zzzz,FI,NO
transfer nrsl,ercvax(ercm09,ednet1)nrsl,FI,NO
transfer
[15003003.ftp]
out
fi
ercm09
xxxx
q
nrsl
NO
.e
no
transfer
==> ftptest.txt <==
transfer l,DESY.VB(a,b)g,FILE,NO
transfer l,EMBL(a,b)g,FILE,NO
transfer l,GEC.B5(a,b)g,FILE,NO
transfer l,GEC.D13(a,b)g,FILE,NO
transfer l,GEC.D2(a,b)g,FILE,NO
transfer l,GEC.D7(a,b)g,FILE,NO
transfer l,GXVS(a,b)g,FILE,NO
transfer l,ICLBRR88(a,b)g,FILE,NO
transfer l,ICLWGW(a,b)g,FILE,NO
transfer l,RSRE(a,b)g,FILE,NO
transfer l,SYPE(a,b)g,FILE,NO
transfer l,ABER.CS.A(a,b)g,FILE,NO
transfer l,AFRC.AFRUS(a,b)g,FILE,NO
transfer l,AFRC.ARCC(a,b)g,FILE,NO
transfer l,AFRC.CAMB(a,b)g,FILE,NO
transfer l,AFRC.FRIB(a,b)g,FILE,NO
transfer l,AFRC.FRIR(a,b)g,FILE,NO
transfer l,AFRC.IRAD(a,b)g,FILE,NO
transfer l,AFRC.LARS(a,b)g,FILE,NO
transfer l,AFRC.NIAEA(a,b)g,FILE,NO
transfer l,AFRC.NVRS(a,b)g,FILE,NO
==> ftu.txt <==
THIS IS a file
==> fullscreen.txt <==
@heading[Full Screen Services]
The work of the 'Full Screen Services' group is still at a very early stage,
consisting of exchanges by letter.
A meeting of the group will be
held during the Networkshop in Copenhagen.
There were responses from six countries (including the UK) to the original
request for information and a number of points have arisen from the responses.
Currently there is very little full screen activity in use
across national networks. There is some use across local networks
although this
tends to be very specific, ie just for Dec VT100 type terminals or IBM 3270
terminals. Both the DFN and the UK Academic Community use Triple X
(X.28, X.29 and X.3) to provide such services although it is recognised that
Triple X is not ideally suited to provide such services both from the lack
of facilities in the protocol to provide support and from the significant
cost and performance penalties from running in modes which require single
character packets to be transmitted through the network with character
echo being provided from the host end.
==> gate5.txt <==
! FILE 'FEP_GATE5'
%CONSTSTRING (7) VSN = "VSN005F"
!****************************
!* EMAS-2900 FEP GATE *
!* FILE: GATE5 *
!* DATE: 27.OCT.80 *
!****************************
!! STACK SIZE = 300
%RECORDFORMAT DMF(%INTEGER I)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SERVICE)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%CONSTRECORD (DMF) %NAME NULL = 0
%OWNINTEGER OWN TERM = 72; ! NETWORK ADDRESS
%OWNINTEGER SUBATTACH FLAG = 74
%CONSTINTEGER KENT = 0; ! KENT=1 - NO NODE IN NET
==> gateold.txt <==
! FILE 'FEP_GATE5'
%CONSTSTRING (7) VSN = "VSN005F"
!****************************
!* EMAS-2900 FEP GATE *
!* FILE: GATE5 *
!* DATE: 27.OCT.80 *
!****************************
!! STACK SIZE = 300
%RECORDFORMAT DMF(%INTEGER I)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SERVICE)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%CONSTRECORD (DMF) %NAME NULL = 0
%OWNINTEGER OWN TERM = 72; ! NETWORK ADDRESS
%OWNINTEGER SUBATTACH FLAG = 74
%CONSTINTEGER KENT = 0; ! KENT=1 - NO NODE IN NET
==> gateway.txt <==
@section[PABX/LAN Gateways]
@subsection[The current position]
When a large number of ports in one location are connected to a
PABX, for example, to serve a host computer, it is necessary to
connect an Individual Data Interface Unit to the end of each port (see
Fig n). Even when these units can be racked together, as is the case
with the Plessey exchange, the solution is hardly elegant.
These problems can be considerably increased when a number of
different hosts are connected; the maximum numbe of simultaneous
connections to each host must be estimated and that number of lines
dedicated to each host. Users are very unforgiving when access to
their host is denied because all the ports on the exchange are in use
even though the maximum potential of the particular host has not yet
been reached because only a few 'other' lines are in use. Our
experience has shown that the peak number of users is not usually
reached on all hosts simultaneously, the effects of special courses,
lectures, deadlines and the like causes fairly wide fluctuations in
the demand for any particular machine. In solving this problem, in
common with any PACX use, many more access ports have to be provided
==> gatex1.txt <==
! file 'fep_gatex1'
%conststring (7) vsn = "vsn001a"
!****************************
!* emas-2900 fep gate *
!* file: gatex1 *
!* date: 22.jul.81 *
!****************************
!! stack size = 300
%owninteger own term = 72; ! network address
%owninteger subattach flag = 74
%control 1
%include "deimosperm"
%begin
==> gatex_nsource.txt <==
!**********************************************************
!* *
!* PSS X-25 Level 3 Protocol Handler *
!* *
!* GATEX *
!* *
!* Version 9.31 15 Sep 1983 *
!* *
!**********************************************************
!*
%control 1
%begin
!************************************
!* *
!* Declarations *
!* *
!************************************
!*
!****** Constintegers ******
!*
==> gatex_pre.txt <==
!**********************************************************
!* *
!* PSS X-25 Level 3 Protocol Handler *
!* *
!* GATEX *
!* *
!* Version 9.30 7 Sep 1983 *
!* *
!**********************************************************
!*
%control 1
%begin
!************************************
!* *
!* Declarations *
!* *
!************************************
!*
!****** Constintegers ******
!*
==> gecenhan.txt <==
Questionaire for Desired PSE Enhancements
-----------------------------------------
Please examine the detailed description of each enhancement on the seperate
sheets and then categorise the priority you attach to each enhancement on
the form below in the following way.
H - High Priority
M - Medium Priority
L - Low Priority
N - Not Interested
Attempt to distribute your priorities evenly, an answer of high priority for
everything will not tell us anything.
Please return the form to Mike Capp at GEC.
PSE Network Network
Control Control Admin. External Other
==> gecenhrest.txt <==
@majorheading[GEC PSE Enhancement Questionaire Results]
@blankspace[1in]
The following results are based on 45 returned forms. Of these,
6 were rejected because they were simply duplicates of other forms from
the same site.
The 'points' have been allocated by the following
@verbatim[
High Priority - 3 Votes
Medium Priority - 2 Votes
Low Priority - 1 Votes
Not Interested - 0 Votes
]
The full results have been given, as well as an ordered list of the
results and the original questions have been included for the top 15.
I am sorry about the mixup over the Questions A7-A26, the results for
these questions will follow.
@format[Brian Gilmore
==> gecenhres.txt <==
GEC PSE Enhancements results
Pos Votes Question
1 87 P1 Easy method of changing configuration details (eg. DTE/DCE,
redistribution of LCN's between logical groups) without having
to ask GEC where to patch the system.
2 79 N23 Monitor comand, switchable per link, to list calls as set up and
cleared (called, calling addresses, direction).
3 78 N12 STATUS - 'LINK DOWN' type messages to appear on same line as
status report and replaced by a more specific cause of link
failure (eg. timeout, carrier lost).
3 78 N14 Monitor calls through switch - two types:
static - a snapshot
dynamic - listing calls as set up and cleared until
monitor is turned off
==> gecgrab2.txt <==
!**********************************************************
!* *
!* RCO ITP to GEC Network Management Module *
!* *
!* Gecgrab *
!* *
!* *
!**********************************************************
#options
!* Prep options
!* b - output binary file, else packed hex+compression
!*
!*
%control 1 ;!No record checking.
!*
#if ~i
%include "deimosperm"
#else
%include "b_deimosspecs"
==> gecpaper.txt <==
Questionaire for Desired PSE Enhancements
-----------------------------------------
Please examine the detailed description of each enhancement on the seperate
sheets and then categorise the priority you attach to each enhancement on
the form below in the following way.
H - High Priority
M - Medium Priority
L - Low Priority
N - Not Interested
Attempt to distribute your priorities evenly, an answer of high priority for
everything will not tell us anything.
Please return the form to Mike Capp at GEC.
PSE Network Network
Control Control Admin. External Other
==> gecresults.txt <==
%externalroutine printres(%string (255) s)
%externalroutinespec define(%string (255) s)
%integer i,j,k,q,p,hit
%ownintegerarray num(1:5) = 12, 34, 6, 16, 7
%integerarray cind(1:6)
%ownbyteintegerarray char(1:5) = 'P', 'N', 'A', 'E', 'O'
%integerarray ind(1:75)
%string (5) %array name(1:75)
%ownintegerarray res(1:75) = 87, 62, 75, 54, 53, 73, 57, 31, 55, 46,
44, 63,
74, 38, 40, 71, 55, 50, 26, 55, 42, 33, 38, 78, 26, 78, 54,
47, 72, 67, 69, 62, 47, 23, 79, 15, 63, 44, 24, 23, 22, 23,
45, 47, 45, 27,
42, 44, 29, 40, 32, 24,
55, 53, 34, 48, 57, 34, 39, 37, 29, 29, 65, 53, 56, 44, 75, 54,
30, 59, 26, 29, 51, 25, 18
%routine print res
%integer i,j,k,q
==> gecsys669.txt <==
Changes for System 669 System configuration
1. Delete Call Redirection from Lau 09 to Lau 46
and from Lau 46 to Lau 09 (EA72)
2. Change Lau 03 (TRK2) to a DTE with 100 lcns
Lau 08 (GSCP) to a DCE with 100 lcns
3. Please incluse the patch to allow addaddr etc on enabled links
4. Rename GSCP (lau 08) to LA08
XGTE (lau 07) to LA07
TCPM (lau 13) to LA13
MEME (lau 15) to LA15
5. Add Call redirection from :
Lau 01 to Lau 51
Lau 51 to Lau 01
Lau 03 to Lau 51
==> gouldpap.txt <==
@style[spacing=1]
@make[article]
@device[x2700]
@majorheading[ERCC X.25 (1984) Packet Level Protocol Software]
@paragraph(Introductory Remarks)
In the paper entitled "Implementation Details for Protocols on CSMA/CD
LANs" [1], the JNT Ethernet Advisory Group describes guidelines for the
UK Academic Community's transition to ISO OSI standards on a LAN (as well
as for interworking with Wide Area Networks).
To summarise, the OSI Connection-Oriented Network Service (CONS) is to be
provided directly by the 1984 version of the X.25 packet level protocol
in DTE-to-DTE mode of operation [2] supported by LLC2 [3].
The configurations within which this protocol set can
be employed is described in reference [4] as
@begin[verbatim]
A single LAN
A sequenced Bridged Area Network
A LAN as an OSI subnetwork
A single LAN or a sequenced Bridged Area Network
connected to an X.25 Wide Area Network
==> graham.txt <==
GEC.D31 = 15000040.(FTP001,RATS).GECDFTP.00000000203150.FTP.MAIL
GEC.D2 = 15000040.(FTP001,RATS).GECDFTP.00000000200250.FTP.MAIL]
==> grakb.txt <==
easygraph
title "MTBF - KB 4190 - 3 month rolling average"
xaxis 12,"Month - Jan 84 to Nov 85"
xformat 3,0
xscale 0,1
yaxis 12,"Hours MTBF"
yformat 3,0
yscale 0,100
flatnumber
linetype line+points
symbol square
data
1 366
2 439
3 274
4 313
5 183 6 183
7 219
8 274
9 274
10 244
==> grate.txt <==
easygraph title "MTBF - KB 4190 - 3 month rolling average" xaxis 20,"Month - Jan
84 to Nov 85"
xformat 3,0
xscale 0,1.5
yaxis 16,"Hours MTBF"
yformat 3,0
yscale 0,150
flatnumber
linetype line+points
pen 3
symbol square
data
1 366
2 439
3 274
4 313
5 183 6 183
7 219
8 274
9 274
10 244
==> hextobin.txt <==
%EXTERNALROUTINE HFTB(%STRING(63) S)
!ROUTINE FOR CONVERTING HEX-PAIR FILES TO BINARY
!J. BUTLER 1.9.78
%EXTERNALROUTINESPEC CHANGESM(%INTEGER CHAN,L)
%EXTERNALROUTINESPEC NEWSMFILE(%STRING(63) S)
%EXTERNALROUTINESPEC CLOSESM(%INTEGER CHANNEL)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
%EXTERNALINTEGERFNSPEC SMADDR(%INTEGER CHAN,%INTEGERNAME L)
%EXTERNALROUTINESPEC DESTROY(%STRING(63) S)
%EXTERNALINTEGERFNSPEC EXIST(%STRING(63) S)
%INTEGER INA,INL,OUTA,OUTL
%STRING(63) T,U
%UNLESS S->T.(",").U %THEN PRINTSTRING("Parameters?") %ANDRETURN
%IF EXIST(U)#0 %THEN DESTROY(U)
DEFINE("1,".T)
select input(1)
NEWSMFILE(U.",1")
DEFINE("2,".U)
CHANGESM(2,x'100000')
==> hostessipss.txt <==
Welcome to HOSTESS, British Telecom's information service.
Enter carriage return for assistance on how to proceed
or BYE to clear the call.
Document ? ipssSection ? all
COUNTRIES CONNECTED TO IPSS
1.AUSTRALIA AUSTPAC
UK TO AUSTRALIA
DATA NETWORK IDENTIFICATION CODE 5052
CALL CHARGES: POUNDS STERLING
==> i77p.txt <==
;**************************************
; SYSTEM ROUTINES FOR IMP77 *
; DATE: 16.jun.81 *
;**************************************
; NB:
; TO TURN INTO THE FILE IMP77PY#REL, DO THE FOLLOWING
; 1) ASS11 SYS_IMP77P,Y,L
; 2) #CONNECT Y
; 3) #SWORD X?????C,3 - TURN IT INTO A 'TEXT' FILE
; 4) CON11 Y/Z
; 5) NEWGEN Z#REL,IMP77PY#REL
;
DS = R5
LNB = R4
PONPOF = 17.
GETID = 12.
.WORD SPONZ-.
.BYTE 3
==> ibmdoc_a1.txt <==
1
0 Ref. A1
-
-
-
-
-
-
-
-
PROTOCOLS IN THE SERC/NERC NETWORK (Ref.A1)
+ _________ __ ___ ____ ____ _______ ___ __
-
-
-
-
-
-
-
Version 6
+ _______ _
==> ibmdoc_a2.txt <==
1
0 Ref. A2
- A PROTOCOL FOR USING VMCF (Ref. A2)
+ _ ________ ___ _____ ____ ___ __
0 Version 8
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
1. Introduction
+ ____________
0 This paper defines a protocol for conducting multiple
conversations between any two virtual machines, built
around the IBM Virtual Machine Communication Facility
(Ref. M3).
-
0 2. Basic Requirements
+ _____ ____________
0 (a) Ability to set up and close down multiple logical
"connections", each with individual flow control.
==> ibmdoc_a3.txt <==
1
0 Ref. A3
- THE APPLICATION/NCP PROTOCOL USING VMCF (Ref. A3)
+ ___ ___________ ___ ________ _____ ____ ___ __
0 Version 5
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
1. Introduction
+ ____________
0 This supersedes the paper called "The Application/NCP
Interface via VMCF", whose name was a source of confusion.
0 Ref. A2 describes a general protocol for communicating
between two virtual machines using VMCF. Communication
between an Application virtual machine and NCP is a
particular case of this, and uses a subset of the general
protocol. The purpose of this paper is to specify the
subset.
0 It is important in practice that implementors of
==> ibmdoc_a4.txt <==
1
0 Ref. A4
- SECNET - ADDRESSING SCHEME (Ref. A4)
+ ______ __________ ______ ___ __
0 Version 2
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
1. The Basic Mechanism
+ ___ _____ _________
0 The scheme is designed to be compatible with the Study
Group 3 Transport Service specification (Ref. A6).
0 Process A wishes to communicate with Process B across a
number of networks joined by "gateways". There is a
"transport station" at each end, and these, together with
the intervening gateways, are responsible for setting up
the necessary "connection".
0 Logically, a "transport station" is very similar to a
"gateway", and to simplify the description the term
==> ibmdoc_a5.txt <==
1
0 Ref. A5
- SERCNET - ADDRESSING SUMMARY (Ref. A5)
+ _______ __________ _______ ___ __
0 Version 2
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. This paper summarises the essential points needed for
implementation. For a more detailed discussion see the
paper "SERCnet - Addressing Scheme" (Ref. A4).
0 2. A name may be either an "address" or a "title".
+ ____
0 3. An address is a decimal number up to 15 digits long. If
+ _______
the number is 12 digits long or less, it represents a pure
DTE number. If it is more than 12 digits long, any digits
beyond the 12th represent a Level 3 sub-address. Leading
zeroes may be optionally omitted in all contexts if the
==> ibmdoc_b1.txt <==
1
0 Ref. B1
- NCP : FUNCTIONAL SPECIFICATION (Ref. B1)
+ ___ __________ _____________ ___ __
0 Version 2
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. Introduction
+ ____________
0 The Network Control Program's function could be summarised
roughly as follows: To provide a network interface for
applications software, allowing it to communicate with
applications elsewhere on a network or multi-network
system.
0 The purpose of this paper is to spell out the implications
of the above statement, and to outline how, and to what
extent, it has been realised in practice.
- 2. Versions
==> ibmdoc_b2.txt <==
1
0 Ref. B2
- NCP : INTERNAL ORGANISATION (Ref. B2)
+ ___ ________ ____________ ___ __
0 Version 2
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. Introduction
+ ____________
0 This paper gives technical information about the internal
organisation of NCP at a level appropriate for someone
installing, developing or maintaining the software.
0 It is not the intention to produce a blow-by-blow account
of the flow of control. Nor would this be particularly
useful, as the listings are fairly heavily commented
throughout and should be easier to follow than a separate
verbal account. However, it can be very helpful to know
what a particular routine is trying to achieve, why it
==> ibmdoc_b3.txt <==
1
0 Ref. B3
0 NCP : INTERFACE TO CP/CMS FOR TERMINALS (Ref. B3)
+ ___ _________ __ __ ___ ___ _________ ___ __
0 Version 3
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
1. Introduction
+ ____________
0 This paper relates to the VM version of NCP only, as the
MVT version no longer supports access to CP/CMS.
0 The interface uses the IBM-supplied Logical Device Support
Facility, LDSF, (see Ref. M3), and network terminals are
made to look like ASCII devices to the VM control program
CP. It was necessary to modify CP's ASCII terminal
support to some extent. The code for issuing the
necessary LDSF DIAGNOSES and processing the LDSF
interrupts is contained in the VMCF Package (Ref. C2), but
==> ibmdoc_b4.txt <==
1
0 Ref. B4
- NCP : INTERFACE TO RSCS (VNET) FOR RJE (Ref. B4)
+ ___ _________ __ ____ ____ ___ ___ ___ __
0 Version 3
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. Introduction
+ ____________
0 This paper covers both the MVT and VM versions of NCP.
The original version of the paper contains slightly more
detail specific to the MVT environment. In practice, RSCS
calls will not be routed via MVT in future, and the
relevant code may be removed from the MVT version at some
stage. The purpose of this interface is to provide access
to RSCS (also called VNET) from remote workstations
connected via the X25 network. Card reader, line printer
and card punch streams are supported. A main remote
==> ibmdoc_b5.txt <==
1
0 Ref. B5
0 NCP : STATISTICS AND LOGGING (Ref. B5)
+ ___ __________ ___ _______ ___ __
0 Version 2
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. Introduction
+ ____________
0 This paper relates specifically to the VM version of NCP.
The MVT version uses SMF for statistics collection, and
handles the logging disc in a somewhat different way.
0 A CMS-compatible minidisk is used, formatted entirely in
4096-byte blocks. Blocks 1 to 15 are used for statistics
and the rest for logging. The total size of the minidisk
is currently 360 blocks.
- 2. Statistics
+ __________
==> ibmdoc_b6.txt <==
1
0 Ref. B6
- NCP : SUPPORT OF INCOMING X29 AND TS29 (Ref. B6)
+ ___ _______ __ ________ ___ ___ ____ ___ __
0 Version 2
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. For an X29 call, the first byte of the CUDF should contain
X'01'. (Values of X'7F' or X'CC' are also acceptable at
present if the characters 'XXX' appear in the 6th to 8th
bytes of the CUDF). For a TS29 call, the first byte of
the CUDF must be X'7F' and the CUDF must contain Transport
Service addressing with a "called address" of TS29.
0 2. On DTE no. 1, the service accessed is MAST/ELECTRIC. On DTE
no. 2, the service accessed is CP/CMS, emulating an
'ASCII' terminal.
0 3. The following PAD parameters are assumed to be of interest
only to the PAD or user, and NCP does not alter them: 1,
==> ibmdoc_b7.txt <==
1
0 Ref. B7
- NCP : EXPERIMENTAL FULL SCREEN TERMINAL SUPPORT (Ref. B7)
+ ___ ____________ ____ ______ ________ _______ ___ __
0 Version 3
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. VMNCP experimentally supports 3270 protocol (as used for the
3277 model 2) via X29. Only minor further changes should
be needed to make it work over TS29 also. Only two or
three calls are provided for. If more are attempted, the
calls are likely to delay one another as only four 4K
buffers are incorporated in the program at present.
0 2. The characters 'XXXF' (in IA5) must appear starting at the
6th byte of the CUDF. The setting of the Identifier byte
in the CUDF should be X'01'.
0 3. The software deals with PAD parameters as for the ASCII
terminal interface. In practice, neither end at present
==> ibmdoc_c1.txt <==
1
0 Ref. C1
- INTER-PROCESS COMMUNICATIONS PACKAGE (IPC) (Ref. C1)
+ _____ _______ ______________ _______ ___ ___ __
0 Version 8.7
+ _______ _ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
-
1. Introduction
0 2. Software Structure
0 3. The User's Main Program
0 4. The Dispatcher
0 5. The Distributor Routine
0 6. Inter-Process Message (IPM) Facilities
0 7. Standard Inter-Process "Connections"
0 8. Non-Standard Inter-Process "Connections"
0 9. Asynchronous I/O Facilities
0 10. Timer Services
==> ibmdoc_c2.txt <==
1
0 Ref. C2
0 THE VMCF PACKAGE (Ref. C2)
+ ___ ____ _______ ___ __
0 Version 8
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. Introduction
+ ____________
0 This paper supersedes the paper called "The MVT/VMCF
Package and User Interface", and should be read in
conjunction with the same Version number of "A Protocol
for Using VMCF" (Ref. A2).
0 If the package is used via IPC (Ref. C1), no detailed
knowledge of the contents of this paper is required.
0 The package aims to support those features of the IBM
VMCF (Ref. M3) used or allowed by the protocol, with the
further restriction that SEND/RECV and REPLY are not
==> ibmdoc_c3.txt <==
1
0 Ref. C3
- THE DEFI PACKAGE (Ref. C3)
+ ___ ____ _______ ___ __
0 Version 2
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 This small package provides access under VM to a CMS-
compatible minidisk on a 3350 using 4096-byte blocks. The
virtual device address is 201.
0 The module, written in Assembler, contains three entry
points as follows:
0 CALL DEFI (DUMMYARG)
0 The argument is not used, and is present only for
historical reasons. The routine sets up an RPS sector
table for the minidisk, and must be called (once only)
before reading or writing can begin.
0 CALL DRIN (DUMMYARG,BLOCNO,DATA)
==> ibmdoc_d1.txt <==
1
0 Ref. D1
- A TRANSPORT SERVICE INTERFACE VIA IPC (Ref. D1)
+ _ _________ _______ _________ ___ ___ ___ __
0 Version 4
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. Introduction
+ ____________
0 To facilitate eventual transition to an ISO Standard
Transport Service, hopefully manufacturer-supported, it is
important that Applications should all use the same
Transport Service interface. This paper defines the
interface and describes the software that implements it.
0 The Transport Service interface is built upon various
lower level facilities. The basic component is the IPC
Package (Ref. C1), which provides the necessary network
"Access Method" facilities to OPEN and CLOSE connections
==> ibmdoc_e2.txt <==
1
0 Ref. E2
0 VMNCP INSTALLATION (Ref. E2)
+ _____ ____________ ___ __
0 Version 1
+ _______ _
0 8 April 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 1. Introduction
+ ____________
0 The software can be shipped on mag tape in a form ready to
be loaded back into a CMS system. It includes all
relevant source code together with some EXEC procedures
and MODULE files.
0 It is assumed that the recipient is running VM/SP and that
the FORTRAN H Extended Plus compiler will be available.
0 The tape is written without labels using the CMS 'TAPE
DUMP' command, and the normal VM/SP options are assumed
(e.g: BLKSIZE 4096). For convenience, the tape is split
==> ibmdoc_f1.txt <==
1
0 Ref. F1
- VMNCP : OPERATORS' DOCUMENTATION (Ref. F1)
+ _____ _________ _____________ ___ __
0 Version 2
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 PART A : GENERAL DESCRIPTION
+ ____ _ _______ ___________
0 1. Introduction
+ ____________
0 VMNCP is a version of the Network Control Program (NCP)
that runs under CMS in its own virtual machine. It can
run at the same time as the MVT version, DKNCP, and the
two have no internal contacts with each other: effectively
they are two separate host machines on the network, each
having its own network address. In due course, VMNCP
should supersede DKNCP completely, but the latter remains
==> ibmdoc_f2.txt <==
1
0 Ref. F2
- VMNCP : DIAGNOSTIC CODES (Ref. F2)
+ _____ __________ _____ ___ __
0 Version 3
+ _______ _
0 8 March 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 The diagnostic codes issued by VMNCP (and also by DKNCP in the
MVT system) are based on those recommended in the Transport
Service specification (Ref. A6).
0 The list below covers those actually used, and explanatory
comments are added where appropriate.
0 X'01' : DISCONNECT received from other end
X'11' : Number busy (no ports into application)
X'12' : Out of order (no response from application)
X'13' : Invalid address
X'17' : Network congestion (at call set-up)
X'21' : Protocol error (accusation)
==> ibmdoc_ftpmemo.txt <==
FTP SCRIPT
IBM (CMS) as an FTP 'P' end
This file is available as a HELP file (named FTP) and as a
script file. FTP is used to transfer files to and from other
computers accessible via the SERC network; it should work with
sites that support either the FTP77 or FTP80 versions of the
protocol. The latter is now the default.
This HELP file relates to the P-end user interface, and
concentrates on defining and explaining the terminology. This
is presented as a glossary in alphabetical order.
For further information about specific prompts in the user
dialogue, there is a separate small HELP file associated with
==> ibmdoc_ftpqmemo.txt <==
FTPQ SCRIPT
IBM (CMS) as an FTP 'Q' end
This file describes the FTP parameters that must be passed
to the IBM (CMS) FTP when using it as a 'Q' end. It is
available as a HELP file (named FTPQ) and as a SCRIPT file.
Included is a description of how to retrieve output from
jobs run in any of the IBM batch systems. Strictly
speaking, output retrieval is an automated 'P' end function,
but the full details are given here as these facilities will
typically be needed in conjunction with jobs which have been
input via the Q-end FTP.
There is a separate HELP file for normal 'P' end usage.
==> ibmdoc_i1.txt <==
1
0 Ref. I1
- RAL IBM NETWORKING : INDEX (Ref. I1)
+ ___ ___ __________ _____ ___ __
0 Version 3
+ _______ _
0 8 April 1982
+ _ _____ ____
0 P M Girard
+ _ _ ______
0 Papers are by P M Girard unless otherwise stated.
0 PART A : PROTOCOLS
+ ____ _ _________
A1) Protocols in the SERC/NERC Network
A2) A Protocol for using VMCF
A3) The Application/NCP Protocol using VMCF
A4) SERCnet - Addressing Scheme
A5) SERCnet - Addressing Summary
A6) A Network Independent Transport Service
(PSS User Forum Study Group 3)
A7) Character Terminal Protocols on PSS
==> ibmdoc_ibmcons.txt <==
%externalroutine ibmcon(%string (255) s)
%externalroutinespec define (%string (255) s)
%integer i,j,k,l
%string (255) t,u
%unless s -> t.("/").u %then printstring("Param a/b !!
") %and %stop
define("1,".t); define("2,".u)
select input(1); select output(2)
%on 9 %start
%stop
%finish
printstring("File:"); printstring(t); newlines(2)
k=' '
%cycle
readsymbol(K)
%if k = '+' %then printch(13) %and -> fg
%if k = '0' %then newlines(2) %and -> fg
%if k = '-' %then newlines(3) %and -> fg
%if k = '1' %then newpage %and ->fg
newline
==> imp77specs.txt <==
! Specs to aid IMP77 programs running on IMP80
%record %format EVENTFM (%integer EVENT, SUB, EXTRA, %string(255) MESSAGE)
%external %record (EVENTFM) %spec EVENT
%external %routine %spec SIGNAL (%integer EVENT, SUB, EXTRA)
%external %routine %spec SET EVENT
%external %routine %spec PROMPT (%string(15) STR)
%external %string (15) %fn %spec DATE
%external %string (15) %fn %spec TIME
%external %routine %spec OPEN INPUT (%integer ch, %string(255) file)
%external %routine %spec OPEN OUTPUT (%integer ch, %string(255) file)
%external %routine %spec CLOSE INPUT
%external %routine %spec CLOSE OUTPUT
%external %string (63) %fn %spec ITOS (%integer N, P)
%external %routine %spec WRITE %alias "I77#WRITE" (%integer N, P)
%external %routine %spec PRINT %alias "I77#PRINT" (%long %real R, %integer I, P)
%external %routine %spec READ SYMBOL %alias "I77#RSYM" (%integer %name SYM)
%external %routine %spec SKIP SYMBOL %alias "I77#SSYM"
%external %integer %fn %spec NEXT SYMBOL %alias "I77#NSYM"
%external %routine %spec PRINT SYMBOL %alias "I77#PSYM" (%integer sym)
%external %integer %fn %spec REM (%integer A, B)
%end %of %file
==> impsrc.txt <==
%CONTROL 1; ! 'SYSTEM' PROGRAM (FAST ROUTINE ENTRY/EXIT)
%RECORDFORMAT DUMMY(%INTEGER X)
%CONSTRECORD (DUMMY) %NAME NULL=0
%BEGIN
%RECORDFORMAT STRDF(%INTEGER RDS, NXY, GETB, %BYTEINTEGER %C
SER, REPLY, UNIT, FSYS, %BYTEINTEGERARRAY NAME(0:5), %C
%INTEGER BL, N, PT, MAX, %BYTEINTEGERARRAY BUFF(0:255))
%RECORDFORMAT STRPF(%RECORD (STRDF) %NAME STRD)
%RECORDFORMAT PE(%BYTEINTEGER SERVICE, REPLY, %C
A1, A2, %BYTEINTEGERARRAYNAME B, %INTEGER C)
%CONSTRECORD (STRPF) %NAME STRP1=K'160034'
%CONSTRECORD (STRPF) %NAME STRP2=K'160036'
%CONSTRECORD (STRPF) %NAME STRP5=K'160044'
%CONSTRECORD (STRPF) %NAME STRP6=K'160046'
%CONSTBYTEINTEGERNAME ID=K'160030'
==> inc2_bformats.txt <==
%constinteger hdrl = 8 ;! Length of dummy area before data field
%recordformat qf(%record (qf) %name link, %integer count)
%recordformat x25f(%byte octet1, lcn, fn, %bytearray a(0:255))
%recordformat mef(%integer buff no, l, %byte owner, type, %c
(%bytearray a(0:249) %or (%string(2) padding, %byte octet1, lcn, fn, %c
(%bytearray data(0:243) %or %string(250) s ))))
%recordformat pf(%byte ser, reply, %c
((%byte fn, %byte s1 , %c
((%integer buff no, %byte gate port , task port) %c
%or %string(3) facility)) %c
%or (%byte a1, a2, b1, b2, c1, c2) %or (%integer a, b, c) %c
%or (%byte j1, process, j2, j3, len, j4)))
%recordformat cvf((%byte l, (%byte reason, cause, diags, %bytearray our ct(0:3), our segs(0:7),pss ct(0:3), pss segs(0:7)) %c
%or %bytearray a(0:26)) %c
%or %string(27) s)
%endoffile
==> inc2_configf.txt <==
! Configuration file for Front ends
! Options used:INC_CONFIGGEN,TEMP,H,CLEAN
!Versions required:
! System Name Accred Nets Procs* Disc Drv Prep
! P PSSE PSSE Yes 2+1 16 6 10 RL01 0 P
! M XGATE XGATE No 1+1 37 20 40 RL01 0 M
! K Kent GATE Yes 1+1 16 6 10 RL02 0 K
! U Kent #2 SGATE Yes 1+2 ?? ?? ?? RK05 0 U
! G Glasgow GGATE No 1+2 16 6 31 RX02 1 G
! F FEP (GATEX) - No +2 60 20 40 - - H
! T XGATE # 2 XGATE2 No 37 20 40 RL01 0 T
! D DGATE DGATE No 30 20 40 - - D
!Disc Configuration Information
!Define first and last user blocks to prevent us overwriting directory
!etc. Ranges for various discs are:
==> inc2_config.txt <==
! Configuration file for PSSE
! Options used:INC_CONFIGGEN,TEMP,P,CLEAN
!Versions required:
! System Name Accred Nets Procs* Disc Drv Prep
! P PSSE PSSE Yes 2+1 16 6 10 RL01 0 P
! M XGATE XGATE No 1+1 37 20 40 RL01 0 M
! K Kent GATE Yes 1+1 16 6 10 RL02 0 K
! U Kent #2 SGATE Yes 1+2 ?? ?? ?? RK05 0 U
! G Glasgow GGATE No 1+2 16 6 31 RX02 1 G
! F FEP (GATEX) - No +2 60 20 40 - - H
! T XGATE # 2 XGATE2 No 37 20 40 RL01 0 T
! D DGATE DGATE No 30 20 40 - - D
!Disc Configuration Information
!Define first and last user blocks to prevent us overwriting directory
!etc. Ranges for various discs are:
==> inc2_discquals.txt <==
!*Disconnect qualifiers
!*From PSS:
%constinteger pss prot not supported = x'43'
!*Transport Service
!
%constinteger ts ok = 0
%constinteger ts response = 1
%constinteger ts no connection = 16
%constinteger ts numberbusy = 17
%constinteger ts out of order = 18
%constinteger ts invalid address = 19
%constinteger ts access barred = 20
%constinteger ts incompatible facilities=21
%constinteger ts no reverse charging = 22
%constinteger ts network congestion = 23
%constinteger ts message too long = 24
%constinteger ts protocol apology = 32
%constinteger ts protocol accusation = 33
%constinteger ts timeout = 34
%constinteger ts connection lost = 35
==> inc2_exts.txt <==
!Commonly Used Externals
%externalroutinespec alarm(%integer ticks)
%externalroutinespec linkin(%integer ser)
%externalintegerfnspec dup addr(%integer seg)
%externalintegerfnspec map abs(%integer adr, len, req id)
%externalroutinespec map hwr(%integer seg)
%externalintegerfnspec get id
%externalroutinespec map virt(%integer ser,seg1,seg2)
%externalroutinespec set prio(%integer n)
%externalroutinespec pon(%record (*) %name p)
%externalroutinespec ponoff(%record (*) %name p)
%externalroutinespec poff(%record (*) %name p)
%endoffile
==> inc2_formats.txt <==
%constinteger hdrl = 8 ;! Length of dummy area before data field
%recordformat qf(%record (qf) %name link, %integer count)
%recordformat x25f(%byte octet1, lcn, fn, %bytearray a(0:255))
%recordformat mef(%record (mef) %name link, %byte l,type, %c
(%bytearray a(0:251) %or (%string(4) padding, %byte octet1, lcn, fn, %c
(%bytearray data(0:243) %or %string(250) s ))))
%recordformat pf(%byte ser, reply, %c
((%byte fn, %byte s1 , %c
((%record (mef) %name m, %byte gate port , task port) %c
%or %string(3) facility)) %c
%or (%byte a1, a2, b1, b2, c1, c2) %or (%integer a, b, c) %c
%or (%byte j1, process, j2, j3, len, j4)))
%recordformat cvf((%byte l, (%byte reason, cause, diags, %bytearray our ct(0:3), our segs(0:7),pss ct(0:3), pss segs(0:7)) %c
%or %bytearray a(0:26)) %c
%or %string(27) s)
%endoffile
==> inc2_sers.txt <==
!PSS Gateway Service Numbers
!DEIMOS hardware driver sers etc
! 1 tty #1
! 2 CLI
! 3 DK
! 4 DIRT
! 5 LOAD
! 6 TU16 (-5) & MOTH
! 8 Big disc #1 - ERTE Big disc handler BDKH
! 9 Big Disc #1 DIR
!11 DQS11S (KMC/DU11)
!12 LP
!13 LP #2 ?
!17 Spool
!18 SPCI
!19 tty #2
!20 CLI #2
!21 tty #3
!22 CLI #3
!23 CR
==> inc2_various.txt <==
! Various useful consts etc
%CONSTINTEGER TRUE = 1
%CONSTINTEGER FALSE = 0
%CONSTINTEGER CR = 13
%CONSTINTEGER LF = 10
! Buffer Manager Consts
%CONSTINTEGER LONG = 0
%CONSTINTEGER SHORT = 1
%CONSTINTEGER REQUEST BUFFER = 0
%CONSTINTEGER RELEASE BUFFER = 1
%CONSTINTEGERNAME NO OF BUFF == K'100112'
%CONSTINTEGERARRAYNAME BMS == K'100112' ;! Buffer Manager Statistics
%ENDOFFILE
==> inc2_xgtfns.txt <==
! New X-25 Gate to task Interface - extended set to include Accounting
! Functions:
! Accounting Functions:
%constinteger accredit user pass = 40
%constinteger process command = 41
%constinteger accredit reply = 42
%constinteger command reply = 43
%constinteger log call start = 44
%constinteger checkpoint = 45
%constinteger log call end = 46
%constinteger end call reply = 46
%constinteger hello = 47
%constinteger abort session = 48
%constinteger broadcast = 49
%constinteger goodbye = 50
%constinteger log session end = 51
%constinteger noticeboard = 52
! Transport Functions:
%constinteger connect = 1
==> inc_colourdefs.txt <==
!
! *** COLOUR DEFINITIONS
!
%CONSTINTEGER BLACK=16
%CONSTINTEGER RED=17
%CONSTINTEGER GREEN=18
%CONSTINTEGER YELLOW=19
%CONSTINTEGER BLUE=20
%CONSTINTEGER MAGENTA=21
%CONSTINTEGER CYAN=22
%CONSTINTEGER WHITE=23
%CONSTINTEGER CURBACK=BLACK; !BACKGROUND FOR EVERYONE
%ENDOFFILE
==> inc_colourspecs.txt <==
!
! *** SPECS FOR EXTERNAL ROUTINES FOR IC DISPLAY
!
%EXTERNALROUTINESPEC OUTSYMBOL(%INTEGER CHAR)
%EXTERNALROUTINESPEC OUTSTRING(%STRING(255) S)
!
%EXTERNALROUTINESPEC ENTER PLOT MODE
%EXTERNALROUTINESPEC EXIT PLOT MODE
%EXTERNALROUTINESPEC SET BACKGROUND(%INTEGER COLOUR)
%EXTERNALROUTINESPEC SET FOREGROUND(%INTEGER COLOUR)
%EXTERNALROUTINESPEC SET CURSOR(%INTEGER X,Y)
%EXTERNALROUTINESPEC SET BLIND CURSOR(%INTEGER X,Y)
%EXTERNALROUTINESPEC BARX(%INTEGER X0,Y,X1)
%EXTERNALROUTINESPEC BARY(%INTEGER X,Y0,Y1)
%EXTERNALROUTINESPEC BIGBARX(%INTEGER X0,Y,X1)
%EXTERNALROUTINESPEC BIGBARY(%INTEGER X,Y0,Y1)
!
%EXTERNALINTEGER CFORE; !CURRENT FOREGROUND COLOUR
%EXTERNALINTEGER CBACK; !CURRENT BACKGROUND COLOUR
%ENDOFFILE
==> inc_csidefs.txt <==
%CONSTINTEGER LIT=1,DELIM=2,DIGIT=3,TERM=4,TEXT=5,NUMB=6,CHAR=7
%CONSTINTEGER LITALT=129,DELIMALT=130,DIGALT=131,TERMALT=132
%CONSTINTEGER TEXTALT=133,NUMBALT=134,CHARALT=135
%ENDOFFILE
==> inc_deimosperm.txt <==
!
! SPECS FOR DEIMOS PERM ROUTINES
!
%EXTERNALROUTINESPEC PON(%RECORD(PEF) %NAME P)
%EXTERNALROUTINESPEC POFF(%RECORD(PEF) %NAME P)
%EXTERNALROUTINESPEC PONOFF(%RECORD(PEF) %NAME P)
%EXTERNALINTEGERFNSPEC MAPVIRT(%INTEGER SER,SEG1,SEG2)
%EXTERNALINTEGERFNSPEC GETABS(%INTEGER VADD,LEN,ID)
%EXTERNALINTEGERFNSPEC GETID
%EXTERNALROUTINESPEC ALARM(%INTEGER TICKS)
%EXTERNALROUTINESPEC LINKIN(%INTEGER SER)
%EXTERNALROUTINESPEC MAPHWR(%INTEGER SEGS)
%EXTERNALROUTINESPEC MAPPSECT(%INTEGER TASK,SEG)
!%EXTERNALROUTINESPEC PUSH(%RECORD(QF)%NAME Q,%RECORD(MEF)%NAME M)
!%EXTERNALRECORD(PEF)%MAPSPEC POP(%RECORD(QF)%NAME Q)
%ENDOFFILE
==> inc_fsys.txt <==
!
! FILE SYSTEM HANDLER INTERFACE
!
%CONSTINTEGER EXAMINE=0
%CONSTINTEGER GET NEXT=1
%CONSTINTEGER DESTROY=2
%CONSTINTEGER CREATE=3
%CONSTINTEGER APPEND=4
%CONSTINTEGER RENAME=5
%CONSTINTEGER RENAME TEMP=6
%CONSTINTEGER RENAME FSYS=7
%CONSTINTEGER GET DIR=8
%ENDOFFILE
==> inc_gateint.txt <==
!
! GATE TO TASK FUNCTIONS
!
%CONSTINTEGER INCOMMING CALL=2
%CONSTINTEGER INPUT RECD=3
%CONSTINTEGER OUTPUT TXD=4
%CONSTINTEGER CALL CLOSED=5
%CONSTINTEGER CALL ABORTED=6
%CONSTINTEGER OPEN MESSAGE=9
!
! TASK TO GATE FUNCTIONS
!
%CONSTINTEGER ENABLE FACILITY=1
%CONSTINTEGER DISABLE FACILITY=2
%CONSTINTEGER CALL REPLY=3
%CONSTINTEGER ENABLE INPUT=4
%CONSTINTEGER PUT OUTPUT=5
%CONSTINTEGER CLOSE CALL=6
%CONSTINTEGER ABORT CALL=7
%CONSTINTEGER MESSAGE REPLY=10
%ENDOFFILE
==> inc_itpint.txt <==
! ITP /TASK INTERFACE MESSAGES
!
%CONSTINTEGER LOGON=1
%CONSTINTEGER DATA IN=2
%CONSTINTEGER INT IN=3
%CONSTINTEGER ILLEGAL MESSAGE=4
%CONSTINTEGER SEND DATA=5
%CONSTINTEGER DATA OUT=6
%CONSTINTEGER SEND PROMPT=7
%CONSTINTEGER TIMEOUT=8
%CONSTINTEGER LOGOFF=9
%CONSTINTEGER SETMODE=10
%CONSTINTEGER CHANGE TASK=11
%ENDOFFILE
==> inc_records.txt <==
!
! STANDARD RECORD FORMATS......QF,MEF,PEF
!
! ASSUMES NSIF DEFINED.
!
%RECORDFORMAT QF(%RECORD(QF)%NAME LINK)
%RECORDFORMAT MEF(%RECORD(MEF)%NAME LINK,%BYTEINTEGER LEN,TYPE, %C
%RECORD(NSIF) NSL)
%RECORDFORMAT PEF(%BYTEINTEGER SER,REPLY,(%BYTEINTEGER FN,PORT, %C
%RECORD(MEF)%NAME MES,%BYTEINTEGER S0,S1 %OR %INTEGER A,B,C %OR %C
%BYTEINTEGER A1,A2,B1,B2,C1,C2))
%ENDOFFILE
==> inc_services.txt <==
!
! SERVICE NUMBERS
!
%CONSTINTEGER GATE SER=16
%CONSTINTEGER ITP SER=28
%CONSTINTEGER BUFFER MANAGER=17
%CONSTINTEGER TIME SER=23
%CONSTINTEGER DISPLAY SER=24
%CONSTINTEGER LOG CONTROL=25
%CONSTINTEGER LOAD SER=5; !????????
%CONSTINTEGER POLL SER=27
%CONSTINTEGER USER SER=26
%CONSTINTEGER LOG SER=12
%CONSTINTEGER TT SER=1
%CONSTINTEGER T2 SER=19
!
%CONSTINTEGER REQUEST BUFFER=0
%CONSTINTEGER RELEASE BUFFER=1
!
! GENERAL VARIABLES
!
==> inc_terms.txt <==
!
! DEFINES TERMINAL TYPES AND MAX NO OF TERMINALS
!
%CONSTINTEGER TCPTYPE=1
%CONSTINTEGER NODTYPE=2
%CONSTINTEGER FEPTYPE=3
%CONSTINTEGER MAXTERMS=47
%CONSTINTEGER HLIM=7; !HOST RECORDS FOR MULTIPLE CONNS
%CONSTINTEGER NHOSTS=7; !ACTUAL DISTINCT HOSTS
%CONSTBYTEINTEGERARRAY NH(1:NHOSTS)=72,80,21,90,78,7,155
%CONSTBYTEINTEGERARRAY NT(1:NHOSTS)=72,80,21,90,78,9,155
%CONSTSTRING(6)%ARRAY HN(1:NHOSTS)= %C
" 2972 "," 2980 "," PSSE ","FSTORE","CS-VAX"," 2976 "," INFO "
%ENDOFFILE
==> inc_vt100.txt <==
%CONSTINTEGER ATTOFF=1; !ATTRIBUTES OFF
%CONSTINTEGER BOLD=2
%CONSTINTEGER UNDER=4
%CONSTINTEGER BLINK=8
%CONSTINTEGER NEGAT=16
!
%CONSTSTRING(2) TOPH="#3"
%CONSTSTRING(2) BOTH="#4"
%CONSTSTRING(2) DOBW="#6"
%ENDOFFILE
==> infcolours.txt <==
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! *** EXTERNAL ROUTINES FOR DRIVING INTECOLOUR DISPLAY
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
%INCLUDE "INC_COLOURDEFS"
%INCLUDE "INC_SERVICES"
%EXTERNALINTEGERSPEC CBACK
%EXTERNALINTEGERSPEC CFORE
!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! THESE ROUTINES ARE SPECIAL OUTPUT ROUTINES
! FOR THE INTECOLOUR ON SERVICE 13.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
==> infoinput.txt <==
The New Info
1) The Display
It must be possible to 'poke' all the X25 links in the network. Ie, when
we put in Pad switches we must be able to test the lines. (the standard
of the current Pad poke would be sufficient).
It would be nice to be able to find out what Pads are up to - but this could
be done on a much reduced time, say 10mins. So a 'poke' would still be
done on the 3 min timer, and a fuller one every now and again.
The 'Host' poll will have to be changed to go XXX, it would be nice to get
VMS & Unix hosts as well as EMAS.
The concept of a fep poll will need to change, it is open to question as to
whether it is different from the 'line status' prod of above.
2) Logging
The current method is hopeless. It produces far too much paper. What would
be useful would be a monthly summary of how often things have gone down. An
enhancement would be a breakdown into broad categories, ie,
==> init70.txt <==
!THE INITIALISE TASK "INIT" - FOR EMAS 2980.
!E.R.T.E. MK.6 VERSION - VIA DUP11S
! W.S.C. 27TH JULY 1976
! J.C.A. 31ST JAN 1978
! G.J.B. 19TH SEPT 1978
! J.C.A. 27TH SEPT 1978
! B.G. 25.JAN.80
! ??? LAST UPDATE 21:12:78 - FILE INIT70
! THIS VERSION IS FOR USE WITH ICL VME/B
!THE TASK RUNS IN SYSTEM SLOT 29
!SET STACK TO 140 STREAMS=0 PRIORITY=1
%CONTROL K'101011'
==> init82.txt <==
! FILE 'ERTE_INIT70'
!THE INITIALISE TASK "INIT" - FOR EMAS 2980.
!E.R.T.E. MK.6 VERSION - VIA DUP11S
! W.S.C. 27TH JULY 1976
! J.C.A. 31ST JAN 1978
! G.J.B. 19TH SEPT 1978
! J.C.A. 27TH SEPT 1978
! B.G. 25.JAN.80
! ??? LAST UPDATE 21:12:78 - FILE INIT70
! THIS VERSION IS FOR USE WITH ICL VME/B
!THE TASK RUNS IN SYSTEM SLOT 29
!SET STACK TO 140 STREAMS=0 PRIORITY=1
==> intro.txt <==
@make[article]
@device[x2700]
@style[spacing 1]
@modify[hd2,facecode=k]
@begin[text,topmargin=+1.3inches,leftmargin=+0.45inches,rightmargin=+0.6inches]
blank
@newpage
@section[Introduction]
Edinburgh University is spread across
many parts of Edinburgh with two main "campus" areas and a number of
other scattered departments. This situation has led to a very high
dependence on data networking which has been built up over fifteen years in order
to ensure that students and staff can communicate with either the
main University Services or local department machines.
The current network (see fig 1)
is based on three GEC packet switches supporting
33 hosts and 100 synchronous links [1].
The dispersed nature of the University
has resulted in the development of a separate complex
==> invaders.txt <==
!
!
!
! IIIIIIIIIIII NNNNNNN NNNNN VVVVV VVVVV
! IIIIIIIIIIII NNNNNNNN NNNNN VVVVV VVVVV
! IIIIII NNNNNNNNN NNNNN VVVVV VVVVV
! IIIIII NNNNNNNNNN NNNNN VVVVV VVVVV
! IIIIII NNNNNNNNNNN NNNNN VVVVV VVVVV
! IIIIII NNNNN NNNNNN NNNNN VVVVV VVVVV
! IIIIII NNNNN NNNNNN NNNNN VVVVV VVVVV
! IIIIII NNNNN NNNNNNNNNNN VVVVVVVVV
! IIIIII NNNNN NNNNNNNNNN VVVVVVV
! IIIIII NNNNN NNNNNNNNN VVVVV
! IIIIIIIIIIII NNNNN NNNNNNNN VVV
! IIIIIIIIIIII NNNNN NNNNNNN V
!
!
! SPACE INVADERS
! Program written by Stephen H. Muggleton for the VAX.
! Curtated by John W. Machar to run on the FRED machine.
! (also commented by JWM so he could find things easier)
==> inv.txt <==
%begin
! %include "project:consts.imp"
%const %integer restart=14
%byte spacing=true,ship direction=1,ship type=1
%integer ship col=-1,timer
%integer no of men=3
%integer score=0
%integer max bomb factor=8
%integer no of invs=24,leftmost=1,rightmost=8,lowest=3
%integer no of bombs=0,sheet no=0
%integer shell row=-1,shell col=-1
%integer row,col,i,j
%integer row offset=0,col offset=0
%integer init,step,final
%integer legs in=false
%integer tank pos
%integer chs since esc=0
%integer buffer size=100
%integer bufflim,ibp,obp=0,iblim,char,ch
%own %byte %array score board (1:4)='0' (*)
==> iprogsou_alist11.txt <==
! RECODE FOR IMP PROGRAMS
! THIS PROGRAM TAKES THE THIRD PASS
! OUTPUT OF THE IMP COMPILER
! AND MAKES A RECODE IN ASSEMBLY
! OF EVERY IMP SOURCE LINE
! AUTHOR K. STRAATMAN
! MATHEMATISCH INSTITUUT
! RIJKSUNIVERSITEIT TE GRONINGEN
! POSTBUS 800, GRONINGEN, THE NETHERLANDS
! 24 JAN 1978
! COMMAND: RECODE SOURCE OY / OUTPUT
%EXTERNALROUTINE ALIST11(%STRING(63) FILE)
%CONSTINTEGER MAX SPECS = 100
%OWNINTEGER MAIN PROG= 0
%STRING(63) SOURCE FILE, OBJECT FILE,OUTPUT,SDISP
%INTEGER DISP,I
%EXTERNALINTEGERFNSPEC EXIST(%STRING(63) FILE)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
! %EXTERNALINTEGERFNSPEC TIME40(%INTEGER INST)
==> iprogsou_ass11.txt <==
%EXTERNALROUTINE ASS11(%STRING (63)FILES)
%EXTERNALINTEGERFNSPEC SMADDR(%INTEGER CHAN, %INTEGERNAME LENGTH)
%EXTERNALROUTINESPEC DEFINE(%STRING (63)S)
%DYNAMICSTRING (8) %FN %SPEC DATE
%DYNAMICINTEGERFNSPEC TIME40(%INTEGER IN)
%DYNAMICINTEGERFNSPEC TIME03(%INTEGER IN)
%DYNAMICINTEGERFNSPEC TIME45(%INTEGER IN)
%ROUTINE DUMP BIN(%HALFINTEGERARRAYNAME CODE, %C
%INTEGER START, FINISH, %STRINGNAME T, %INTEGERNAME FLAG)
%INTEGER CHECK, J
%ROUTINE PUT(%INTEGER N)
%INTEGER M
M = N>>8&255
N = N&255
PRINTCH(N); PRINTCH(M)
CHECK = CHECK+(N+M)
%END
%RETURN %IF START < 0; !?????
SELECT OUTPUT(3)
CHECK = 0
PUT(1)
==> iprogsou_code11.txt <==
! RECODE FOR IMP PROGRAMS
! THIS PROGRAM TAKES THE THIRD PASS
! OUTPUT OF THE IMP COMPILER
! AND MAKES A RECODE IN ASSEMBLY
! OF EVERY IMP SOURCE LINE
! AUTHOR K. STRAATMAN
! MATHEMATISCH INSTITUUT
! RIJKSUNIVERSITEIT TE GRONINGEN
! POSTBUS 800, GRONINGEN, THE NETHERLANDS
! 24 JAN 1978
! COMMAND: RECODE SOURCE OY / OUTPUT
%EXTERNALROUTINE CODE11(%STRING(63) FILE)
%CONSTINTEGER MAX SPECS = 100
%OWNINTEGER MAIN PROG = 0
%STRING(63) SOURCE FILE, OBJECT FILE,OUTPUT,SDISP
%INTEGER DISP,I
%EXTERNALINTEGERFNSPEC EXIST(%STRING(63) FILE)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
%EXTERNALINTEGERFNSPEC TIME40(%INTEGER INST)
==> iprogsou_link11.txt <==
%EXTERNALROUTINE LINK11(%STRING(63) PARAM)
%STRING(63) MAP
%OWNINTEGER BRIANS FIDDLE = 255
%CONSTINTEGER LIMIT = 128
%OWNINTEGER CODE BASE = 2<<13, GLA BASE = 0, SPBASE = 7<<13
%OWNINTEGER ALONE = 0, MAIN EP = -1, ENTRY = 0
%OWNSTRING(31) TASK ID = ""
%OWNSTRING(31) FIX FILE = ""
%OWNINTEGER STREAMS = 2
%OWNSTRING(31) PERM FILE = ".PERM11#REL", %C
LIB FILE = ".LIB11#REL", %C
OBJECT = ""
%OWNINTEGER STACK = 8*1024
%CONSTINTEGER PLUG BIT = 64
%EXTERNALINTEGERFNSPEC EXIST(%STRING(255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
%EXTERNALSTRING(6) %FNSPEC IMP11HOST
%EXTERNALROUTINESPEC PROMPT(%STRING(15) S)
%RECORDFORMAT TABFM(%INTEGER ADDR, INDEX, %C
%BYTEINTEGER TYPE, %STRING(63) TEXT)
%CONSTINTEGER MAX TABLE = 400
==> isotgreport.txt <==
Here it is!
DRAFT December 85
___________________________
Transition to OSI Standards
_____________________________________________________
Report of the Academic Community OSI Transition Group
__________________
0. Management Summary
____
This is always the last bit that gets written. It will emphasise the
transition as a dynamic process, needing careful management. It will flag
addressing as a major problem area. When it exists, it will be followed by
a page break.
_____________________________
==> isotran.txt <==
@make[report]
@heading[ISO Transition Plans (some brief comments)]
The ISO Transition Plans still correspond well with the outline given by
Peter Linington at Networkshop 1984. However, since then the ISO Transition
Committee has been meeting and a major report will be available in
@b[the autumn] of this year.
An important feature in the transition is keeping in step
with the ISO transition in the rest of Europe
to ensure that we can apply the maximum pressure on @b[manufacturers] to produce
the necessary protocols.
@section[Current Position]
The transition will be handled in two distinct parts.
@begin[enumerate]
At the network Level (and below)
Upper levels
@end[enumerate]
@section[Network Level]
The intention is to switch from the current position of Yellow Book running over
==> isotrsl_slide1.txt <==
{{scaling factor(0.67)}}
{{box(0,6)(26,8);inlabel(0.5,"HDLC")}}
{{box(0,8)(26,11);inlabel(0.5,"X25 L3")}}
{{box(0,11)(21,13);inlabel(0.5,"Yellow Book")}}
{{box(0,13)(17,25);inlabel(0.5,"@b@b@b@b@bBlue Book@b(File Transfer Protocol")}}
{{box(5,19)(11,25);inlabel(0.5,"Grey@bBook@b(Mail)")}}
{{box(11,19)(17,25);inlabel(0.4,"Red@bBook@b(JTMP)")}}
{{box(17,13)(21,25);inlabel(0.4,"Green@bBook@b@b(TS29)")}}
{{box(21,11)(26,25);inlabel(0.4,"Green@bBook@b@b(XXX)")}}
{{label(0,3,0.5,0,"UK Academic 'Coloured Book' structure")}}
==> isotrsl_slide2.txt <==
{{scaling factor(0.67)}}
{{label(0,25,.4,0,"")}}
UK Coloured Books
Green Book - Terminal Protocols
(Use of X29)
Yellow Book - 'Transport Protocol'
(Now seen as Network Service)
Blue Book - NIFTP - File Transfer Protocol
Grey Book - MAIL - Mail Protocol
Red Book - JTMP - Job Transfer and
Manipulation
------------------------------------------------
Orange Book - Cambridge Ring Protocols
Pink Book - Ethernet - How to use ISO
Faun Book - SSMP - Simple Screen
==> isotrsl_slide3.txt <==
{{box(0,0)(8,8);inlabel(.4,"Physical")}}
{{box(0,8)(8,16);inlabel(.4,"Data Link")}}
{{box(0,16)(8,24);inlabel(.4,"Network")}}
{{box(9,0)(17,8)}}
{{box(9,8)(17,16);inlabel(.4,"Lap-B")}}
{{box(9,16)(17,20);inlabel(.4,"X25(1980)")}}
{{box(9,20)(17,24);inlabel(.4,"Yellow Book")}}
{{box(18,0)(26,8)}}
{{box(18,8)(26,16);inlabel(.4,"X25(1984)-L2")}}
{{box(18,16)(26,24);inlabel(.4,"x25(1984)-L3")}}
{{label(2,25,.4,0,"Transition to ISO Network Layer")}}
==> isotrsl_slide4.txt <==
{{box(0,2)(22,4);inlabel(.4,"L2")}}
{{box(0,4)(22,8);inlabel(.4,"X.25(1984)")}}
{{box(0,8)(11,24);inlabel(.4,"@b@b@b@b@bFTP")}}
{{box(4,15)(8,24);inlabel(.3,"Mail")}}
{{box(8,15)(11,24);inlabel(.3,"Job")}}
{{box(11,8)(16.5,12);inlabel(.3,"Tran")}}
{{box(16.5,8)(22,12);inlabel(.3,"Tran")}}
{{box(11,12)(16.5,16);inlabel(.3,"Sess")}}
{{box(16.5,12)(22,16);inlabel(.3,"Sess")}}
{{box(11,16)(16.5,20);inlabel(.3,"Pres")}}
{{box(16.5,16)(22,20);inlabel(.3,"Pres")}}
{{box(11,20)(16.5,24);inlabel(.3,"FTAM")}}
{{box(16.5,20)(22,24);inlabel(.3,"X400")}}
{{label(2,0,.4,0,"ISO Transition Stages")}}
==> itpinfs.txt <==
%CONTROL 1
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! INFO MARK 2--ITP CONSOLE HANDLER
!
! FILE=ITPS
!
! 27TH AUG 1980
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! THIS MODULE TAKES CONNECTIONS TO FACILITY 18 FROM GATE AND HANDLES
! CONSEQUENT ITP LOGONS FROM CONSOLES. IT ASSOCIATES THE CONSOLE WITH THE USER TASK
! AND WILL LOAD OTHER TASKS TO GIVE THE REQUIRED SERVICE.
! IT THEN HANDLES THE FLOW OF DATA FROM THE TASK TO THE CONSOLE AND VICE-VERSA.
! LOGGING OFF THE CONSOLE IS ALSO CONTROLLED FROM HERE.
!
! SEE INFO NOTES 2 AND 3 FOR INTERFACE DETAILS.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
==> itps8.txt <==
! FILE 'FEP_ITPS8'
!********************************
!* EMAS-2900 FEP ITP SERVER *
!* FILE: ITPS8/ITPS8Y *
!* DATE: 26.MAY.81 16.10 *
!********************************
!! STACK SIZE = 500
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
==> iunc.txt <==
@h{INTER-UNIVERSITY NETWORK COMMITTEE}
@b[@u[Conference on Campus and Local Area Networking Choice]]
@b[@u[University of Reading, Monday 23 September - Tuesday 24th September 1985]]
@u[Programme]
@b[@u[MONDAY, 23 SEPTEMBER]]
11.30 onwards Registration - St. Andrew's Hall
12.30 - 13.45 Buffet Lunch
@b[@u[First Session]] - Lecture Theatre LT4, London Road Site
Chairman: Dr. P. Kemp, Secretary, IUCC
14.15 Welcome John Lindley,
Chairman, IUNC
==> jntnews.txt <==
@device[x2700]
@make[report]
@heading[X.25 Switch Survey]
The Academic Community has now been using GEC packet switches for a number of
years and it was felt appropriate to conduct a fresh survey into current
X.25 switching products. The main intention of the survey was to identify
potential suppliers of both large switches (around 100 lines) and of
small switches (around 10 lines) neither of which is satisfactorily
covered by the GEC products. An initial survey was made of 17 systems
which are currently marketed and a summary of the report, entitled
'X.25 Packet Switch Survey, 1st Stage Report' is available from the JNT.
From the initial survey six manufacturers were picked for a more detailed
examination. They were the existing suppliers GEC and Camtec joined by
Amdahl, Dynatech, Telefile and Telematics. The requirement for large switches
was addressed by GEC, Amdahl and Telematics whilst Camtec, Dynatech and
Telefile were contenders for the small switch requirement.
The final survey report recommended that, subject to a number of conditions,
restricted procurement should be permitted between GEC and Telematics at the
==> jntprop.txt <==
@b[Edinburgh Regional Computing Centre]
@heading[Proposal to the JNT for a
X.25 Packet Switch Survey]
@centre[Brian Gilmore
June 1985]
The ERCC proposes to do a survey of X.25 packet switch suppliers. The survey
will be in two stages.
@b[Stage 1]
In Stage 1, a general survey will be done of at least 15 X.25 packet switch
suppliers with the aim of establishing the cost, throughput, connectivity and
management facilites of the various products. The aim of the survey will
be to produce a short list of a few suppliers for Stage 2. At the end of
this stage an interim report will be provided to the JNT for their approval
of the short list.
==> jtmp.txt <==
JTMP
====
(Background only)
There are currently four known sites working on JTMP, they are:-
Salford Fortran/Mainframe
ULCC BCPL/Stand alone
Bristol C/Unix (with York FEP)
UWIST ?/VMS (just starting)
The Salford implementation is the only 'host' one, the others are workstations
or workstation converter in the case of ULCC.
Currently, only the Salford implementation on the Amdahl and the ULCC version
can communicate to each other, the reason being that they have implemented
on top of a 'special' protocol to traverse the network. Bristol has
implemented on top of FTP (as it should be done) although they have had to
mod the York FTP to do so. Bristol cannot finish the software as Salford
==> junk.txt <==
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
17 20 21 0 24 6 0 18 30 0 2 0 0 0 0 0 0 0 0 406 1124 755
17 20 21 0 28 2 0 18 30 0 2 0 0 0 0 0 0 0 0 434 1268 755
16 20 23 0 30 6 0 18 30 0 2 4 0 0 0 0 0 0 0 316 1252 755
19 20 21 0 24 2 0 20 30 0 0 0 0 0 0 0 0 0 0 276 1652 755
20 20 20 0 24 4 0 16 30 0 0 0 0 0 0 0 0 0 0 302 1884 755
21 20 19 0 30 2 0 18 30 0 0 0 0 0 0 0 4 0 0 220 1844 755
22 20 19 0 26 2 0 18 30 0 0 0 0 0 0 0 0 0 0 256 1968 755
21 20 19 0 26 2 0 22 30 0 2 0 0 0 0 0 0 0 0 286 1910 755
19 20 18 0 26 2 0 18 30 0 0 0 0 0 0 0 0 0 0 242 1804 755
15 20 17 0 26 2 0 18 30 0 0 0 0 0 0 0 0 0 0 0 1414 755
15 20 19 0 38 2 0 20 30 0 4 2 0 0 0 0 0 0 0 96 1358 755
18 20 21 0 30 4 0 18 30 0 2 2 0 0 0 0 0 0 0 218 1610 755
17 20 21 0 36 2 0 18 30 0 2 0 0 0 0 0 0 0 0 228 1512 755
19 20 20 0 32 4 0 18 32 0 4 2 0 0 0 0 0 0 0 424 1482 755
19 21 21 0 26 6 0 18 30 0 0 4 0 0 0 0 0 0 0 292 1608 755
14 21 21 0 26 6 0 18 32 0 0 2 0 0 0 0 0 0 0 242 1162 755
15 21 19 0 28 6 0 20 30 0 0 0 0 0 0 0 0 0 0 236 1352 755
21 21 20 0 26 4 0 18 38 0 0 2 0 0 0 0 0 0 0 214 1844 755
17 21 20 0 30 4 0 18 60 0 2 0 0 0 0 0 0 0 0 300 1374 755
==> kbstats.txt <==
==> kent#jun81_bsp5s.txt <==
!********************************
!* EMAS-2900 BSP INTERFACE *
!* HANDLER *
!* FILE: BSP5S *
!* 24:11:80 *
!*********************************
!! STK = 300, STRM = 1
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
%CONTROL K'100001'
==> kent#jun81_itps8.txt <==
! FILE 'FEP_ITPS8'
!********************************
!* EMAS-2900 FEP ITP SERVER *
!* FILE: ITPS8/ITPS8Y *
!* DATE: 24.SEP.80 16.10 *
!********************************
!! STACK SIZE = 500
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
==> kent#jun81_notes.txt <==
FEPF created 12/6/81 after furore about EMAS cntrl D has died
down. Changes to ITPS, RJES, BSPS
ITPS
Buffer address validation code added.
Delay int Y if input not enabled till console nexts attempts
to log on
Add special INT 0 to send terminal address into EMAS N.B. in
UKC version the node number is always zero.
The hardware seg is now seg 0 as the code is > 1 segment
RJES
Includes RDE code for page counting for remote printers.
Seg 0 used as hardware seg as code >1 seg.
Buffer address validation code added.
Check that high level control messages are for stream 5,
(hopefully this is not now useful).
==> kent#jun81_rjes8.txt <==
%CONSTSTRING (7) VSN = "VSNKG8S"
!MODIFIED:-
!14/5/81 DETECT HIGH LEV CON MESSAGES ON STREAMS OTHER THAN 5
! VALIDATE MESSAGE MORE CAREFULLY IN READ MESSAGE FROM AM1
!1/5/81 VALIDATE BUFFER POINTERS
!07:04:81 ADD 'BELL' TO ABORTED MESSAGES
! ADD BITS DERIVED FROM ERCC VERSION REVD TODAY
!22:04:81 ADD CODE TO COUNT LINES/PAGES ON OUTPUT
! MAP HARDWARE TO SEG 0 TO FREE CODE SPACE IN SEG 3
!********************************
!* EMAS-2900 FEP RJE SERVER *
!* FILE: RJES8/RJES8Y *
!* DATE: 18.SEP.80 *
!* MODIFIED FOR RING 27.OCT.80 *
!********************************
!! STACK SIZE = 300
==> kent#jun81_zboots.txt <==
!z80 TCP BOOT PROGRAM
!VERSION 1 JUST LOADS FROM STREAM 1 TO TEST THE BSP INTERFACE
!2:6:81
!VERSION 2 ALLOWS THE USER TO SPECIFY A MACHINE NAME AND CORRESPONDING
!LOAD FILE - INT S ZBT PUTS IT INTO THE 'SET' MODE WHERE IT PROMPTS
!FOR THE MACHINE NAME AND FILE NAME
!8:6:81
!! STK = 300, STRM = 1
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS, %BYTEINTEGERARRAY FNAME(0:5))
==> kentkv11.txt <==
(Message 662)
Subject: Re: Newcastle Interface
From: I.N.Dallas @ uk.ac.ukc 29 Aug 85 16:13:38 bst
To: B.Gilmore @ uk.ac.edinburgh
In reply to: Your message <29 Aug 85 16:05:09 bst 140005@EMAS>
Via: uk.ac.ukc ; (to uk.ac.edinburgh.emas) 30 Aug 85 08:12:22 bst
Msg ID: <29 Aug 85 16:13:38 bst 010857@EMAS>
Attached is the un-prepped source of xprot. There will be a mail message
following which has the GO file, which generates the object.
Thanks for your assistance, I will look closely at the sources too.
Source follows: ***********
#if k
%list
#fi
!
==> kents1280_bsp4s.txt <==
!********************************
!* EMAS-2900 BSP INTERFACE *
!* HANDLER *
!* FILE: BSP4S *
!* 18:3:80 *
!*********************************
!! STK = 300, STRM = 1
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
%CONTROL K'100001'
==> kents1280_bsp5s.txt <==
! FILE 'BSP5S'
!********************************
!* EMAS-2900 BSP INTERFACE *
!* HANDLER *
!* FILE: BSP5S *
!* DATE:10.DEC.80 *
!* MODIFIED FOR ERCC USE *
!*********************************
!! STK = 300, STRM = 1
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
==> kents1280_buff3.txt <==
!*******************************
!* EMAS-2900 BUFFER MANAGER *
!* FILE: BUFF3 (FEP) *
!* DATE: 06.MAR.80 *
!******************************
!! STK = SIZE+200
%CONSTINTEGER SIZE = K'33000'; ! WAS 35000, BUT NEEDS LINK6S
%CONTROL K'100001'
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT D(%INTEGER I)
%CONSTRECORD (D) %NAME NULL = 0
%BEGIN
%RECORDFORMAT BF(%RECORD (BF) %NAME L, %BYTEINTEGER LEN, MODE, %C
%BYTEINTEGERARRAY A(0:99))
%RECORDFORMAT QF(%RECORD (BF) %NAME L)
==> kents1280_eam7.txt <==
! FILE 'FEP_EAM7'
!********************************
!* EMAS-2900 FEP AM1 HANDLER *
!* FILE: EAM7 *
!* DATE: 18.SEP.80 10.00 *
!* MODIFIED FOR PCB INTERFACE *
!********************************
!! STACK SIZE = 300
%OWNINTEGER FEP NO = 0
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%CONTROL K'100001'
==> kents1280_itps8.txt <==
! FILE 'FEP_ITPS8'
!********************************
!* EMAS-2900 FEP ITP SERVER *
!* FILE: ITPS8/ITPS8Y *
!* DATE: 24.SEP.80 16.10 *
!********************************
!! STACK SIZE = 500
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
==> kents1280_namedoclp.txt <==
Oct 1980 - 1 -
_ ____________
1 Introduction
A task has been implemented on the EMAS FEP system to facilitate access to
the ring name server. This task handles the red tape of the ring message
formats, the allocation of reply ports and retrying the transmissions up to
three times if a reply is not received within 1 or 2 seconds.
The name server task has name NAME and links in as task 15. The name server
task assumes that the FEP buffer manager task is handling the allocation and
deallocation of buffers. Messages to NAME should include a buffer which in the
most common case of a name lookup request will contain the name whose address is
required. The reply from NAME may or may not include a buffer reference
depending on whether a reply was received or not from the name server on the
ring.
==> kents1280_names.txt <==
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
%CONTROL K'100001'
%BEGIN
%CONSTSTRING (7)VSN = 'VSN004A'
%RECORDFORMAT MEF(%RECORD (MEF) %NAME LINK, %BYTEINTEGER LEN, %C
TYPE, %INTEGER ADDRESS,PORT,COMMAND,RPORT,FN, %C
%INTEGERARRAY A(0:60) )
==> kents1280_notes.txt <==
FEP software as of 25:11:80 - using new versions of ITPS,RJES,EAMH and
the 2 segment version of the buffer manager, BUFF3. Points to note are:-
EAM7 Has 'built in' fep number and AM1 address because KENT use early
version of load program.
RJES8 Modified to 'down' devices that are not available because the
remote is u/s. NB does not effect handling of busy devices except
the open is only repeated every 10 seconds instead of 2.
ITPS8 The queueing of buffers is done in BSPS to gain throughput, however
ITPS is told when each buffer is acknowledged so that BGs buffer
control code should still work - not easy to test at KENT.
Note for SEB's benefit - a frigged version of ITPS to stop students
logging on in room S.01 is in file ITPS8XXS01.
RING4S Does not take special action when the 'ring down' bit in the interface
comes up, except to throw away output transfers. THe idea is for BSPS
to survive a ring reset.
==> kents1280_nsiws.txt <==
!**********************
!* NSIWS/NSIWY *
!* DATE: 25.SEP.79 *
!*********************
%CONSTSTRING (7) VSN = "VSNK01B"
!! STACK = 400, STREAMS = 3
!! NOTE: FOR VERSIONS THAT ARE RUN OUT OF A 2900 FEP SYSTEM,
!! MESSAGES FROM THE NETWORK SHOULD BE ENABLED - SEE
!! THE COMMENT AT 'MESSAGES ENABLED'
%CONTROL K'100001'
!STACK=400, STREAMS=3
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%EXTERNALPREDICATESPEC READ FNAME(%RECORD(XF)%NAME FILE)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%BEGIN
%%RECORDFORMAT ITPF(%BYTEINTEGER CNSL,HB1,HB2,LEN, %C
==> kents1280_ring4s.txt <==
!********************************
!* EMAS-2900 RING INTERFACE *
!* HANDLER *
!* FILE: RING4S *
!* 27:3:80 *
!*********************************
!! STK = 300, STRM = 1
!NB LOCATION K'140016 IS USED TO HOLD THE CHECKSUM SO THAT IT MAY
!BE ACCESSED FROM CODE
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
==> kents1280_rjes8.txt <==
%CONSTSTRING (7) VSN = "VSNKB8S"
!********************************
!* EMAS-2900 FEP RJE SERVER *
!* FILE: RJES8/RJES8Y *
!* DATE: 18.SEP.80 *
!* MODIFIED FOR RING 27.OCT.80
!********************************
!! STACK SIZE = 300
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
==> kents_bsp4s.txt <==
!********************************
!* EMAS-2900 BSP INTERFACE *
!* HANDLER *
!* FILE: BSP4S *
!* 18:3:80 *
!*********************************
!! STK = 300, STRM = 1
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
%CONTROL K'100001'
==> kents_docs.txt <==
April 1980 - 1 -
_ ____________
1 Introduction
There are two programs, which run as separate tasks under the DEIMOS
operating system [1], to control the transmission of information on the ring.
The programs are written in IMP77 [2].
The first is a device driver for the ring interface, it provides for _____
basic
_____ [3] transfers on the ring, initialisation of the interface and
block
notification of power failure on the ring. The ring driver is designed to be
used by several tasks each of which specifies to the ring driver a range of
input ports for which it will accept input. The second program provides an
implementation of the byte stream protocol BSP [4], using the ring driver to
perform the data transfers.
The BSP handler, on initialisation, notifies the ring handler that all input to
ports in the range 1 up to the maximum number of byte stream ports allowed
==> kents_eam7p.txt <==
!********************************
!* EMAS-2900 FEP AM1 HANDLER *
!* FILE: EAM7 *
!* DATE: 22.FEB.80 10.00 *
!* MODIFIED FOR PCB INTERFACE *
!********************************
!! STACK SIZE = 300
%OWNINTEGER FEP NO = 0
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%CONTROL K'100001'
==> kents_itps7.txt <==
!********************************
!* EMAS-2900 FEP ITP SERVER *
!* FILE: ITPS7/ITPS7Y *
!* DATE: 30.APR.80 16.10 *
!********************************
!MODIFIED FOR RING USING BYTE STREAM PROTOCOL INSTEAD OF NSI
!
!! STACK SIZE = 500
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
==> kents_notes.txt <==
20:6:80
This is the first NSI-less FEP
ITPS7 and RJES8 have been edited to change the record formats from
NSI compatability to BSP form, the record formats have been renamed
to reflect this. GATE has disappeared to be replaced by BSPS and the
new RING has a simpler function. NSIW has been likewise altered to
interface to BSPS. EAM, COMM and BUFF are unchanged.
==> kents_nsiws.txt <==
!**********************
!* NSIWS/NSIWY *
!* DATE: 25.SEP.79 *
!*********************
%CONSTSTRING (7) VSN = "VSNK01B"
!! STACK = 400, STREAMS = 3
!! NOTE: FOR VERSIONS THAT ARE RUN OUT OF A 2900 FEP SYSTEM,
!! MESSAGES FROM THE NETWORK SHOULD BE ENABLED - SEE
!! THE COMMENT AT 'MESSAGES ENABLED'
%CONTROL K'100001'
!STACK=400, STREAMS=3
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%EXTERNALPREDICATESPEC READ FNAME(%RECORD(XF)%NAME FILE)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%BEGIN
%%RECORDFORMAT ITPF(%BYTEINTEGER CNSL,HB1,HB2,LEN, %C
==> kents_ring4s.txt <==
!********************************
!* EMAS-2900 RING INTERFACE *
!* HANDLER *
!* FILE: RING4S *
!* 27:3:80 *
!*********************************
!! STK = 300, STRM = 1
! COMPILE OPTIONS
! ---------------
! TRACE OPTION #T ON
! ERROR OPTION #E ON
! STATS OPTION #S OFF
!
!NB LOCATION K'140016 IS USED TO HOLD THE CHECKSUM SO THAT IT MAY
!BE ACCESSED FROM CODE
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
==> kents_rjes8.txt <==
%CONSTSTRING (7) VSN = "VSNK08P"
!********************************
!* EMAS-2900 FEP RJE SERVER *
!* FILE: RJES8/RJES8Y *
!* DATE: 06.MAR.80 *
!********************************
!MODIFIED FOR RING TO USE BYTE STEAM PROTOCOL INSTEAD OF NSI
!! STACK SIZE = 300
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
==> kern31l.txt <==
1
2 040000 %BEGIN
3 %CONTROL K'101011'
4 %CONSTINTEGER CSIZE = 2231
5 %CONSTINTEGER BLIMIT = 14
6 %CONSTINTEGER INIT DISPLAY = 255
7 %CONSTINTEGER READ DISPLAY = 254
8 %OWNINTEGER MYNODE = 4; !OUR NODE NUMBER
9 %OWNINTEGER THRESHOLD = 150; !ROUTING THRESHOLD
10 %OWNINTEGER LFACTOR = 8; !BUFFERS PER SCORE INCREMENT
11 %OWNINTEGER BC = 0; !NO. OF BUFFERS ALLOCATED
12 %OWNINTEGER BL = 9999; !CONNECT BUFFERS FOR NODE
13 %OWNINTEGER AL = 255; !CONNECT BUFFERS PER ATTACHMENT
14 %RECORDFORMAT CADDRF(%INTEGER LINK)
15 %OWNRECORD (CADDRF) %ARRAYNAME CADDR
16 %OWNINTEGER CLIMIT = CSIZE
17 %OWNINTEGER DISPLAY SERVICE = 0
18 %OWNINTEGER BUFFINDEX = 0
19 %OWNINTEGER BUFFLIMIT = BLIMIT
20 %OWNINTEGER BUFFLOST = 0
21 %RECORDFORMAT BUFFF(%BYTEINTEGER USE, LINE, %BYTEINTEGERARRAY %C
==> kmc11_kexts.txt <==
%EXTERNALSTRING(4)%ARRAY BUS0(0:15)="ADR0","ADR1","ADR2","ADR3",
"ADR4","ADR5","ADR6","ADR7","USR0","USR1","USR2","USR3",
"USR4","USR5","USR6","USR7"
%EXTERNALSTRING(4)%ARRAY BUS1(0:15)="CSR0","CSR1","CSR2","CSR3",
"CSR4","CSR5","CSR6","CSR7","NPR","MISC","?"(*)
%EXTERNALSTRING(5)%ARRAY IF(2:7)="C","Z","BRG.0","BRG.1","BRG.4","BRG.7"
%EXTERNALSTRING(3)%ARRAY ISO(0:31)="NUL","SOH","STX","ETX","EOT","ENQ",
"ACK","BEL"," BS"," HT"," NL"," VT"," FF"," CR"," SO"," SI",
"DLE","DC1","DC2","DC3","DC4","NAK","SYN","ETB","CAN"," EM","SUB",
"ESC"," FS"," GS"," RS"," US"
%EXTERNALROUTINE HEX(%INTEGER DATA)
%INTEGER I,J
%CYCLE I=12,-4,0
J=DATA>>I&15
%IF J<10 %THEN PRINT SYMBOL(J+'0') %ELSE PRINT SYMBOL(J-10+'A')
%REPEAT
%END
%EXTERNALROUTINE OCTAL(%INTEGER DATA)
%INTEGER I
==> kmc11_klink.txt <==
!
! c.s. link handler for kmc11 - gjb 28/06/78
!
!
! kmc11 program to perform block transfers between pdp-11 and
! c.s. department nine bit link. buffers are passed, using the
! csrS as follows :-
! (1) pdp-11 -> kmc11
! (a) pdp-11 sets csr0.4 (csr request)
! (b) kmc11 sets csr2.1 (csr grant) after arbitrary delay
! (c) pdp-11 loads buffer info :
! csr2.0 = 0 (rx buff), 1 (tx buff)
! csr2.2/3 = bit 16/17 of address
! csr3 = length (in words)
! csr2.7 = extra byte marker
! csr4/5 = bit 0-15 of address
! (d) pdp-11 resets csr0.4
! (2) kmc11 -> pdp-11
! (a) kmc11 loads buffer info, as above
! (b) kmc11 sets csr2.4 (data ready)
!
==> kmc11_kloads.txt <==
!
! KMC11 LOADER - GJB 14/04/78
!
%CONTROL K'101011'
%BEGIN
%RECORDFORMAT KF(%BYTEINTEGER CSR0,CSR1,%INTEGER CSR2,CSR4,CSR6)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%CONSTRECORD(KF)%NAME KMC=K'060160';
%INTEGER ADDRESS,DATA
%ROUTINE READ DATA
%INTEGER I
READ SYMBOL(I); READ SYMBOL(DATA)
DATA=DATA!I<<8
%END
%ROUTINE INST(%INTEGER INSTRUCTION)
KMC_CSR1=0; KMC_CSR6=INSTRUCTION
KMC_CSR1=KMC_CSR1!2
KMC_CSR1=KMC_CSR1!1
%END
==> kmc11_kmc2s.txt <==
!
! KMC11 ASSEMBLER V2
! STARTED GJB 28/03/78
! UPDATED GJB 29/09/78
!
!%CONTROL K'101011'
%BEGIN
%OWNINTEGER FAULTS,LPTR,CLOC,DLOC,TYPE,VALUE,PRINT,LMAX,INST,PPTR,I,COUNT
%OWNINTEGER CORD,SPTR,J,MACLEV,MTPTR,IN1,IN2,IN3,K,TOELSE,POSN
%OWNINTEGER ASL=-1,LS=3
%RECORDFORMAT TF(%BYTEINTEGERARRAY NAME(0:5),%INTEGER TYPE,VALUE)
%RECORD(TF)%ARRAY TAG(0:259)
%RECORDFORMAT T1F(%BYTEINTEGERARRAYNAME NAME)
%RECORDFORMAT T2F(%RECORD(TF)%ARRAYNAME NAME)
%RECORD(T1F) T1
%RECORD(T2F)%NAME T2
%OWNBYTEINTEGERARRAY TTAG(0:2559) = %C
66, 0, 0, 0, 0, 0, 7, 0, 255, 255,
67, 0, 0, 0, 0, 0, 5, 0, 0, 0,
90, 0, 0, 0, 0, 0, 5, 0, 1, 0,
66, 82, 71, 0, 0, 0, 1, 0, 0, 97,
==> kmc11_kmc3s.txt <==
!
! KMC11 ASSEMBLER V2
! STARTED GJB 28/03/78
! UPDATED GJB 29/09/78
!
!%CONTROL K'101011'
%BEGIN
%OWNINTEGER FAULTS,LPTR,CLOC,DLOC,TYPE,VALUE,PRINT,LMAX,INST,PPTR,I,COUNT
%OWNINTEGER CORD,SPTR,J,MACLEV,MTPTR,IN1,IN2,IN3,K,TOELSE,POSN
%OWNINTEGER ASL=-1,LS=3
%RECORDFORMAT TF(%BYTEINTEGERARRAY NAME(0:5),%INTEGER TYPE,VALUE)
%RECORD(TF)%ARRAY TAG(0:259)
%RECORDFORMAT T1F(%BYTEINTEGERARRAYNAME NAME)
%RECORDFORMAT T2F(%RECORD(TF)%ARRAYNAME NAME)
%RECORD(T1F) T1
%RECORD(T2F)%NAME T2
%OWNBYTEINTEGERARRAY TTAG(0:2559) = %C
66, 0, 0, 0, 0, 0, 7, 0, 255, 255,
67, 0, 0, 0, 0, 0, 5, 0, 0, 0,
90, 0, 0, 0, 0, 0, 5, 0, 1, 0,
66, 82, 71, 0, 0, 0, 1, 0, 0, 97,
==> kmc11_kmcdrvs.txt <==
%externalroutinespec define(%string (255) s)
%externalroutinespec run(%string (255) s)
%externalroutine kmc (%string (255) s)
%string (255) s1, s2, s3, s4
define("2,kprims")
s3="y"; s4=".out"
%if s->s.("/").s2 %start
%if s2->s3.(",").s4 %then s3=s3
%finish
define("1,".s)
%if s3="" %then s3="Y"
%if s4="" %then s4="ss#list"
define("3,".s3)
define("4,".s4)
run("kmc2y")
%end
%externalroutine krecode(%string (255) s)
%string (255) t, u
%unless s -> s.("/"). t %then t = ".out"
define("1,".s)
==> kmc11_kmcman.txt <==
,$A JUST=1; LEFT=2
$A INVERT=0; INVO=0
$A PAGENO=1; BOTTOM=4; TOP=3; PAGE=58
$A LINE=72; MARK=2
$A CAP=0; CAPO=0; CAPSH=0; CAPSHO=0
$A TAB=4,8,12,18,20,24,28,32,36,40,44,48,52,56,60,64,68
$N
$B20
$L1M
H A L K
$B2$L2M
A HIGH-LEVEL ASSEMBLY LANGUAGE
FOR THE KMC11
$B6
$L1M
AN INFORMAL INTRODUCTION
$N
$B2$T0%Introduction
$B2HALK is based upon the language HAL, designed and
implemented by Hamish Dewar on the Interdata 70 series and the
ICL 7502. Various modifications have been made to
==> kmc11_kmcs.txt <==
C!
! KMC11 ASSEMBLER V2
! STARTED GJB 28/03/78
! UPDATED GJB 29/09/78
!
%CONTROL K'101011'
%BEGIN
%OWNINTEGER FAULTS,LPTR,CLOC,DLOC,TYPE,VALUE,PRINT,LMAX,INST,PPTR,I,COUNT
%OWNINTEGER CORD,SPTR,J,MACLEV,MTPTR,IN1,IN2,IN3,K,TOELSE,POSN
%OWNINTEGER ASL=-1,LS=3
%RECORDFORMAT TF(%BYTEINTEGERARRAY NAME(0:5),%INTEGER TYPE,VALUE)
%RECORD(TF)%ARRAYNAME TAG
%RECORDFORMAT T1F(%BYTEINTEGERARRAYNAME NAME)
%RECORDFORMAT T2F(%RECORD(TF)%ARRAYNAME NAME)
%RECORD(T1F) T1
%RECORD(T2F)%NAME T2
%OWNBYTEINTEGERARRAY TTAG(0:2559) = %C
66, 0, 0, 0, 0, 0, 7, 0, 255, 255,
67, 0, 0, 0, 0, 0, 5, 0, 0, 0,
90, 0, 0, 0, 0, 0, 5, 0, 1, 0,
66, 82, 71, 0, 0, 0, 1, 0, 0, 97,
==> kmc11_krecos.txt <==
<<8
%END
%ROUTINE MOVE
%INTEGER I
NEWLINE; PRINT SYMBOL('*') %FOR I=1,1,77; NEWLINES(2)
%END
==> kmc11_kring2s.txt <==
& sp15 are spare
!
$def idatal = adr0, idatah = adr1, odatal = adr2, odatah = adr3
$def ibusl = adr4, ibush = adr5, obusl = adr6, obush = adr7
!
$def nprreq=npr.0, nonexmem=misc.0, timeout=misc.4, settime = 16_10
$def bits1617 = 16_0c
$def intson=csr0.0, rxints=csr0.1, reqi11 = csr0.4, oack = csr0.7
$def rfn = csr2.0, kmcreq = csr3.4, gobit = csr2.7
$def rxreply = 16_10; ! kmcreq+fn=0
==> kmc11_kring3s.txt <==
! Ring handler for KMC11
! DATE 03.dec.81
! FILE kmc11_kring3s
!
!
$list 1
$def flag=sp0, rstatl=sp1, rstath=sp2, rxstate=sp3, txstate=sp4
$def itim = sp5, rxhigh=sp6, rxmid=sp7, rxlow=sp8
$def otim = sp9, txhigh=sp10, txmid=sp11, txlow=sp12
$def temp=sp13, temp1=sp14, time = sp15
!
$def idatal = adr0, idatah = adr1, odatal = adr2, odatah = adr3
$def ibusl = adr4, ibush = adr5, obusl = adr6, obush = adr7
!
$def nprreq=npr.0, nonexmem=misc.0, timeout=misc.4, settime = 16_10
$def bits1617 = 16_0c
$def intson=csr0.0, rxints=csr0.1, reqi11 = csr0.4, oack = csr0.7
$def rfn = csr2.0, kmcreq = csr3.4, gobit = csr2.7
$def rxreply = 16_10; ! kmcreq+fn=0
$def txreply = 16_11; ! kmcreq+fn=1
==> kmc11_krings.txt <==
& sp15 are spare
!
$def idatal = adr0, idatah = adr1, odatal = adr2, odatah = adr3
$def ibusl = adr4, ibush = adr5, obusl = adr6, obush = adr7
!
$def nprreq=npr.0, nonexmem=misc.0, timeout=misc.4, settime = 16_10
$def bits1617 = 16_0c
$def txints=csr0.0, rxints=csr0.1, reqi11 = csr0.4, oack = csr0.7
$def rfn = csr2.0, kmcreq = csr3.4
$def rxreply = 16_10; ! kmcreq+fn=0
==> kntkv11.txt <==
%list
!
!*************************************************
!* *
!* PSS X-25 Level 2 Protocol Handler *
!* *
!* XPROT *
!* *
%conststring (8) datestring="28/08/85"
%conststring (8) timestring="11.49.32"
!* Version 30.1 22 July 1985 *
!* *
!*************************************************
! Prep options
!
! q - dqs11 code
! p - dup11 code
! n - kv11 code (n = Newcastle)
! b - Big Buffer version
==> kprims.txt <==
> kxprot.txt <==
IMP11 kntkv11/XPROT#REL,xprot#lst
LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPR1
.END
XPR1#OBJ
destroy xpr1y
rename xpr1#obj,xpr1y
alist11 kntkv11,xprot#rel/.lp23
==> la0216.txt <==
Dump GEC logfile Version 1.3c
Log:ACCNTS.GAP850216
To:LA0216
First record at 23:57:23
Date Covered was: 7/ 2/ 1985 22:14:50 Exchange 2
Frames Control 1 seg Calls RESETS Bytes/Sec ERRORS Total Frames Total Data F Av Bytes
Line In/sec %Out %In %Out %In Out In Total Out In Total Out In Out In Out In
Em g-2 6.0 17% 59% 78% 99% 0 530 0 223 66 1 472902 662707 393698 268280 44 11
Em g-1 1.3 13% 69% 4% 10% 1691 1 1 129 44 1 100188 100862 78966 25801 128 118
Bu g-2 1.9 14% 60% 72% 98% 0 1229 2 84 24 2 152940 212298 129018 82616 51 13
KBcpse 5.2 23% 62% 60% 79% 5234 1519 6 252 93 43 408105 434642 284817 142624 68 40
Mcsu 0.1 70% 7% 95% 45% 23 11 1 1 5 111 3961 5185 1086 4618 24 83
==> la0227.txt <==
Command:an(accnts.gap850227)
File: ACCNTS.GAP850227 Type: CHARACTER Length: 1296896 Bytes
Last altered: 28/02/85 at 00.29.29
Command:dumpgec(accnts.gap850227/la0227,,aa0227:e2)
option =:E2
Input connected at 01840020, Length 0013CA00 Hex, 1296896 Dec.
00:32:24 11457 4.8 @ 01841B70
01:05:02 14060 5.9 @ 018431C8
01:37:49 7050 2.9 @ 01844EF8
02:09:37 6841 2.9 @ 01849030
02:41:57 5208 2.2 @ 0184CF5C
03:14:26 4855 2.0 @ 0185005C
03:46:43 5346 2.2 @ 01854D80
04:19:08 5773 2.4 @ 01859A78
04:51:36 11413 4.8 @ 0185DFC0
05:23:56 5318 2.2 @ 01861E98
05:56:16 5232 2.2 @ 01865D70
06:28:39 5272 2.2 @ 01869C9C
07:01:02 5208 2.2 @ 0186DCC0
==> lex2.txt <==
backups Camtec Dexpand eg etc FTP G/W G/Ws GEC Gilmore H/W II lookups
Micro NOC NRS PSE SEEL/Telefile Sep setups stand-alone timescale Unix
Vax XXX
==> lexiconfull.txt <==
10th 1st 2nd 3rd 4th 5th 6th 7th 8th 9th Aaron ABA Ababa abalone abase
abash abate abbas abbe abbot Abbott abbreviate abc abdicate abdomen
abdominal abduct Abe abed Abel Abelian Abelson Aberdeen Abernathy
aberrant aberrate abet abetted abetting abeyance abeyant abhorred
abhorrent Abidjan Abigail abject ablate ablaze ablution Abner Abo aboard
abode abolition abominable abominate aboriginal aborigine aborning
abound aboveboard aboveground abovementioned abrade Abraham Abram
Abramson abrasion abrasive abreact abreast abridge abridgment abroad
abrogate abrupt abscess abscissae absentee absenteeism absentia
absentminded absinthe absolution absorb absorbent absorption absorptive
abstain abstention abstinent abstractor abstruse absurd abuilding
abundant abusable abusive abut abutted abutting abysmal abyss Abyssinia
AC academia academician academy Acadia acanthus Acapulco accede
accelerate accelerometer accentual acceptant acceptor accipiter acclaim
acclamation acclimate acclimatize accolade accompaniment accompanist
accompany accomplice accomplish accordant accordion accost accountant
accouter Accra accredit accreditate accretion accrual acculturate
accusation accusative accustom ace acetic acetone acetylene ache
Achilles aching achromatic acid acidic acidulous Ackerman Ackley
acknowledgeable ACM acme acolyte acorn acoustic acquaint acquaintance
acquiescent acquisition acquisitive acquit acquittal acquitting acre
==> lexicon.txt <==
A/B add-on Amdahl Appleton b.gilmore BG Brian Camtec catch-all CJC CO
Conf cons Copenhagen CPSE CRC CRCs DCE DCEs Dec DEL DFN DIS down-line
DTE DTE/DCE Dynatech E.C.U.C E.R.C.C editing-type EDNET eg ERCC Feb FEPs
GEC Gilmore hoc IBM ie ISO JANET JNT KB kb/s Kilostream LCGN LCGs LCN
LCNs look-up lunchtime micro micros MTBF multi-purpose multi-switch
Multi-user Networkshop NLP Non-immediate non-ISO non-manufacturer
non-volatile non-zero NRS occurence Oct OSI outages oversize PSE PSEs
PSS PSSE re-boot re-booting re-used recognised REJ Req ROM Salford SEEL
SSMP stand-alone SVC SVCs Telefile Telematics TelePAC timescale UK
utilising VT VTP WG XCALL XXX zero-filled
==> libtalk3.txt <==
{{colour(thickblack)}}
{{label(4,25,.6,0,"File Transfer Rates")}}
{{label(5,17,.3,0,"")}}
9.6 Kb 4.8 Kb 1.2Kb
1 M Byte 14 Mins 24 Mins 1 Hour 50 Mins
10 M Byte 2h 18 4h 36 18 hours
30 M Byte 7 hours 14 hours 56 hours
50 M Byte 11h 30 23 hours 4 Days
==> link11.txt <==
%EXTERNALROUTINE LINK11(%STRING(63) PARAM)
%STRING(63) MAP
%OWNINTEGER BRIANS FIDDLE = 255
%CONSTINTEGER LIMIT = 128
%OWNINTEGER CODE BASE = 2<<13, GLA BASE = 7<<13
%OWNINTEGER ALONE = 0, MAIN EP = -1, ENTRY = 0
%OWNSTRING(31) TASK ID = ""
%OWNSTRING(31) FIX FILE = ""
%OWNINTEGER STREAMS = 2
%OWNSTRING(31) PERM FILE = "ERCS13.PERM11#REL", %C
LIB FILE = "ERCS13.LIB11#REL", %C
OBJECT = ""
%OWNINTEGER STACK = 8*1024
%CONSTINTEGER PLUG BIT = 64
%EXTERNALINTEGERFNSPEC EXIST(%STRING(255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
%EXTERNALROUTINESPEC PROMPT(%STRING(15) S)
%RECORDFORMAT TABFM(%INTEGER ADDR, INDEX, %C
%BYTEINTEGER TYPE, %STRING(63) TEXT)
%CONSTINTEGER MAX TABLE = 400
%CONSTINTEGER MAX FILES = 50
==> lk0226.txt <==
Dump GEC logfile Version 1.3c
Log:ACCNTS.GKB850226
To:LK0226
First record at 21:47:57
Max Bf: 3400 Cur Bf: 2943 Vcs 86 Min Bf: 2870 Req Dl: 0
Date Covered was: 25/ 2/ 1985 23:59:58 Exchange 1
Frames Control 1 seg Calls RESETS Bytes/Sec ERRORS Total Frames Total Data F Av Bytes
Line In/sec %Out %In %Out %In Out In Total Out In Total Out In Out In Out In
2972-2 1.0 28% 62% 47% 55% 0 2144 52 220 119 1393 87582 84495 58441 92547 318 106
2972-1 0.3 81% 62% 18% 89% 2452 731 2 182 38 40 29092 68671 45678 75380 336 39
2988-2 0.8 91% 61% 56% 44% 2832 1143 19 528 113 57 70803 46417 116277 68893 388 138
Xcall 0.7 39% 43% 62% 66% 577 669 28 83 86 4 62772 65606 100855 100335 69 72
Janet 1.1 49% 78% 70% 40% 483 1087 623 32 68 223 97622 50468 40251 61777 60 90
==> lmeots.txt <==
!**********************
!* LMEOTS/LMEOTY *
!* DATE: 17.SEP.80 *
!*********************
%CONSTSTRING (7) VSN = "VSN001B"
!! STACK = 300, STREAMS = 1
%CONTROL K'100001'
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%CONSTRECORD (XF) %NAME NULL = 0
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%BEGIN
%%RECORDFORMAT ITPF(%BYTEINTEGER CNSL,HB1,HB2,LEN, %C
%BYTEINTEGERARRAY DATA(0:127))
%RECORDFORMAT RJEF(%BYTEINTEGERARRAY DATA(0:239))
%RECORDFORMAT NSI1F(%BYTEINTEGER FN,SUFL,ST,SS,FLAG,UFLAG, %C
%RECORD(ITPF) ITP)
%RECORDFORMAT NSI2F(%BYTEINTEGER FN,SUFL,ST,SS,%C
==> lmon9.txt <==
27.OCT.81 13.15 - 17.32
0 1 5 1 18784-2622 29366 27463 15321 16299
1 2 2 1 22087-429 28141-434 8427 16695
2 3 9 1-4705-25557 26333-18111-15367 12973
3 4 0 1 1829 0 0 0 0 0
4 5 2 1 5829 25104 0-30897-11122-12153
5 6 1 1 3364 161 21 540 0 0
6 7 2999 24 17 5634 2 586
7 8 17536 12 1 341 28474 72
0 10 5 1 19013-2590 29368 27651 15321 16299
1 11 2 1 22281-213 28155 5192 8570 16695
2 12 10 1-4555-25103 26363-7541-15116 12973
3 13 0 1 2024 0 0 0 0 0
4 14 1 1 6294 25138 0-30594-11122-12153
5 15 1 1 3896 195 25 646 0 0
6 16 3193 24 17 7534 2 58
7 17 17820 12 1 341 1025 2
0 19 6 1 19239-2534 29378 27858 15321 16299
1 20 1 1 22486-75 28161 8999 8673 16695
2 21 10 1-4436-24496 26393 5984-14787 12973
3 22 0 1 2218 0 0 0 0 0
==> lmtsxs.txt <==
!**********************
!* lmtots/lmtsxy *
!* date: 20.may.81 *
!*********************
%conststring (13) vsn = "lmts...1d "
! Prep options:- t - itp over transport service
! x - xxx over transport service
#datestring
!! stack = 300, streams = 1
%control x'4001'
%recordformat xf(%byteinteger unit,fsys,%byteintegerarray fname(0:5))
%include "b_deimosspecs"
%begin
%owninteger mon = 0
==> log031182.txt <==
03/11/82 00:00:05 N006T000 6 33 80 80 32 0 23 239 32 2814 0 283 283
03/11/82 00:00:25 N009T000 6 20 80 80 4 0 40 158 32 1 0 1 1
03/11/82 00:00:25 N006T000 6 33 80 80 34 9 40 124 32 1 0 1 1
03/11/82 00:00:25 N006T000 6 33 80 80 21 0 34 128 32 1 0 1 1
03/11/82 00:00:50 N006T000 6 7 156 156 61 72 9 163 32 4 7 9 8
03/11/82 00:00:50 N009T000 6 20 156 156 3 0 180 174 32 4 7 9 5
03/11/82 00:00:50 N006T000 6 7 156 156 34 9 180 165 32 4 7 9 5
03/11/82 00:01:05 N009T000 6 20 156 156 17 0 75 185 32 4 7 9 5
03/11/82 00:01:05 N006T000 6 7 156 156 34 9 75 195 32 4 7 9 5
03/11/82 00:01:10 N006T000 6 7 156 156 61 72 5 201 32 7 16 12 11
03/11/82 00:01:20 N006T000 3 31 7 61 20158 21866 3853 31430 133 2239 4073 31249 8184 19201 271 1293 11726 9443 183 3351 742 70 10
03/11/82 00:01:20 N009T000 6 20 156 156 2 0 182 203 32 4 7 9 5
03/11/82 00:01:20 N006T000 6 7 156 156 34 9 182 230 32 4 7 9 5
03/11/82 00:01:25 N009T000 6 17 72 72 15 0 15 199 32 184 0 21 18
03/11/82 00:01:40 N006T000 6 34 72 72 32 0 23 103 32 480 0 44 44
03/11/82 00:01:40 N009T000 6 17 72 72 20 6 23 151 32 480 0 44 44
03/11/82 00:01:40 N006T000 6 7 156 156 33 0 181 4 32 4 7 9 5
03/11/82 00:01:55 N009T000 6 20 156 156 5 78 78 233 32 5 14 11 10
03/11/82 00:02:00 N006T000 6 7 156 156 34 78 78 29 32 5 14 11 10
03/11/82 00:02:00 N006T000 6 7 156 156 34 90 90 33 32 5 7 9 5
03/11/82 00:02:00 N009T000 6 20 156 156 21 90 90 236 32 5 7 9 5
==> log080483.txt <==
08/04/83 01:16:40 N009T000 6 20 156 156 21 90 90 246 32 5 7 9 5
08/04/83 01:16:40 N006T000 6 13 156 156 34 90 90 250 32 5 7 9 5
08/04/83 01:16:45 N006T000 6 13 156 156 34 72 3 59 32 4 7 9 8
08/04/83 01:16:45 N009T000 6 20 156 156 61 72 3 47 32 4 7 9 8
08/04/83 01:16:45 N009T000 6 20 80 80 21 90 90 42 32 23 0 4 1
08/04/83 01:16:45 N006T000 6 33 80 80 34 90 90 54 32 23 0 4 1
08/04/83 01:16:50 N009T000 6 2 80 80 15 0 15 162 32 2306 0 146 146
08/04/83 01:16:50 N009T000 6 17 72 72 15 0 15 79 32 1 0 1 1
08/04/83 01:16:55 N009T000 6 20 156 156 3 0 180 71 32 4 7 9 5
08/04/83 01:16:55 N006T000 6 13 156 156 34 9 180 80 32 4 7 9 5
08/04/83 01:16:55 N009T000 6 20 80 80 21 90 90 65 32 23 0 4 1
08/04/83 01:16:55 N006T000 6 33 80 80 34 90 90 78 32 23 0 4 1
08/04/83 01:16:55 N006T000 6 13 156 156 35 0 171 94 32 4 7 9 5
08/04/83 01:16:55 N009T000 6 20 156 156 17 0 75 96 32 4 7 9 5
08/04/83 01:17:10 N006T000 6 13 156 156 34 9 75 101 32 4 7 9 5
08/04/83 01:17:10 N006T000 6 13 156 156 33 0 181 110 32 4 7 9 5
08/04/83 01:17:15 N009T000 6 20 156 156 2 0 182 115 32 4 7 9 5
08/04/83 01:17:15 N006T000 6 13 156 156 34 9 182 122 32 4 7 9 5
08/04/83 01:17:15 N006T000 6 7 0 27 25 84 84 238 32 98 125 176 111
08/04/83 01:17:20 N009T000 6 20 156 156 61 72 5 162 32 7 14 12 11
08/04/83 01:17:20 N006T000 6 13 156 156 34 72 5 161 32 7 14 12 11
==> log11jan83.txt <==
11/01/83 01:01:00 N009T000 6 20 156 156 17 0 75 215 32 4 7 9 5
11/01/83 01:01:00 N006T000 6 13 156 156 34 9 75 75 32 4 7 9 5
11/01/83 01:01:00 N006T000 6 13 156 156 34 90 90 52 32 5 7 9 5
11/01/83 01:01:00 N006T000 6 13 156 156 34 78 78 80 32 5 15 11 10
11/01/83 01:01:00 N009T000 6 20 156 156 21 90 90 175 32 5 7 9 5
11/01/83 01:01:00 N009T000 6 20 156 156 5 78 78 222 32 5 15 11 10
11/01/83 01:01:20 N006T000 3 38 3 189 6585 11665 6797 18566 2 2043 7334 4057 17627 28587 834 1584 28735 6792 288 19611 274 140 34
11/01/83 01:01:20 N009T000 6 2 80 80 20 6 23 9 32 266 0 30 28
11/01/83 01:01:20 N006T000 6 34 80 80 32 0 23 104 32 266 0 30 28
11/01/83 01:01:25 N009T000 6 20 80 80 21 90 90 254 32 23 0 4 2
11/01/83 01:01:25 N006T000 6 18 80 80 34 90 90 98 32 23 0 4 2
11/01/83 01:01:30 N009T000 6 20 80 80 21 90 90 48 32 23 0 4 2
11/01/83 01:01:30 N006T000 6 18 80 80 34 90 90 132 32 23 0 4 2
11/01/83 01:01:55 N009T000 6 20 156 156 61 72 5 118 32 7 14 12 11
11/01/83 01:01:55 N006T000 6 13 156 156 34 72 5 192 32 7 14 12 11
11/01/83 01:02:25 N009T000 6 20 156 156 61 72 3 188 32 4 7 9 8
11/01/83 01:02:25 N006T000 6 13 156 156 34 72 3 238 32 4 7 9 8
11/01/83 01:02:30 N009T000 6 20 156 156 2 0 182 191 32 4 7 9 5
11/01/83 01:02:30 N006T000 6 13 156 156 34 9 182 240 32 4 7 9 5
11/01/83 01:02:30 N006T000 6 13 156 156 35 0 171 248 32 4 7 9 5
11/01/83 01:02:30 N009T000 6 20 156 156 3 0 180 212 32 4 7 9 5
==> log230982.txt <==
23/09/82 01:45:25 N009T000 6 20 156 156 2 0 182 207 32 4 7 9 5
23/09/82 01:45:25 N006T000 6 7 156 156 34 9 182 194 32 4 7 9 5
23/09/82 01:45:25 N006T000 6 7 156 156 33 0 181 198 32 4 7 9 5
23/09/82 01:45:30 N009T000 6 20 156 156 21 90 90 223 32 5 7 9 5
23/09/82 01:45:30 N006T000 6 7 156 156 34 90 90 216 32 5 7 9 5
23/09/82 01:45:35 N009T000 6 17 72 72 21 90 90 226 32 65 0 9 4
23/09/82 01:45:40 N009T000 6 17 72 72 21 90 90 234 32 64 0 9 4
23/09/82 01:45:45 N006T000 6 7 156 156 34 72 9 233 32 4 7 9 8
23/09/82 01:45:45 N009T000 6 20 156 156 29 72 9 244 32 4 7 9 8
23/09/82 01:46:10 N009T000 6 20 156 156 5 78 78 253 32 5 14 11 10
23/09/82 01:46:10 N006T000 6 7 156 156 34 78 78 241 32 5 14 11 10
23/09/82 01:46:10 N009T000 6 17 72 72 21 90 90 243 32 28 0 4 1
23/09/82 01:46:20 N009T000 6 17 72 72 21 90 90 9 32 34 0 5 2
23/09/82 01:46:35 N009T000 6 17 72 72 15 0 15 6 32 1951 0 206 203
23/09/82 01:46:55 N009T000 6 17 72 72 21 90 90 20 32 65 0 9 4
23/09/82 01:47:25 N009T000 6 20 156 156 3 0 180 36 32 4 7 9 5
23/09/82 01:47:25 N006T000 6 7 156 156 34 9 180 50 32 4 7 9 5
23/09/82 01:47:25 N009T000 6 20 156 156 29 72 5 39 32 7 15 12 11
23/09/82 01:47:25 N006T000 6 7 156 156 34 72 5 52 32 7 15 12 11
23/09/82 01:47:30 N006T000 6 7 156 156 34 9 75 60 32 4 7 9 5
23/09/82 01:47:30 N009T000 3 23 15 0 4138 461 109 1598 826 28 8 1409 354 940 643 18 598 0 0 0 0 0 0
==> log26nov82.txt <==
26/11/82 00:00:05 N006T000 6 19 156 156 35 0 171 125 32 4 7 9 5
26/11/82 00:00:10 N006T000 6 19 156 156 33 0 181 132 32 4 7 9 5
26/11/82 00:00:10 N009T000 NIF LN 20 2 20 131 135 156 50 156 9 78 18
26/11/82 00:00:10 N009T000 10 5 78 78 18 665 10 455 74 566 5
26/11/82 00:00:10 N009T000 6 20 156 156 2 0 182 4 32 4 7 9 5
26/11/82 00:00:10 N006T000 6 19 156 156 34 9 182 134 32 4 7 9 5
26/11/82 00:00:25 N009T000 6 3 80 80 17 72 72 15 32 216 0 25 13
26/11/82 00:00:25 N009T000 6 17 72 72 15 0 15 255 32 436 0 49 46
26/11/82 00:00:30 N009T000 6 17 72 72 15 0 15 27 32 1 0 1 1
26/11/82 00:00:30 N006T000 6 19 156 156 61 72 3 146 32 4 7 9 8
26/11/82 00:00:35 N006T000 3 33 6 1 5047 355 66 257 45 106 8 5896 603 512 10 57 752 2536 491 153 443 10 966
26/11/82 00:00:40 N009T000 6 20 156 156 17 0 75 34 32 4 7 9 5
26/11/82 00:00:40 N006T000 6 19 156 156 34 9 75 153 32 4 7 9 5
26/11/82 00:00:40 N009T000 6 3 80 80 15 0 15 47 32 1 0 1 1
26/11/82 00:00:45 N009T000 6 20 156 156 21 90 90 39 32 5 7 9 5
26/11/82 00:00:45 N006T000 6 19 156 156 34 90 90 158 32 5 7 9 5
26/11/82 00:00:45 N009T000 6 20 156 156 3 0 180 44 32 4 7 9 5
26/11/82 00:00:45 N006T000 6 19 156 156 34 9 180 162 32 4 7 9 5
26/11/82 00:00:55 N009T000 6 3 80 80 15 0 15 60 32 1 0 1 1
26/11/82 00:00:55 N006T000 6 33 80 80 32 0 23 175 32 1 0 1 1
26/11/82 00:01:25 N009T000 3 25 9 22 394 12586 695 6041 348 1276 44 19414 2236 4597 651 318 2808 0 0 0 0 0 0
==> log30nov82.txt <==
30/11/82 00:00:05 N006T000 6 19 156 156 61 72 3 125 32 4 7 9 8
30/11/82 00:00:15 N006T000 6 19 156 156 33 0 181 152 32 4 7 9 5
30/11/82 00:00:20 N009T000 6 16 0 47 5 78 78 190 32 61 167 116 116
30/11/82 00:00:20 N006T000 3 33 6 6 4479 4201 771 7366 398 813 20 24470 2376 10767 627 486 2308 7100 1502 460 716 40 2820
30/11/82 00:00:25 N009T000 6 20 156 156 3 0 180 39 32 4 7 9 5
30/11/82 00:00:25 N006T000 6 19 156 156 34 9 180 180 32 4 7 9 5
30/11/82 00:00:25 N009T000 6 20 156 156 2 0 182 44 32 4 7 9 5
30/11/82 00:00:25 N006T000 6 19 156 156 34 9 182 183 32 4 7 9 5
30/11/82 00:00:35 N006T000 6 19 156 156 61 72 5 209 32 7 14 12 11
30/11/82 00:00:55 N009T000 6 20 156 156 17 0 75 135 32 4 7 9 5
30/11/82 00:00:55 N006T000 6 19 156 156 34 9 75 12 32 4 7 9 5
30/11/82 00:01:15 N009T000 6 20 156 156 5 78 78 185 32 5 14 11 10
30/11/82 00:01:15 N006T000 6 19 156 156 34 78 78 55 32 5 14 11 10
30/11/82 00:01:15 N006T000 6 19 156 156 35 0 171 62 32 4 7 9 5
30/11/82 00:01:30 N009T000 3 25 13 2 866 14189 1211 25820 229 1363 76 21877 2523 10637 949 460 2868 0 0 0 0 0 0
30/11/82 00:01:30 N009T000 9 62 0 0 1 10241 0 0 0 0 0
30/11/82 00:01:30 N009T000 9 15 0 15 83 1579 22415 476 47 14 0
30/11/82 00:01:30 N009T000 5 15 0 15 5 78 78 111 0 68 211 125 125
30/11/82 00:01:30 N009T000 5 15 0 15 17 72 72 127 0 2427 7792 4889 3364
30/11/82 00:01:30 N009T000 5 15 0 15 17 72 72 247 0 17091-4941-30316 24508
30/11/82 00:01:30 N009T000 9 4 0 40 2 448-32555 0 52 2 0
==> log31aug82.txt <==
30/08/82 14:00:00 N006T000 6 18 7 56 26 80 80 210 32 7 0 6 3
30/08/82 14:00:00 N009T000 6 20 156 156 17 0 75 232 32 4 7 9 5
30/08/82 14:00:00 N006T000 6 7 156 156 27 9 75 241 32 4 7 9 5
30/08/82 14:00:00 N009T000 6 20 6 83 21 90 90 107 32 48 220 79 48
30/08/82 14:00:00 N006T000 6 1 0 83 27 90 90 166 32 48 220 79 48
30/08/82 14:00:05 N006T000 6 27 9 40 7 156 156 168 32 72 204 137 137
30/08/82 14:00:05 N009T000 6 4 0 40 20 156 156 110 32 72 204 137 137
30/08/82 14:00:10 N009T000 6 4 0 40 3 80 80 247 32 6 3 7 4
30/08/82 14:00:10 N006T000 6 7 156 156 27 9 180 0 32 1 2 2 0
30/08/82 14:00:10 N009T000 6 20 156 156 3 0 180 7 32 1 2 2 0
30/08/82 14:00:15 N006T000 6 10 0 65 29 72 72 26 32 41 105 66 66
30/08/82 14:00:20 N009T000 6 20 156 156 2 0 182 26 32 1 2 2 0
30/08/82 14:00:20 N006T000 6 7 156 156 27 9 182 9 32 1 2 2 0
30/08/82 14:00:25 N009T000 6 20 156 156 21 90 90 37 32 5 7 9 5
30/08/82 14:00:25 N006T000 6 7 156 156 27 90 90 15 32 5 7 9 5
30/08/82 14:00:40 N006T000 6 7 156 156 26 0 181 137 32 1 0 1 0
30/08/82 14:00:40 N006T000 6 1 0 83 23 80 80 27 32 6 3 7 4
30/08/82 14:01:05 N006T000 6 7 156 156 29 72 5 50 32 7 17 12 11
30/08/82 14:01:15 N009T000 6 20 156 156 5 78 78 105 32 5 14 11 10
30/08/82 14:01:15 N006T000 6 7 156 156 27 78 78 60 32 5 14 11 10
30/08/82 14:01:20 N006T000 6 7 156 156 29 72 9 69 32 4 7 9 8
==> log_f1.txt <==
FE1 17.FEB.81 FROM 13.00
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 5 28 0 0 0 0 1 0 17 28 1 1 1 0
RING: 5 28 0 0 0 0 1 0 17 28 2 1 1 0
RING: 176 221 4 2 0 0 0 4 183 197 31 32 34 0
RING: 8 81 0 0 1 0 1 0 68 73 9 10 10 0
RING: 29 272 8 4 1 0 2 0 214 249 36 39 38 0
RING: 5 38 0 0 0 0 1 0 25 36 3 3 3 0
RING: 13 55 0 0 1 0 2 0 34 56 3 2 2 0
RING: 5 28 0 0 0 0 1 0 17 28 1 1 1 0
RING: 32 306 16 4 1 0 1 0 248 283 43 45 45 0
RING: 0 10 0 0 0 0 0 0 8 8 2 2 2 0
RING: 24 54 0 0 1 0 2 1 34 56 4 2 2 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 5 28 0 0 0 0 1 0 17 28 1 1 1 0
==> log_f5.txt <==
FEP1 19.FEB.81 13.00
RING: 10 163 6 2 0 0 0 0 133 145 25 26 26 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 13 330 11 1 0 0 0 0 276 290 51 52 52 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 1 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 14 55 0 0 0 1 2 0 34 56 2 2 2 0
RING: 10 56 0 0 0 0 2 0 36 56 2 2 2 0
RING: 80 749 24 6 0 0 1 3 574 680 93 103 103 0
RING: 19 206 4 1 1 0 2 0 158 189 26 26 25 0
RING: 79 83 0 0 0 0 0 4 53 84 3 3 3 0
RING: 18 56 0 0 0 0 1 1 36 56 2 2 2 0
RING: 24 83 0 0 0 1 2 1 53 84 3 3 3 0
RING: 115 127 6 2 0 0 1 5 100 129 13 11 12 0
==> log_f6.txt <==
FEP 1 23.FEB.81 13.00 ONWARDS
RING: 18 55 0 0 0 0 1 2 37 56 3 2 2 0
RING: 10 56 0 0 0 0 2 0 36 56 2 2 2 0
RING: 13 56 0 0 0 0 1 1 36 56 2 2 2 0
RING: 25 82 0 0 1 0 3 1 53 84 3 3 3 0
RING: 16 83 0 0 2 0 2 0 53 84 3 3 3 0
RING: 10 56 0 0 0 0 2 0 36 56 2 2 2 0
RING: 60 80 0 1 0 0 1 5 53 84 3 3 3 0
RING: 5 28 0 0 0 0 1 0 18 28 2 1 1 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 3 28 0 0 1 0 0 0 17 28 1 1 1 0
RING: 5 28 0 0 0 0 1 0 17 28 1 1 1 0
RING: 5 28 0 0 0 0 1 0 17 28 1 1 1 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 7 27 0 1 0 0 1 0 17 28 1 1 1 0
RING: 14 26 0 1 0 0 1 1 17 28 1 1 1 0
RING: 8 27 0 0 1 0 1 0 17 28 1 1 1 0
==> logfile.txt <==
06/09/82 08:17:40 N006T000 6 7 156 156 27 72 9 5 32 4 7 9 8
06/09/82 08:17:40 N009T000 6 20 156 156 29 72 9 63 32 4 7 9 8
06/09/82 08:17:40 N009T000 6 20 156 156 17 0 75 70 32 4 7 9 5
06/09/82 08:17:40 N006T000 6 7 156 156 27 9 75 10 32 4 7 9 5
06/09/82 08:17:45 N009T000 6 20 156 156 5 78 78 78 32 5 14 11 10
06/09/82 08:17:45 N006T000 6 26 80 80 20 0 33 247 32 280 0 31 30
06/09/82 08:17:45 N006T000 6 7 156 156 27 78 78 18 32 5 14 11 10
06/09/82 08:18:00 N006T000 6 26 80 80 27 90 90 23 32 25 0 4 1
06/09/82 08:18:00 N009T000 6 20 80 80 21 90 90 81 32 25 0 4 1
06/09/82 08:18:05 N006T000 6 26 80 80 20 0 33 22 32 287 0 33 33
06/09/82 08:18:10 N009T000 6 29 72 72 21 90 90 94 32 146 0 11 6
06/09/82 08:18:50 N006T000 6 7 156 156 27 72 5 52 32 7 13 12 11
06/09/82 08:18:55 N009T000 6 20 156 156 29 72 5 111 32 7 13 12 11
06/09/82 08:19:05 N006T000 6 26 80 80 20 0 33 44 32 282 0 31 30
06/09/82 08:19:15 N006T000 6 7 156 156 26 0 181 72 32 4 7 9 5
06/09/82 08:19:15 N009T000 6 20 156 156 21 90 90 128 32 5 7 9 5
06/09/82 08:19:15 N006T000 6 26 80 80 20 0 33 66 32 278 0 31 30
06/09/82 08:19:15 N009T000 6 20 156 156 2 0 182 136 32 4 7 9 5
06/09/82 08:19:15 N009T000 6 20 156 156 3 0 180 143 32 4 7 9 5
06/09/82 08:19:15 N006T000 6 7 156 156 27 90 90 81 32 5 7 9 5
06/09/82 08:19:15 N006T000 6 26 80 80 20 0 33 86 32 278 0 31 30
==> log_n1.txt <==
1
3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
8 1 9 0 1
8 29 70 0 11
8 30 0 0 12
4 30 0 0 29 70 9 15 0
6 30 0 0 29 70 9 15 32 57 0 726 0 54 0
4 30 0 0 29 70 9 18 0
6 30 0 0 29 70 9 18 32 251 0 3193 0 248 0
RING: 9585 23516 4922 4 223 4 357 329 1173 29067 286 287 288 0
4 30 0 0 29 70 9 21 0
RING: 61 19 3 0 0 1 0 3 41 22 4 4 4 0
6 30 0 0 29 70 9 21 32 181 0 2293 0 178 0
4 30 0 0 29 70 9 23 0
RING: 7203 17688 3705 2 157 9 238 266 883 21850 215 214 215 0
6 30 0 0 29 70 9 23 32 40 0 508 0 37 0
==> log_n2.txt <==
3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
9 30 0 0 13 13 0 0 0 0 0 0 0
9 0 1 0 2 0 0 0 0 0 0 0 0
9 0 2 0 3 0 0 0 0 0 0 0 0
9 0 3 0 4 0 0 0 0 0 0 0 0
9 0 5 0 5 0 0 0 0 0 0 0 0
9 0 6 0 15 0 0 0 0 0 0 0 0
9 1 9 0 1 0 0 2 780 13 0 2 777
5 1 78 78 29 70 11 26 0 126 142 141 487 126 142
9 29 70 0 12 0 0 2 777 0 0 2 780
5 29 70 11 1 78 78 27 0 126 142 141 487 126 142
9 0 72 0 7 0 0 0 0 0 0 0 0
9 0 78 0 8 0 0 0 0 0 0 0 0
9 0 80 0 9 0 0 0 0 0 0 0 0
9 0 90 0 30 0 0 0 0 0 0 0 0
9 0 156 0 11 0 0 0 0 0 0 0 0
11 1 2 1 1752 1157 0 25 0 0 0 0 1751 1164 0 17 26
11 29 0 0 0 0 0 0 438 438 182 522 7 1 0 432 455
4 30 0 0 29 70 9 36 0
6 29 70 11 1 78 78 27 32 127 143 141 487 126 142
6 1 78 78 29 70 11 26 32 126 143 141 487 126 143
==> log_n4.txt <==
NODE 4 LOG FROM 18.FEB.81 13.00 ONWARDS
1
3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
8 1 9 0 1
8 29 70 0 2
8 30 0 0 17
RING: 9 9 3 0 0 0 0 1 7 12 2 1 1 0
4 30 0 0 29 70 9 21 0
RING: 721 1076 442 0 15 3 18 19 67 1556 15 16 17 0
RING: 23265-30388 14253 33 362 24 566 648 1868-14972 469 467 470 0
6 30 0 0 29 70 9 21 32 538 0 7047 0 535 0
RING: 2702 4092 1669 1 41 1 74 79 273 5896 62 62 61 0
3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
==> log_n5.txt <==
NODE 4 19.FEB.81 13.00
1
3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
8 1 9 0 1
8 2 98 98 2
8 29 70 0 3
8 30 0 0 4
4 29 70 7 30 0 0 16 0
RING: 0 92 0 0 0 0 0 0 69 79 13 12 13 0
RING: 28 586 28 0 0 0 0 0 549 538 81 75 76 0
RING: 9 843 9 0 0 0 0 0 464 767 84 85 85 0
RING: 313 8465 274 11 0 0 0 1 2825 8251 482 496 500 0
3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 29 660 29 0 0 0 0 0 510 625 62 63 64 0
6 29 70 7 30 0 0 16 32 244 243 247 920 244 243
==> log_n6.txt <==
NODE 4 23.FEB.81 13.00 ONWARDS
RING: 12 11 6 0 0 0 0 1 28 17 1 1 1 61
RING: 12 13 4 0 0 0 0 1 28 17 1 1 1 61
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 61
3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
9 30 0 0 12 1029 0 2 4289 0 0 0 101
9 0 1 0 3887 0 0 0 0 0 0 0 0
9 0 2 0 4192 0 0 0 0 0 0 0 0
9 0 3 0 4075 0 0 0 0 0 0 0 0
9 0 5 0 3889 0 0 0 0 0 0 0 0
9 1 9 0 3886 3 0 2 47 612 0 2 159
9 2 21 21 4460 23 0 1 32 0 0 1 28
5 2 21 21 1 80 80 4461 0 19 23 19 43 4 4
9 29 70 0 11 2023 1297 3 28894 9 1 44 27854
9 0 72 0 3891 0 0 0 0 0 0 0 0
9 0 78 0 3890 0 0 0 0 0 0 0 0
9 0 80 0 3892 0 0 0 0 0 0 0 0
9 0 90 0 4525 0 0 0 0 0 0 0 0
9 0 156 0 3963 0 0 0 0 0 0 0 0
11 1 2 1 3333 16158 0 3868 0 1 0 1 13716 10781 0 4229 3891
11 2 3 0 480 5127 0 296 0 26 0 7 620 3070 0 39 891
==> log_t44sat1.txt <==
*T44 RING AT P=2, SATURATION, 12SEC INTS LENGTHS 240->0
RING: 5160 3729 4248 1 20 62 6 80 1000 8079 136 66 67 0
RING: 12499 9097 10441 2 62 133 22 182 1000 19782 318 157 157 0
RING: 21316 15881 17718 3 110 221 24 333 1000-31516 557 270 270 0
RING: 21310 15711 17767 1 113 223 31 317 1000-31642 560 269 269 0
RING: 21227 15667 17683 1 117 218 28 322 1000-31768 558 268 268 0
RING: 18383 13599 15197 1 85 198 25 292 1000 29154 502 243 243 0
RING: 20349 14779 16625 3 88 199 42 364 1000 31800 600 299 300 0
RING: 11967 8950 9801 0 50 120 27 205 1000 18974 363 180 179 0
RING: 20189 14926 16729 0 100 192 31 336 1000 32012 608 302 302 0
RING: 19743 14939 16429 0 86 186 35 318 1000 31694 599 299 299 0
RING: 17624 12892 14413 0 78 181 24 312 1000 27634 531 265 266 0
RING: 17999 13252 14544 3 94 193 17 351 1000 28126 688 328 328 0
RING: 17990 13225 14577 2 71 207 22 345 1000 28122 686 327 327 0
RING: 18015 13071 14540 3 95 196 19 351 1000 27950 688 326 325 0
RING: 18021 13109 14501 1 88 200 19 357 1000 27950 676 324 325 0
RING: 17329 12593 14010 4 71 194 26 338 1000 26922 662 314 314 0
RING: 14676 10619 11583 4 72 148 19 340 1000 22444 707 340 341 0
RING: 16087 11391 12559 4 66 164 20 385 1000 24222 774 367 367 0
RING: 16098 11285 12516 2 73 161 18 400 1000 24090 777 365 365 0
RING: 16276 11502 12850 3 71 166 20 379 1000 24618 781 373 373 0
==> log_t44sat2.txt <==
*T44 RING AT P=1, SATURATION, 12 SEC INTS, LENGTHS 240->0
RING: 18018 11361 13568 4 100 205 21 522 1000 25578 408 202 203 0
RING: 13747 8592 10311 2 78 154 22 399 1000 19404 313 155 154 0
RING: 20897 13140 15720 0 115 234 27 609 1000 29610 481 235 235 0
RING: 20733 13157 15588 0 98 245 23 607 1000 29484 480 234 234 0
RING: 19412 12446 14578 0 112 218 23 568 1000 27724 451 221 221 0
RING: 18582 11485 13712 1 95 214 26 580 1000 25868 492 244 245 0
RING: 19332 12145 14291 1 108 213 24 610 1000 27136 511 256 256 0
RING: 12921 8002 9436 0 55 157 21 412 1000 17914 339 170 169 0
RING: 19266 11917 14203 0 95 224 23 609 1000 26818 507 253 253 0
RING: 19409 11996 14337 0 103 225 24 605 1000 27034 514 256 256 0
RING: 16133 9915 11718 0 92 168 18 540 1000 22192 525 258 259 0
RING: 18136 11545 13200 0 101 193 20 606 1000 25370 603 295 295 0
RING: 18287 11501 13329 0 100 200 21 601 1000 25456 606 296 296 0
RING: 18425 11290 13447 1 103 191 20 613 1000 25370 605 295 295 0
RING: 12175 7269 8820 0 55 136 23 401 1000 16512 390 193 192 0
RING: 13367 8193 9131 1 69 170 8 535 1000 17840 533 267 267 0
RING: 15108 8984 10236 0 76 176 29 604 1000 19804 601 300 301 0
RING: 15056 9021 10268 0 82 178 15 603 1000 19866 602 301 301 0
RING: 15039 9014 10204 1 71 175 30 605 1000 19800 600 300 300 0
RING: 15079 9012 10272 0 88 173 21 601 1000 19866 604 301 301 0
==> log_t44sat3.txt <==
*T44, SATURATION TEST, PRIO=1, 240->0, RING8S AT BOTH ENDS
RING: 3670 23744 95 2 213 4 27 436 787 24326 392 196 195 0
RING: 4856 32101 141 0 286 4 35 580 1040-32650 520 260 261 0
RING: 4942 32475 136 0 289 2 39 587 1056-32272 533 264 264 0
RING: 4902 32483 136 0 284 6 38 581 1056-32272 530 264 264 0
RING: 4945 32735 130 0 281 5 44 587 1064-32020 532 266 266 0
RING: 4305 27470 155 2 253 6 17 527 1044 28168 522 261 262 0
RING: 4866 31016 175 0 286 6 20 597 1200 31800 600 300 300 0
RING: 2869 17566 102 0 151 10 13 348 680 18020 341 171 170 0
RING: 4823 31018 179 1 286 7 19 590 1200 31800 600 300 300 0
RING: 4811 31033 164 0 283 6 18 596 1200 31800 600 300 300 0
RING: 4172 23064 181 1 226 5 28 513 1060 23752 530 265 266 0
RING: 4746 25024 187 0 281 4 8 596 1200 25800 600 300 300 0
RING: 4770 24997 217 1 275 2 8 600 1204 25800 602 301 300 0
RING: 4756 25009 207 0 256 7 33 588 1196 25800 598 299 300 0
RING: 3043 15680 119 0 168 6 4 379 756 16168 378 190 188 0
RING: 4072 20657 174 1 197 6 32 503 1176 21274 591 294 296 0
RING: 4562 22646 202 0 205 6 29 568 1416 23302 712 354 354 0
RING: 4624 22821 205 0 207 11 24 584 1424 23496 714 356 356 0
RING: 4637 22704 192 0 200 11 32 579 1416 23364 712 354 354 0
RING: 4634 22671 221 0 204 14 33 575 1416 23364 713 354 354 0
==> log_t44simtest2.txt <==
*T44 SINK TEST, 4 DRIVERS*2 CONNS, 18.MAR.81
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 0 0 0 0 0 0 0 0 0 0 0 0 0 0
RING: 1414 154 214 0 0 1 0 69 8032 372 348 67 66 0
RING: 3143 350 473 90 3 7 1 174 24443 900 1167 198 198 0
RING: 3023 301 368 185 3 7 2 144 25457 808 1314 202 202 0
RING: 3273 292 370 184 3 1 0 160 25443 808 1298 202 202 0
RING: 3420 288 370 191 3 4 2 162 25901 816 1284 205 204 0
RING: 3106 295 346 189 1 4 0 160 25078 796 1231 200 199 0
RING: 2918 307 396 161 3 1 2 145 25460 812 1289 204 203 0
RING: 3603 296 351 180 4 6 1 172 25264 808 1267 201 202 0
RING: 2795 316 357 193 3 7 0 139 25640 812 1324 203 203 0
RING: 2459 1101 315 97 87 13 8 117-32535 1454 1282 291 284 0
RING: 2620 995 294 76 50 24 7 147-31085 1296 1360 353 297 0
RING: 2398 891 283 81 32 22 18 143-30825 1176 1381 367 294 0
RING: 2282 870 263 85 34 19 27 127-31670 1140 1370 366 285 0
RING: 2429 847 287 93 30 20 16 127-31700 1136 1398 348 284 0
RING: 2219 826 302 82 50 22 32 116-31910 1144 1357 325 286 0
==> log_t44simtest.txt <==
*T44 RING SINK FROM 3 MACHINES, LOOKING FOR LOCKOUT, 18.MAR.81
******** I 9001
******** O 9004
END OF TRACE
************
************
************
************
************
************
************
************
************
************
************
************
************
************
************
************
==> ls0124.txt <==
Dump GEC logfile Version 1.3c
Log:ACCNTS.GSS850124
To:LS0124
First record at 01:06:01
Max Bf: 472 Cur Bf: 345 Vcs 10 Min Bf: 340 Req Dl: 0
Date Covered was: 23/ 1/ 1985 23:59:30 Exchange 3
Frames Control 1 seg Calls RESETS Bytes/Sec ERRORS Total Frames Total Data F Av Bytes
Line In/sec %Out %In %Out %In Out In Total Out In Total Out In Out In Out In
Erte 1.2 43% 25% 42% 48% 90 15 2 60 83 103 103953 115566 59411 85996 82 81
Dev mc 0.0 54% 13% 100% 47% 13 0 0 0 0 84 830 601 344 449 19 74
TCP C 1.1 55% 28% 97% 81% 269 287 0 11 28 9408 97890 76934 42815 53892 14 43
Oslan 0.0 75% 5% 99% 77% 18 2 3 0 0 57 537 485 69 404 64 61
G/W 3 0.1 83% 7% 100% 69% 27 136 0 0 2 19 5477 5236 600 4534 21 46
==> ls0412.txt <==
Dump GEC logfile Version 1.3d
Log:ACCNTS.GSS850412
To:LS0412
First record at 23:49:57
Date Covered was: 3/ 4/ 1985 23:59:47 Exchange 3
Frames Control 1 seg Calls RESETS Bytes/Sec ERRORS Total Frames Total Data F Av Bytes
Line In/sec %Out %In %Out %In Out In Total Out In Total Out In Out In Out In
Erte 0.9 0% 98% 53% 31% 19 11 5 64 2 501 78975 29977 78634 435 69 76
Dev mc 0.0 35% 42% 100% 100% 10 10 0 0 0 569 307 296 144 116 27 202
TCP C 1.2 58% 16% 93% 82% 117 261 0 14 30 26472 102769 73205 42655 59356 19 42
Oslan 0.3 94% 0% 97% 61% 145 9 2 3 51 1009 27291 72808 1291 72128 110 59
GenPad 0.1 72% 4% 100% 59% 31 260 0 1 5 50 7532 6316 1493 5424 22 75
Ed Gr 0.0 41% 43% 87% 66% 10 5 7 0 1 5468 1000 1275 548 609 35 70
==> lynp1s.txt <==
%CONTROL K'100001'
%BEGIN
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! *** OWN ROUTINES FOR DRIVING INTECOLOUR DISPLAY
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
%OWNINTEGER CBACK
%OWNINTEGER CFORE
!
!
%ROUTINE SET CURSOR(%INTEGER X,Y)
PRINTSYMBOL(3)
PRINTSYMBOL(X); PRINTSYMBOL(Y)
PRINTSYMBOL(K'100000')
%END
!
==> lynp2s.txt <==
%CONTROL K'100001'
%BEGIN
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! *** OWN ROUTINES FOR DRIVING INTECOLOUR DISPLAY
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
%OWNINTEGER CBACK
%OWNINTEGER CFORE
%OWNINTEGER LYN
!
!
%ROUTINE SET CURSOR(%INTEGER X,Y)
PRINTSYMBOL(K'100000')
%IF LYN = 0 %START
PRINTSYMBOL(24)
%IF Y = 10 %START
==> mainmon.txt <==
%EXTERNALROUTINE MAINMON(%STRING (255) S)
%EXTERNALROUTINESPEC PROMPT(%STRING (15) S)
%DYNAMICROUTINESPEC FEPGRAPHS(%STRING (255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING (255) S)
%STRING (255) T, U, UU, TITLE, UUU
%RECORDFORMAT FF( %C
%INTEGER TIM, USERS,STA,CPU,PKTS,SBR,BYT,RJEO,RJEI)
%INTEGER I, DIFF, K, L, US, CP, KB, PK, RJ, WHO, WHO1, WHO2, JUNK
%OWNINTEGER USERS, STA, CPU, PKTS, SBR, BYT, RJEO, TIM, RJEI
%OWNINTEGER POINTS, FEP NO = -1
%CONSTINTEGERARRAY CPU F(0:3) = %C
354, 0, 0, 236; ! NB ASSUMES 2 FEPS ON 2972
%RECORD F(FF)
!!
!!
!!
%ROUTINE RD(%INTEGERNAME N)
READ(N)
%IF N< 0 %THEN N = N+32768*2
%END
!!
==> mangame.txt <==
%EXTERNALROUTINE MANGAME(%STRING (63)S)
!!
%DYNAMICROUTINESPEC PROMPT(%STRING (18)S)
%DYNAMICROUTINESPEC DEFINE(%STRING (63)S)
%DYNAMICINTEGERFNSPEC RAND INT; ! RETURNS 0<=R<=20
!!
%ROUTINESPEC ECONOMY ON SALES(%INTEGER C)
%ROUTINESPEC ECONOMY STATE(%INTEGER EC)
%INTEGERFNSPEC SALESF(%INTEGER PRICE, AREA, DELTAC)
%ROUTINESPEC ORDERS INTERDEPENDANCE(%INTEGER AREA)
%INTEGERFNSPEC MARKETING EFFECT(%INTEGER EC)
%ROUTINESPEC CHANGE NPROD
%INTEGERFNSPEC GET LOAN LIMIT(%RECORDNAME F)
%ROUTINESPEC BANCRUPT(%RECORDNAME F)
%INTEGERFNSPEC ASK FOR LOAN(%RECORDNAME F)
%ROUTINESPEC GET CASH FIGURES(%RECORDNAME F)
%INTEGERFNSPEC ASSETS(%RECORDNAME F)
%ROUTINESPEC SET SALES(%INTEGER FIRM)
==> mean2s.txt <==
!
!
! ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG
! ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG ALOG
!
!
!
%CONTROL K'001001'
!
!
%BEGIN
!
!
!
!J.C.A. STARTED 10:11:76
!T.P.L LAST UPDATE 25:08:81 11:30 - FILE MEANS
! FOR ARTE MK 7.0 UPTO 128 SCRIPTS
! --- STACK 15000, STREAMS 4 ---
==> mon.txt <==
Node = 80, Term = 80
0
0
0
0
15
21
10
0
1
0
0
0
0
0
0
0
0
0
0
==> msrdoc.txt <==
Operation of the Mark Sense Reader.
----------------------------------
There have been some minor problems with this device and this note
is intended to clarify the operating procedures. It supercedes the note
dated 13 July 1981.
1. Power on the reader and set the appropriate switches before loading
the software.
2. The basic device driver is included in the IPL load, so only the
spooler reader should be loaded -
LOAD MSRD
Then spool or connect the reader to the required host -
SPO(CON) MSR/host
Note that only EMAS 2900 JCL is catered for, so host should be either
VWT or XWT. When the first card is detected, the user supplied
USERNAME, PASSWORD and FILENAME are requested on the video. The remainder
of the deck is then read in. To close the file -
EOF MSR
==> mx.txt <==
0 10 32 1 16315 17922 2488 3644 502 81
1 11 31 1 13529-27333 2149-19314 18855 147
2 12 16 1-7508-2468-230-20404-6785 332
3 13 21 1 5642-24107 11628-27151 1816 0
4 14 33 1 9025-61-2258-25838 23114 45
5 15 23 1 18666 13541 15442-2154-23567 11843
6 16 28 54 60 3717 72 0 0 0
7 17 46 55 63 3983 62 0 0 0
0 19 31 1 16442 18464 2568 9122 502 81
1 20 31 1 13598-26458 2209-288 19252 147
2 21 16 1-7353-2024-198-11789-6605 332
3 22 22 1 5807-23820 11838-24997 1816 0
4 23 31 1 9345 588-2155-19673 23114 4653
5 24 24 1 19054 14293 15524 7313-23438 29251
6 25 28 52 56 3544 76 0 0 0
7 26 46 50 55 3766 70 0 0 0
0 28 30 1 16568 19003 2642 15069 502 81
1 29 29 1 13635-25407 2296 20021 19651 147
2 30 14 1-7235-1507-46-3509-6447 582
3 31 21 1 5996-23638 11959-23802 1816 0
==> myusers.txt <==
%EXTERNALROUTINE MYUSERS(%STRING(255)S)
%externalintegerfnspec fecount(%integername a, b)
%EXTERNALINTEGERFNSPEC DPROCEDURE(%INTEGER ACT, ADR)
%RECORDFORMAT RF1(%INTEGER N, A)
%RECORD(RF1) R1
%RECORDFORMAT PF(%STRING(6)USER, %STRING(23)TCP, %BYTEINTEGER A, INVOC, B, N, F,
%INTEGER LOGS, %BYTEINTEGER site, reason, cons1, cons2, %c
%INTEGER ID, PROC, G, H, Z)
%RECORD(PF)%ARRAY P(1:256)
%record (pf) %name pp
%INTEGER J, feusers,tcpusers, i, k, f, l, max
%integerarray fe(0:5)
%ownintegerarray index(0:255)
%string (24) t,u,v,q
%string(20)%array nam(1:50)
%ownintegerarray nuf(1:50)
%ownintegerarray nus(1:50)
%ownintegerarray itp(1:50)
%ownintegerarray xxx(1:50)
==> ncont3s.txt <==
! FILE 'NCONT3S'
!**********************
!* NCON3S/NCON3Y *
!* DATE: 13.MAR.80 *
!*********************
%CONSTSTRING (7) VSN = "VSN002A"
!! STACK = 400, STREAMS = 3
!! MESSAGES FROM THE NETWORK SHOULD BE ENABLED - SEE
!! THE COMMENT AT 'MESSAGES ENABLED'
%CONTROL K'100001'
!STACK=400, STREAMS=3
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%EXTERNALPREDICATESPEC READ FNAME(%RECORD(XF)%NAME FILE)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
==> net87tit.txt <==
@make[article]
@device[x2700]
@style[spacing 1]
@begin[text,topmargin=+1.1inches,leftmargin=+0.25inches,rightmargin=+0.5inches]
blank
@newpage
@majorheading[ISO DIRECTIONS IN VTP]
@BLANKSPACE[0.5in]
@centre[@b[Brian Gilmore
Communications Manager
Edinburgh Regional Computing Centre
University of Edinburgh]]
@blankspace[1.8in]
The paper discusses
the need for a Virtual Terminal Protocol examining the shortcomings
of the current solutions. A VTP produced by the UK Academic Community
is discussed in order to compare it to the current state of ISO
standards work.
@blankspace[1.8in]
@begin[text,leftmargin 2in]
==> netnotes.txt <==
$a device=x2700
$d1 :cosmos12b:
$d2 :cosmos14:
$a tab=1",3.5",4.5",4.8",5.7"
$a left=5
$5
$l0
Intro
Nature of Edinburgh University
Data Network - slide 1
Based on 3 x gec packet switches (CPSEs) - central circles
Voice Network - slide 2
Early exposure to PABX & LANs
ICL/DTI - Investigate Interconnection
Project Diagram - slide 3
+ University in progress of procuring new PABXs
Potential Advantages - slide 4
==> netsig485.txt <==
Edinburgh Regional Computing Centre
Edinburgh University
Networks Special Interest Group
Calling Notice and Agenda
issued by
Brian Gilmore
20th April 1985
You are invited to attend a meeting of NETSIG to be held on Wednesday
15th May in the Halls of Residence, University College, London.
The meeting will start at 10.30am
AGENDA
==> netsig.txt <==
@make[Report]
@flushleft[EDINBURGH REGIONAL COMPUTING CENTRE]
@flushleft[EDINBURGH UNIVERSITY]
@Majorheading{GEC-CUA Network Special Interest Group}
The next meeting of NETSIG will be held on the 12th November 1986 at
@makespace{1}
The meeting will start at 11am.
@subheading[Agenda]
@enumerate[
Minutes of the 13th Meeting, held on the 12th March at UCL.
Matters Arising
Report from the NETSIG Sub Group and matters arising
@enumerate{
Terms of reference
Request from GEC for copies of reports on PSE performance, such as MTBF.
==> networks85_intro.txt <==
@make[article]
@device[x2700]
@style[spacing 1]
@modify[hd2,facecode=k]
@begin[text,topmargin=+1.3inches,leftmargin=+0.45inches,rightmargin=+0.6inches]
blank
@newpage
@section[Introduction]
Edinburgh University is spread across
many parts of Edinburgh with two main "campus" areas and a number of
other scattered departments. This situation has led to a very high
dependence on data networking which has been built up over fifteen years in order
to ensure that students and staff can communicate with either the
main University Services or local department machines.
The current network (see fig 1)
is based on three GEC packet switches supporting
33 hosts and 100 synchronous links [1].
The dispersed nature of the University
has resulted in the development of a separate complex
==> networks85_netnotes.txt <==
$a device=x2700
$d1 :cosmos12b:
$d2 :cosmos14:
$a tab=1",3.5",4.5",4.8",5.7"
$a left=5
$5
$l0
Intro
Nature of Edinburgh University
Data Network - slide 1
Based on 3 x gec packet switches (CPSEs) - central circles
Voice Network - slide 2
Early exposure to PABX & LANs
ICL/DTI - Investigate Interconnection
Project Diagram - slide 3
+ University in progress of procuring new PABXs
Potential Advantages - slide 4
==> networks85_newpaper.txt <==
@make[article]
@device[x2700]
@style[spacing 2]
@modify[hd2,facecode=k]
blank
@newpage
@section[Introduction]
Edinburgh University is spread across
many parts of Edinburgh with two main "campus" areas and a number of
other scattered departments. This situation has led to a very high
dependence on data networking which has been built up over fifteen years in order
to ensure that students and staff can communicate with either the
main University Services or local department machines.
The current network (see fig 1)
is based on three GEC packet switches supporting
35 hosts and 100 synchronous links [1].
The dispersed nature of the University
has resulted in the development of a separate complex
speech network (see fig 2)[2]. The
==> networks85_slide1.txt <==
@majorheading[Advantages of Using a PABX for Data Traffic]
@heading[Common Wiring]
@heading[Direct Connection of Terminals]
@heading[Handling Multiple Terminal Protocols]
@heading[Infrequently Used Terminals]
@heading[Single Exchange Management]
@heading[Carrying Synchronous Traffic]
@newpage
@majorheading[Disadvantages]
@heading[Blocking Problems]
@heading[Cost]
@heading[Limitations of 64kbs]
@heading[Speech/Data Priorities]
@heading[Lack of Network Management]
@heading[Lack of a Name Directory]
@newpage
@majorheading[Future Improvements]
@heading[Data Port Cost]
@heading[Data Interface Unit Changes]
@heading[ ]
@heading[Alternatives to the DIU]
==> networks85_titlesh.txt <==
@make[article]
@device[x2700]
@style[spacing 1]
@begin[text,topmargin=+1.1inches,leftmargin=+0.25inches,rightmargin=+0.5inches]
blank
@newpage
@majorheading[AN APPRAISAL OF THE ADVANTAGES & DISADVANTAGES
OF USING A PABX FOR DATA TRAFFIC]
@BLANKSPACE[0.5in]
@centre[@b[Brian Gilmore
Communications Manager
Edinburgh Regional Computing Centre
University of Edinburgh]]
@blankspace[1.8in]
The paper discusses the main advantages and disadvantages of using a
modern PABX for mixed speech and data traffic. It comes to the conclusion
that with the currently available technology it is not economic to use
such an exchange for extensive data traffic and the paper goes on to look at
future trends in this area in
particular the use of PABX/LAN Gateways to ease connection problems.
==> networks85_title.txt <==
@make[article]
@device[x2700]
@style[spacing 1]
@begin[text,topmargin=+1.1inches,leftmargin=+0.25inches,rightmargin=+0.5inches]
blank
@newpage
@majorheading[AN APPRAISAL OF THE ADVANTAGES & DISADVANTAGES
OF USING A PABX FOR DATA TRAFFIC]
@BLANKSPACE[0.5in]
@centre[@b[Brian Gilmore
Communications Manager
Edinburgh Regional Computing Centre
University of Edinburgh]]
@blankspace[1.8in]
The paper discusses the main advantages and disadvantages of using a
modern PABX for mixed speech and data traffic. It comes to the conclusion
that with the currently available technology it is not economic to use
such an exchange for extensive data traffic and the paper goes on to look at
future trends in this area in
particular the use of PABX/LAN Gateways to ease connection problems.
==> networks87.txt <==
@make[article]
@device[x2700]
@style[spacing 1]
@modify[hd2,facecode=k]
@begin[text,topmargin=+1.3inches,leftmargin=+0.45inches,rightmargin=+0.6inches]
blank
@newpage
@section[The Need for a Virtual Terminal Specification]
Terminals are normally connected to the system they are used on via a
direct connection, a connection through a device such as a circuit
switch which behaves as if the terminal was directly connected, or
through a network, local or wide area. The characteristic behaviour of
a terminal will differ depending on the access route and the
requirements for driving it will also differ.
The model matched by most computer manufacturers in the past was that
of a simple, hard copy terminal that printed out a line at a time then
moved one line down the paper. Although most terminals are now based
on VDUs, the basic method of handling them has remained the same, the
output is scrolled up the screen one line at a time. The consequence
==> newperm.txt <==
%recordformat eventfm(%integer a, b, c, %string (31) message)
! I/O package constants added
! Operating constants
%const %integer max streams = 5; ! ie can select input/output 0-5
%const %integer max units = 10; ! # of logical disk units allowed
%const %integer max devs = 10; ! # of different device names
%const %integer max fsys = 8_77; ! # of directories/logical disk
! Values for TYPE field in SDFM
%const %integer null type = -1,
char type = 0,
file type = 1
! Values for STATE field (i.e. state of SYM)
%const %integer valid = 0,
invalid = 1,
EOF = 2
! Error exit codes (event info in %signal)
==> newsys_bdk6s.txt <==
teger service, reply %or %integer d), %c
%integer a1, a2, a3)
%recordformat dkf(%integer dst, err, comm, wc, add, dar)
%constrecord (dkf) %name dk == k'117400'
%constinteger dktop = 4871
%owninteger dk bot = k'77'
%constinteger unit1 = k'020000'
%constinteger unit2 = k'040000'
==> newsys_bdk7s.txt <==
> newsys_btt7s.txt <==
! file 'btt7s'
!**************
!* btt7s *
!*da:24.feb.81*
!**************
%control X'4001'
%externalintegerfnspec map virt %alias "$FMAPVIRT"(%integer id, fromseg,toseg)
%begin
%recordformat pf(%byteinteger service, reply, %c
%integer a1, a2, a3)
%recordformat ttf(%integer kbs, kbd, tts, ttd)
%recordformat buff(%integer pt, last, (%bytearrayname b %or %c
%integer arraypt))
%constrecord (*) %name null == 0
%constinteger rubout=k'177'
==> newsys_build.txt <==
supbuild .in/x,l2
title
newsys_supnewy
newsys_shared
newsys_perm2y
newsys_BTT7Y
newsys_bdk7Y
newsys_FSYS79Y
newsys_LOAD8Y
newsys_cli1y
newsys_moth77y
END
-11 340 KB#2 ADDR=776500, SER=19
-12 344 TT#2
-6 330 RING RX
-7 334 RING TX
-6 770 KMC11
-7 774 DITTO
-13 270 AM1 INTERFACE
-14 274
-13 160
==> newsys_cli1s.txt <==
! file 'cli1s'
!**************
!* cli1s *
!* 26.feb.81 *
!**************
%control 1
%recordformat dumrec(%integer x)
%constrecord (*) %name null == 0
%externalintegerfnspec map virt %alias "$FMAPVIRT"(%integer id, fromseg,toseg)
%begin
%constinteger delete = 5
%constinteger schedule t = 9
%constinteger map psect = 16
%constinteger r0=0,r1=1,r2=2,r3=3
==> newsys_doitall.txt <==
imp11 newsys_supnew,supnew#rel
imp11 newsys_sinnew,sinnew#rel
newass newsys_dvn87,dvn87y
c dnv87y,newsys_dvn87y
obey b_sup
obey b_cli
obey b_load
obey b_bdk
obey b_moth
obey b_fsys
obey newsys_build
list x,.bpp155
==> newsys_dvn87.txt <==
;FILE 'SYS_DVRUB'
;**************************************
;* DVRUB *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 11.JUN.81 *
;**************************************
.EXTERNAL ASSM
.INTERNAL $RUN
.INTERNAL DISPL="@DISPLAY"
.GLOBL G="%GO"
.INTERNAL EP
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
==> newsys_fsys79.txt <==
!******************************
!* file system handler *
!* fsys1s/fsys1y *
!* date: 30.Jun.81 *
!******************************
!*w.s.c. 25th august 1976
!*b.g. 27.mar.78
!*this handler is the file system utility to replace the
!*existing one in deimos to permit a file system to be
!*created on the ampex 9500 disc as well as the rk05's.
!*it is a conceptual copy of the rk05 file system handler
!*except that a buffer pool is used for block descriptors
!*and directory blocks.
!*the code is shared by 3 system slots,4 for the rk05's,
!*and 9,15 for the ampex disc.the ampex disc is logically
!*divided into two,units 2&3.
==> newsys_load8s.txt <==
!**************
!* load18s *
!* 14.jun.82 *
!**************
%control x'4001'
%constrecord (*) %name null == 0
!***********************************
!* *
!* loader faults *
!* *
!* 1 - no core *
!* 2 - init block too long *
!* 3 - init block short *
!* 4 - checksum wrong *
!* 5 - out of range *
!* 6 - end of file/ no file *
==> newsys_moth77.txt <==
!************
!* moth6s *
!* 14.jul.81*
!************
%control x'4001'
%include "b_deimosspecs"
%begin
%recordformat pf(%byteinteger service, reply, %integer a1, a2, a3)
%record (pf)p
%constintegername sr0 == k'117572'
! indexed into seg 4
%constintegername sr2 == k'117576'
%routinespec octal(%integer n)
==> newsys_rl06s.txt <==
!************
!* rl06s *
!*24.jun.82*
!************
!* reporting to dir task added
!* unit 4 added
%control 1
%begin
%recordformat pf((%byteinteger service, reply %or %c
%integer d), %integer a1, a2, a3)
%recordformat rlf(%integer cs, ba, da, mp)
%constrecord (rlf) %name rl == k'114400'
%constintegername ps == k'117776'
%constinteger rltop = 10239
%owninteger rl bot = k'77'
==> newsys_sinnew.txt <==
!***************************
!* sin010 *
!* date: 22.jun.82 *
!* supervisor initialiser *
!* supervisor release 10 *
!***************************
%control X'4001'
%recordformat dummy(%integer x)
%constrecord (*) %name null == 0
%constinteger initial sp disp = k'1530'; ! position in i/o seg of initial
! sp - new compiler - may change !!!!!!!!!!!!!!!!!
%constinteger task low limit = 30
%constinteger task user limit = 35
%constinteger task limit = 70
%constinteger free cells = 80
%constinteger no of services = 50
%constinteger frag no = 15
%constinteger psect length = 52
%constinteger svc limit = 23
==> newsys_supbuilde.txt <==
! file 'sys_sbld5s'
!*************************************
!* sbld15s *
!* date: 25.feb.82 *
!* supervisor build program *
!************************************
! prep options are:-
! e - emas imp
! d - deimos imp
!#if ~(e!d)(=false)
{ #report Must specify e OR d}
{ #abort}
!#fi
!#if e(=true)
!#else(=false)
{ #report Preparing Deimos version}
!#fi
%conststring (13) vsn = "Sup Bld...1a
"
==> newsys_supbuilds.txt <==
! file 'sys_sbld5s'
!*************************************
!* sbld15s *
!* date: 25.feb.82 *
!* supervisor build program *
!************************************
! prep options are:-
! e - emas imp
! d - deimos imp
#if ~(e!d)
#report Must specify e OR d
#abort
#fi
#if e
#report Preparing Emas version
#else
#report Preparing Deimos version
#fi
%conststring (13) vsn = "Sup Bld...1a
"
==> newsys_supde0.txt <==
DEIMOS VSN 10.1 14.JUN.82 (SHARED PERM IN SEG 0 + NEW SEG 8)
RL01
3500
DVRUBY N 0
SUP50 60002 0
PERM2Y 60006 0
BTT7Y 60012 0
RL06Y 60016 0
FSYS78 60022 0
LOAD8Y 60026 0
CLI2Y 60032 0
MOTH6Y 60036 0
END
-11 330 KB #2, VEC=776170, SER = 19
-12 334 TT#3
-7 320 RING RECEIVE 764040
-6 324
-16 400 UMC 1ST LINE, ADDR = 766760
-17 404
-18 410
-19 414
==> newsys_supnew.txt <==
!***********
!* sup010 *
!*05.mar.82*
!***********
%control x'4001'
%externalroutinespec push(%record(*)%name q,%record(*)%name m)
%externalrecord(*)%mapspec pop(%record(*)%name q)
%constrecord (*) %name null == 0
%recordformat dummy(%integer x)
%begin
%constinteger task low limit=30
%constinteger task limit=75
%constinteger free cells=80
%constinteger no of services=task limit
%constinteger frag no=15
%constinteger psect length=52
%constinteger svc limit=23
==> newsys_suprin.txt <==
DEIMOS VSN 10.1 14.JUN.82 (SHARED PERM IN SEG 0 + NEW SEG 8)
RK05
3500
DVNO2Y N 0
SUP50 60002 0
PERM2Y 60006 0
BTT7Y 60012 0
BDK6Y 60016 0
FSYS78 60022 0
LOAD8Y 60026 0
CLI1Y 60032 0
MOTH6Y 60036 0
END
-11 340 KB#2 ADDR=776500, SER=19
-12 344 TT#2
-6 330 RING RX
-7 334 RING TX
-6 770 KMC11
-7 774 DITTO
-13 270 AM1 INTERFACE
-14 274
==> nhs1.txt <==
@device(x2700)
@make(report)
@majorheading(Proposed Communications Course by ERCC)
@heading[Time and Place]
@verbatim[
1st and 2nd of September
ERCC, George Sq., Edinburgh
Session times will be: 09.30 - 12.30
14.00 - 17.00
Lunch, coffee and tea will be provided
]
@heading(Day 1)
@verbatim[
Introduction: - Packet networks vs direct connections
- OSI Reference model - Layers 1-3
- X.25 (Level 2) - brief summary
- X.25 (Level 3) - Major principles
- Addressing
- Gateways
==> nhs2.txt <==
Scottish Health Service Communications Course
Amended Timetable
Note: All sessions are 1 hour 15 mins, 1 hour for the talk, 15 mins for
questions.
1st September
09.30 - 10.45 Intro (L2 & L3) Noel
11.15 - 12.30 Addressing/GWs/Net Management Noel/BG
14.00 - 15.15 Lans & PABX Scott
15.45 - 17.00 ditto Scott
2nd September
09.30 - 10.45 X25 Suppliers Survey BG
==> node2s.txt <==
! FILE 'FEP_NODES'
!*************************
!* NODES/LOAD *
!* DATE: 23.APR.80 *
!* LOADS A SERIES OF *
!* TASKS, FROM INPUT(1) *
!*************************
%CONTROL K'100001'
%RECORDFORMAT DUMMY(%INTEGER X)
%CONSTRECORD (DUMMY) %NAME NULL = 0
%BEGIN
%CONSTBYTEINTEGERNAME OWN ID = K'160030'
%CONSTBYTEINTEGERNAME FSYS = K'160055'
%CONSTBYTEINTEGERNAME TTNO = K'160061'
%CONSTINTEGER LOAD SER = 5
%RECORDFORMAT PE(%BYTEINTEGER SERVICE, REPLY, A1, A2, %C
%BYTEINTEGERNAME B, %BYTEINTEGER C1, C2)
==> node_buff4.txt <==
! FILE 'FEP_BUFF4'
!******************************
!* EMAS-2900 BUFFER MANAGER *
!* FILE: BUFF4 (NODE) *
!* DATE: 17.FEB.81 *
!******************************
!! STK = SIZE+200
%CONSTINTEGER SIZE = K'55000'
%CONTROL K'100001'
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%RECORDFORMAT D(%INTEGER I)
%CONSTRECORD (D) %NAME NULL = 0
%BEGIN
%RECORDFORMAT BF(%RECORD (BF) %NAME L, %BYTEINTEGER LEN, MODE, %C
%BYTEINTEGERARRAY A(0:99))
==> node_down4m.txt <==
! file 'down4m'
!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
!
! this program is supposed to call do load with
! argument the physical device handler routine.
! until imp77 allows routines to have routine arguments
! it has been kludged. to change it delete the
! sequence !**** and delete lines containing ;!$$$.
! nb this has not been tested
!**********************************************
!* *
!* down line loader v1.3 *
!* date: 04.feb.82 *
!* *
!* b gilmore march 1980 *
!* w d hay november 1979 *
!* *
!**********************************************
!
! stack = 1000, streams = 1
==> node_dqs12e.txt <==
! FILE 'FEP_DQS12E'
!**************
!* DQS12E *
!*DA:04.JUN.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE DQS11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> node_dup11e.txt <==
!**************
!* DUP11E *
!*DA:16.JAN.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE DUP11E(%RECORD (PARF) %NAME P)
%END; ! TEMP TO SAVE CODE SPACE ON NODE 9
%ENDOFFILE
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P0, P1)
==> node_dvno1s.txt <==
;**************************************
;* DVRUB *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 10.OCT.80 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
UPDR0=UPAR0+2; DITTO
==> node_go.txt <==
NODE CONFIG 08.AUG.80
COMMY
BUFF4Y
KERNY
PRT9Y; 1 0 -7 -6 767700
PRT9Y; 2 0 -21 -20 767720
PRT9Y; 3 0 -23 -22 767600
PRT9Y; 4 0 -25 -24 767620
PRT9Y; 5 0 -29 -28 760200
PRT9Y; 6 0 -19 -18 760220
PRT9Y; 7 0 -31 -30 760240
PRT9Y; 8 0 -33 -32 760260
PRT9Y; 9 0 -43 -42 760140
PRT9Y; 10 0 -45 -44 760160
PARR1Y; 15 3 -26 -27 760030
PARR1Y; 16 3 -34 -35 775140
PARR1Y; 17 3 -36 -37 765240
PARR1Y; 18 3 -38 -39 775160
PARR1Y; 19 3 -40 -41 775200
NGATEY /.TT
KDISPY
==> node_itpin2s.txt <==
%CONTROL 1
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! INFO MARK 2--ITP CONSOLE HANDLER
!
! FILE=ITPS
!
! 27TH AUG 1980
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! THIS MODULE TAKES CONNECTIONS TO FACILITY 18 FROM GATE AND HANDLES
! CONSEQUENT ITP LOGONS FROM CONSOLES. IT ASSOCIATES THE CONSOLE WITH THE USER TASK
! AND WILL LOAD OTHER TASKS TO GIVE THE REQUIRED SERVICE.
! IT THEN HANDLES THE FLOW OF DATA FROM THE TASK TO THE CONSOLE AND VICE-VERSA.
! LOGGING OFF THE CONSOLE IS ALSO CONTROLLED FROM HERE.
!
! SEE INFO NOTES 2 AND 3 FOR INTERFACE DETAILS.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
==> node_itpinfs.txt <==
%CONTROL 1
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! INFO MARK 2--ITP CONSOLE HANDLER
!
! FILE=ITPS
!
! 27TH AUG 1980
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! THIS MODULE TAKES CONNECTIONS TO FACILITY 18 FROM GATE AND HANDLES
! CONSEQUENT ITP LOGONS FROM CONSOLES. IT ASSOCIATES THE CONSOLE WITH THE USER TASK
! AND WILL LOAD OTHER TASKS TO GIVE THE REQUIRED SERVICE.
! IT THEN HANDLES THE FLOW OF DATA FROM THE TASK TO THE CONSOLE AND VICE-VERSA.
! LOGGING OFF THE CONSOLE IS ALSO CONTROLLED FROM HERE.
!
! SEE INFO NOTES 2 AND 3 FOR INTERFACE DETAILS.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
==> nodemon2s.txt <==
%EXTERNALROUTINE NODEMON(%STRING (255) S)
%EXTERNALROUTINESPEC NODEGRAPHS(%STRING (255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING (255) S)
%STRING (255) T, U, UU, TITLE, UUU
%RECORDFORMAT FF( %C
%INTEGER TIM, CPU, ATT,CON,NIF,ERR, %INTEGERARRAY A(4:21))
%OWNINTEGERARRAY AA(0:21)=0(22)
%OWNINTEGERARRAY R(0:21) = 0(22)
%INTEGER I, DIFF, K, L, US, CP, KB, PK, RJ
%OWNINTEGER USERS, STA, CPU, PKTS, SBR, BYT, RJEO, TIM, RJEI
%OWNINTEGER POINTS,ATT,CON,MES,COK,CFAIL,BL,ST,NIF,ERR
%RECORD F(FF)
!!
%OWNINTEGER CPU IDLE = 141; ! 160=FAST STORE, 141=SLOW STORE
!!
!!
%ROUTINE RD(%INTEGERNAME N)
READ(N)
%IF N< 0 %THEN N = N+32768*2
%END
!!
==> nodemon3s.txt <==
%REALSLONG
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! NODE STATISTICS PACKAGE
!
!
!
! GRAPH1 - CONNECTS V BLKS AND CPU
!
! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD
!
! GRAPH3 - 2970 USERS V BLOCKS RXD & TXD
!
! GRAPH4 - FREQUENCY V CON/MIN/USER
!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
==> nodemons.txt <==
%EXTERNALROUTINE NODEMON(%STRING (255) S)
%EXTERNALROUTINESPEC NODEGRAPHS(%STRING (255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING (255) S)
%STRING (255) T, U, UU, TITLE, UUU
%RECORDFORMAT FF( %C
%INTEGER TIM, CPU, ATT,CON,NIF,ERR, %INTEGERARRAY A(4:21))
%OWNINTEGERARRAY AA(0:21)=0(22)
%OWNINTEGERARRAY R(0:21) = 0(22)
%INTEGER I, DIFF, K, L, US, CP, KB, PK, RJ
%OWNINTEGER USERS, STA, CPU, PKTS, SBR, BYT, RJEO, TIM, RJEI
%OWNINTEGER POINTS,ATT,CON,MES,COK,CFAIL,BL,ST,NIF,ERR
%RECORD F(FF)
!!
%OWNINTEGER CPU IDLE = 141; ! 160=FAST STORE, 141=SLOW STORE
!!
!!
%ROUTINE RD(%INTEGERNAME N)
READ(N)
%IF N< 0 %THEN N = N+32768*2
%END
!!
==> node_nbsmon.txt <==
! file 'nbsmon'
!********************************
!* bsp to nsi interface *
!* file: nbsmon *
!* date: 09.mar.82 *
!* monitoring program *
!*********************************
!! stk = 1000, strm = 1
%control 1
%include "deimosperm"
%begin
%conststring (13)vsn = "NBSM...1b
"
%recordformat mef(%record (mef) %name link, %byteinteger len, %c
==> node_nbsp8s.txt <==
! FILE 'NBSP8S'
!********************************
!* BSP TO NSI INTERFACE *
!* FILE: NBSP8S *
!* DATE: 08.MAR.82 *
!* BASED ON KENTS_BSP4S & GATE5 *
!*********************************
!! STK = 1000, STRM = 1
%CONSTINTEGER OWN NODE = 72
%CONSTINTEGER FEP ADDRESS = 9
%OWNINTEGER SBRF = 0
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%RECORDFORMAT DMF(%INTEGER I)
==> node_nbsp9s.txt <==
! file 'nbsp9s'
!********************************
!* bsp to nsi interface *
!* file: nbsp9s *
!* date: 17.aug.82 *
!* based on kents_bsp4s & gate5 *
!*********************************
!! stk = 1000, strm = 1
%constinteger own node = 72
%constinteger fep address = 3
%owninteger sbrf = 0
%recordformat dmf(%integer i)
%constrecord (*) %name nil == 0
%control X'4001'
==> node_ncon10s.txt <==
! file 'node_ncon10s'
!**********************
!* ncon10s/node *
!* date: 02.sep.82 *
!*********************
%conststring (13) vsn = "node:vsn010h
"
!! stack = 400, streams = 1
%control 1
%include "deimosperm"
%recordformat xf(%byte unit,fsys,%bytearray fname(0:5))
%begin
%constinteger control ser = 11
%constinteger kernel ser = 29
%constintegername node number == k'060016'; ! in buffer seg
%recordformat rjef(%byteintegerarray data(0:239))
==> node_ngate3.txt <==
! FILE 'NGATE3'
%CONSTSTRING (7) VSN = "VSN003J"
!****************************
!* GATE FOR USE WITH NODE *
!* FILE: NGATE3 *
!* DATE: 18.NOV.80 *
!****************************
!! STACK SIZE = 300
%RECORDFORMAT DMF(%INTEGER I)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SERVICE)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONSTINTEGER OWN TERM = 0; ! NETWORK ADDRESS
%CONSTINTEGER MAX WRITES = 1; ! WRITE-AHEADS TO PROTOCOL HAND.
%CONSTINTEGER LINE NO = 30
%CONSTINTEGER KENT = 0; ! KENT=1 - NO NODE IN NET
==> node_nlp3s.txt <==
!**********************
!* nlps/nlpy *
!* nb: Uses New Compiler
!* date: 26.jul.80 *
!*********************
%conststring (15) vsn = "nlps...vsn3a
"
!! stack = 400, streams = 3
%recordformat xf(%byteinteger unit,fsys,%byteintegerarray fname(0:5))
%include "b_deimosspecs"
%begin
%externalroutinespec open output(%integer str, %string (255) s)
%constinteger control ser = 11
%recordformat rjef(%byteintegerarray data(0:239))
==> node_nlps.txt <==
!**********************
!* NLPS/NLPY *
!* DATE: 11.MAR.80 *
!*********************
%CONSTSTRING (7) VSN = "VSN001C"
!! STACK = 400, STREAMS = 3
%CONTROL K'100001'
!STACK=400, STREAMS=1
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%BEGIN
%CONSTINTEGER CONTROL SER = 11
%RECORDFORMAT RJEF(%BYTEINTEGERARRAY DATA(0:239))
%RECORDFORMAT NSI1F(%BYTEINTEGER FN,SUFL,ST,SS,FLAG,UFLAG, %C
==> node_parr1e.txt <==
! FILE 'FEP_PARR1E'
!**************
!* PAR11E *
!*DA:12.FEB.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE PAR11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
==> node_parr3s.txt <==
! FILE 'PARR3S'
!*********************
!* PARR3S/PARR1Y *
!* DATE: 17.SEP.80 *
!*********************
!STACK = 140
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (7) VSN = 'VSN003E'
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
==> node_parr4s.txt <==
! FILE 'PARR4S'
!*********************
!* PARR3S/PARR1Y *
!* DATE: 17.SEP.81 *
!*********************
! NODE 6 VERSION
!STACK = 140
%CONSTINTEGER SECAD = 9
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (7) VSN = 'VSN003K'
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
==> node_parr5s.txt <==
! FILE 'PARR5S'
!*********************
!* PARR5S/PARR5Y *
!* DATE: 27.JAN.82 *
!*********************
! NODE 6 VERSION
!STACK = 140
%CONSTINTEGER SECAD = 9
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (7) VSN = 'VSN003K'
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
==> node_parr6s.txt <==
! FILE 'PARR6S'
!*********************
!* PARR6S/PARR6Y *
!* DATE: 07.FEB.83 *
!*********************
! NODE 6 VERSION
!STACK = 140
%CONSTINTEGER SECAD = 9
%RECORDFORMAT XXF(%INTEGER DUMMY)
%CONSTRECORD (XXF) %NAME NULL = 0
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTSTRING (13) VSN = "VSN006A
"
%BEGIN
==> node_prt10ns.txt <==
!*********************
!* PRT9S/PRT9Y *
!* DATE: 29.MAY.80 *
!*VERSION FOR NODE *
!*HISTORY UNCERTAIN *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTINTEGER KERNEL SER = 29
%OWNINTEGER SECONDARY = 0; !PRIM = 0, SEC = 1
%OWNINTEGER SECAD = 9; !SECONDARY ADDRESS
%CONSTINTEGER WMAX = 56; ! MAX NO OF WRITES
%CONSTINTEGER NO OF SEC BUFFERS = 16; ! PRIVATE BUFFER STORE
%CONSTINTEGER SFMASK = 63; ! CIRC BUFFER SIZE FOR WRITES
%CONSTSTRING (7) VSN = 'VSN009H'
==> node_prt11ns.txt <==
! FILE 'NODE_PRT11NS'
!*********************
!* PRT1S/PRT1Y *
!* DATE: 26.MAR.81 *
!*VERSION FOR NODE *
!*HISTORY UNCERTAIN *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTINTEGER KERNEL SER = 29
%OWNINTEGER SECONDARY = 0; !PRIM = 0, SEC = 1
%OWNINTEGER SECAD = 9; !SECONDARY ADDRESS
%CONSTINTEGER WMAX = 56; ! MAX NO OF WRITES
%CONSTINTEGER SFMASK = 63; ! CIRC BUFFER SIZE FOR WRITES
%CONSTSTRING (7) VSN = 'VSN011C'
==> node_prt12us.txt <==
! file 'node_prt12us'
!*********************
!* prt12s/prt12y *
!*version for node *
!!!!!!!!!!!!!!!!!!!!!!
!stack = 400
%control 1
%include "deimosperm"
%constinteger kernel ser = 29
! %owninteger secondary = 0; !prim = 0, sec = 1
%constintegername secad == k'060016'; ! in buffer seg, set by node
%constinteger wmax = 56; ! max no of writes
%constinteger sfmask = 63; ! circ buffer size for writes
%conststring (13) vsn = "prtn:vsn012r "
#datestring; ! use prep on this
==> node_rles77.txt <==
! FILE 'RLES'
! RLS/RL A.L. IBBETSON UNIKENT 1979
! for ERCC NODE use - B. Gilmore 25.Feb.81
! DOWN-LINE LOADING VIA RING
!
! Reads from stream 1. File in abs loader format
! compatible with card reader - i.e. fixed length 80
! byte records. Data is scanned for load block to
! flag termination of file.
!
! I RLS,.TT/RLESY. STREAMS 1. STACK 400
! Copy RLESY into RLESY(0)
!
%CONTROL 1
%include "deimosperm"
%BEGIN
%RECORDFORMAT MEF(%RECORD (MEF) %NAME LINK,%BYTEINTEGER LEN,TYPE,%C
%INTEGER ADR,%INTEGERARRAY DATA(0:124))
%RECORDFORMAT PE(%BYTEINTEGER SER,REPLY,FN,PORT,%RECORD (MEF) %NAME MES,%C
%BYTEINTEGER L,S)
%RECORD (PE) P
==> nodes.txt <==
{{circle(14,15,3);inlabel(.35,"KB CPSE@b")}}
{{inlabel(.2,"@b@b000015000000")}}
{{circle(14,4,3);inlabel(.35,"AT 1 CPSE@b")}}
{{inlabel(.2,"@b@b000016000000")}}
{{circle(2,15,2);inlabel(.2,"TelePAC 1@b")}}
{{inlabel(.14,"@b@b000015001000")}}
{{circle(7.8,12.5,2);inlabel(.2,"TelePAC 2")}}
{{inlabel(.14,"@b@b000015005000")}}
{{circle(2,4,2);inlabel(.2,"AT 2 CPSE@b")}}
{{inlabel(.14,"@b@b000016001000")}}
{{join(c1,c2);join(c1,c3);join(c1,c5)}}
{{join(c2,c3)}}
{{join(c3,c4)}}
{{box(1.5,24.5)(4.5,26.5);inlabel(.2,"EMAS")}}
{{box(8.5,24.5)(11.5,26.5);inlabel(.2,"BUSH")}}
{{box(15.5,24.5)(18.5,26.5);inlabel(.2,"EMAS-A")}}
{{circle(.9,23,.6)inlabel(.14,"Fe3")}}
{{circle(2.3,23,.6)inlabel(.14,"Fe1")}}
{{circle(3.7,23,.6)inlabel(.14,"Fe2")}}
{{circle(7.9,23,.6)inlabel(.14,"Fe4")}}
{{circle(9.3,23,.6)inlabel(.14,"Fe1")}}
==> node_subpb1145.txt <==
DEIMOS VSN 9.9 16.JUNE.80 (CLI&LOAD)
3500
DVRUBY N 0
SUP35 60002 0
PERM2Y 60006 0
BTT6Y 60012 150
BDK5Y 60016 70
FSYS1Y 60022 300
LOAD7Y 60026 300
CLI1Y 60032 200
MOTH6Y 60036 50
END
-6 304
-7 310 DQS11 # 1
-20 324 DQS11 #2
-21 330
-22 404 DQS11 #3
-23 410
-24 424 DQS11 #4
-25 430
-26 454 PARR INT #1
==> node_supde0.txt <==
DEIMOS VSN 9.14 23.OCT.80 (CLI&LOAD)
3500
DVNO1Y N 0
SUP36 60002 0
PERM2Y 60006 0
BTT6Y 60012 150
BDK5Y 60016 70
FSYS1Y 60022 300
LOAD7Y 60026 300
CLI1Y 60032 200
MOTH6Y 60036 50
END
-6 304
-7 310 DQS11 # 1
-20 324 DQS11 #2
-21 330
-22 404 DQS11 #3
-23 410
-24 424 DQS11 #4
-25 430
-26 454 PARR INT #1
==> node_umc1e.txt <==
! FILE 'UMC1E'
! FILE 'FEP_UMC1E'
!**************
!* UMC1E *
!*DA:09.JUL.81*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND
! TRUSTED PROG
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN)
%EXTERNALROUTINE DQS11E(%RECORD (PARF) %NAME P)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
==> node_umcs.txt <==
! file node_umcs
!*********************
!* umcs/umcy *
!* date: 05.apr.82 *
!!!!!!!!!!!!!!!!!!!!!!
! umc control program
!stack = 140
%control 1
%include "deimosperm"
%conststring (7) vsn = "vsn001b"
%begin
%constinteger umc control = 18
%recordformat xxf(%integer dummy)
%recordformat parf(%integer type, %c
(%record (xxf) %name b %or %integer address), %c
==> node_umctest.txt <==
! file 'node_umctest'
!*********************
!* umctests/umctesty *
!* date: 29.apr.82 *
!*version for node *
!!!!!!!!!!!!!!!!!!!!!!
!stack = 400
%control 1
%include "deimosperm"
%constinteger kernel ser = 29
! %owninteger secondary = 0; !prim = 0, sec = 1
%constintegername secad == k'060016'; ! in buffer seg, set by node
%constinteger wmax = 56; ! max no of writes
%constinteger sfmask = 63; ! circ buffer size for writes
%conststring (13) vsn = "prtn:vsn012m
"
==> node_usert2s.txt <==
!************************
!* USERTS/USERTY *
!* DATE: 25.NOV.80 *
!************************
! FILE 'USERTS'
! STK = 500, STREAMS = 0
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
%BEGIN
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT ITPF(%BYTEINTEGER CNSL, HDB1, HDB2, %STRING (241) S)
%RECORDFORMAT ITP2F(%BYTEINTEGERARRAY A(0:241))
%RECORDFORMAT ITP3F(%BYTEINTEGER CNSL, HDB1, HDB2, %C
%BYTEINTEGERARRAY A(0:32))
==> node_userts.txt <==
!************************
!* USERTS/USERTY *
!* DATE: 17.DEC.80 *
!************************
! FILE 'USERTS'
! STK = 500, STREAMS = 0
%CONSTSTRING (7) VSN = "VSN002A"
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
%BEGIN
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT ITPF(%BYTEINTEGER CNSL, HDB1, HDB2, %STRING (241) S)
%RECORDFORMAT ITP2F(%BYTEINTEGERARRAY A(0:241))
%RECORDFORMAT ITP3F(%BYTEINTEGER CNSL, HDB1, HDB2, %C
==> nrsdo.txt <==
%externalroutine nrs(%string (255) s)
%externalroutinespec define(%string (255) s)
%string (255) t,u,v
%integer i,j,k
%owninteger state = 0, lines = 0
%ownintegerarray field(0:4) = 34, 18, 20, 5, 5
%ownintegerarray spc(0:2) = 34, 52, 72
%ownbyteintegerarray first(0:4) = 'L', 'S', 'D', 'Y', 'A'
%ownstring (25) %array names(0:4) = %c
"Long name",
"Short name",
"DTE string",
"YBTS string",
"Application relay"
%on 9 %start
%stop
%finish
%routine strip(%string (*) %name s)
==> nrsl.txt <==
.nf
.H1 Forward Lookup 16 OCT 85
.H1 Context X29 Subnetwork JANET
CERN.GEC-A CERN.GEC-A 000009001002
CERN.IBM CERN.IBM 0000090030020
CERN.INDEX CERN.INDEX 0000090030010
CERN.NDDEV CERN.NDDEV 0000090030051
CERN.VXALBM CERN.VXALBM 0000090030042
CERN.VXALFB CERN.VXALFB 0000090030031
CERN.VXCRNA CERN.VXCRNA 0000090030053
CERN.VXDEV CERN.VXDEV 0000090030043
CERN.VXGIFT CERN.VXGIFT 0000090030035
CERN.VXL3 CERN.VXL3 0000090030033
CERN.VXMERL CERN.VXMERL 0000090030044
CERN.VXOMEG CERN.VXOMEG 0000090030041
DESY.GEC-A DESY.GEC-A 000009501000
DESY.TASSO DESY.VB 000009501001
UK.AC.ABERDEEN UK.AC.ABDN 00000700900104 Relay:CALL PARAMETER IS 7
==> nrs.txt <==
.nf
.H1 Forward Lookup
.H1 Context X29 Subnetwork JANET
Long name CERN.GEC-A
Short name CERN.GEC-A
DTE string 000009001002
Long name CERN.IBM
Short name CERN.IBM
DTE string 0000090030020
Long name CERN.INDEX
Short name CERN.INDEX
DTE string 0000090030010
Long name CERN.NDDEV
Short name CERN.NDDEV
DTE string 0000090030051
==> nsource.txt <==
!**********************************************************
!* *
!* PSS X-25 Level 3 Protocol Handler *
!* *
!* GATEX *
!* *
!* Version 9.62 14 Mar 1986 *
!* *
!**********************************************************
!*
%control 1
%begin
#options
!************************************
!* *
!* Declarations *
!* *
!************************************
!*
!****** Constintegers ******
==> padans.txt <==
%externalroutine padan(%string (255) s)
%externalroutinespec define(%string (255) s)
%externalintegerfnspec stoi(%string (255) s)
%string (255) t,u,v,s2,t2
%integer i,j,k,x,crash
%owninteger this day, hours, thours
%owninteger max = 0, fhours, hours up
%real mtbf
%recordformat padf(%string (15) name, %integer last crash,crash,lastt,maxu, %c
first,last)
%ownrecord (padf) %array pada(1:100)
%ownrecord (padf) %name pad
%string (255)%array res(1:12)
%owninteger no of res
%conststring (3) %array day(1:7) = "Mon", "Tue", "Wed", "Thu", "Fri",
"Sat", "Sun"
%conststring (12) %array month(1:12) = "Jan", "Feb", "Mar", "Apr", "May",
"Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
==> paddoc.txt <==
$a invert=0; line=65; left=6
$l1um
PAD Summary
$p1The following contains a 'potted' summary of the JNT PAD facilities
most often used. This collection is by no means complete
and there is no substitute for examination of the JNT PAD Terminal Users' Guide.
Nor are the more 'exotic' features and values of the various
parameters which can be set, described.
However, the following should be enough to get you started.
$b1%Introduce yourself to the PAD by typing CR (perhaps repeatedly so that
the PAD can ascertain your terminal line speed.
$b1%Call the host of your choice by typing 'call <hostname>' to the
PAD> prompt e$.g$.
$l3m
PAD>call 2972
$b1%Help is available by typing 'help' to the PAD> prompt to obtain information
as to what the PAD knows about (address, profile, escape, command)
e$.g$. 'help address' gives all the names of the hosts known to the PAD.
$b1%PAD> prompt can be obtained during an interactive call by pressing
==> parits.txt <==
& SWITCH REG COUNTER
!
! DATE: 24.MAY.82
%CONTROL K'100001'
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%BEGIN
%CONSTINTEGERNAME PAR = K'012100'; ! IN SEG 0
%CONSTINTEGERNAME SWR = K'017570'
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, A1, A2, B1, B2, C1, C2)
%RECORD (PF) P
%INTEGER I,J,K,T
%ROUTINE OCTAL(%INTEGER N)
%INTEGER I
PRINTSYMBOL((N>>I)&7+'0') %FOR I = 15, -3, 0
==> parr4fs.txt <==
!*********************
!* parr4fs/parr4y *
!* date: 20.jan.82 *
!* modified for fep *
!*********************
!stack = 140
%control 1
%conststring (13) vsn = "parr:vsn004a
"
%begin
%recordformat parrf(%integer rcsr, rbc, rba, rvec, %c
tcsr, tbc, tba, tvec)
%ownrecord (parrf) %name pa == 1
==> pass1.txt <==
! IMP77 compiler first pass
!to create an EMAS version:
!
! d*//*
! m-0 (f/!imp77:/ l* i/!imp77:/ m)*
! On EMAS all shorts should be changed to integers.
!
! Also, the INCLUDE facility will need to be modified.
! ARRAYS CHAR,MAPPED,ANYFORM,CNEST BECOME INTEGER
!
!
!###################################################
! Copyright: 1 January 1980 #
! INTERACTIVE DATASYSTEMS (EDINBURGH) LTD. #
! Peter S. Robertson #
! 32 Upper Gilmore Place #
! Edinburgh EH3 9NJ #
! all rights reserved #
!###################################################
==> pclo2s.txt <==
! FILE 'PCLOCKS'
! PROGRAMMABLE CLOCK PROGRAM
! DATE: 5.MAR.81
%CONTROL K'100001'
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%PERMINTEGERMAPSPEC INTEGER
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER
%PERMINTEGERFNSPEC ADDR
%PERMINTEGERFNSPEC ACC
%BEGIN
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMROUTINESPEC LINKIN(%INTEGER NO)
%CONSTBYTEINTEGERNAME INT = K'160060'
%RECORDFORMAT CLOCKF(%INTEGER STATUS, DATA)
%CONSTRECORD (CLOCKF) %NAME CLOCK = K'112540'; ! IN SEG 4
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A, B, C)
%RECORD (PF) P
==> pclocks.txt <==
! PROGRAMMABLE CLOCK PROGRAM
! DATE: 5.MAR.81
%CONTROL K'100001'
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%PERMINTEGERMAPSPEC INTEGER
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER
%PERMINTEGERFNSPEC ADDR
%PERMINTEGERFNSPEC ACC
%BEGIN
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMROUTINESPEC LINKIN(%INTEGER NO)
%CONSTBYTEINTEGERNAME INT = K'160060'
%RECORDFORMAT CLOCKF(%INTEGER STATUS, DATA)
%CONSTRECORD (CLOCKF) %NAME CLOCK = K'112540'; ! IN SEG 4
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A, B, C)
%RECORD (PF) P
==> pcme_source.txt <==
!**********************************************************
!* *
!* RCO ITP to GEC Network Management Module *
!* *
!* PCME *
!* *
!* Version 9.3 11 Apr 1983 *
!* *
!**********************************************************
!*
%control 1 ;!No record checking.
!*
%begin
!*
!**************************
!* *
!* Declarations *
!* *
!**************************
==> prob2988.txt <==
Problem in the Interface between the 2988 and the FEPs
EMAS sends messages to the FEPs in the form:-
<write control> <stream id> <max transfer length> <limit>
followed by:-
<write> <max bytes of data> <limit>
where <write control> <write> and <limit> are all 'control' characters,
ie the ninth bit is set to distinguish them from data.
The case of <stream id> = -2 is special in that bytes of data are
sent from the 2988 in multiples of 24 bytes up to a maximum of 192 bytes.
In the case that causes the current problems either the 4 byte header
packet (<stream id> <transfer size>) is not followed by a <limit> or
the <stream id> = -2 data bytes are not terminated by a <limit>, the FEP
will then read up to 200 bytes of data before detecting an error.
In all other cases a missing <limit> will not be noticed by the FEP as
the FEP itself decides how many data bytes to accept.
Brian Gilmore
==> prt11s.txt <==
! FILE 'NODE_PRT11NS'
!*********************
!* PRT1S/PRT1Y *
!* DATE: 03.MAR.81 *
!*VERSION FOR NODE *
!*HISTORY UNCERTAIN *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTINTEGER KERNEL SER = 29
%OWNINTEGER SECONDARY = 0; !PRIM = 0, SEC = 1
%OWNINTEGER SECAD = 9; !SECONDARY ADDRESS
%CONSTINTEGER WMAX = 56; ! MAX NO OF WRITES
%CONSTINTEGER SFMASK = 63; ! CIRC BUFFER SIZE FOR WRITES
%CONSTSTRING (7) VSN = 'VSN011B'
==> prt9ns.txt <==
! FILE 'NODE_PRT11NS'
!*********************
!* PRT1S/PRT9Y *
!* DATE: 14.JAN.81 *
!*VERSION FOR NODE *
!*HISTORY UNCERTAIN *
!!!!!!!!!!!!!!!!!!!!!!
!STACK = 140
%CONTROL X'100001'; ! TRUSTED PROGRAM AND QUICK
! ROUTINE ENTRY AND EIS
%CONSTINTEGER KERNEL SER = 29
%OWNINTEGER SECONDARY = 0; !PRIM = 0, SEC = 1
%OWNINTEGER SECAD = 9; !SECONDARY ADDRESS
%CONSTINTEGER WMAX = 56; ! MAX NO OF WRITES
%CONSTINTEGER SFMASK = 63; ! CIRC BUFFER SIZE FOR WRITES
%CONSTSTRING (7) VSN = 'VSN009L'
==> pssbuild_dvdup.txt <==
;! FILE 'DVDUP'
;.TIME40
;**************************************
;* DVDUP *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 27.MAR.81 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
==> pssbuild_suppss.txt <==
DEIMOS VSN 10.1 31 AUG 82 SERVICE PSS GATEWAY 3 * DUP11, 1 * RING, 1 * RL02
RL01
3500
DVDUPY N 0
SUP50 60002 0
PERM2Y 60006 0
BTT7Y 60012 0
RL06Y 60016 0
FSYS78 60022 0
LOAD8Y 60026 0
CLI2Y 60032 0
MOTH6Y 60036 0
END
-7 330 RING RECEIVE 764040
-6 334
-31 300 DUP11 #1 RX, ADDR = 760050
-32 304 TX
-33 310 #2 RX, ADDR = 760060
-34 314 TX
-35 320 #3 RX, ADDR = 760070
-36 324 TX
==> rand.txt <==
%externallongrealfnspec cputime
%integerfn randomize(%integer range)
%longreal res,last
res = cputime
last = fracpt(res*100000)
last = fracpt(last*100000)
%result = intpt(last * range + 1)
%end
%externalintegerfn rand int
%result = randomize(20)
%end
%endoffile
==> ratgames.txt <==
%externalroutine rat(%string (255) s)
%externallongrealfnspec cputime
%externalrealfnspec random(%integername i, %integer n)
%externalstring (255) %fnspec time
%externalroutinespec terminate
%routinespec clear screen
%routinespec pepos(%integer x, y)
%%integer %fn %spec test door
%externalroutinespec prompt(%string (17) s)
%ownbyteintegerarray door(10:66) =
0, 2, 3, 4, 1, 1, 1, 0, 0, 0,
0, 2, 3, 4, 5, 1, 1, 0, 0, 0,
0, 6, 3, 7, 1, 1, 1, 0, 0, 0,
0, 6, 3, 8, 1, 1, 1, 0, 0, 0,
0, 6, 3, 1, 1, 1, 1, 0, 0, 0,
0, 7, 3, 1, 1, 1, 1
! 0 - error, 1 - door is open
! 2 - electrified,
==> rats.txt <==
{e} %externalroutine rats(%string (255) s)
!d! %begin
%externallongrealfnspec cputime
%externalrealfnspec random(%integername i, %integer n)
%externalstring (255) %fnspec time
%externalroutinespec terminate
%routinespec engage random(%integer n)
%routinespec pepos(%integer x, y)
%%integer %fn %spec test door
%externalroutinespec prompt(%string (17) s)
%ownbyteintegerarray door(10:66) =
0, 2, 3, 4, 1, 1, 1, 0, 0, 0,
0, 2, 3, 4, 5, 1, 1, 0, 0, 0,
0, 6, 3, 7, 1, 1, 1, 0, 0, 0,
0, 6, 3, 8, 1, 1, 1, 0, 0, 0,
0, 6, 3, 1, 1, 1, 1, 0, 0, 0,
0, 7, 3, 1, 1, 1, 1
! 0 - error, 1 - door is open
==> readme.txt <==
Using the PAD
% PAD <address>
then ctrl+p A to wake it up again
PAD> s <filname> to start logging
PAD> dfwt 126 to set forwarding condition
PAD> p back to <address>
PAD> CLR to get out & stop logging
hhcp <filename> emas:<emas-filename> to send to eams
autgorisation:ERCM09
PASS: etc
==> readtest.txt <==
%CONTROL K'100001'
%BEGIN
%INTEGER I,J,K,X,Y,Z
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A, %C
%BYTEINTEGERARRAYNAME B, %INTEGER C)
%RECORD (PF) P
%OWNBYTEINTEGERARRAY ARR(0:512)
%CONSTBYTEINTEGERNAME ID = K'160030'
%CONSTBYTEINTEGERNAME INT = K'160060'
PROMPT("GO?"); READ(X)
%CYCLE I = 1, 1, 30000
P_SER=3; P_REPLY = ID
P_A = 0; P_B == ARR; P_C=1000+I*X
%WHILE P_C>4900 %THEN P_C = P_C-4800
PON(P); P_SER=0
POFF(P)
%EXIT %IF INT#0
%REPEAT
PRINTSTRING("COUNT ="); WRITE(I, 1); NEWLINE
%ENDOFPROGRAM
==> recode2s.txt <==
%EXTERNALROUTINESPEC DEFINE(%STRING (63)S)
%SYSTEMROUTINESPEC OPENIN(%INTEGER CHANNEL, %STRING (8)S)
%SYSTEMROUTINESPEC SELIN(%INTEGER CHANNEL)
%SYSTEMROUTINESPEC READ BYTE(%INTEGERNAME N)
%SYSTEMROUTINESPEC TERMIN(%INTEGER CHANNEL)
!!
%DYNAMICINTEGERFNSPEC TIME40(%INTEGER IN)
%DYNAMICINTEGERFNSPEC TIME03(%INTEGER IN)
%EXTERNALINTEGERFNSPEC TIME45(%INTEGER IN)
!!
%EXTERNALROUTINE RECODE(%STRING (63)S)
%INTEGER LNUM, CURRENT LINE, ADDR, CA, SI, TIMER, T, TOTT
%STRING (45)SOURCE, OBJECT, OUTPUT, TYPES
%STRING (100) INLINE
!!
!!
%INTEGERFN ITEM
==> reportdec.txt <==
Communications Group - Termly Report
==================== =============
Personnel
N. Millar has converted his half time for Computer Science to one day a
week for this term and next.
Events of the last term
=======================
The large increase in network users this term has overloaded both Node 6 and
Node 9. The overloading has two main causes, 1) The number of synchronous
lines supported by Node 6 has doubled in the past year with an increased
number of interactive terminals available. 2) Much of the increased traffic
was forced onto the Cambridge Ring through a gateway and a cpu dependant
ring interface. During the term the network was restructured by a) bringing
a third FEP into service and b) moving the Ring FEP directly onto a Node.
This exercise caused a fair amount of disruption to the users, but
==> reportfeb84.txt <==
Communications Group - Termly Report
------------------------------------
Personnel
---------
Since Bill Byers and Peter Kirkby joined us in December the communications
group is now complete again.
Service Software Support
------------------------
TCPs
----
The software is stable and only a small amount of effort is being
put into its support.
FEPs
==> reportmar.txt <==
Communications Group - Termly Report
====================================
Personel
N. S. Millar is joining the Training Unit on the 1st April, his move is being
phased over a period while the UMC Z80 committment lasts. A replacement will
be made as soon as possible.
Projects
Cambridge Ring DMA Interface
The filestore development machine was connected up to the service ring
by a DMA Interface in early March. This has shown up a number of faults,
mainly hardware, some of which are still being investigated. It is now
extremely unlikely that the DMA interfaces will be in service by the beginning
of the summer term.
Nodes
==> reportmay84.txt <==
@heading(Termly Report)
@heading(May 1984)
@heading(Communications Group)
@Section(Ednet)
@subsection(CPSEs)
All three CPSEs have been in service use. The reliability has been
reasonable although we have been pressing GEC over software problems
on the KB 4190. We have now received and installed the software to
run all 39 links on the KB 4190.
@subsection(TCPs)
There have been a few hardware funnies with TCPs this term but no
software problems.
@subsection(FEPs)
==> reportsep.txt <==
Communications Group - Termly Report
====================================
Personnel
W. D. Hay has now left for his year with SDL, S. Currie is committed for
half of his time from 1st October consulting for the Lothian Health Board.
N. Millar is working half time for the Computer Science Dept until the
New Year.
Events of the last term
The UMC-Z80 boards in Node 6 are now working in a satisfactory manner and
Node 6 has almost its full complement of lines. Its reliability has increased
dramatically over the past term. Call logging has been added to both Node 6
and Node 9 to enable traffic rates and patterns to be established.
The software for the DMA interface for the Cambridge Ring has been held
up by significant hardware problems on both the board itself and the
test equipment.
==> reqs.txt <==
@heading[X.25 Packet switch survey]
The requirements for PSEs for the Academic Community are the original JNT
requirements plus the following extensions:-
@enumerate[
A Higher Connectivity PSE (> 100 connections)
A Higher throughput PSE (> 1000 packets/sec)
A small connectivity PSE (about 10 links)
The ability to fully manage a multi-nodal network
Requirement to support X.25 (1984), and investigation of the possibility
of producing conversion aids such as a Yellow Book to X.25(1984) Gateway.
]
==> response2_fe0jan12.txt <==
Node = 80, Term = 80 - 12 Jan 82 1600-1700 ring->n9->fe0
0
0
0
0
42
85
70
53
40
36
36
18
25
11
19
13
12
12
9
10
==> response2_fe1jan12.txt <==
Node = 6, Term = 181 - 12 Jan 82 1600-1700 ring->n9->n6->fe1
0
0
0
0
0
101
202
125
55
18
14
13
5
1
1
3
1
1
3
1
==> response2_info12jan.txt <==
Node = 156, Term = 156 - INFO 12 Jan 82 - 14.30-15.30 (approx)
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
==> response_fe0jan12.txt <==
Node = 80, Term = 80 - 12 Jan 82 1600-1700 ring->n9->fe0
0
0
0
0
42
85
70
53
40
36
36
18
25
11
19
13
12
12
9
10
==> response_fe0jan13.txt <==
Node = 80, Term = 80 - 13 Jan 82 1418-1523 ring->n9->fe0 (new 2980 soft.)
0
0
0
0
172
257
192
112
83
57
47
27
14
17
9
7
2
1
1
0
==> response_fe121jan.txt <==
Node = 80, Term = 80 - 21 Jan 82 fe1
0
0
0
0
21
85
104
92
75
64
43
42
23
10
21
10
9
10
2
1
==> response_fe1jan11.txt <==
Node = 6, Term = 181 - 11 Jan 82 1435-1520 - 11 Jan 82 14.30 - 15.30 (approx)
0
0
0
0
0
63
181
130
76
39
13
10
6
7
3
3
0
1
1
1
==> response_fe1jan12.txt <==
Node = 6, Term = 181 - 12 Jan 82 1600-1700 ring->n9->n6->fe1
0
0
0
0
0
101
202
125
55
18
14
13
5
1
1
3
1
1
3
1
==> response_fe1jan13.txt <==
Node = 6, Term = 181 - 13 Jan 82 1418-1523 ring->n9->n6->fe1 (new 2980 soft.)
0
0
0
0
0
38
120
97
89
84
64
45
23
25
24
26
17
13
13
6
==> response_fe1jan25.txt <==
Node = 80, Term = 80 - 25 Jan 82 10.23 - 13.00
0
0
0
0
119
426
303
175
174
166
113
68
58
44
31
20
16
10
9
2
==> response_info12jan.txt <==
Node = 156, Term = 156 - INFO 12 Jan 82 - 14.30-15.30 (approx)
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
==> response_infodec22.txt <==
Node = 156, Term = 156
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
==> response_kentdec22.txt <==
P
Node = 0, Term = 5
0
0
0
0
6
87
81
20
10
5
3
0
0
1
1
0
0
0
0
==> response_mfe1jan22.txt <==
Node = 80, Term = 80 - 22 Jan 82 09.50 - 11.50 (ring->n6->fe1)
0
0
0
0
5
37
91
112
106
102
112
66
84
71
60
47
45
34
31
31
==> response_n0t9dec22.txt <==
Node = 0, Term = 9 - time: 9.45 - 10.27 22.dec.81
0
0
1935
3279
1158
556
218
126
64
28
12
6
4
1
2
0
0
2
0
0
==> response_n6t181jan11.txt <==
Node = 6, Term = 181 - 11 Jan 82 - route n9->n6->fe1 11.45 - 12.00
0
0
0
0
0
93
104
33
13
11
3
0
2
1
0
0
0
0
0
0
==> response_n7t9dec22a.txt <==
> response_n7t9dec22b.txt <==
Node = 7, Term = 9
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
==> response_n80t80dec21.txt <==
Node = 80, Term = 80 - Time: 12.00 - 17.00 21.dec.81
0
0
0
0
75
756
1572
1243
949
811
614
480
412
293
182
159
117
83
44
55
==> response_n80t80jan6.txt <==
Node = 80, Term = 80 - 6 Jan 82 14.30 - 16.05
0
0
0
0
114
139
100
90
88
69
62
53
34
27
7
4
6
1
2
0
==> response_n9t180jan11.txt <==
Node = 80, Term = 80 - 11 Jan 82 - route n9->fe0 11.45 - 12.00
0
0
0
0
3
7
10
7
14
12
13
18
22
16
23
17
17
16
18
9
==> response_n9t75dec22.txt <==
Node = 9, Term = 75 - time: 10.28 - 11.43 22.dec.81
0
0
401
6620
5339
1984
685
265
127
78
33
26
13
11
10
7
3
3
5
2
==> response_pssloopjan7.txt <==
Node = 0, Term = 5 - 07 Jan 82 11.00-12.00 ->psse->loop->2972
0
0
0
0
0
18
578
262
181
98
60
37
28
16
16
5
8
3
2
0
==> ring6s.txt <==
! FILE 'RING6S'
!********************************
!* EMAS-2900 RING INTERFACE *
!* HANDLER *
!* FILE: RING6S *
!* DATE:15.JAN.81 *
!*********************************
!! STK = 300, STRM = 1
!NB LOCATION K'140016 IS USED TO HOLD THE CHECKSUM SO THAT IT MAY
!BE ACCESSED FROM CODE
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NIL = 0
==> ringans.txt <==
%EXTERNALROUTINE RINGANS(%STRING (255) S)
%EXTERNALROUTINESPEC DEFINE(%STRING (255) S)
%INTEGER I,J,K,PEAK,PN,NZ,N,X,MAX,SUM,TIME,PEAKI,PNI
%OWNINTEGER TYPE = 0
%REAL Q
%STRING (255) T
%INTEGERARRAY NUM(0:13, 1:1000)
%OWNINTEGERARRAY A(0:13) = 0(14)
!!
%ON %EVENT 9 %START
-> FINISH
%FINISH
!!
%ROUTINE SKIP TO END OF LINE
%INTEGER I
%CYCLE
I = 0
READSYMBOL(I)
==> ring_basblktes.txt <==
! program to transmit basic blocks at full speed round the ring
! b.g. 03.sep.81
%control 1
%include "deimosperm"
%begin
%recordformat mef(%record(mef) %name link, %byteinteger len, type, %c
%integer address, %integerarray a(0:100))
%recordformat pf(%byteinteger ser, reply, %integer a, (%integer b, c %or %c
%record (mef) %name mes, %byteinteger len, s1))
%record (pf) p
%integer i,j,k
%constinteger ring ser = 13, buffer man = 17
==> ringboot.txt <==
AAAABAABAAAAAACAAAAACAAAAAAAAAADAAAAAAAACMNCLHBIAAAAAAAAAAAAAAAADLCAEDEPENENEFEO
FECAEDEPENENEFEOFECAEDEPENENEFEOFECAEDEPENENEFEOFEAKDLAKDLCAEHEFEPFCEHEFCACNCAFD
EPFCFCFJCAEBECEPFFFECAEDEPEDELFFFACAEMEBFDFECAFHEFEFELCOCAEGEJEOEHEFFCCAFEFCEPFF
ECEMEFCAFHEIEFEOCAFAFFEOEDEIEJEOEHAKDLCAFJEPFFFCCAFAFEEBFAEFCOCAFEEIEJFDCAEJFDCA
EEEFEGEJEOEJFEEFEMFJCAFEEIEFCAEDFFFCFCEFEOFECAFHEPFCELEJEOEHCAFGEFFCFDEJEPEOCOAK
DLCAFEEIEJFDCAEGEJEMEFCAEEEJFDFAEBFEEDEIEFEECAEJEOFEEPCAFEEIEFCAEOEFFEFHEPFCELCA
EBFECADBDBDKDDDAEBENCADJCPDDCPDIDBCOAKDLCAEJEOEGEPCAEPEOCAEBFDFDEFENECEMEFFCCPEM
EJEOELEFFCCAEJEOFEEFFCEGEBEDEFCAFDFEEJEMEMCAEBFHEBEJFEEFEECACIFDEFEFCAEMEBFDFECA
EMEFFEFEEFFCCJCOAKDLCACACACACACACNCAEBEMEBEOAKDLAKDLCAEDEPENENEFEOFECAEDEPENENEF
EOFECAEDEPENENEFEOFECAEDEPENENEFEOFEAKDLAKAJCOFEEJFEEMEFCAFCEJEOEHCAEBECFDEPEMFF
FEEFCAEMEPEBEEEFFCAKDLENEPEEEJEGEJEFEECAEGFCEPENCAEBEOEEFJCAECEFEMEMFDCAFCFECNDB
DBCAEMEPEBEEEFFCCOCAEBEMEJCADDDACPDICPDHDHCOAKDLFEEIEJFDCAFAFCEPEHFCEBENCAFAFFEO
EDEIEFFDCAEBEOCAEBECFDEPEMFFFEEFCAEMEPEBEEEFFCCAFAEBFAEFFCCAFEEBFAEFAKDLEJEOCAEE
EFEDCAECEPEPFEFDFEFCEBFACAEMEPEBEEEFFCCAEGEPFCENEBFEAKAKAJCOFDECFEFEEMAJFAFFEOED
EICAEBECFDEPEMFFFEEFCAEMEPEBEEEFFCCAFEEBFAEFAKDLAKDLAKDLFDEFFECAFAFEFCCAFEEPCAFA
FADKCAFDFEEBFEFFFDCAEGEPFCCAEPECFJFEEFAKDLAKECEFEHEJEODKAJENEPFGAJCDDBDHDHDFDFDE
CMFCDFAKDLAKDLCAFAFFEOEDEICADBDADACAECEMEBEOELCAEMEFEBEEEFFCCAEGFCEBENEFFDAKDLAK
AJEDEMFCAJFCDAAKAJENEPFGAJCDDBDADACMFCDBAKDDCEDKAJEKFDFCAJFAEDCMEPECFJFEEFAJDLFA
FFEOEDEICAEBCAECFJFEEFAKAJEEEFEDAJFCDBAKAJECEOEFAJDDCEAKDLAKDLCAFAFFEOEDEICADDDA
DACAFDFAEFEDEJEBEMCAEMEFEBEEEFFCCAEGFCEBENEFFDAKDLAKAJENEPFGECAJECCOEMEPEPFACLDC
CMFCDAAKAJEEEFEDECAJFCDAAJAJDLEHEFFEFDCAEJEOEDFCEFENEFEOFEEFEECAECEFEGEPFCEFCAFF
==> ring_bsp78s.txt <==
! file 'ring_bsp78S'
! nb: should be prepped !
!********************************
!* emas-2900 bsp interface *
!* handler *
!* file: bsp78S *
!* date:27.apr.82 *
!* modified for ercc use *
!*********************************
!! stk = 300, strm = 1
! prep options:- o - old compiler
! n - new compiler
! g - Xgate Vsn, open reply A to sendmessage
%constrecord (*) %name nil == 0
==> ring_itpe9s.txt <==
! file 'fep_itpe9s'
!********************************
!* emas-2900 fep itp server *
!* file: itpe9s/itpey *
!* date: 25.mar.82 *
!********************************
!! stack size = 1000
%include "deimosperm"
%control 1
%begin
%conststring (13)vsn = "itps:vsnea9j
"
%recordformat am1f(%integer rxs, rxd, txs, txd)
%ownrecord (am1f) %name l == 1; ! addr passed by eam1
!! no of data bytes in a short block
==> ring_lmacrs.txt <==
!**********************
!* LMACRS/LMACRY *
!* DATE: 28.NOV.80 *
!* RING VERSION *
!*********************
%CONSTSTRING (7) VSN = "VSN001B"
!! STACK = 300, STREAMS = 1
%CONTROL K'100001'
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%CONSTRECORD (XF) %NAME NULL = 0
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%BEGIN
%RECORDFORMAT BSPF(%INTEGER ST, DS, RC, TC, %C
%BYTEINTEGERARRAY A(0:240))
%RECORDFORMAT MEF(%RECORD(MEF)%NAME LINK,%BYTEINTEGER LEN,TYPE, %C
==> ring_lmcors.txt <==
!**********************
!* LMCORS/LMCORY *
!* DATE: 27.NOV.80 *
!* RING VERSION *
!*********************
%CONSTSTRING (7) VSN = "VSN001B"
!! STACK = 300, STREAMS = 1
%CONTROL K'100001'
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%CONSTRECORD (XF) %NAME NULL = 0
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%BEGIN
%RECORDFORMAT BSPF(%INTEGER ST, DS, RC, TC, %C
%BYTEINTEGERARRAY A(0:239))
%RECORDFORMAT MEF(%RECORD(MEF)%NAME LINK,%BYTEINTEGER LEN,TYPE, %C
%RECORD(BSPF) BSP)
==> ring_lmeors.txt <==
! file 'lmeors'
!**********************
!* lmeors/lmeory *
!* date: 16.dec.81 *
!*********************
%conststring (13) vsn = "lmeo:vsn001b
"
!! stack = 300, streams = 1
%control 1
%recordformat xf(%byteinteger unit,fsys,%byteintegerarray fname(0:5))
%include "deimosperm"
%begin
%owninteger mon = 1
%%recordformat itpf(%byteinteger cnsl,hb1,hb2,len, %c
%byteintegerarray data(0:127))
%recordformat itp2f(%byteinteger cnsl, hb1, hb2, %string(127) s)
==> ring_nsiw77s.txt <==
!**********************
!* nsiw77s/nsiw77y *
!* date: 27.jan.82 *
!*********************
%conststring (13) vsn = "nsiw:vsne01f
"
!! stack = 400, streams = 3
!! note: for versions that are run out of a 2900 fep system,
!! messages from the network should be enabled - see
!! the comment at 'messages enabled'
%control 1
%include "deimosperm"
%constinteger nsiw ser = 6; ! private service no
%recordformat xf(%byteinteger unit,fsys,%byteintegerarray fname(0:5))
%begin
==> ringold_bsp6s.txt <==
! FILE 'BSP78s'
!********************************
!* EMAS-2900 BSP INTERFACE *
!* HANDLER *
!* FILE: BSP78s *
!* DATE:02.sep.81 *
!* MODIFIED FOR ERCC USE *
!*********************************
!! STK = 300, STRM = 1
%CONSTRECORD (*) %NAME NIL == 0
%CONTROL 1
%include "deimosperm"
==> ringold_itpe8s.txt <==
! FILE 'FEPD_ITPE8S'
!********************************
!* EMAS-2900 FEP ITP SERVER *
!* FILE: ITPE8S/ITPEY *
!* DATE: 13.MAY.81 16.10 *
!********************************
!! STACK SIZE = 500
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%PERMROUTINESPEC SVC(%INTEGER EP, R0, R1)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
%CONTROL K'100001'
%BEGIN
%CONSTSTRING (7)VSN = 'VSNEA8F'
==> ringold_nsiwes.txt <==
!**********************
!* NSIES/NSIWY *
!* DATE: 17.JUN.81 *
!*********************
%CONSTSTRING (7) VSN = "VSNE01E"
!! STACK = 400, STREAMS = 3
!! NOTE: FOR VERSIONS THAT ARE RUN OUT OF A 2900 FEP SYSTEM,
!! MESSAGES FROM THE NETWORK SHOULD BE ENABLED - SEE
!! THE COMMENT AT 'MESSAGES ENABLED'
%CONTROL 1
%include "DEIMOSPERM"
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%BEGIN
%PREDICATESPEC READ FNAME(%RECORD(XF)%NAME FILE)
%%RECORDFORMAT ITPF(%BYTEINTEGER CNSL,HB1,HB2,LEN, %C
%BYTEINTEGERARRAY DATA(0:127))
==> ringold_rjee8s.txt <==
! FILE 'FEPD_RJEE8S'
%CONSTSTRING (7) VSN = "VSNEB8Y"
!********************************
!* EMAS-2900 FEP RJE SERVER *
!* FILE: RJEE8/RJEE8Y *
!* DATE: 13.MAY.81 *
!* MODIFIED FOR RING 27.OCT.80
!********************************
!! STACK SIZE = 300
%SYSTEMROUTINESPEC MAP HWR(%INTEGER SEG)
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT DMF(%INTEGER I)
%CONSTRECORD (DMF) %NAME NULL = 0
==> ring_ring8s.txt <==
! file 'ring8s' - with monitoring back in
!********************************
!* emas-2900 ring interface *
!* handler *
!* file: ring8s *
!* date:27.jul.82 *
!*********************************
!! stk = 300, strm = 1
!nb location k'140016 is used to hold the checksum so that it may
!be accessed from code
#if o
%include "deimosperm"
#else
%include "b_deimosspecs"
#fi
%constrecord (*) %name nil == 0
==> ring_ringk7s.txt <==
! file ring_ringk7s
!********************************
!* emas-2900 ring interface *
!* handler *
!* file: ringk7s *
!* date:20.nov.81 *
!* For use with KMC11 only *
!*********************************
!! stk = 300, strm = 1
%control 1
%include "deimosperm"
%constrecord (*) %name nil == 0
%begin
%conststring (7)vsn = "vsn007e"
==> ring_ringx8s.txt <==
! file 'ringX77s' - for new style ring hardware
!********************************
!* emas-2900 ring interface *
!* handler *
!* file: ring7s *
!* date:13.mar.81 *
!*********************************
!! stk = 300, strm = 1
!nb location k'140016 is used to hold the checksum so that it may
!be accessed from code
%include "deimosperm"
%constrecord (*) %name nil == 0
%begin
==> ring_rolb77s.txt <==
! FILE 'ROLBS'
!**********************
!* ROLBES/ROLBEY *
!* DATE: 26.jan.82 *
!* RING VSN *
!*********************
%CONSTSTRING (7) VSN = "VSN001B"
!! STACK = 300, STREAMS = 1
%CONTROL K'100001'
%include "deimosperm"
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%begin
%OWNINTEGER MON = 0
%RECORDFORMAT RJEF(%BYTEINTEGERARRAY DATA(0:239))
%RECORDFORMAT NSI1F(%INTEGER ST, DS, RC, TC, UFLAG, %C
%RECORD(RJEF) RJE)
==> ring_rolles.txt <==
! file 'rolls'
!**********************
!* rolles/rolley *
!* date: 29.may.81 *
!* ring vsn *
!*********************
%conststring (7) vsn = "vsn001b"
!! stack = 300, streams = 1
%control 1
%include "deimosperm"
%recordformat xf(%byteinteger unit,fsys,%byteintegerarray fname(0:5))
%begin
%owninteger mon = 0
%recordformat rjef(%byteintegerarray data(0:239))
%recordformat nsi1f(%integer st, ds, rc, tc, uflag, %c
%record(rjef) rje)
==> ringtester_ringrs.txt <==
! COMPILE THIS MODULE WITH 15000 STACK & 0 STREAMS
! RINGRS/RXR ALI AUG 1979
! CAMBRIDGE RING RECEIVE HANDLER
! USES BSP PROTOCOL. PASSES TX TASKS TO RINGTS/TXR
! SEE RPTS/RPT FOR OPERATOR INTERFACE
!
%CONTROL K'100001'
%BEGIN
%INTEGERARRAY TXBUFFER(0:153)
!
%CONSTBYTEINTEGERNAME MY ID = K'160030', INT = K'160060'
%CONSTINTEGER ATBLIM=31, PTBLIM=127; ! TRACE BUFFER LIMITS
%CONSTINTEGER RINGSER=29,TXRSER=28,TXRDUMPSER=27,TRACESER=26; ! SERVICE NRS
%CONSTINTEGER LASTTIMERMAX=7, HLRILIM=2099
!
! SETTINGS FOR SET TIMER REQUESTS
!
%CONSTINTEGER TSTATE E ALARM = 0, RSTATE E ALARM = 1, RBALARM = 2
%CONSTINTEGER ONE SECOND = 50, TENTH SEC = 5, TOLIM=5
!
! SETTINGS FOR TSTATE & RSTATE
==> ringtester_ringts.txt <==
! RINGTS/TXR. ALI AUG 1979
! DEVICE ROUTINE FOR RING OUTPUT. SEE RPTS & RINGRS
!
%CONTROL K'100001'
%BEGIN
%CONSTBYTEINTEGERNAME MY ID = K'160030'
%CONSTINTEGER TOLIM=5,TXQLIM=7,PKTLIM=1499,PTBLIM=127,%C
TXRSER=28,TXRDUMPSER=27,TRACESER=26 ;! PON/POFF SERVICE NRS
%RECORDFORMAT TXQF(%INTEGER PKTPOS,COUNT,SEQ,TIMEOUT)
%RECORD (TXQF) %ARRAY TXQ(0:TXQLIM) ;! TX MESSAGES WAITING TXFR OUT
%RECORD (TXQF) %NAME TXQ0
%INTEGERARRAY PKTBUF(0:PKTLIM) ;! HOLD PACKETS 4 ALL TXQ ENTRIES
%INTEGERARRAY PKT TRACE BUF(0:PTBLIM) ;! HISTORY LAST PKTS OUTPUT
!
%RECORDFORMAT PF(%BYTEINTEGER S,R,%INTEGER A1,A2,A3)
%RECORD (PF) P
%RECORDFORMAT PTF(%BYTEINTEGER S,R,%INTEGERARRAYNAME B,%INTEGER C,A)
%RECORD (PTF) %NAME PT
%RECORDFORMAT PRF(%BYTEINTEGER S,R,%INTEGER ERROR,TIMEOUT,SEQ)
%RECORD (PRF) %NAME PR
!
==> ringtester_rpts.txt <==
! RING PROTOCOL TEST PROGRAM. RPTS/RPT.
! A.L. IBBETSON JULY 1979. UNIKENT.
!
! PROVIDES FACILITIES FOR CHECKING BYTE STREAM PROTOCOL
! HANDLING ON ANOTHER DEVICE ON THE CAMBRIDGE RING
!
%CONTROL K'100001'
%BEGIN
%RECORDFORMAT PF(%BYTEINTEGER SERVICE,REPLY, %INTEGER A1,A2,A3)
%RECORDFORMAT PRF(%BYTEINTEGER SERVICE,REPLY,%C
ERROR,STATUS, %INTEGER LEN,A3)
%RECORDFORMAT PTF(%BYTEINTEGER SERVICE,REPLY, %INTEGER ACTION,%C
LEN, %BYTEINTEGERARRAYNAME BUF)
!
%CONSTBYTEINTEGERNAME MYID = K'160030' ;! MY TASK NUMBER
%CONSTBYTEINTEGERNAME INT = K'160060' ;! FIXED LOC FOR INT FACILITY
%CONSTINTEGER FIVE SECS = 250, TWO SECS = 100
!
! MANIFESTS FOR COMMUNICATION WITH RING DRIVER TASK (SEE RINGRS)
!
%CONSTBYTEINTEGER RING SER = 29 ;! SERVICE NUMBER
==> rjeprops.txt <==
Proposed Changes to RCO-RJE Protocol for use on X25
======== ======= == ======= ======== === === == ===
1. In the 'Yellow book' specification of the Transport layer there is no
provision for a non-destructive disconnect. Currently RJE protocol
operates by transmitting the last packet of a file followed immediately
by Send Block+disconnect (a non-destructive disconnect).
Proposal a) A marker, ie a record length of 16_FFFF will be send on
the end of every RJE connection. When the receiver has
dealt with the file it will then clear down the connection
with a Transport Service (TS) Disconnect.
b) It will be necessary to distinguish between a
TS Disconnect that means 'file lost' (current meaning)
and a 'normal' Disconnect. The proposal is that the
qualifier on the TS Disconnect should be zero if the
file is received correctly, non-zero otherwise.
==> rl04s.txt <==
!************
!* RL04S *
!*06.FEB.80*
!************
!* UNIT 4 ADDED
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM+MUL+TRUSTED
%BEGIN
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, A2, A3)
%RECORDFORMAT P2F(%INTEGER D)
%RECORDFORMAT RLF(%INTEGER CS, BA, DA, MP)
%CONSTRECORD (RLF) %NAME RL = K'114400'
%CONSTINTEGERNAME PS = K'117776'
%CONSTINTEGER RLTOP = 10239
==> rolls.txt <==
! FILE 'ROLLS'
!**********************
!* ROLLS/ROLLY *
!* DATE: 29.MAY.81 *
!*********************
%CONSTSTRING (7) VSN = "VSN001B"
!! STACK = 300, STREAMS = 1
%CONTROL K'100001'
%RECORDFORMAT XF(%BYTEINTEGER UNIT,FSYS,%BYTEINTEGERARRAY FNAME(0:5))
%CONSTRECORD (XF) %NAME NULL = 0
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%BEGIN
%OWNINTEGER MON = 0
%RECORDFORMAT RJEF(%BYTEINTEGERARRAY DATA(0:239))
%RECORDFORMAT NSI1F(%BYTEINTEGER FN,SUFL,ST,SS,FLAG,UFLAG, %C
%RECORD(RJEF) RJE)
==> rxdump.txt <==
;
; RXO2 DEIMOS SYSTEM DUMPER
;
; DUMPS ALL OF STORE (64K WORDS) TO UNIT 1
; STARTING AT SECTOR 1 OF TRACK 0. SECTORS INTERLEAVED.
;
.ABSOLUTE
.=1000
SECMAP: .BYTE 1,3,5,7,9.,11.,13.,15.,17.,19.,21.,23.,25.
.BYTE 2,4,6,8.,10.,12.,14.,16.,18.,20.,22.,24.,26.
CONTW: .WORD 421
;
; R0 POINTS AT DEVICE
; R1 TRACK
; R2 SECTOR
; R3 STORE ADDR
; R4 ALSO USED.
;
START: MOV #177170,R0 ;DEV ADDR
CLR R1
CLR R2
==> sbldrl3s.txt <==
! FILE 'SBLD3KS'
!**********
!* SBLD13S *
!* NB: NOT SAME AS BPL SBLD1S !!!!
!* DATE: 17.MAR.80 *
!* SUPERVISOR BUILD PROGRAM *
!*************************************
%PERMROUTINESPEC SVC(%INTEGER EP, %INTEGERNAME P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%PERMINTEGERFNSPEC ACC
%CONSTINTEGERNAME DUMMY = 0
%CONSTINTEGERNAME NULLI = 0
%BEGIN
==> setmode9x.txt <==
! UINF record for Director 17
!
!
!<FEP stuff
%CONSTINTEGER TOPLOG=5
%CONSTINTEGER TOP FE NO = 7
%CONSTINTEGER FEP IO BUFF SIZE = 4096; !NUMBER OF BYTES IN THE CONTROL BUFFERS FOR EACH FEP
%RECORDFORMAT %C
FEPF(%INTEGER AVAILABLE, INPUT STREAM, %C
OUTPUT STREAM, IN BUFF DISC ADDR, OUT BUFF DISC ADDR, %C
IN BUFF DISC BLK LIM, OUT BUFF DISC BLK LIM, %C
IN BUFF CON ADDR, OUT BUFF CON ADDR, IN BUFF OFFSET, %C
OUT BUFF OFFSET, IN BUFF LENGTH, OUT BUFF LENGTH, %C
INPUT CURSOR, OUTPUT CURSOR)
%RECORDFORMAT %C
LF(%STRING(11) NAME,%INTEGER FSYS,DISC ADDR,STATE)
%RECORDFORMAT %C
PROCDATF(%STRING(6)USER, %BYTEINTEGER INVOC, %C
%BYTEINTEGER SP1, SP2, NODENO, FSYS, %C
%INTEGER REASON,ID,PROCESS,PREV WARN,SESSEND, %C
%BYTEINTEGER GETMODE,PREEMPT,BLNK,LINK)
==> slide3.txt <==
{{box(0,0)(8,8);inlabel(.4,"Physical")}}
{{box(0,8)(8,16);inlabel(.4,"Data Link")}}
{{box(0,16)(8,24);inlabel(.4,"Network")}}
{{box(9,0)(17,8)}}
{{box(9,8)(17,16);inlabel(.4,"Lap-B")}}
{{box(9,16)(17,20);inlabel(.4,"X25(1980)")}}
{{box(9,20)(17,24);inlabel(.4,"Yellow Book")}}
{{box(18,0)(26,8)}}
{{box(18,8)(26,16);inlabel(.4,"X25(1984)-L2")}}
{{box(18,16)(26,24);inlabel(.4,"x25(1984)-L3")}}
{{label(2,25,.4,0,"Transition to ISO Network Layer")}}
==> slide4.txt <==
$a device=x2700
$d1 :cosmos12b:
$d2 :cosmos14:
$a tab=1",3",4",5",6"
$a left=5
$5
$l0
ISO Standards
Files: IS in late 1986
Jobs: IS in late 1987
Terminals: IS in 1987
Case: IS in 1987
Presentation: IS in 1986
Session: IS now
Transport: IS now
Network: IS now
==> snoops.txt <==
! programmable clock program
! prog to snoop on a task
! date: 5.mar.81
%control 1
%include "deimosperm"
%begin
%recordformat clockf(%integer status, data)
%constrecord (clockf) %name clock == k'112540'; ! in seg 4
%recordformat pf(%byteinteger ser, reply, %integer a, b, c)
%record (pf) p
%integer i,j,k,n, sum, maxi, sumn
%owninteger speed = 23210; ! every 2.321 secs
%owninteger target task = 0
%string (5) targ, s
%owninteger repf
%ownintegerarray pc(0:385)
==> sourceis.txt <==
! use .stack 5100
%externalroutine gollum(%string (255) s)
%externalroutinespec time(%stringname s)
%externalstringfnspec interrupt
%externalroutinespec prompt(%string(15) s)
!%externalstring(255) %fnspec uinfs(%integer i)
!%externalintegerfnspec dpermission(%string(11) o,u,d,f, %c
! %integer fs,t,p)
!%systemroutinespec connect(%string(31) f,%integer m,h,p,%record(*)%name r, %c
! %integername flag)
!%externalroutinespec disconnect(%string(255) s)
!%externalintegerfnspec exist(%string(31) f)
!%externalroutinespec list(%string(255) s)
!%externalroutinespec run(%string(255) s)
!%externalstring(255) %fnspec interrupt
!%externalstring(255) %fnspec ucstring(%string(255) s)
%externallongrealfnspec cputime
!%externalroutinespec call(%string(31)command,%string(255)param)
!%systemroutinespec load(%string (31) name, %integer type, %integername flag)
!%externalintegerfnspec uinfi(%integer i)
!
==> spider2.txt <==
@make[report]
@majorheading[ERCC Porting]
ERCC to port the code onto the Spiderport,
work to take 9 man weeks,
with the following activities:-
@itemise[
Understanding of Spider I/Fs in Tasking Monitor, Ethernet driver and
upper level interfaces.
Complete specification of I/Fs at Ethernet/Upper level with Spider
Port of code, H/W and compiler specific changes, I/F change in main code
Glue code to match Spiders I/F to the current ERCC code.
Test new code using a Spider box and a test harness supplied by Spider.
Test the complete Spider box, ie ERCC code and new Spider Code.
Test against our other versions, ie GEC,Whitchapel and IBM
]
==> spider.txt <==
@make[report]
@majorheading[Spider]
The current agreement with Spider is as follows:-
@section[ Supply of X.25 (1984) and LLC2 code]
license fees as follows:-
@itemise[
1-50 100 pounds per license
51-250 50 pounds
251-500 25 pounds
500- 10 pounds
]
@section[Use of license]
@itemise[
Exclusive for Ethernet Pads (time limit?)
One year exclusive for WAN Pads
One year exclusive for discrete Gateways ethernet/WAN
==> ss2.txt <==
-5000 -900 -500 -350 -300 -100 0 100 300 350 500 900 5000
2 1 0
0 0 -6 -4 0 0 0 -4
-1 -1 -5 -3 0 0 0 0
0 0 0 -3 -1 0 0 0
0 0 0 0 0 -1 0 0
0 0 3 5 -2 0 0 -1
0 0 0 0 1 0 0 1
1 1 1 2 0 1 0 0
0 4 3 0 0 4 6 0
0
1 1 1 1 1 1 1 1
==> stars.txt <==
%EXTERNALINTEGERFNSPEC RANDOM(%INTEGERNAME I, %INTEGER J)
%OWNINTEGER FOR RANDOM=0
%REALFN RANDOMREAL
!! RETURNS A RESULT .01<=X<=1
%INTEGER P, X, Y
%CYCLE
X = RANDOM(FOR RANDOM, 1)
X = X//10
Y = X//100
P = (X -100*Y)
P=100 %IF P = 0
%RESULT = P/100
%REPEAT
%END
%EXTERNALROUTINE STARS(%STRING (255) JUNK)
%EXTERNALROUTINESPEC PROMPT(%STRING (15) S)
! %EXTERNALREALFNSPEC RANDOMREAL
%EXTERNALLONGREALFNSPEC CPUTIME
==> start.txt <==
xmode trans
==> stat7s.txt <==
%REALSLONG
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! 2900 FEP STATISTICS PACKAGE
!
!
!
! GRAPH1 - USERS V KILO BYTES/SECOND AND CPU
!
! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD
!
! GRAPH3 - 2970 USERS V BLOCKS RXD & TXD
!
! GRAPH4 - FREQUENCY V PKTS/MIN/USER
!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
==> stat8s.txt <==
%REALSLONG
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! 2900 FEP STATISTICS PACKAGE
!
!
!
! GRAPH1 - USERS V KILO BYTES/SECOND AND CPU
!
! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD
!
! GRAPH3 - 2970 USERS V BLOCKS RXD & TXD
!
! GRAPH4 - FREQUENCY V PKTS/MIN/USER
!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
==> stat9s.txt <==
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! 2900 FEP STATISTICS PACKAGE
!
!
!
! GRAPH1 - USERS V KILO BYTES/SECOND AND CPU
!
! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD
!
! GRAPH3 - 2970 USERS V BLOCKS RXD & TXD
!
! GRAPH4 - FREQUENCY V PKTS/MIN/USER
!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
%EXTERNALROUTINESPEC OPENPLOTTER(%INTEGER N)
==> statnode7s.txt <==
%REALSLONG
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! NODE STATISTICS PACKAGE
!
!
!
! GRAPH1 - CONNECTS V BLKS AND CPU
!
! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD
!
! GRAPH3 - 2970 USERS V BLOCKS RXD & TXD
!
! GRAPH4 - FREQUENCY V CON/MIN/USER
!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
==> statnode8s.txt <==
%REALSLONG
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! NODE STATISTICS PACKAGE
!
!
!
! GRAPH1 - CONNECTS V BLKS AND CPU
!
! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD
!
! GRAPH3 - 2970 USERS V BLOCKS RXD & TXD
!
! GRAPH4 - FREQUENCY V CON/MIN/USER
!
!
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
==> statskbpad.txt <==
Dump GEC logfile Version 1.2
Log:ACCNTS.GKB840829
To:L3
No. Time
82610 23:42:20 Link LAU0B Frms (RX/TX): 38120 37933, Calls: 152 5, Bytes: 286317 2146692 da 1-3 6557 65 0
Max Bf: 3375 Cur Bf: 2848 Vcs 76 Min Bf: 2845 Req Dl: 0
24:00:00 Date: 27/ 8/ 1984 0000
24:00:00 Date: 0/ 1/ 1972 0137 1667 00:30:44 Link LAU0B Frms (RX/TX): 0 0, Calls: 0 0, Bytes: 54 54 da 1-3 0 0 0
Max Bf: 3375 Cur Bf: 2847 Vcs 74 Min Bf: 2841 Req Dl: 0
3510 01:03:52 Link LAU0B Frms (RX/TX): 0 0, Calls: 0 0, Bytes: 110 110 da 1-3 0 0 0
Max Bf: 3375 Cur Bf: 2844 Vcs 85 Min Bf: 2837 Req Dl: 0
==> statsreh.txt <==
Dump GEC logfile Version 1.2
Log:ACCNTS.GKB840829
To:L3
No. Time
82745 23:44:17 Link LAU26 Frms (RX/TX): 2642 2552, Calls: 71 3, Bytes: 25501 99503 da 1-3 545 11 0
Max Bf: 3375 Cur Bf: 2848 Vcs 76 Min Bf: 2845 Req Dl: 0
24:00:00 Date: 27/ 8/ 1984 0000
24:00:00 Date: 0/ 1/ 1972 0137 1797 00:32:41 Link LAU26 Frms (RX/TX): 0 0, Calls: 0 0, Bytes: 56 56 da 1-3 0 0 0
Max Bf: 3375 Cur Bf: 2847 Vcs 74 Min Bf: 2841 Req Dl: 0
3644 01:05:49 Link LAU26 Frms (RX/TX): 0 0, Calls: 0 0, Bytes: 112 112 da 1-3 0 0 0
Max Bf: 3375 Cur Bf: 2844 Vcs 85 Min Bf: 2837 Req Dl: 0
==> statszoo.txt <==
Dump GEC logfile Version 1.2
Log:GC30AUG84
To:L3
No. Time
102 14:51:09 Link LAU09 Frms (RX/TX): 215 214, Calls: 2 0, Bytes: 1933 15176 da 1-3 29 0 0
Max Bf: 500 Cur Bf: 370 Vcs 2 Min Bf: 367 Req Dl: 0
93 14:59:43 CON LAU09 3 000017000012 -> 15000001 62 04 00 00
108 15:00:02 END LAU09 3 Segs,Ints,resets (RX/TX): 17 3 0 0 0 0, Retran: 0 00/00
109 15:00:19 CON LAU09 4 000017000012 -> 15000001 62 04 00 00
110 15:00:42 END LAU09 4 Segs,Ints,resets (RX/TX): 8 3 0 0 0 0, Retran: 0 00/00
111 15:01:31 CON LAU09 5 000017000012 -> 15000001 62 04 00 00
113 15:05:37 CHK LAU09 5 Segs,Ints,resets (RX/TX): 65 21 0 0 0 0, Retran: 0
116 15:20:36 CHK LAU09 5 Segs,Ints,resets (RX/TX): 292 108 0 0 0 0, Retran: 0
125 15:22:02 Link LAU09 Frms (RX/TX): 615 614, Calls: 5 0, Bytes: 5263 25719 da 1-3 141 1 0
==> supb1145.txt <==
DEIMOS VSN 9.9 16.JUNE.80 (CLI&LOAD)
3500
DVRUBY N 0
SUP35 60002 0
PERM2Y 60006 0
BTT6Y 60012 150
BDK5Y 60016 70
FSYS1Y 60022 300
LOAD7Y 60026 300
CLI1Y 60032 200
MOTH6Y 60036 50
END
-6 304
-7 310 DQS11 # 1
-20 324 DQS11 #2
-21 330
-22 404 DQS11 #3
-23 410
-24 424 DQS11 #4
-25 430
-26 454 PARR INT #1
==> supnew.txt <==
!***********
!* sup010 *
!*05.mar.82*
!***********
%control x'4001'
%externalroutinespec push(%record(*)%name q,%record(*)%name m)
%externalrecord(*)%mapspec pop(%record(*)%name q)
%constrecord (*) %name null == 0
%recordformat dummy(%integer x)
%begin
%constinteger task low limit=30
%constinteger task limit=75
%constinteger free cells=80
%constinteger no of services=task limit
%constinteger frag no=15
%constinteger psect length=48
%constinteger svc limit=23
==> switchtox25.txt <==
Implications of the Switch to X25
=================================
a) Hardware
1. TCPs and Workstations
The following TCPs will need a store upgrade (amount in brackets)
Bush 11/10 (32kb)
Cs-at1 11/10 (16kb)
Eng1 11/10 ( 8kb)
G. Sq. 11/10 (16kb)
Pollock11/04 (32kb)
Scri-P 11/10 (32kb)
The following TCPs will need an HDLC line Interface card
Art In. 11/02 (dpv11)
==> sxmode.txt <==
%externalintegerfn x29call
!
%recordformat %c
TMODEF(%halfinteger FLAGS1, FLAGS2,
{.04} %byteinteger PROMPTCHAR, ENDCHAR,
{.06} %bytearray BREAKBIT1(0:3) {%or %halfintegerarray BREAKBIT2(0:1))} ,
{.0A} %byteinteger PADS, RPTBUF, LINELIMIT, PAGELENG,
{.0E} %byteintegerARRAY TABVEC(0:7),
{.16} %byteinteger CR, ESC, DEL, CAN,
{.1A} %byteinteger FLAGS, INTERNAL STATE, LEADIN1, LEADIN2, XLO, XHI)
{.20}
!>
!<NNF
%recordformat %c
NNF(%string(6)NAME, %byteinteger KB, TAG, MARKER, %halfinteger INDNO)
!>
!<DIROWNF
!
==> sxprot.txt <==
EDIT x25_XPROTs,T#B
TA/198/A1STM/Versi/f<X>KZ(r/Running/i<X>i/ (Slow)/p1)2
E
prep t#b,xprot#imp,Q
IMP11 XPROT#IMP/XPROT#REL,xprot#lst
LINK11
ERCM09.I77PERM
XPROT#REL
.STACK 2000
.STREAMS 0
.NAME XPR1
.END
XPR1#OBJ
destroy xpr1sy
rename xpr1#obj,xpr1sy
alist11 xprot#imp/.lp23
==> sys_bdk4s.txt <==
!**********
!* BDK4S *
!**********
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM+MUL+TRUSTED
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P1, P2)
%PERMINTEGERMAPSPEC INTEGER
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER
%PERMINTEGERFNSPEC ADDR
%PERMINTEGERFNSPEC ACC
%BEGIN
%SYSTEMINTEGERFNSPEC GETID
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, A2, A3)
%RECORDFORMAT P2F(%INTEGER D)
%RECORDFORMAT DKF(%INTEGER DST, ERR, COMM, WC, ADD, DAR)
%CONSTRECORD (DKF) %NAME DK = K'177400'
==> sys_brun10.txt <==
.TIME40
;**************************************
;* BRUN10 *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 23.NOV.79 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
SUPER=42; DITTO - FOR SUPERVISOR STATE
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
==> sys_btt7s.txt <==
! FILE 'BTT7S'
!**************
!* BTT7S *
!*DA:24.FEB.81*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM (FAST ROUTINE ENTRY/EXIT)
%PERMROUTINESPEC SVC(%INTEGER EP, P1, P2)
%BEGIN
%SYSTEMINTEGERFNSPEC MAP VIRT(%INTEGER ID, FROM SEG, TO SEG)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %C
%INTEGER A1, A2, A3)
%RECORDFORMAT TTF(%INTEGER KBS, KBD, TTS, TTD)
%RECORDFORMAT BUFF(%INTEGER PT, LAST, %BYTEINTEGERARRAYNAME B)
%RECORDFORMAT BUFFX(%INTEGER PT, LAST, ARRAYPT)
%CONSTRECORD (BUFFX) %NAME NULL = 0
==> sys_bvt1s.txt <==
!**************
!* BVT1S *
!*DA:09.APR.80*
!**************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM (FAST ROUTINE ENTRY/EXIT)
%PERMROUTINESPEC SVC(%INTEGER EP, P1, P2)
%BEGIN
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %C
%INTEGER A1, A2, A3)
%RECORDFORMAT TTF(%INTEGER KBS, KBD, TTS, TTD)
%RECORDFORMAT BUFF(%INTEGER PT, LAST, %BYTEINTEGERARRAYNAME B)
%RECORDFORMAT BUFFX(%INTEGER PT, LAST, ARRAYPT)
%CONSTRECORD (BUFFX) %NAME NULL = 0
==> sys_cli1s.txt <==
! FILE 'CLI1S'
! FILE 'CLI1S'
!**************
!* CLI1S *
!* 16.JUN.80 *
!**************
%PERMINTEGERFNSPEC SVC(%INTEGER EP, %INTEGER P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%SYSTEMINTEGERFNSPEC GETID
%CONTROL K'101011'; ! TRUSTED
%RECORDFORMAT DUMREC(%INTEGER X)
%CONSTRECORD (DUMREC) %NAME NULL = 0
%BEGIN
==> sys_dvam1s.txt <==
;**************************************
;* DVAM1S *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 28 MAY 85 *
;**************************************
; FOR SUP40 AND BEYOND - 100 INTERRUPTS - AND EXPANDED DUMP
; AUTOMATIC POWER UP ADDED
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
PXPT=56; POINTS TO RECORD P2 & PXP IN KERNAL
UPAR=177640
UPDR=177600
==> sys_dvdup.txt <==
;! FILE 'DVDUP'
;.TIME40
;**************************************
;* DVDUP *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 27.MAR.81 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
==> sys_dvno3s.txt <==
;**************************************
;* DVNO3S *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 20 SEP 84 *
;**************************************
; FOR SUP40 AND BEYOND - 100 INTERRUPTS - AND EXPANDED DUMP
; AUTOMATIC POWER UP ADDED
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
PXPT=56; POINTS TO RECORD P2 & PXP IN KERNAL
UPAR=177640
UPDR=177600
==> sys_dvrubshs.txt <==
;FILE 'SYS_DVRUB'
;**************************************
;* DVRUB *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 22.dec.82 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
PXPT = 56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> sys_dvrxrub.txt <==
.TIME40
;**************************************
;* DVRXRUB *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 03.AUG.81 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> sys_dvtu58s.txt <==
; FILE 'DVTU58'
;**************************************
;* DVTU58 *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 28.OCT.80 *
;**************************************
PS=177776; PROCESSOR STATUS WORD
IDLEST=-1; SUPERVISOR IDLE FLAG
INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER
ALARMF=44; DITTO - FOR CLOCK
PSECT=46; DITTO - CURRENT PSECT
LASTPS = 54
INTINF=56
UPAR=177640
UPDR=177600
UPAR0=40; INDEC INTO PSECT
==> sys_dxxxxx.txt <==
;**************************************
;* SYS_DXXXXX *
;* INTERFACE BETWEEN HARDWARE AND IMP*
;* DATE: 06.MAR.82 *
;**************************************
;
; * PREP OPTIONS
; R - RK05 DUMPER
; F - FILESTORE SYSTEM
; N - NODES - EXTENDED INTERRUPTS
; X - RX02 DUMPER
; B - BISYNCH PSEUDO DMA
; H - DUP11 HDLC PSEUDO DMA
; V - LSI HDLC PSEUDO DMA (NB:DPV11 HARDWARE)
;
; NOTE: In order to assemble, the CLEAN option in prep MUST be used
;
#IF N
; FOR SUP40 AND BEYOND - 100 INTERRUPTS - AND EXPANDED DUMP
; AUTOMATIC POWER UP ADDED
#FI
==> sys_fsys1s.txt <==
!******************************
!* FILE SYSTEM HANDLER *
!* FSYS1S/FSYS1Y *
!* DATE: 24.FEB.81 *
!******************************
!*W.S.C. 25TH AUGUST 1976
!*B.G. 27.MAR.78
!*THIS HANDLER IS THE FILE SYSTEM UTILITY TO REPLACE THE
!*EXISTING ONE IN DEIMOS TO PERMIT A FILE SYSTEM TO BE
!*CREATED ON THE AMPEX 9500 DISC AS WELL AS THE RK05'S.
!*IT IS A CONCEPTUAL COPY OF THE RK05 FILE SYSTEM HANDLER
!*EXCEPT THAT A BUFFER POOL IS USED FOR BLOCK DESCRIPTORS
!*AND DIRECTORY BLOCKS.
!*THE CODE IS SHARED BY 3 SYSTEM SLOTS,4 FOR THE RK05'S,
!*AND 9,15 FOR THE AMPEX DISC.THE AMPEX DISC IS LOGICALLY
!*DIVIDED INTO TWO,UNITS 2&3.
==> sys_fsys77.txt <==
!******************************
!* file system handler *
!* fsys1s/fsys1y *
!* date: 30.Jun.81 *
!******************************
!*w.s.c. 25th august 1976
!*b.g. 27.mar.78
!*this handler is the file system utility to replace the
!*existing one in deimos to permit a file system to be
!*created on the ampex 9500 disc as well as the rk05's.
!*it is a conceptual copy of the rk05 file system handler
!*except that a buffer pool is used for block descriptors
!*and directory blocks.
!*the code is shared by 3 system slots,4 for the rk05's,
!*and 9,15 for the ampex disc.the ampex disc is logically
!*divided into two,units 2&3.
==> sys_fsys78.txt <==
!******************************
!* file system handler *
!* fsys1s/fsys1y *
!* date: 30.Jun.81 *
!******************************
! STACK = 240, STREAMS = 0
!*w.s.c. 25th august 1976
!*b.g. 27.mar.78
!*this handler is the file system utility to replace the
!*existing one in deimos to permit a file system to be
!*created on the ampex 9500 disc as well as the rk05's.
!*it is a conceptual copy of the rk05 file system handler
!*except that a buffer pool is used for block descriptors
!*and directory blocks.
!*the code is shared by 3 system slots,4 for the rk05's,
!*and 9,15 for the ampex disc.the ampex disc is logically
==> sys_fsytxs.txt <==
! FILE 'SYS_FSYSTU581S' - MODIFIED TO RUN TU58 ONLY !!!!!!!
!******************************
!* FILE SYSTEM HANDLER *
!* FSYS1S/FSYS1Y *
!* DATE: 28.JUN.79 *
!******************************
!*W.S.C. 25TH AUGUST 1976
!*B.G. 27.MAR.78
!*THIS HANDLER IS THE FILE SYSTEM UTILITY TO REPLACE THE
!*EXISTING ONE IN DEIMOS TO PERMIT A FILE SYSTEM TO BE
!*CREATED ON THE AMPEX 9500 DISC AS WELL AS THE RK05'S.
!*IT IS A CONCEPTUAL COPY OF THE RK05 FILE SYSTEM HANDLER
!*EXCEPT THAT A BUFFER POOL IS USED FOR BLOCK DESCRIPTORS
!*AND DIRECTORY BLOCKS.
!*THE CODE IS SHARED BY 3 SYSTEM SLOTS,4 FOR THE RK05'S,
!*AND 9,15 FOR THE AMPEX DISC.THE AMPEX DISC IS LOGICALLY
==> syslex.txt <==
10th 1st 2nd 3rd 4th 5th 6th 7th 8th 9th Aaron ABA Ababa abalone 3se 4h 3te 2bas 3e 3ot Abbott abbreviate 2c
2dicate 3omen 5inal 3uct Abe abed Abel 4ian 4son 3rdeen 4nathy aberrant 6te 3t 4ted 5ing 3yance 6t 2horred 7nt
Abidjan 3gail abject 2late 4ze 3ution Abner 2o aboard 3de 3lition 3minable 7te 3riginal 8e 4ning 3und 3veboard
5ground 5mentioned 2rade Abraham 4m 5son abrasion 6ve 3eact 5st 3idge 6ment 3oad 4gate 3upt 2scess 4issae
3entee 8ism 6ia 6minded 3inthe 3olution 4rb 6ent 5ption 8ve 3tain 4ention 4inent 4ractor 5use 3urd 2uilding
3ndant 3sable 4ive 3t 4ted 5ing 2ysmal 4s Abyssinia AC academia 7cian 6y Acadia acanthus Acapulco accede
4lerate 7ometer 4ntual 4ptant 6or 3ipiter 3laim 5mation 4imate 8ize 3olade 4mpaniment 9st 8y 6lice 8sh 4rdant
6ion 4st 4untant 5ter Accra accredit 8ate 5tion 4ual 3ulturate 4sation 8ve 5tom 2e 3tic 4one 4ylene 2he
Achilles aching 3romatic 2id 4ic 4ulous Ackerman 3ley acknowledgeable ACM acme 2olyte 3rn 3ustic 2quaint 8ance
4iescent 5sition 9ve 5t 6tal 7ing 2re 4age 3id 3obacy 6t 7ic 4polis 3ylate 5ic Actaeon actinic 6de 6um 5olite
6meter 4vism Acton actor 3ress Acts actuarial 2uity 3men ad Ada adage 4io Adair 3m adamant Adams 5on
adaptation 2dend 6a 6um 3ict Addis 5on addle 3ressee Addressograph adduce Adelaide 4e 4ia 3n adenoma 3quacy
2herent 4sion 6ve 2iabatic 3eu 3pic Adirondack adject 6ival 3oin 6t 4urn 3udge 5icate 4tant Adkins 2ler
administer 8rable 10te 11rix 4ral 7ty 6tion 5e 4ttance 4x 5ture 3onish 6tion 2o 3be 3lescent Adolph 6us 3nis
adoption 6ve 3rn 2renal 7ine Adrian 5tic 4enne adrift 3oit 2sorb 6ate 5ption 8ve 2ulate 4t 5erate 7ous 7y
5hood 2ventitious 6ure 8ous 4rb 6ial 5sary 6e 5t 6ise 3isee 5ory Aegean aegis Aeneas 4id aeolian Aeolus aerate
3ial Aerobacter aerobic 4dynamic 4gene 4nautic 4sol 5pace Aeschylus aesthete afar 2fable 3ectate 6ionate 4rent
3iance 4davit 4liate 4ne 5ity 4rmation 4x 3lict 4uence 7t 3orest 8ation 3ront Afghan 6istan aficionado 3eld
3re 2lame 3oat 2oot 3rementioned 5said 5thought 2resh Africa afro 2t 3ereffect 5glow 5image 5life 5math 5noon
5ward Agamemnon agate Agatha agave Agee agenda 2glomerate 4utinate 8in 3regate 5ssion 7or 4ieve 2hast 2ile 3ng
3tate 2leam Agnes 4w agnomen 4stic 2one 4y 3uti 2rarian 3eeable Agricola agricultural 10e 4mony 2ue Agway ah
==> sys_link5s.txt <==
%CONTROL K'101011'; ! 11/45 & TRUSTED
%RECORDFORMAT DFGH(%INTEGER G)
%CONSTRECORD (DFGH) %NAME NULL = 0
%BEGIN
!! STK = 27200
%CONSTBYTEINTEGERNAME ID = K'160030'
%CONSTBYTEINTEGERNAME FSYS = K'160055'
%CONSTINTEGER EXAMINE = 0
%CONSTINTEGER OUT = 2; ! 'MAP' OUTPUT STREAM
%INTEGER CKSM, BC, LOADPT, STK, STR, I, J
%INTEGER LOAD, N, STK STRT, CODEL, GLAL, LDL
%INTEGER STK GAP, TSTK, CODE STRT
==> sys_link6s.txt <==
!**************************
!* LINK6S/LINK *
!* DATE: 10.APR.80 *
!* 4TH PASS FOR IMP COMP. *
!**************************
%CONTROL K'101011'; ! 11/45 & TRUSTED
%RECORDFORMAT DFGH(%INTEGER G)
%CONSTRECORD (DFGH) %NAME NULL = 0
%BEGIN
!! STK = 27200
%CONSTBYTEINTEGERNAME ID = K'160030'
%CONSTBYTEINTEGERNAME FSYS = K'160055'
%CONSTINTEGER EXAMINE = 0
==> sys_lkdl2s.txt <==
!****************
!* LKDL2S/LKDL2Y *
!* DATE: 18.FEB.80 *
!* HANDLES DIRT&DISC *
!* REQUESTS BY SENDING *
!* THEM DOWN A DL11 *
!***********************
%CONTROL K'101011'; ! 'SYSTEM' PROGRAM (FAST
! ROUTINE ENTRY/EXIT)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, P1, P2)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SEG)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%SYSTEMINTEGERFNSPEC GETID
%BEGIN
%SYSTEMROUTINESPEC ALARM(%INTEGER TICKS)
%RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A, B, C)
%RECORDFORMAT P2F(%INTEGER D)
==> sys_load7s.txt <==
! FILE 'LOAD7S'
!**************
!* LOAD17S *
!* 25.MAR.81 *
!**************
%PERMINTEGERFNSPEC SVC(%INTEGER EP, %INTEGER P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%SYSTEMINTEGERFNSPEC GETID
%CONTROL K'100001'; ! TRUSTED
%RECORDFORMAT DUMREC(%INTEGER X)
%CONSTRECORD (DUMREC) %NAME NULL = 0
!***********************************
!* *
==> sys_load8s.txt <==
! FILE 'LOAD7S'
!**************
!* LOAD17S *
!* 14.JUN.82 *
!**************
%PERMINTEGERFNSPEC SVC(%INTEGER EP, %INTEGER P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%SYSTEMINTEGERFNSPEC GETID
%CONTROL K'100001'; ! TRUSTED
%RECORDFORMAT DUMREC(%INTEGER X)
%CONSTRECORD (DUMREC) %NAME NULL = 0
!***********************************
!* *
==> sys_moth6s.txt <==
!************
!* MOTH6S *
!* 27.NOV.79*
!************
%CONTROL K'101011'
%PERMINTEGERFNSPEC SVC(%INTEGER EP, R0, R1)
%BEGIN
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAP HWR(%INTEGER TOSEG)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, A2, A3)
%RECORD (PF)P
%CONSTINTEGER MAP PSECT = 16; ! SUPERVISOR CALL
%CONSTINTEGERNAME SR0 = K'117572'
! INDEXED INTO SEG 4
==> sys_moth77s.txt <==
!************
!* moth6s *
!* 14.jul.81*
!************
%control 1
%include "deimosperm"
%begin
%recordformat pf(%byteinteger service, reply, %integer a1, a2, a3)
%record (pf)p
%constintegername sr0 == k'117572'
! indexed into seg 4
%constintegername sr2 == k'117576'
%routinespec octal(%integer n)
==> sys_perm2s.txt <==
; SHARED PART OF PERM FOR PSR COMPILER
;*******************
;* PERM0S VSN 12 *
;* 23.APR.80 *
;*******************
PON=2
POFF=3
DELETE=5; EMT DELETE TASK
GETID=14; EMT 12. - GET ID
PONPOF=21; EMT 17. - PON POFF
TTID=1
DKID=3
DIRID=4
LPID=14
LOADID=41; ACTUAL ID OF LOADER TASK ***** MAY CHANGE **************
LNB=R5
==> sys_rl04s.txt <==
!************
!* RL04S *
!*07.OCT.80*
!************
!* UNIT 4 ADDED
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM+MUL+TRUSTED
%BEGIN
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, A2, A3)
%RECORDFORMAT P2F(%INTEGER D)
%RECORDFORMAT RLF(%INTEGER CS, BA, DA, MP)
%CONSTRECORD (RLF) %NAME RL = K'114400'
%CONSTINTEGERNAME PS = K'117776'
%CONSTINTEGER RLTOP = 10239
==> sys_rx021s.txt <==
!
! RX02 FLOPPY DISC HANDLER
!
! THIS IS THE UNIT 2&3 VERSION
!
! %% LAST UPDATED 14TH MARCH 1980 FILE=RX021S
!
! USES SYSTEM SLOTS 8 AND 14. INT SLOT -8.
!
! CALLING PARAMETERS ARE AS FOLLOWS
! P_A1=MODE (0=READ,1=WRITE)
! P_A2=ADDRESS OF BUFFER IN MEMORY
! P_A3=BLOCK NUMBER ON DISC
!
! SINCE DEIMOS DEALS IN 512 BYTE BLOCKS ALL TRANSFERS ARE 2*256
!BYTE SECTORS. THE FIRST 77 BLOCKS ARE RESERVED FOR THE SYSTEM.
!WITHIN EACH TRACK OF 26 SECTORS THE SECTORS ARE INTERLEAVED.
!
! ON EXIT P_A1=FAULT NO. (0=OK)
!
! ANY ERROR WILL RESULT IN UP TO 10 RETRIES.
==> sys_rx023s.txt <==
! FILE 'RX022S'
!
! RX02 FLOPPY DISC HANDLER
!
! THIS IS THE UNIT 0&1 VERSION
!
! %% LAST UPDATED 2ND APRIL 1980 FILE=RX022S
!
! USES SYSTEM SLOTS 8 AND 14. INT SLOT -8.
!
! CALLING PARAMETERS ARE AS FOLLOWS
! P_A1=MODE (0=READ,1=WRITE)
! P_A2=ADDRESS OF BUFFER IN MEMORY
! P_A3=BLOCK NUMBER ON DISC
!
! SINCE DEIMOS DEALS IN 512 BYTE BLOCKS ALL TRANSFERS ARE 2*256
!BYTE SECTORS. THE FIRST 77 BLOCKS ARE RESERVED FOR THE SYSTEM.
!WITHIN EACH TRACK OF 26 SECTORS THE SECTORS ARE INTERLEAVED.
!
! ON EXIT P_A1=FAULT NO. (0=OK)
!
==> sys_rx501s.txt <==
! FILE RX50 1S
!
! RX50 FLOPPY DISC HANDLER
!
! THIS IS THE UNIT 0&1 VERSION
!
! %% LAST UPDATED 21ST MARCH 1985 FILE=RX5021S
!
! USES SYSTEM SLOTS 8 AND 14. INT SLOT -8.
!
! CALLING PARAMETERS ARE AS FOLLOWS
! P_A1=MODE (0=READ,1=WRITE)
! P_A2=ADDRESS OF BUFFER IN MEMORY
! P_A3=BLOCK NUMBER ON DISC
!
! SINCE DEIMOS DEALS IN 512 BYTE BLOCKS ALL TRANSFERS ARE 2*256
!BYTE SECTORS. THE FIRST 77 BLOCKS ARE RESERVED FOR THE SYSTEM.
!WITHIN EACH TRACK OF 26 SECTORS THE SECTORS ARE INTERLEAVED.
!
! ON EXIT P_A1=FAULT NO. (0=OK)
!
==> sys_rxboot.txt <==
; BOOTSTRAP FOR RX50 DISCS
; BASICALLY SAME AS DEC ONE
.=0
240
BR P1
.WORD 6,0,12,0,0,0,172150
P1: 240
BR P2
.WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
P2: ; AT 254 ?
CLR R1
MOV #100000,R2
MOVEL: MOV (R1)+,(R2)+
CMP R1,#600
BLT MOVEL; MOVE UP TO 100000 (NOT SAME AS DEC)
JMP MOVEP+100000; AND GO TO IT
MOVEP: MOV #172150,R1; ADDR OF RX50
==> sys_sbld12s.txt <==
!**********
!* SBLD12S *
!* NB: NOT SAME AS BPL SBLD1S !!!!
!* DATE: 16.NOV.79 *
!* SUPERVISOR BUILD PROGRAM *
!*************************************
%PERMROUTINESPEC SVC(%INTEGER EP, %INTEGERNAME P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%PERMINTEGERFNSPEC ACC
%CONSTINTEGERNAME DUMMY = 0
%CONSTINTEGERNAME NULLI = 0
%BEGIN
!* STK = 76000, STRM = 3
==> sys_sbldrk3s.txt <==
!**********
!* SBLD13S *
!* NB: NOT SAME AS BPL SBLD1S !!!!
!* DATE: 17.MAR.80 *
!* SUPERVISOR BUILD PROGRAM *
!*************************************
%PERMROUTINESPEC SVC(%INTEGER EP, %INTEGERNAME P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%PERMINTEGERFNSPEC ACC
%CONSTINTEGERNAME DUMMY = 0
%CONSTINTEGERNAME NULLI = 0
%BEGIN
!* STK = 76000, STRM = 3
==> sys_sbldrl2s.txt <==
!**********
!* SBLD12S *
!* NB: NOT SAME AS BPL SBLD1S !!!!
!* DATE: 16.NOV.79 *
!* SUPERVISOR BUILD PROGRAM *
!*************************************
%PERMROUTINESPEC SVC(%INTEGER EP, %INTEGERNAME P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%PERMINTEGERFNSPEC ACC
%CONSTINTEGERNAME DUMMY = 0
%CONSTINTEGERNAME NULLI = 0
%BEGIN
!* STK = 76000, STRM = 3
==> sys_sbldrl3s.txt <==
! FILE 'SBLD3KS'
!**********
!* SBLD13S *
!* NB: NOT SAME AS BPL SBLD1S !!!!
!* DATE: 17.MAR.80 *
!* SUPERVISOR BUILD PROGRAM *
!*************************************
%PERMROUTINESPEC SVC(%INTEGER EP, %INTEGERNAME P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%PERMINTEGERFNSPEC ACC
%CONSTINTEGERNAME DUMMY = 0
%CONSTINTEGERNAME NULLI = 0
%BEGIN
==> sys_sbldrx3s.txt <==
!**********
!* SBLD13S *
!* NB: NOT SAME AS BPL SBLD1S !!!!
!* DATE: 17.MAR.80 *
!* SUPERVISOR BUILD PROGRAM *
!*************************************
%PERMROUTINESPEC SVC(%INTEGER EP, %INTEGERNAME P1, %INTEGER P2)
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X)
%PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X)
%PERMINTEGERFNSPEC ADDR(%INTEGERNAME X)
%PERMINTEGERFNSPEC ACC
%CONSTINTEGERNAME DUMMY = 0
%CONSTINTEGERNAME NULLI = 0
%BEGIN
!* STK = 76000, STRM = 3
==> sys_sin009.txt <==
!***************************
!* SIN009 *
!* DATE: 03.NOV.80 *
!* SUPERVISOR INITIALISER *
!* SUPERVISOR RELEASE 9 *
!***************************
%CONTROL K'100001'; ! MUL+TRUSTED
%PERMROUTINESPEC SVC
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X); ! USED IN INIT
%RECORDFORMAT DUMMY(%INTEGER X)
%CONSTRECORD (DUMMY) %NAME NULL=0
%CONSTINTEGER TASK LOW LIMIT=30
%CONSTINTEGER TASK USER LIMIT = 35
%CONSTINTEGER TASK LIMIT=70
%CONSTINTEGER FREE CELLS=80
%CONSTINTEGER NO OF SERVICES=50
%CONSTINTEGER FRAG NO=15
%CONSTINTEGER PSECT LENGTH=48
%CONSTINTEGER SVC LIMIT=23
==> sys_sin010.txt <==
!***************************
!* SIN010 *
!* DATE: 14.JUN.82 *
!* SUPERVISOR INITIALISER *
!* SUPERVISOR RELEASE 10 *
!***************************
%CONTROL K'100001'; ! MUL+TRUSTED
%PERMROUTINESPEC SVC
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X); ! USED IN INIT
%RECORDFORMAT DUMMY(%INTEGER X)
%CONSTRECORD (DUMMY) %NAME NULL=0
%CONSTINTEGER TASK LOW LIMIT=30
%CONSTINTEGER TASK USER LIMIT = 35
%CONSTINTEGER TASK LIMIT=75
%CONSTINTEGER FREE CELLS=80
%CONSTINTEGER NO OF SERVICES=50
%CONSTINTEGER FRAG NO=15
%CONSTINTEGER PSECT LENGTH=52
%CONSTINTEGER SVC LIMIT=23
==> sys_sin011.txt <==
!***************************
!* SIN011 *
!* DATE: 20 SEP 84 *
!* SUPERVISOR INITIALISER *
!* SUPERVISOR RELEASE 11 *
!***************************
%CONTROL K'100001'; ! MUL+TRUSTED
%PERMROUTINESPEC SVC
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X); ! USED IN INIT
%RECORDFORMAT DUMMY(%INTEGER X)
%CONSTRECORD (DUMMY) %NAME NULL=0
%CONSTINTEGER TASK LOW LIMIT=30
%CONSTINTEGER TASK USER LIMIT = 35
%CONSTINTEGER TASK LIMIT=75
%CONSTINTEGER FREE CELLS=80
%CONSTINTEGER NO OF SERVICES=50
%CONSTINTEGER FRAG NO=15
%CONSTINTEGER PSECT LENGTH=52
%CONSTINTEGER SVC LIMIT=23
==> sys_sup009.txt <==
!***********
!* SUP009 *
!*03.NOV.80*
!***********
%CONTROL K'111011'; ! MUL+TRUSTED
%PERMROUTINESPEC SVC
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X); ! USED IN INIT
%RECORDFORMAT DUMMY(%INTEGER X)
%CONSTRECORD (DUMMY) %NAME NULL=0
%BEGIN
%CONSTINTEGER TASK LOW LIMIT=30
%CONSTINTEGER TASK LIMIT=70
%CONSTINTEGER FREE CELLS=80
%CONSTINTEGER NO OF SERVICES=TASK LIMIT
%CONSTINTEGER FRAG NO=15
%CONSTINTEGER PSECT LENGTH=48
%CONSTINTEGER SVC LIMIT=23
==> sys_sup010.txt <==
!***********
!* SUP010 *
!*14.JUN.82*
!***********
%CONTROL K'111011'; ! MUL+TRUSTED
%PERMROUTINESPEC SVC
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X); ! USED IN INIT
%RECORDFORMAT DUMMY(%INTEGER X)
%CONSTRECORD (DUMMY) %NAME NULL=0
%BEGIN
%CONSTINTEGER TASK LOW LIMIT=30
%CONSTINTEGER TASK LIMIT=75
%CONSTINTEGER FREE CELLS=80
%CONSTINTEGER NO OF SERVICES=TASK LIMIT
%CONSTINTEGER FRAG NO=15
%CONSTINTEGER PSECT LENGTH=52
%CONSTINTEGER SVC LIMIT=23
==> sys_sup011.txt <==
!***********
!* SUP011 *
!*14 OCT 85*
!***********
%CONTROL K'111011'; ! MUL+TRUSTED
%PERMROUTINESPEC SVC
%PERMINTEGERMAPSPEC INTEGER(%INTEGER X); ! USED IN INIT
%RECORDFORMAT DUMMY(%INTEGER X)
%CONSTRECORD (DUMMY) %NAME NULL=0
%BEGIN
%CONSTINTEGER TASK LOW LIMIT=30
%CONSTINTEGER TASK LIMIT=75
%CONSTINTEGER FREE CELLS=80
%CONSTINTEGER NO OF SERVICES=TASK LIMIT
%CONSTINTEGER FRAG NO=15
%CONSTINTEGER PSECT LENGTH=52
==> sys_superte.txt <==
DEIMOS VSN 11.1 20 SEP 84 (SBLD6Y) (NEW BUFF MAN) (CHANGED DEDLOCS)
RK05
3500
DVNO3Y N 0
SUP60 65002 0
PERM2Y 65006 0
BTT7Y 65012 0
BDK6Y 65016 0
FSYS78 65022 0
LOAD8Y 65026 0
CLI1Y 65032 0
MOTH6Y 65036 0
END
-11 340 KB#2 ADDR=776500, SER=19
-12 344 TT#2
-6 330 RING RX
-7 334 RING TX
-6 770 KMC11
-7 774 DITTO
-13 160 am1 interface
-14 164
==> sys_tu58s.txt <==
!* VERSION FOR UNIT 2 & 3 DEV MACHINE ONLY (SEE ADDRESS)
!************
!* TU58S *
!*31.OCT.80*
!* UNIT 2 *
!* VERSION *
!************
!* UNIT 4 ADDED
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM+MUL+TRUSTED
%BEGIN
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, R0, R1)
%SYSTEMINTEGERFNSPEC MAP VIRT(%INTEGER WHO, HSEG, MYSEG)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, A2, A3)
%RECORDFORMAT P2F(%INTEGER D)
==> tcpcrash.txt <==
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAHDIAOLIPACIOKOFBCNFBAAAAAAAAPPAABAAAOBJOIODAHDIAIKIPIAAO
MLGBMKGBAAAAAAAABAAADAAAAAAAAAAAAAAABABADAPPAAAAAAAAAAAABACADAPP
AAAAAAAAAAAABADADAPPAAAAAAAAAAAABAEADAEAAAAAAAAAAAAABAFADAFAAAAA
AAAAAAAABAGADAPPAAAAAAAAAAAABAHADAPPAAAAAAAAAAAABAIADAPPAAAAAAAA
AAAABAJADAJAAAAAAAAAAAAABAKADAKAAAAAAAAAAAAABALADALAAAAAAAAAAAAA
BAMADAMAAAAAAAAAAAAABANADAPPAAAAAAAAAAAABAOADAOAAAAAAAAAAAAABAPA
DAPPAAAAAAAAHDIAMPHPIAAOEGHBIDHBAAAAAAAAAAAADAAAAAAAMFKAAAAAAABA
DAPPAAAAAAAAAAAAAACADAPPAAAAAAAAAAAAAADADAPPAAAAAAAAAAAAAAEADAEA
AAAAMFKAKIBHBAFADAFAAAAAMFKAAAAAAAGADAPPAAAAAAAAAAAAAAHADAPPAAAA
AAAAAAAAAAIADAPPAAAAAAAAAAAAAAJADAJAAAAAMFKAAAAAAAKADAKAAAAAMFKA
AAAAAALADALAAAAAMFKAAAAAAAMADAMAAAAAMFKAAAAAAANADAPPAAAAAAAAAAAA
AAOADAOAAAAAMFKAAAAAAAPADAPPAAAAAAAAHDIAAFHPIBAOMLGBMKGBAAAAAAAA
BAAADAPPAAAAAAAAAAAABABADAPPAAAAAAAAAAAABACADAPPAAAAAAAAAAAABADA
DAPPAAAAAAAAAAAABAEADAPPAAAAAAAAAAAABAFADAFBAAAAAAAAAAAABAGADAPP
AAAAAAAAAAAABAHADAPPAAAAAAAAAAAABAIADAIBAAAAAAAAAAAABAJADAPPAAAA
AAAAAAAABAKADAPPAAAAAAAAAAAABALADAPPAAAAAAAAAAAABAMADAPPAAAAAAAA
AAAABANADANBAAAAAAAAAAAABAOADAOBAAAAAAAAAAAABAPADAPPAAAAAAAAHDIA
EKGPIBAOEGHBIDHBAAAAAAAAAAAADAPPAAAAAAAAAAAAAABADAPPAAAAAAAAAAAA
==> teledata.txt <==
BASE:LIST ALL
BASE:
0368 EI00 EI01 50
PS01 X25 B 16 EXT SABM 30 30 7 2 4 4 0 NORM 120 20
PS02 X25 B 20 EXT SABM 30 30 7 2 0 4 0 NORM 120 20
PS03 X25 B 100 EXT SABM 30 30 7 2 0 4 0 NORM 120 20
PS04 X25 B 20 EXT SABM 30 30 7 2 0 4 0 NORM 120 20
PS05 X25 B 200 EXT SABM 30 30 7 2 0 4 0 NORM 120 20
PS06 X25 B 100 EXT SABM 30 30 7 2 0 4 0 NORM 120 20
PS07 X25 B 100 EXT SABM 30 30 7 2 0 4 0 NORM 120 20
PS08 X25 B 16 EXT SABM 30 30 7 2 0 4 0 NORM 120 20
XXXX NULL B 1 NONE SABM 30 10 7 2 0 0 0 NORM 5 20
XXXX NULL B 1 NONE SABM 30 10 7 2 0 0 0 NORM 5 20
XXXX NULL B 1 NONE SABM 30 10 7 2 0 0 0 NORM 5 20
XXXX NULL B 1 NONE SABM 30 10 7 2 0 0 0 NORM 5 20
XXXX NULL B 1 NONE SABM 30 10 7 2 0 0 0 NORM 5 20
XXXX NULL B 1 NONE SABM 30 10 7 2 0 0 0 NORM 5 20
XXXX NULL B 1 NONE SABM 30 10 7 2 0 0 0 NORM 5 20
XXXX NULL B 1 NONE SABM 30 10 7 2 0 0 0 NORM 5 20
==> telematics.txt <==
@make[report]
@device[x2700]
@majorheading[Telematics]
@section[General]
Telematics offer a range of X.25 networking products called the Net 25 Product
Family including concentrator switches, primary switches, backbone switches,
PADs and supervisory nodes. The equipment is sold in the UK by Telematics and
also by ICL and other companies including IAL who sell it under their own label.
Telematics is certified for use on most public data networks. The maximum
packet size supported is 1024 bytes.
@section[Hardware Description]
The Net 25 switches are based on a proprietary 32 bit bus that is stated to
run at 32 Megabytes/sec.
There are three models available, the P500, P1000 and P2000. The main
difference being the number of slots available. The particular switch
confgurations, described as Net 25/XXX are constructed from the appropriate
model.
The Net 25/100 switch consists of the bus and a
general purpose M68000 processor card, a memory controller and memory, either
a floppy or a hard disk, and an Network Communications Processor NCP.
==> telem.txt <==
Points that conflicy with the JNT spec.
1 Guarentee compatibility with PSS
2 Call stats in the clear packet
3 Call redirection (desirable feature)
4 Proper load sharing
5 Address matching, ie 000015000001 vs 15000001
6 Monitor performance of whole PSE
7 Warning of fault conditions
8 Availability of Net. Man. software
9 Count of various packets:- Call req, Inc call, Clear, Int, Reset
- Count of Level 2 packets ?
10 Zero the counts
11 DTE addresses displayed
12 Password on 'BASE:'
13 MTBF H/W & S/W ?
14 Buffer exhaustion -> crash
15 Hold a Link down
My Outstanding Queries
==> telepacpas.txt <==
program telepac (input,output,log1,log2,out);
{Analyse the POLL ALL output from a TelePAC}
{Two files are read, and the time difference between the 'readings'}
TYPE
stata = ARRAY [1..2, 1..14] of integer;
polla = ARRAY [1..2, 1..30, 1..21] of integer;
ptpolla = ^polla;
string = PACKED ARRAY [1..80] of CHAR;
VAR
{ log1, log2, out: text;}
hours, mins, secs, index, i, j,q1, q2: integer;
k: real;
str: string;
stat: stata;
poll: ptpolla;
fn1, fn2, out1: string;
==> telepacrep.txt <==
@make[report]
@device[x2700]
@flushleft[Edinburgh Regional Computing Centre]
@majorheading[Report on Pilot TelePAC PSE]
SEEL made a final delivery of hardware on the 29th April that completed the
30 port, 2Mbyte TelePAC switch.
The software that was delivered with the switch was
version 0468 and the testing has been done using that version.
The switch has been in user service since the 8th April and the load has
been built up steadily. There are currently 19 active connections with a
typical loading of nearly 100 calls.
@heading[Hardware Report]
The first part of the switch was delivered on the 28th March,
during the initial testing it became clear that
this unit had
a faulty backplane. SEEL turned out very promptly to fix it but the
obscure nature of the fault meant that the unit was down for about 16 hours.
==> telepacrp2.txt <==
@make[report]
@device[x2700]
@flushleft[Edinburgh Regional Computing Centre]
@majorheading[TelePAC - List of outstanding bugs]
@heading[Hardware]
One problem has emerged when using lines timed by the TelePAC. CRC errors
are observed on the line and in the worst cases some faulty blocks are
passed as correct by the CRC check. On investigation this would appear to
be caused by using cables that are too long although the situation was
confused by widely differing margins in particular V24 interface boards.
The better boards will run cables of up to 40 metres in length with no
problems at 9.6kb/s. The worst boards start to have problems at around
25 metres. This means that the boards are strictly within spec (50 feet)
but SEEL and Telefile are looking at the problem and expect to find a
solution.
@heading[Software]
The meeting between the JNT, Telefile, SEEL, Cambridge and ERCC on the
==> temp.txt <==
notice nodes
gp15
n
h
n
y
n
==> tes5.txt <==
$DEF RTIN = 16_0D, RTOUT = 16_11, NPRREQ = NPR.0
$DEF RINTST = 16_2E, TOPSEG = 16_E8, RDATA = 16_20, SSEL = 16_24
BRG=0
CSR2=BRG; CSR3=BRG; CSR4=BRG; CSR5=BRG
SP10=BRG; SP11=BRG; SP12=BRG; SP13=BRG
SP6=BRG; ! LOW ORDER ADDRESS
SP5 = 16_C0; ! TRANSFER TO ADDRESS 140000
ADR2=16_FF; ADR3=16_FF; ! _SOURCE SELECT = -1
ADR6=SSEL; ADR7=TOPSEG
MISC=16_1C; ! SET CLOCK & O ADR 17&18
NPR = RTOUT
CYCLE; REPEAT IF NPRREQ
SETREC:
ADR2=1; ADR3=0; ! SET RECEIVE=1
ADR6=RINTST
MISC = 16_0C
NPR=RTOUT
CYCLE; REPEAT IF NPRREQ
CYCLE
MISC=16_10; ! CLOCK ON
CYCLE; REPEAT IF MISC.4 = 0
==> test2.txt <==
THIS IS A TEST
END
==> testats.txt <==
MTBF - TelePAC #1 - 3 Month Rolling Average
Month - Jan 86 to May 86
5
0 1
0 0 1 0 0 0 0 0
==> testout3.txt <==
%EXTERNALSTRINGFNSPEC INTERRUPT
%EXTERNALSTRINGFNSPEC TIME
%EXTERNALLONGREALFNSPEC CPUTIME
%EXTERNALROUTINESPEC USERS(%STRING (255) S)
%EXTERNALROUTINESPEC METER(%STRING (255) S)
%SYSTEMROUTINESPEC CONSOLE(%INTEGER EP, %INTEGERNAME AD, LEN)
%OWNINTEGER LYNBAN=0
%EXTERNALROUTINE CLEAR LYN(%STRING (255) S)
PRINTCH(19)
PRINTCH(1)
PRINTCH(18)
PRINTCH(26)
PRINTCH(4)
%END
%ROUTINE BAN CLEAR
PRINTCH(27); PRINTCH('K')
%END
%ROUTINE BAN PLOT(%INTEGER X,Y)
%RETURNUNLESS 0<=X<=79 %AND 0<=Y<=29
PRINTCH(27); PRINTCH('Y'); PRINTCH(X+31)
==> tests.txt <==
%begin
%integer i,j,k
%cycle
readch(i); write(i, 4); newline
%exitif i=4
%repeat
%endofprogram
==> test.txt <==
@device(x2700)
@make(report)
@section(one)
vbn
@subsection(one.one)
asd
@subsection(one.two)
dfgh
@subsection(one.three)
jklh
@section(two and last)
fghj
==> time40s.txt <==
%EXTERNALINTEGERFN TIME40(%INTEGER IN)
%INTEGER S, D, SR, DR, BF, LEN, J, T, IND, EF
%SWITCH PSW(0:7)
%SWITCH EIS(0:3)
!!
%CONSTINTEGERARRAY MOVEA(0:10) = %C
90, 284, 368, 146, 242, 242, 318, 242, 318, 318, 402
%CONSTINTEGERARRAY MOVEB(0:10) = %C
180, 298, 382, 180, 256(2), 332, 256, 332, 332, 416
%CONSTINTEGERARRAY SOU(0:7) = 0, 78, 84, 174, 84, 174, 146, 236
%CONSTINTEGERARRAY SOUB(0:7) = %C
0, 95, 101, 191, 101, 191, 163, 253
%CONSTINTEGERARRAY CMPA(0:2) = 99, 160, 176
!!
%CONSTINTEGERARRAY DST(0:7) = %C
0, 78, 84, 174, 84, 174, 146, 236
==> titlesh.txt <==
@make[article]
@device[x2700]
@style[spacing 1]
@begin[text,topmargin=+1.1inches,leftmargin=+0.25inches,rightmargin=+0.5inches]
blank
@newpage
@majorheading[AN APPRAISAL OF THE ADVANTAGES & DISADVANTAGES
OF USING A PABX FOR DATA TRAFFIC]
@BLANKSPACE[0.5in]
@centre[@b[Brian Gilmore
Communications Manager
Edinburgh Regional Computing Centre
University of Edinburgh]]
@blankspace[1.8in]
The paper discusses the main advantages and disadvantages of using a
modern PABX for mixed speech and data traffic. It comes to the conclusion
that with the currently available technology it is not economic to use
such an exchange for extensive data traffic and the paper goes on to look at
future trends in this area in
particular the use of PABX/LAN Gateways to ease connection problems.
==> title.txt <==
@make[article]
@device[x2700]
@style[spacing 1]
@begin[text,topmargin=+1.1inches,leftmargin=+0.25inches,rightmargin=+0.5inches]
blank
@newpage
@majorheading[AN APPRAISAL OF THE ADVANTAGES & DISADVANTAGES
OF USING A PABX FOR DATA TRAFFIC]
@BLANKSPACE[0.5in]
@centre[@b[Brian Gilmore
Communications Manager
Edinburgh Regional Computing Centre
University of Edinburgh]]
@blankspace[1.8in]
The paper discusses the main advantages and disadvantages of using a
modern PABX for mixed speech and data traffic. It comes to the conclusion
that with the currently available technology it is not economic to use
such an exchange for extensive data traffic and the paper goes on to look at
future trends in this area in
particular the use of PABX/LAN Gateways to ease connection problems.
==> tr.txt <==
LINK11
ERCM09.I77PERM
xprotb#REL
.STACK 2000
.STREAMS 1
.NAME xpr1b
.END
xpr1b#OBJ
destroy xpr1by
rename xpr1b#obj,xpr1by
alist11 xprotb#imp/l2
list l2,.lp23
==> tsbsp_deimos.txt <==
%EXTERNALROUTINESPEC ALARM(%INTEGER T)
%EXTERNALROUTINESPEC LINKIN(%INTEGER SEG)
%EXTERNALROUTINESPEC MAP VIRT(%INTEGER SER,S1,S2)
%EXTERNALROUTINESPEC PON(%RECORD (PEF) %NAME P)
%EXTERNALROUTINESPEC PONOFF(%RECORD (PEF) %NAME P)
%EXTERNALROUTINESPEC POFF(%RECORD (PEF) %NAME P)
%ENDOFFILE
==> tsbsp_rawst.txt <==
16
FREE WT_BUF WT_NS WT_BUF_NS WT_ACCN WT_ACCND DATA WT_DISCN WT_DIN WT_RESETN
WT_RESETI WT_ACCI WT_ACCID WT_DISCI WT_DG_REPLYI WT_DG_REPLYN
12
GOT_BUFFER * SEND_LOOKUP,WT_NS * -,FREE * * * * * * * * * * * *
NS_REPLY * * NS_MESS,WT_ACCN -,FREE * * * * * * * * * * * *
DISCI * DISCI_RESPONSE,WT_BUF_NS DISCI_RESPONSE,WT_BUF_NS * DISCI_WT_ACCN,WT_ACCND
* DISCI_TO_N,WT_DISCN * -,WT_DISCN DISCI_TO_N,WT_DISCN DISCI_TO_N,WT_DISCN
CONN_N_FAILED,FREE -,FREE -,FREE * *
OPENACKN - - - - PROCESS_OPENACK,DATA D_PROCESS_OPENACK,WT_DISCN INT_DISC,WT_DIN
- - INT_DISC,WT_DIN INT_DISC,WT_DIN INT_OPEN_NACK,WT_ACCID - - - DG_REPLY_NTOI,FREE
RESETI * * * * * * RESETI_TO_N,WT_RESETN * - RESETI_RESPONSE
CLEAR_TIMEOUTS,DATA * *
- * *
RESETN - - - - - - RESETN_TO_I,WT_RESETI - - CLEAR_TIMEOUTS,DATA RESETN_RESPONSE
INT_OPEN_NACK,WT_ACCID - - - -
==> tsbsp_source.txt <==
!
! TSBSP DRIVER
! copyright University of Kent at Canterbury 1982
! stack=2000, streams=0
!version 2: 23:1:82
!
%CONTROL 1
%BEGIN
%RECORDFORMAT NSF(%INTEGERARRAY DUM(1:3), %STRING (241) NAME)
%RECORDFORMAT NSRF(%INTEGER D1,D2,CODE, %C
((%STRING (241) NAME) %ORC
(%BYTEINTEGER FLAGS, ADDRESS, %INTEGER PORT, FUNCTION, %C
%STRING (55) RESTOFNAME )))
%RECORDFORMAT MEF(%RECORD (MEF) %NAME LINK, %BYTEINTEGER LEN, TYPE, %C
( (%BYTEINTEGERARRAY PARAMS(0:251)) %ORC
==> tsbsp_stab.txt <==
!values for the states variable
%CONSTINTEGER FREE= 1
%CONSTINTEGER WT BUF= 2
%CONSTINTEGER WT NS= 3
%CONSTINTEGER WT BUF NS= 4
%CONSTINTEGER WT ACCN= 5
%CONSTINTEGER WT ACCND= 6
%CONSTINTEGER DATA= 7
%CONSTINTEGER WT DISCN= 8
%CONSTINTEGER WT DIN= 9
%CONSTINTEGER WT RESETN= 10
%CONSTINTEGER WT RESETI= 11
%CONSTINTEGER WT ACCI= 12
%CONSTINTEGER WT ACCID= 13
%CONSTINTEGER WT DISCI= 14
%CONSTINTEGER WT DG REPLYI= 15
%CONSTINTEGER WT DG REPLYN= 16
!values for the events variable
==> tsbsp_sttext.txt <==
FREE WT BUF WT NS WT BUF NS WT ACCN WT ACCND
GOT BUFFER * SEND LOOKUP * - * *
WT NS FREE
NS REPLY * * NS MESS - * *
WT ACCN FREE
DISCI * DISCI RESPONSE DISCI RESPONSE * DISCI WT ACCN *
WT BUF NS WT BUF NS WT ACCND
OPENACKN - - - - PROCESS OPENACK D PROCESS OPENACK
DATA WT DISCN
RESETI * * * * * *
RESETN - - - - - -
==> tsbsp_tscodes.txt <==
%CONSTINTEGER CONNECT=1
%CONSTINTEGER ACCEPT CALL=2
%CONSTINTEGER DISCONNECT=3
%CONSTINTEGER ENABLE INPUT=4
%CONSTINTEGER PUT OUTPUT=5
%CONSTINTEGER EXPEDITED DATA=6
%CONSTINTEGER RESET=7
%CONSTINTEGER DATAGRAM=8
%CONSTINTEGER DATAGRAM REPLY=9
%CONSTINTEGER ENABLE FACILITY=10
%CONSTINTEGER DISABLE FACILITY=11
%CONSTINTEGER ENABLE OUTPUT=4
%CONSTINTEGER INPUT HERE=5
%ENDOFFILE
==> tsbsp_tsdrivers.txt <==
%CONTROL 1
%BEGIN
%RECORDFORMAT NSF(%INTEGERARRAY DUM(1:3), %STRING (241) NAME)
%RECORDFORMAT NSRF(%INTEGER D1,D2,CODE, %C
((%STRING (241) NAME) %ORC
(%BYTEINTEGER FLAGS, ADDRESS, %INTEGER PORT, FUNCTION, %C
%STRING (55) RESTOFNAME )))
%RECORDFORMAT MEF(%RECORD (MEF) %NAME LINK, %BYTEINTEGER LEN, TYPE, %C
( (%BYTEINTEGERARRAY PARAMS(0:251)) %ORC
(%INTEGER ADDRESS, PORT, %C
( (%INTEGER RCOMM,TCOMM,%BYTEINTEGERARRAY DATA(0:243)) %ORC
(%INTEGER COMMAND, REPLY PORT, FUNCTION, BSP PARAM LEN, %C
%INTEGERARRAY BSP PARAM(1:2), %C
%BYTEINTEGERARRAY TSPARAMS(0:235) ) %ORC
(%RECORD (NSRF) NS REPLY ) %ORC
(%RECORD (NSF) NS) ))))
==> tsbsp_tst_compile.txt <==
RM TSTY,TST#REL,TST#LIS
IMP11 TST_SOURCE,TST#REL,TST#LIS
LINK11
CONLIB.IMP77PY#REL
TST#REL
.STACK 1000
.STREAMS 1
.END
TSTY
==> tsbsp_tst_rawst.txt <==
5
WT_ACCEPT RUNNING WT_FIN WT_DISC WT_CLOCK
7
ERROR_EVENT * * * * *
ACC PROCESS_ACC,RUNNING * * * -
DISC OPEN_FAILED,WT_CLOCK REPLY_DISC_AB,WT_CLOCK REPLY_DISC_OK,WT_CLOCK
-,WT_CLOCK -
RST SEND_DISC,WT_DISC SEND_DISC,WT_DISC SEND_DISC,WT_DISC - -
EN_OUT * SEND_DATA - - -
INT_A SEND_DISC,WT_DISC SEND_DISC,WT_DISC SEND_DISC,WT_DISC - STOP
TICK - - - - STOP
==> tsbsp_tst_readthis.txt <==
The files are:
SOURCE main source code
RAWST state table in 'raw' form. To get a new state table INSERT CUR051.STY
then MAKESTAB TST. This will create the following 2 files.
STTEXT state table in readable form. The symbols * and - are used for 'error'
(should never happen) and no-action.
STAB state table in coded form including declarations for the state,event
and action values.
COMPILE OBEY file to compile and link TSTY, leaves a listing file TST#LIS
and an intermediate code file TST#REL.
==> tsbsp_tst_source.txt <==
!
! transport service interface transmitter
! copies file 1 to the TS interface
!
!prompts the user for the destination names
!
!The program uses a state table to control the actions, the state
!table is included in symbolic and data form below
! copyright University of Kent at Canterbury 1982
! stack=300, streams=1
!
%CONTROL 1
%BEGIN
%RECORDFORMAT MEF(%RECORD (MEF) %NAME LINK, %BYTEINTEGER LEN, TYPE, %C
( (%BYTEINTEGERARRAY PARAMS(0:251)) %ORC
==> tsbsp_tst_stab.txt <==
!values for the states variable
%CONSTINTEGER WT ACCEPT= 1
%CONSTINTEGER RUNNING= 2
%CONSTINTEGER WT FIN= 3
%CONSTINTEGER WT DISC= 4
%CONSTINTEGER WT CLOCK= 5
!values for the events variable
%CONSTINTEGER ERROR EVENT= 1
%CONSTINTEGER ACC= 2
%CONSTINTEGER DISC= 3
%CONSTINTEGER RST= 4
%CONSTINTEGER EN OUT= 5
%CONSTINTEGER INT A= 6
%CONSTINTEGER TICK= 7
!values for the actions variable
%CONSTINTEGER PROCESS ACC= 1
==> tsbsp_tst_sttext.txt <==
! WT ACCEPT RUNNING WT FIN WT DISC WT CLOCK
!
! ERROR EVENT * * * * *
!
!
! ACC PROCESS ACC * * * -
! RUNNING
!
! DISC OPEN FAILED REPLY DISC AB REPLY DISC OK - -
! WT CLOCK WT CLOCK WT CLOCK WT CLOCK
!
! RST SEND DISC SEND DISC SEND DISC - -
! WT DISC WT DISC WT DISC
!
! EN OUT * SEND DATA - - -
!
!
! INT A SEND DISC SEND DISC SEND DISC - STOP
==> tu58_bintus.txt <==
!
!BINARY FILE IPL LOADER
! RL01 VERSION 29.AUG.79
!
!W.S.CURRIE 1ST DEC. 1976
!
! THIS PROGRAM TAKES AN ABSOLUTE BINARY FILE AS READ
!FROM PAPER TAPE AND PUTS IT ONTO A CONTIGUOUS AREA OF
!THE DISC READY FOR LOADING.
!
! IT CURRENTLY OVERWRITES SYSTEM1 IN BLOCKS 4600-4700
! STREAM 1 IS THE INPUT FILE
! STREAM 2 IS OPTIONAL REPORT FILE
! OUTPUT IS TO DISC 0.60(OCT) BLOCKS ARE WRITTEN.
! BLOCK=START BLOCK TO WRITE(9201)
! STACK=65000 STREAMS=1
==> tu58_bottus.txt <==
; BOOTSTRAP FOR TU58, TO LOAD ONTO BLOCK 0 OF A TU58:-
; BINTUY BOTTUY
; AND REPLY 'N' TO 'REPORT?'
;
.=0
MOV #137000,R0
CLR R1
MOV #200,R2
LOOP: MOV (R1)+,(R0)+
DEC R2
BNE LOOP
JMP BEGIN+137000
BEGIN:
MOV #137000,SP
MOV #176500,R0; 776160 ON DEC MACH, 176500 ON 11
BISB #1,4(R0); ENABLE TX
CLR R1
JSR PC,TX
JSR PC,TX
TU01:TSTB 4(R0); WAIT FOR READY
==> tu58_fsytus.txt <==
! FILE 'SYS_FSYSTU582S'
!******************************
!* FILE SYSTEM HANDLER *
!* FSYS1S/FSYS1Y *
!* DATE: 22.DEC.80 *
!* TU58 AS MAIN DISC *
!******************************
!*W.S.C. 25TH AUGUST 1976
!*B.G. 27.MAR.78
!*THIS HANDLER IS THE FILE SYSTEM UTILITY TO REPLACE THE
!*EXISTING ONE IN DEIMOS TO PERMIT A FILE SYSTEM TO BE
!*CREATED ON THE AMPEX 9500 DISC AS WELL AS THE RK05'S.
!*IT IS A CONCEPTUAL COPY OF THE RK05 FILE SYSTEM HANDLER
!*EXCEPT THAT A BUFFER POOL IS USED FOR BLOCK DESCRIPTORS
!*AND DIRECTORY BLOCKS.
!*THE CODE IS SHARED BY 3 SYSTEM SLOTS,4 FOR THE RK05'S,
==> tu58_suptu3.txt <==
DEIMOS VSN 9.6T 23.DEC.80 (TU58 VERSION)
3500
DVTUY N 0
SUP33 60002 0
PERM2Y 60006 0
BTT6Y 60012 150
TU582Y 60016 300
FSYTUY 60022 300
LOAD7Y 60026 220
CLI1Y 60032 100
MOTH6Y 60036 50
END
-7 330 RING RECEIVE 764040
-6 334
-13 270 AM1 INTERFACE 775170
-14 274
-13 160 AM1 #2 775160
-14 164
-13 170
-14 174
-20 364 PARR INTERFACE
==> tu58test.txt <==
%BEGIN
%RECORDFORMAT PF(%BYTEINTEGER SER, REP, %INTEGER A, %INTEGERNAME B, %C
%INTEGER C)
%INTEGER I, J
%CONSTBYTEINTEGERNAME ID = K'160030'
%INTEGERARRAY BUFF(0:256)
%RECORD (PF) P
%ROUTINE READ BL(%INTEGER BLOCK)
P_SER = 8; P_REP = ID
P_A = 0; P_B == BUFF(0); P_C = BLOCK
PONOFF(P)
%IF P_A # 0 %START
PRINTSTRING("READ FAILS "); WRITE(P_A, 1); NEWLINE
%FINISH
%END
PROMPT("WRITE BLOCK?")
READ(I)
%CYCLE J = 0, 1, 255; BUFF(J) = I+100; %REPEAT
P_SER = 8; P_REP = ID
==> tu58_tu582s.txt <==
!************
!* TU582S *
!*22.DEC.80*
!*DISC 0 VSN*
!************
%CONTROL K'100001'; ! 'SYSTEM' PROGRAM+MUL+TRUSTED
%BEGIN
%SYSTEMINTEGERFNSPEC GETID
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMINTEGERFNSPEC MAP ABS(%INTEGER ADR, LEN, REQ ID)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, R0, R1)
%SYSTEMINTEGERFNSPEC MAP VIRT(%INTEGER WHO, HSEG, MYSEG)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEGS)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, A2, A3)
%RECORDFORMAT P2F(%INTEGER D)
%RECORDFORMAT TU58F(%INTEGER RSR, RDB, TSR, TDB)
%CONSTRECORD (TU58F) %NAME TU58 = K'116500'; ! 176500 ON 11/44, 176160
==> tudumps.txt <==
;
;
; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;
; CORE DUMP TO TU-58 CASSETTE TAPE
;
; DUMPS FROM LOCATION 0 TO 157000-2 TO BLOCK 20
;
; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;
.ABSOLUTE
.=157000
START: MOV #176160,R0 ;DEVICE ADDR-DL11
MOV #STACK,SP
;
; POWER UP SEQUENCE
;
BIS #1,4(R0) ;SET BREAK ON TX TO POWER UP
CLR R1 ;CHARACTER TO SEND
JSR PC,TX ;SEND IT
JSR PC,TX ;TWO NULLS REQUIRED
==> usercmdec.txt <==
Edinburgh Regional Computing Centre
-----------------------------------
For the attention of the Edinburgh Computer Users Committee
-----------------------------------------------------------
Report on Communications
------------------------
TCPs The number of terminals on the Library TCP has been increased from
---- 32 to 48. A fault which has been causing spurious 'Terminal
Violations' while using the screen editors has been found and fixed.
FEPs The FEPs on the 2988 have been crashing recently due to a problem
---- with the new 2900 hardware. The FEPs should no longer actually
crash but there is still an unresolved problem with the hardware.
PSS The service has been very stable.
==> usercmfeb.txt <==
Edinburgh Regional Computing Centre
-----------------------------------
For the attention of the Edinburgh Computer Users Committee
-----------------------------------------------------------
Report on Communications
------------------------
TCPs An extra TCP has been installed in the Appleton Tower to spread
---- the load around. An experiment with better support for screen
packages is being tried on a TCP.
FEPs The FEPs on the 2988 have been more stable although there is still
---- an unresolved hardware difference between the 2988 and the 2972
==> usercmoct83.txt <==
$A INVERT=0
$A CAP=0; CAPSHO=0; CAPO=0; CAPSH=0
$A LINE=76; PGAP=5; PAGE=60; MARK=2; TOP=1
$A TAB=4,8,12,16,20,24,28,32,36,40,44,48
$B3 $L1UC
EDINBURGH REGIONAL COMPUTING CENTRE
$B4 $L1U
For the attention of the Edinburgh Computer Users' Committee
$B5 $L1UM
Report on Communications
$B2 %CONVERSION$ TO$ X25
$P1 The conversion to X25 has gone very smoothly with only a few
minor problems. The real test, however, will only come after the student
load increases later in the term.
$B2 %TCPs
$P1 The current release of X25 TCP software has now been running for over a
month, a new release is ready to be released in the next
few days so that the X25 INFO is picked up by default instead of being manually
changed when a TCP is loaded.
$B2 %FEPs
$P1 The curent 2976 FEP software running on two of the FEPs has also
==> usergroup.txt <==
Edinburgh Regional Computing Centre
-----------------------------------
For the attention of the Edinburgh Computer Users Committee
-----------------------------------------------------------
Report on Communications
------------------------
TCPs A new TCP has been installed in the JCMB to provide extra lines.
---- Network charging was included in the last release and charges
are now made for terminal, line printer, graph plotter and
matrix plotter use.
FEPs The Service is stable
----
==> vaxperf2.txt <==
easygraph
title "Transfer rate - Using Protocols"
xaxis 20,"Packet Size in bytes"
xformat 3,0
xscale 0,25
yaxis 16,"Bytes/sec"
yformat 3,0
yscale 0,7000
flatnumber
linetype line+points
symbol square
data
50 2335
150 5415
250 8525
350 10290
450 13635
annotate "To Gec 63/40"
plot
overlay
symbol diamond
==> vaxperf.txt <==
easygraph
title "Transfer rate (bytes/sec) vs Packet Size"
xaxis 20,"Packet Size in bytes"
xformat 3,0
xscale 0,25
yaxis 16,"Bytes/sec"
yformat 3,0
yscale 0,7000
flatnumber
linetype line+points
symbol square
data
50 10410
150 27270
250 40300
350 52220
450 67860
annotate "Vax 11/750"
plot
overlay
symbol diamond
==> verifgbs.txt <==
!
! ACCELERATED VERIFY WITH IN-LINE CODING
! GJB 15/01/78
!
! STACK=70000 STREAMS=1
!
%CONTROL K'101011'
%BEGIN
%CONSTBYTEINTEGERNAME ID=K'160030'
%RECORDFORMAT DLF(%INTEGER PR,NEXT)
%RECORD(DLF)%ARRAY DIRL(0:K'7777')
%RECORD(DLF)%NAME BLKINFO
%RECORDFORMAT DF(%BYTEINTEGERARRAY NAME(0:5),%INTEGER FIRST,PR)
%RECORD(DF)%ARRAY DIRT(0:51)
%RECORD(DF)%NAME FILE
%RECORDFORMAT LF(%BYTEINTEGERARRAY NAME(0:15),%INTEGER FIRST,LAST, %C
DIRB,DIRLIST)
%RECORD(LF)%NAME LABEL
LABEL==DIRT(0)
%RECORDFORMAT PF(%BYTEINTEGER SERVICE,REPLY,%INTEGER A1, %C
%RECORD(DLF)%NAME A2,%INTEGER A3)
==> vp.txt <==
.PAGE
;****************** DPV 11 HANDLER *********************
; ELEMENT DVRVP IN NSILIB
;
; DPV11 Handler derived from the correspondng DUP11 handler.
;
; THIS VERSION PUTS THE FIRST 2 BYTES OF THE FRAME IN THE BUFFER'S
;PARAMETER BLOCK. THESE ARE NOT INCLUDED IN THE MESSAGE LENGTH.
;THE LENGTH COUNT MAY BE ZERO IF EITHER THE LENGTH REALY IS ZERO OR
;IF IT IS 256 BYTES. IN THE LATTER CASE THE POINTERS WILL BE NON-ZERO.
;
;** REGISTER DEFINITIONS **
DPVRCS=0
DPVRDB=2
DPVPSR=2
DPVTCS=4
DPVTDB=6
;** BIT DEFINITIONS **
TSOM=400
TEOM=1000
TEOMUP=2 ; TEOM in the upper byte.
==> whos.txt <==
%EXTERNALROUTINE WHO(%STRING (255) S)
%integer l
%externalstring (255) %fnspec fromstring(%string (255) s, %integer i,j)
%EXTERNALINTEGER UINFSEG = 9; %INTEGER UINFAD
UINFAD=UINFSEG<<18
%RECORDFORMAT %C
UINFF (%STRING(6) USER, %STRING(31) JOBDOCFILE, %C
%INTEGER MARK, FSYS, PROCNO, ISUFF, REASON, BATCHID, SESSICLIM, %C
SCIDENSAD, SCIDENS, STARTCNSL, AIOSTAT, SCT DATE, %C
SYNC1 DEST, SYNC2 DEST, ASYNC DEST, AACCT REC, AIC REVS, %C
%STRING(15)JOBNAME, %STRING(31)BASEFILE, %INTEGER PREVIC, %C
%INTEGER ITADDR0, ITADDR1, ITADDR2, ITADDR3, ITADDR4, %C
STREAM ID, DIDENT, SCARCITY, PREEMPTAT, %STRING(11)SPOOLRFILE, %C
%INTEGER FUNDS, SESSLEN, PRIORITY, DECKS, DRIVES, UEND)
%RECORD (uinff) %name UINF
UINF==RECORD(UINFAD)
%INTEGER NODE, TERM, BUFF
NODE = (UINF_ITADDR0>>16)&X'FF'
TERM = (UINF_ITADDR0>>8)&X'FF'
BUFF = UINF_ITADDR0&X'FF'
PRINTSTRING("you are on Node"); WRITE(NODE, 1)
==> workshop.txt <==
Workshop Talks
ISO and Wide Area Networks
The talk deals with the current situation in WAN Networking in the UK and the
plans for the transition from the current Coloured Book (CB) protocols to the
emerging ISO protocols.
The history of JANET (The Joint Academic Network) is described together with a
description of the current position and a short resume of the coverage of the
CB protocols on the machines in use in the Academic Community. This is
followed by a comparision between the CB protocols and those emerging from
ISO/CCITT. A description is then given of the plans now being made by the
Academic Community to achieve a transition to the ISO protocols without the
loss of major services or the creation of multiple non-communicating
networks.
Local Area Network Protocol Options
This talk outlines the major options for open system working on Local Area
==> x1.txt <==
Here is my list, I can't find the proper list of contacts etc, but
if you wants names/addresses for any of them please let me know
Amdahl: BBN: BT: Camtec: DCA:
Dynatech: GEC: IPAC: Memotec: Motorola:
Northern Telecom: Plessey: SESA: STC:
Telefile: Telematics: Thorn-Ericsson.
The following companies were approached but do not offer a distinct switch
at this time:
CASE: Logica: Timeplex (PADs only):
Jaguar: Gandalf (PADs only): Norsk Data.
Brian Gilmore
==> x25addrn.txt <==
@device[x2700]
@style[topmargin=0.5in,leftmargin=0.5in,bottommargin=0.5in]
@majorheading(EDNET addresses Post introduction of TelePAC)
@b[ Configuration of GEC 4190 KB#1 switch System No. 669]
@verbatim[
Line No Address Name Use Comments
lau 01 V 160000xx TRGS V35 Trunk to George Sq. #1
lau 02 IH 15000002 EA71 2976 fep (fe2) (Primary Line)
lau 03 H 150010xx TRK2 Link to KB2 TelePAC CPSE
lau 04 M 15000004 E882 Xcall - XXX <-> ITP Converter
lau 05 TM 15000099 GW01 Gateway to JANET (Extern:000007001004)
lau 06 M 15000006 CSVX ECSVax - Comp. Sc. Vax No XXX, ITP only
lau 07 M 15000007 XGTE (Second Xcall)
lau 08 M -------- GSCP Multiplexor Trunk Link to George Sq. Switch
lau 09 IM 15000001 EA72 2976 Fep (fe1) (Secondary Line)
lau 10 M 15000010 ERCV ERCVax - ERCC Vax/VMS 11/750
lau 11 M 15000003 E881 Bush fep (fe2)
lau 12 T -------- STSW Trunk Link to Strathclyde (nb: DTE end)
lau 13 15000013 TCP1 TCP M
lau 14 15000114 LA14 FCRNPD - FCRNS Pad
==> x25addrold.txt <==
@device[x2700]
@style[topmargin=0.5in,leftmargin=0.5in,bottommargin=0.5in]
@majorheading(EDNet addresses 7 August 1985)
@b[ Configuration of GEC 4190 KB#1 switch System No. 669]
@verbatim[
Line No Address Name Use Comments
lau 01 M 15000001 EA72 2972 fep (fe1) (Secondary Line)
lau 02 M 15000002 EA71 2972 fep (fe2) (Primary Line)
lau 03 M 15000003 E881 2988 fep (fe2)
lau 04 M 15000004 E882 Xcall - XXX <-> ITP Converter
lau 05 M 15000099 GW01 Gateway to National Switch (Extern:7001004)
lau 06 M 15000006 CSVX ECSVax - Comp. Sc. Vax No XXX, ITP only
lau 07 M 15000007 XGTE Xgate
lau 08 M -------- GSCP Trunk Link to George Sq. Switch
lau 09 M 15000009 LA09 Link to 4160 CPSE (19.2kb)
lau 10 15000010 ERCV ERCVax - ERCC Vax/VMS 11/750
lau 11 15000011 JPAD KBPad1
D 15000111 KBPad2
lau 12 T -------- STSW Trunk Link to Strathclyde (nb: DTE end)
lau 13 15000013 TCP1 TCP M
==> x25addr.txt <==
@device[x2700]
@style[topmargin=0.5in,leftmargin=0.5in,bottommargin=0.5in]
@majorheading(EDNET addresses 20 December 1985)
@b[ Configuration of GEC 4190 KB#1 switch System No. 669]
@verbatim[
Line No Address Name Use Comments
lau 01 V -------- TRGS * V35 Trunk to George Sq.
lau 02 H 15000002 EA71 2972 fep (fe2) (Primary Line)
lau 03 H -------- TRK2 Link to KB2 CPSE
lau 04 M 15000004 E882 Xcall - XXX <-> ITP Converter
lau 05 TM 15000099 GW01 Gateway to National Switch (Extern:7001004)
lau 06 M 15000006 CSVX ECSVax - Comp. Sc. Vax No XXX, ITP only
lau 07 M 15000007 XGTE Xgate
lau 08 M -------- GSCP Trunk Link to George Sq. Switch
lau 09 M 15000001 EA72 2972 Fep (fe1) (Secondary Line)
lau 10 M 15000010 ERCV ERCVax - ERCC Vax/VMS 11/750
lau 11 M 15000003 E881 2988 fep (fe2)
lau 12 T -------- STSW Trunk Link to Strathclyde (nb: DTE end)
lau 13 15000013 TCP1 TCP M
lau 14 15000014 LA14 FCRNS - Forrestry Commision TCP (EFC)
==> x25conv.txt <==
Conversion from NSI to X25 - DRAFT 4
==========================
The Conversion from NSI to X25 will be done in 3 phases, they are:-
Phase 1: Establishment of an X25 Service. May & June
Links from the existing ERCC GEC 4065 will be moved to the 4190
An FEP from both the 2972 and 2988 will be moved onto the 4190
All TCPs without RJE devices will be moved onto the 4190.
The second 4190 will be brought into service.
Phase 2: Majority of services provided by X25 July & August
All existing hosts on NSI will be moved to X25 (or Ring).
All remaining Edinburgh TCPs will be moved to X25.
At the endo of this period, Node 9 will be taken out of Service.
Phase 3: Final rundown of the NSI Network September - December
The remaining 1130 packages will be converted/replaced/disconnected.
The 11/40 in the Appleton Tower will be taken out of service when the
==> x25extras.txt <==
@make[report]
@device[x2700]
@flushright[Report Annex 1]
@majorheading[X25 Campus Packet Switching Exchange (CPSE)
Additional Specification]
@paragraph[Control]
The following should be possible without a reload of the entire switch.
@begin[itemize]
Change Link addresses and routing tables
change line speeds.
change Logical group assignments
change between DTE and DCE
@end[itemize]
@subheading[Configuration A]
@begin[verbatim]
PSE with 10 X25 connections - 1 x 48 kbps, 9 x 9.6 kbps,
==> xrco.txt <==
{{Horizontal}}
{{circle(10,26,0.75)}}
{{circle(10,23,0.75)}}
{{circle(10,20,1)}}
{{circle(10,14,3)}}
{{circle(10,5,3)}}
{{circle(24,10.5,0.5)}}
{{circle(24,9.5,0.5)}}
{{circle(24,8.5,0.5)}}
{{circle(24,2.5,0.5)}}
{{circle(29,14,1.5)}}
{{circle(7,17.6,0)}}
{{circle(15.4,17.6,0)}}
{{circle(17.8,17.6,0)}}
{{circle(20.2,17.6,0)}}
{{circle(22.6,17.6,0)}}
{{circle(25,17.6,0)}}
{{circle(24,16.5,0)}}
{{circle(13,1.4,0)}}
{{circle(15.4,1.4,0)}}
{{circle(17.8,1.4,0)}}
==> ybgate.txt <==
DEIMOS
Vsn 5, 11 April '85
B. Gilmore
Yellow Book GATE - to - TASK Interface
=======================================
This note describes the interface between a Task and a 'Yellow
book' GATE. The intention with a 'yellow book' GATE is that the interface
is common accross NSI, (TS)BSP and X25, though each protocol will require a
different GATE.
The interface operates by the sending of messages as records, 'P', in
the format:
%BYTEINTEGER SER, REPLY, FN, S1, %C
(%RECORD (MEF) %NAME MES, %C
%BYTEINTEGER GATE PORT, TASK PORT) %OR
==> zeps.txt <==
%EXTERNALROUTINE ZEPPELIN(%STRING(1) S)
%INTEGERARRAY SPACE(1:10,0:79)
%INTEGERARRAY BOMB,HANGAR,ZEPP,X,Y,NME,NMEX,NMEY,NMEB,NMEH,NMET(1:6)
%INTEGERARRAY GUN(24:55), TARGET(67:72), NMEHAN(73:78), BASE(7:12)
%INTEGER A,B,XX,YY,C,WHICH,UNKNOWN,R,TOTAL,ZS,AS
%STRING (20) ANS,NAME
%ROUTINESPEC CONVERT(%STRING(20) A,%INTEGERNAME B)
%ROUTINESPEC SCORE
%ROUTINESPEC DROP
%ROUTINESPEC NMEDROP
%ROUTINESPEC SELECT
%ROUTINESPEC FIRE
%ROUTINESPEC LAUNCH
%ROUTINESPEC NMELAUNCH
%ROUTINESPEC MOVE
%ROUTINESPEC NMEMOVE
%ROUTINESPEC NMEOPT(%INTEGER C)
%ROUTINESPEC RETARGET
%ROUTINESPEC BELLS(%INTEGER N)
%ROUTINESPEC DRAW
%ROUTINESPEC RST(%STRINGNAME S)
==> z.txt <==
%begin
%externalroutinespec prompt(%string(63) s)
%externalroutinespec xmode(%string(255) s)
%externalroutinespec terminate
%integer i,j
%integerarray line(1:80)
prompt(tostring(0))
xmode("NATIVE,-E")
j=0
%cycle
readch(i);
%unless 'a'<=i<='z' %then printch(i) %else printch(i-'a'+'A')
printch('*');terminate
%if i=26 {^Z} %then xmode("MESSAGE,E") %AND %STOP
%if i=10 %start
printch(13)
! newline
%cycle i=1,1,j
printch(line(i))
%repeat
==> zzombie.txt <==
%EXTERNALROUTINE ZOMBIE(%STRING (255)S)
%INTEGER Z1, Z2
%EXTERNALROUTINESPEC PEHOME
%EXTERNALROUTINESPEC PECLEAR
%EXTERNALROUTINESPEC PECLINE(%INTEGER A)
%EXTERNALROUTINESPEC PEUP
%EXTERNALROUTINESPEC PEDOWN
%EXTERNALROUTINESPEC PERIGHT
%EXTERNALROUTINESPEC PELEFT
%EXTERNALROUTINESPEC PEPOS(%INTEGER X,Y)
%EXTERNALROUTINESPEC PEPROMPT(%INTEGER X,YM %STRINGNAME S)
%EXTERNALREALFNSPEC RANDOM(%INTEGERNAME I, %INTEGER J)
%EXTERNALROUTINESPEC SETMODE(%STRING (255)S)
%EXTERNALSTRING (8) %FNSPEC TIME
%ROUTINESPEC WIN
%ROUTINESPEC START
%ROUTINESPEC PLAY
%ROUTINESPEC GRABBED
%ROUTINESPEC ZFALL
Name Last modified Size Description
![[TXT]](/icons/text.gif)
b_fix.txt 2008-10-12 00:53 0
kbstats.txt 2008-10-12 00:50 0
start.txt 2008-10-12 00:51 12
ftu.txt 2008-10-12 00:46 16
test2.txt 2008-10-12 00:53 20
temp.txt 2008-10-12 00:42 28
b_det23.txt 2008-10-12 00:45 31
erteicl_xssllps.txt 2008-10-12 00:53 32
b_det.txt 2008-10-12 00:46 46
b_umc.txt 2008-10-12 00:41 67
b_peek.txt 2008-10-12 00:40 70
b_rles.txt 2008-10-12 00:43 72
b_down.txt 2008-10-12 00:46 74
b_snoop.txt 2008-10-12 00:46 77
b_bou.txt 2008-10-12 00:45 79
b_ringk.txt 2008-10-12 00:50 81
b_parr.txt 2008-10-12 00:49 84
b_pcl.txt 2008-10-12 00:42 85
b_inv.txt 2008-10-12 00:45 88
b_batch.txt 2008-10-12 00:47 89
b_loadup.txt 2008-10-12 00:54 89
b_supbl.txt 2008-10-12 00:53 91
b_umctest.txt 2008-10-12 00:53 92
testats.txt 2008-10-12 00:54 92
b_lm2976.txt 2008-10-12 00:42 95
b_lmeor.txt 2008-10-12 00:45 95
b_lminfo.txt 2008-10-12 00:53 95
b_lmpsse.txt 2008-10-12 00:39 95
tests.txt 2008-10-12 00:54 95
b_gate.txt 2008-10-12 00:42 96
b_parrf.txt 2008-10-12 00:46 97
b_ring.txt 2008-10-12 00:54 97
b_zomnew.txt 2008-10-12 00:53 97
b_nbsmon.txt 2008-10-12 00:41 98
b_temp.txt 2008-10-12 00:47 98
b_fsave.txt 2008-10-12 00:42 99
b_lyn.txt 2008-10-12 00:54 99
b_nlpx.txt 2008-10-12 00:54 99
b_zom.txt 2008-10-12 00:53 100
b_loads.txt 2008-10-12 00:53 101
b_nsiw.txt 2008-10-12 00:53 102
b_link.txt 2008-10-12 00:42 103
b_ncon.txt 2008-10-12 00:48 110
b_veris.txt 2008-10-12 00:42 111
b_bdk.txt 2008-10-12 00:42 112
b_cli.txt 2008-10-12 00:45 112
b_rl01.txt 2008-10-12 00:46 112
b_dpal.txt 2008-10-12 00:45 113
b_nodesim.txt 2008-10-12 00:50 113
b_bsp.txt 2008-10-12 00:45 114
b_lmacc.txt 2008-10-12 00:49 116
b_lmcon.txt 2008-10-12 00:41 116
b_load8.txt 2008-10-12 00:53 117
b_ringdma.txt 2008-10-12 00:52 117
b_comms.txt 2008-10-12 00:48 118
b_gecstr.txt 2008-10-12 00:45 119
![[ ]](/icons/generic.gif)
fix-layout.ecc 2008-10-12 00:45 119
b_nlp3s.txt 2008-10-12 00:51 120
b_fsys.txt 2008-10-12 00:43 121
b_bspd.txt 2008-10-12 00:53 122
b_bspxg.txt 2008-10-12 00:41 122
b_dbug.txt 2008-10-12 00:47 123
tsbsp_tst_compile.txt 2008-10-12 00:54 124
b_ftpn.txt 2008-10-12 00:43 125
b_ftpold.txt 2008-10-12 00:53 125
b_ftpring.txt 2008-10-12 00:46 125
b_gecgrab.txt 2008-10-12 00:45 125
b_game.txt 2008-10-12 00:41 128
b_sbld.txt 2008-10-12 00:46 128
b_sbld5.txt 2008-10-12 00:50 128
b_prt9f.txt 2008-10-12 00:43 129
graham.txt 2008-10-12 00:48 131
b_nbss.txt 2008-10-12 00:46 132
b_exters.txt 2008-10-12 00:54 133
b_fepload.txt 2008-10-12 00:50 134
b_lmtim.txt 2008-10-12 00:46 137
b_fsys78.txt 2008-10-12 00:46 138
b_lmacxs.txt 2008-10-12 00:50 138
b_moth.txt 2008-10-12 00:53 139
b_ftpp.txt 2008-10-12 00:43 140
b_lmxs.txt 2008-10-12 00:40 143
b_rolb.txt 2008-10-12 00:53 143
b_lmcoxs.txt 2008-10-12 00:48 144
b_lmcox2s.txt 2008-10-12 00:42 146
b_am1o.txt 2008-10-12 00:46 147
b_dx11.txt 2008-10-12 00:53 147
b_nbsmox.txt 2008-10-12 00:41 147
lex2.txt 2008-10-12 00:45 148
b_gecgrabn.txt 2008-10-12 00:41 149
b_ringnew.txt 2008-10-12 00:41 149
b_dpalnew.txt 2008-10-12 00:45 150
b_lmacx2s.txt 2008-10-12 00:53 150
b_itpx.txt 2008-10-12 00:41 151
ftppd_build.txt 2008-10-12 00:40 151
b_nbsp.txt 2008-10-12 00:46 152
b_rjesx.txt 2008-10-12 00:42 153
test.txt 2008-10-12 00:43 154
b_nodesimold.txt 2008-10-12 00:40 158
b_rjes.txt 2008-10-12 00:40 158
tr.txt 2008-10-12 00:49 158
b_itps.txt 2008-10-12 00:41 159
b_sup.txt 2008-10-12 00:54 159
b_xxxe.txt 2008-10-12 00:53 164
b_info.txt 2008-10-12 00:41 165
ftppd_buildb.txt 2008-10-12 00:50 165
b_xxxbig.txt 2008-10-12 00:47 166
b_ftpx.txt 2008-10-12 00:44 169
b_ftpsnew.txt 2008-10-12 00:51 170
b_pollpad.txt 2008-10-12 00:42 170
b_xxxa.txt 2008-10-12 00:53 170
b_ftpb.txt 2008-10-12 00:43 171
biog.txt 2008-10-12 00:40 171
b_ftpgn.txt 2008-10-12 00:52 172
b_infopsse.txt 2008-10-12 00:54 173
b_infoxcall.txt 2008-10-12 00:40 173
b_buff.txt 2008-10-12 00:54 174
cpsesumm.txt 2008-10-12 00:48 176
b_infops.txt 2008-10-12 00:41 177
b_lmxxxs.txt 2008-10-12 00:47 177
atstats.txt 2008-10-12 00:53 178
b_bspnew.txt 2008-10-12 00:41 178
b_lmn6.txt 2008-10-12 00:53 178
b_lm2980.txt 2008-10-12 00:42 179
b_infop.txt 2008-10-12 00:45 180
b_lmiots.txt 2008-10-12 00:41 180
b_mail.txt 2008-10-12 00:49 183
kxprot.txt 2008-10-12 00:50 184
b_lmtsxs.txt 2008-10-12 00:45 185
b_dx11bb.txt 2008-10-12 00:46 186
inc_csidefs.txt 2008-10-12 00:53 186
b_bspdnew.txt 2008-10-12 00:46 187
b_prt12.txt 2008-10-12 00:41 188
b_lmtsxbs.txt 2008-10-12 00:40 191
b_am1.txt 2008-10-12 00:41 192
b_am1b.txt 2008-10-12 00:46 196
b_am1m.txt 2008-10-12 00:46 196
b_ftpd.txt 2008-10-12 00:43 197
b_lm2972.txt 2008-10-12 00:42 199
b_rjee.txt 2008-10-12 00:55 201
fred.txt 2008-10-12 00:47 201
b_lotups.txt 2008-10-12 00:52 206
b_lmlsse.txt 2008-10-12 00:46 211
newsys_doitall.txt 2008-10-12 00:40 214
b_ftpra.txt 2008-10-12 00:54 217
b_ftpxa.txt 2008-10-12 00:39 217
b_tolp23.txt 2008-10-12 00:44 221
discovs.txt 2008-10-12 00:41 224
b_ftpgx.txt 2008-10-12 00:53 227
b_infoamd.txt 2008-10-12 00:43 228
b_ftpgbx.txt 2008-10-12 00:48 229
ss2.txt 2008-10-12 00:43 230
b_lmss.txt 2008-10-12 00:54 244
b_ftpr.txt 2008-10-12 00:43 250
inc_fsys.txt 2008-10-12 00:45 273
rand.txt 2008-10-12 00:46 274
b_xprotm.txt 2008-10-12 00:46 275
inc_vt100.txt 2008-10-12 00:45 277
b_xprot.txt 2008-10-12 00:41 278
b_xprotp.txt 2008-10-12 00:46 278
sxprot.txt 2008-10-12 00:53 278
b_xproty.txt 2008-10-12 00:46 282
b_xprotyp.txt 2008-10-12 00:50 282
tsbsp_deimos.txt 2008-10-12 00:46 291
inc_colourdefs.txt 2008-10-12 00:43 294
b_xprotbm.txt 2008-10-12 00:45 297
b_xprotb.txt 2008-10-12 00:45 300
slide4.txt 2008-10-12 00:45 300
b_verisnew.txt 2008-10-12 00:52 303
b_fbgatex.txt 2008-10-12 00:40 310
b_fgatex.txt 2008-10-12 00:40 332
inc_itpint.txt 2008-10-12 00:44 335
readme.txt 2008-10-12 00:46 337
b_xgate.txt 2008-10-12 00:42 339
b_bgatex.txt 2008-10-12 00:40 363
fepb_notes.txt 2008-10-12 00:48 363
kents_notes.txt 2008-10-12 00:47 363
tsbsp_tst_rawst.txt 2008-10-12 00:40 365
b_xprotks.txt 2008-10-12 00:46 367
tu58_suptu3.txt 2008-10-12 00:46 370
tsbsp_tscodes.txt 2008-10-12 00:50 381
inc_records.txt 2008-10-12 00:42 402
vaxperf2.txt 2008-10-12 00:53 405
capsub86.txt 2008-10-12 00:50 408
vaxperf.txt 2008-10-12 00:45 420
libtalk3.txt 2008-10-12 00:50 421
pssbuild_suppss.txt 2008-10-12 00:53 446
isotrsl_slide3.txt 2008-10-12 00:48 449
slide3.txt 2008-10-12 00:45 449
b_ftprnew.txt 2008-10-12 00:41 465
cpsesetth.txt 2008-10-12 00:52 472
figs.txt 2008-10-12 00:43 473
capsub83.txt 2008-10-12 00:50 474
alert.txt 2008-10-12 00:41 491
ftpsoak.txt 2008-10-12 00:40 491
inc_gateint.txt 2008-10-12 00:53 493
amstradfs.txt 2008-10-12 00:53 495
devlog2.txt 2008-10-12 00:54 502
node_go.txt 2008-10-12 00:40 503
sys_superte.txt 2008-10-12 00:53 503
reqs.txt 2008-10-12 00:41 505
dmareq.txt 2008-10-12 00:45 511
newsys_build.txt 2008-10-12 00:40 512
newsys_suprin.txt 2008-10-12 00:45 514
nhs2.txt 2008-10-12 00:40 518
isotrsl_slide1.txt 2008-10-12 00:48 523
readtest.txt 2008-10-12 00:40 524
b_changes.txt 2008-10-12 00:51 527
inc_terms.txt 2008-10-12 00:47 527
tsbsp_tst_readthis.txt 2008-10-12 00:53 532
inc2_exts.txt 2008-10-12 00:40 538
kmc11_kmcdrvs.txt 2008-10-12 00:46 543
inc_services.txt 2008-10-12 00:48 549
z.txt 2008-10-12 00:41 555
inc2_various.txt 2008-10-12 00:42 564
cleans.txt 2008-10-12 00:49 577
newsys_supde0.txt 2008-10-12 00:42 580
isotrsl_slide4.txt 2008-10-12 00:48 592
b_deimosspecs.txt 2008-10-12 00:45 599
cv1.txt 2008-10-12 00:40 602
isotrsl_slide2.txt 2008-10-12 00:48 612
x1.txt 2008-10-12 00:48 612
gecsys669.txt 2008-10-12 00:54 619
ftppd_readme.txt 2008-10-12 00:52 623
inc_deimosperm.txt 2008-10-12 00:41 632
devlog1.txt 2008-10-12 00:54 649
lexicon.txt 2008-10-12 00:48 668
gecenhrest.txt 2008-10-12 00:54 731
ibmdoc_ibmcons.txt 2008-10-12 00:46 734
inc_colourspecs.txt 2008-10-12 00:45 754
kprims.txt 2008-10-12 00:40 754
tu58test.txt 2008-10-12 00:45 761
kent#jun81_notes.txt 2008-10-12 00:50 774
networks85_titlesh.txt 2008-10-12 00:54 788
titlesh.txt 2008-10-12 00:42 788
erteicl_sqrts.txt 2008-10-12 00:54 791
dum2.txt 2008-10-12 00:53 822
grakb.txt 2008-10-12 00:46 824
net87tit.txt 2008-10-12 00:53 838
spider2.txt 2008-10-12 00:41 885
inc2_bformats.txt 2008-10-12 00:50 909
node_subpb1145.txt 2008-10-12 00:48 913
supb1145.txt 2008-10-12 00:48 913
inc2_formats.txt 2008-10-12 00:45 914
fepconn.txt 2008-10-12 00:52 917
grate.txt 2008-10-12 00:49 918
networks85_slide1.txt 2008-10-12 00:40 958
telem.txt 2008-10-12 00:50 965
docum_speeds.txt 2008-10-12 00:46 1.0K
erteicl_printd.txt 2008-10-12 00:53 1.0K
equipprop.txt 2008-10-12 00:45 1.0K
prob2988.txt 2008-10-12 00:46 1.0K
parits.txt 2008-10-12 00:53 1.0K
netsig.txt 2008-10-12 00:40 1.0K
networks85_title.txt 2008-10-12 00:51 1.0K
title.txt 2008-10-12 00:43 1.0K
netsig485.txt 2008-10-12 00:44 1.0K
node_supde0.txt 2008-10-12 00:53 1.0K
cursorlyns.txt 2008-10-12 00:44 1.1K
cursors.txt 2008-10-12 00:45 1.1K
config509.txt 2008-10-12 00:42 1.1K
msrdoc.txt 2008-10-12 00:46 1.1K
imp77specs.txt 2008-10-12 00:53 1.1K
alist11s.txt 2008-10-12 00:40 1.1K
b_deimosperm.txt 2008-10-12 00:53 1.1K
deimosperm.txt 2008-10-12 00:49 1.1K
b_ygatecalls.txt 2008-10-12 00:40 1.1K
tsbsp_tst_stab.txt 2008-10-12 00:45 1.1K
ftptest.txt 2008-10-12 00:45 1.2K
ddload.txt 2008-10-12 00:45 1.2K
coraltrans.txt 2008-10-12 00:45 1.2K
kents1280_notes.txt 2008-10-12 00:43 1.2K
docum_speeds.html 2008-10-12 00:42 1.2K
workshop.txt 2008-10-12 00:40 1.2K
whos.txt 2008-10-12 00:46 1.2K
tes5.txt 2008-10-12 00:42 1.3K
cpsequest.txt 2008-10-12 00:41 1.3K
tsbsp_tst_sttext.txt 2008-10-12 00:46 1.3K
tsbsp_rawst.txt 2008-10-12 00:42 1.3K
advent_item.txt 2008-10-12 00:48 1.3K
cpse.txt 2008-10-12 00:49 1.3K
sys_rxboot.txt 2008-10-12 00:46 1.4K
tu58_bottus.txt 2008-10-12 00:42 1.4K
config.txt 2008-10-12 00:45 1.4K
erteicl_cputs.txt 2008-10-12 00:47 1.4K
spider.txt 2008-10-12 00:53 1.4K
fspec2.txt 2008-10-12 00:46 1.4K
infoinput.txt 2008-10-12 00:49 1.4K
feploads.txt 2008-10-12 00:50 1.5K
rxdump.txt 2008-10-12 00:50 1.5K
inc2_sers.txt 2008-10-12 00:50 1.5K
hextobin.txt 2008-10-12 00:53 1.5K
kmc11_kloads.txt 2008-10-12 00:53 1.6K
nhs1.txt 2008-10-12 00:40 1.6K
inc2_xgtfns.txt 2008-10-12 00:40 1.6K
usercmdec.txt 2008-10-12 00:49 1.7K
gecresults.txt 2008-10-12 00:43 1.7K
kmc11_krecos.txt 2008-10-12 00:52 1.7K
jntnews.txt 2008-10-12 00:46 1.8K
nrsdo.txt 2008-10-12 00:40 1.9K
usercmfeb.txt 2008-10-12 00:54 1.9K
jtmp.txt 2008-10-12 00:45 1.9K
tu58_bintus.txt 2008-10-12 00:41 2.0K
capsub85.txt 2008-10-12 00:50 2.0K
paddoc.txt 2008-10-12 00:47 2.1K
sys_moth77s.txt 2008-10-12 00:50 2.1K
newsys_moth77.txt 2008-10-12 00:46 2.1K
jntprop.txt 2008-10-12 00:46 2.2K
ibmdoc_c3.txt 2008-10-12 00:52 2.2K
sys_moth6s.txt 2008-10-12 00:40 2.2K
reportmay84.txt 2008-10-12 00:48 2.2K
reportfeb84.txt 2008-10-12 00:49 2.2K
ring_basblktes.txt 2008-10-12 00:53 2.3K
x25extras.txt 2008-10-12 00:42 2.3K
reportsep.txt 2008-10-12 00:41 2.3K
usergroup.txt 2008-10-12 00:53 2.3K
gecenhres.txt 2008-10-12 00:53 2.4K
iunc.txt 2008-10-12 00:54 2.4K
docum_mflop.txt 2008-10-12 00:55 2.5K
advertinfo.txt 2008-10-12 00:45 2.5K
telepacpas.txt 2008-10-12 00:43 2.5K
ibmdoc_f2.txt 2008-10-12 00:53 2.5K
sys_bdk4s.txt 2008-10-12 00:48 2.6K
erteicl_times.txt 2008-10-12 00:49 2.6K
log_t44sat3.txt 2008-10-12 00:48 2.6K
erteicl_arith2.txt 2008-10-12 00:49 2.6K
log_t44sat1.txt 2008-10-12 00:48 2.6K
ftppd_tableold.txt 2008-10-12 00:40 2.6K
newsys_bdk6s.txt 2008-10-12 00:45 2.7K
ftppd_table.txt 2008-10-12 00:43 2.7K
usercmoct83.txt 2008-10-12 00:42 2.7K
erteicl_avars.txt 2008-10-12 00:40 2.7K
docum_mflop.html 2008-10-12 00:54 2.7K
inc2_configf.txt 2008-10-12 00:47 2.7K
newsys_bdk7s.txt 2008-10-12 00:45 2.7K
log_t44sat2.txt 2008-10-12 00:48 2.7K
reportmar.txt 2008-10-12 00:42 2.8K
reportdec.txt 2008-10-12 00:54 2.8K
pclocks.txt 2008-10-12 00:46 2.8K
inc2_config.txt 2008-10-12 00:46 2.8K
rjeprops.txt 2008-10-12 00:53 2.8K
node2s.txt 2008-10-12 00:43 2.9K
ftppd_cons.txt 2008-10-12 00:43 2.9K
inc2_discquals.txt 2008-10-12 00:42 2.9K
nodes.txt 2008-10-12 00:40 2.9K
advent_move.txt 2008-10-12 00:46 3.0K
snoops.txt 2008-10-12 00:54 3.0K
ecucrpt.txt 2008-10-12 00:53 3.1K
dirs.txt 2008-10-12 00:42 3.1K
infcolours.txt 2008-10-12 00:45 3.1K
commsrpt.txt 2008-10-12 00:48 3.2K
node_rles77.txt 2008-10-12 00:43 3.3K
ibmdoc_e2.txt 2008-10-12 00:53 3.3K
ftppd_obj.txt 2008-10-12 00:43 3.3K
cons.txt 2008-10-12 00:45 3.3K
kmc11_kexts.txt 2008-10-12 00:45 3.3K
fecount.txt 2008-10-12 00:43 3.3K
tudumps.txt 2008-10-12 00:50 3.3K
impsrc.txt 2008-10-12 00:40 3.3K
ftppd_doc.txt 2008-10-12 00:53 3.5K
pclo2s.txt 2008-10-12 00:43 3.5K
node_umcs.txt 2008-10-12 00:53 3.5K
response_n7t9dec22b.txt 2008-10-12 00:42 3.6K
response_n7t9dec22a.txt 2008-10-12 00:42 3.6K
response_infodec22.txt 2008-10-12 00:45 3.6K
response_kentdec22.txt 2008-10-12 00:40 3.6K
response2_info12jan.txt 2008-10-12 00:46 3.6K
response_info12jan.txt 2008-10-12 00:40 3.6K
response2_fe0jan12.txt 2008-10-12 00:40 3.6K
response_fe0jan12.txt 2008-10-12 00:40 3.6K
ibmdoc_i1.txt 2008-10-12 00:53 3.6K
response_n80t80jan6.txt 2008-10-12 00:41 3.6K
response2_fe1jan12.txt 2008-10-12 00:43 3.6K
response_fe1jan12.txt 2008-10-12 00:42 3.6K
response_n6t181jan11.txt 2008-10-12 00:40 3.6K
tsbsp_stab.txt 2008-10-12 00:50 3.6K
response_n9t180jan11.txt 2008-10-12 00:40 3.6K
response_pssloopjan7.txt 2008-10-12 00:54 3.6K
response_fe1jan11.txt 2008-10-12 00:42 3.6K
response_n0t9dec22.txt 2008-10-12 00:50 3.6K
response_n9t75dec22.txt 2008-10-12 00:40 3.6K
response_fe0jan13.txt 2008-10-12 00:40 3.6K
response_fe1jan13.txt 2008-10-12 00:42 3.6K
advent_desc.txt 2008-10-12 00:48 3.7K
response_n80t80dec21.txt 2008-10-12 00:46 3.7K
isotran.txt 2008-10-12 00:45 3.7K
fullscreen.txt 2008-10-12 00:46 3.7K
edintcps.txt 2008-10-12 00:50 3.8K
ibmdoc_b7.txt 2008-10-12 00:52 3.8K
ertedgn_rk07s.txt 2008-10-12 00:54 3.9K
node_parr1e.txt 2008-10-12 00:42 3.9K
nodemons.txt 2008-10-12 00:54 4.0K
mon.txt 2008-10-12 00:46 4.0K
response_fe121jan.txt 2008-10-12 00:43 4.1K
ls0124.txt 2008-10-12 00:42 4.1K
cent.txt 2008-10-12 00:40 4.1K
response_mfe1jan22.txt 2008-10-12 00:49 4.1K
response_fe1jan25.txt 2008-10-12 00:43 4.1K
i77p.txt 2008-10-12 00:41 4.2K
bush83.txt 2008-10-12 00:43 4.2K
ibmdoc_b6.txt 2008-10-12 00:52 4.5K
docum_dfaults.txt 2008-10-12 00:45 4.5K
docum_dfaults.html 2008-10-12 00:43 4.5K
myusers.txt 2008-10-12 00:41 4.6K
erteburr_init70.txt 2008-10-12 00:41 4.6K
erteicl_init70.txt 2008-10-12 00:48 4.6K
erteicl_initdu.txt 2008-10-12 00:43 4.6K
rl04s.txt 2008-10-12 00:44 4.6K
padans.txt 2008-10-12 00:41 4.6K
kents1280_namedoclp.txt 2008-10-12 00:43 4.7K
sys_brun10.txt 2008-10-12 00:45 4.7K
sys_rl04s.txt 2008-10-12 00:54 4.8K
dqs12e.txt 2008-10-12 00:46 4.8K
netnotes.txt 2008-10-12 00:46 4.8K
networks85_netnotes.txt 2008-10-12 00:54 4.8K
zzombie.txt 2008-10-12 00:40 4.9K
fepmons.txt 2008-10-12 00:50 4.9K
node_dqs12e.txt 2008-10-12 00:46 4.9K
dumpgecjb.txt 2008-10-12 00:48 4.9K
erte_init70.txt 2008-10-12 00:41 5.0K
init70.txt 2008-10-12 00:49 5.0K
erteinit6.txt 2008-10-12 00:41 5.1K
mainmon.txt 2008-10-12 00:41 5.1K
init82.txt 2008-10-12 00:49 5.1K
node_dvno1s.txt 2008-10-12 00:43 5.2K
node_dup11e.txt 2008-10-12 00:39 5.2K
color3s.txt 2008-10-12 00:46 5.3K
node_umc1e.txt 2008-10-12 00:41 5.3K
ftppd_tablist.txt 2008-10-12 00:41 5.3K
ftppd_newlist.txt 2008-10-12 00:53 5.5K
newsys_rl06s.txt 2008-10-12 00:52 5.5K
log_n1.txt 2008-10-12 00:45 5.5K
tu58_tu582s.txt 2008-10-12 00:48 5.5K
ertedgn_init90.txt 2008-10-12 00:42 5.6K
sys_rx021s.txt 2008-10-12 00:48 5.7K
sys_tu58s.txt 2008-10-12 00:45 5.7K
fspec.txt 2008-10-12 00:49 5.7K
node_nlp3s.txt 2008-10-12 00:45 5.8K
ibmdoc_b4.txt 2008-10-12 00:52 5.8K
ring_lmcors.txt 2008-10-12 00:40 5.8K
docum_mdbug.txt 2008-10-12 00:45 5.9K
docum_mdbug.html 2008-10-12 00:47 6.0K
dum3.txt 2008-10-12 00:53 6.0K
dum4.txt 2008-10-12 00:53 6.0K
eamdum.txt 2008-10-12 00:42 6.0K
docum_ddbug.txt 2008-10-12 00:43 6.0K
docum_ddbug.html 2008-10-12 00:43 6.0K
gateway.txt 2008-10-12 00:39 6.0K
ring_lmacrs.txt 2008-10-12 00:41 6.2K
sys_rx023s.txt 2008-10-12 00:48 6.2K
testout3.txt 2008-10-12 00:42 6.3K
kents1280_buff3.txt 2008-10-12 00:41 6.4K
erte_dup11e.txt 2008-10-12 00:45 6.4K
ibmdoc_a5.txt 2008-10-12 00:50 6.4K
sys_dvam1s.txt 2008-10-12 00:40 6.4K
erteicl_du11e.txt 2008-10-12 00:43 6.5K
erteburr_dup11eicl.txt 2008-10-12 00:41 6.5K
erteicl_dup11e.txt 2008-10-12 00:54 6.5K
erte_duxxe.txt 2008-10-12 00:45 6.7K
erte_dupxxe.txt 2008-10-12 00:50 6.7K
sys_lkdl2s.txt 2008-10-12 00:45 6.7K
node_nbsmon.txt 2008-10-12 00:54 6.7K
tsbsp_tst_source.txt 2008-10-12 00:51 6.8K
ringtester_ringts.txt 2008-10-12 00:50 6.8K
x25conv.txt 2008-10-12 00:40 6.9K
buff3.txt 2008-10-12 00:41 7.0K
sxmode.txt 2008-10-12 00:43 7.0K
node_buff4.txt 2008-10-12 00:42 7.2K
lynp1s.txt 2008-10-12 00:41 7.4K
x25addrold.txt 2008-10-12 00:40 7.4K
cals.txt 2008-10-12 00:45 7.5K
verifgbs.txt 2008-10-12 00:42 7.5K
buff3s.txt 2008-10-12 00:42 7.5K
kents1280_names.txt 2008-10-12 00:54 7.5K
comm.txt 2008-10-12 00:45 7.6K
telepacrp2.txt 2008-10-12 00:50 7.6K
colorls.txt 2008-10-12 00:42 7.6K
sys_dvno3s.txt 2008-10-12 00:41 7.6K
tsbsp_tsdrivers.txt 2008-10-12 00:40 7.8K
docum_dsysman.txt 2008-10-12 00:41 7.8K
enhance.txt 2008-10-12 00:41 7.9K
ibmdoc_b5.txt 2008-10-12 00:52 7.9K
colors.txt 2008-10-12 00:49 7.9K
lynp2s.txt 2008-10-12 00:42 7.9K
node_nlps.txt 2008-10-12 00:48 8.0K
ringboot.txt 2008-10-12 00:46 8.1K
switchtox25.txt 2008-10-12 00:46 8.2K
btt6ss.txt 2008-10-12 00:54 8.2K
btt6xs.txt 2008-10-12 00:40 8.3K
sys_bvt1s.txt 2008-10-12 00:50 8.3K
sys_rx501s.txt 2008-10-12 00:43 8.3K
docum_dsysman.html 2008-10-12 00:45 8.4K
etherpict.txt 2008-10-12 00:40 8.4K
newsys_btt7s.txt 2008-10-12 00:45 8.4K
tsbsp_sttext.txt 2008-10-12 00:46 8.5K
bdiagram.txt 2008-10-12 00:41 8.6K
x25addr.txt 2008-10-12 00:41 8.6K
btt7ss.txt 2008-10-12 00:40 8.7K
sys_btt7s.txt 2008-10-12 00:48 8.7K
colorinfos.txt 2008-10-12 00:41 8.8K
ringans.txt 2008-10-12 00:48 8.8K
teledata.txt 2008-10-12 00:43 8.8K
telematics.txt 2008-10-12 00:50 8.8K
newsys_cli1s.txt 2008-10-12 00:45 8.9K
lmeots.txt 2008-10-12 00:48 9.0K
docum_dsydesc2.txt 2008-10-12 00:46 9.0K
docum_dsydesc2.html 2008-10-12 00:53 9.5K
telepacrep.txt 2008-10-12 00:48 9.5K
xrco.txt 2008-10-12 00:45 9.6K
sys_sbld12s.txt 2008-10-12 00:53 9.6K
sys_cli1s.txt 2008-10-12 00:48 9.6K
x25addrn.txt 2008-10-12 00:53 9.7K
log_t44simtest2.txt 2008-10-12 00:41 9.7K
docum_dsydesc.txt 2008-10-12 00:41 9.7K
sys_sbldrx3s.txt 2008-10-12 00:45 9.7K
sys_sbldrk3s.txt 2008-10-12 00:46 9.8K
sbldrl3s.txt 2008-10-12 00:49 9.8K
sys_sbldrl3s.txt 2008-10-12 00:50 9.8K
sys_sbldrl2s.txt 2008-10-12 00:49 9.8K
kent#jun81_zboots.txt 2008-10-12 00:54 10K
clog6s.txt 2008-10-12 00:52 10K
erte_clog6s.txt 2008-10-12 00:42 10K
erteicl_clog6s.txt 2008-10-12 00:50 10K
node_usert2s.txt 2008-10-12 00:54 10K
ednet.txt 2008-10-12 00:52 10K
docum_dsydesc.html 2008-10-12 00:46 10K
ednet1184.txt 2008-10-12 00:46 10K
sys_sin009.txt 2008-10-12 00:42 10K
sys_sin010.txt 2008-10-12 00:42 10K
node_userts.txt 2008-10-12 00:53 11K
flink.txt 2008-10-12 00:46 11K
kmc11_klink.txt 2008-10-12 00:42 11K
anlogs.txt 2008-10-12 00:45 11K
recode2s.txt 2008-10-12 00:43 11K
rolls.txt 2008-10-12 00:48 11K
sys_sin011.txt 2008-10-12 00:42 11K
sys_dvtu58s.txt 2008-10-12 00:46 11K
dvrvp.txt 2008-10-12 00:53 11K
vp.txt 2008-10-12 00:50 11K
ednet0385.txt 2008-10-12 00:42 11K
newsys_sinnew.txt 2008-10-12 00:47 11K
ring_lmeors.txt 2008-10-12 00:42 11K
parr4fs.txt 2008-10-12 00:46 11K
ednet1284.txt 2008-10-12 00:49 11K
ednet0285.txt 2008-10-12 00:40 11K
ring_rolles.txt 2008-10-12 00:46 11K
ednet0485.txt 2008-10-12 00:45 11K
erte_icl1s.txt 2008-10-12 00:52 12K
erteburr_icl1s.txt 2008-10-12 00:46 12K
erteicl_icl1s.txt 2008-10-12 00:54 12K
ednet0785.txt 2008-10-12 00:53 12K
node_parr3s.txt 2008-10-12 00:43 12K
ednet0486.txt 2008-10-12 00:45 12K
zeps.txt 2008-10-12 00:53 12K
ednet0286.txt 2008-10-12 00:40 12K
anlog2s.txt 2008-10-12 00:41 12K
ednet0586.txt 2008-10-12 00:46 12K
ringtester_rpts.txt 2008-10-12 00:50 13K
ednet1285.txt 2008-10-12 00:49 13K
erteburr_xbur1s.txt 2008-10-12 00:41 13K
ednet0686.txt 2008-10-12 00:48 13K
ednet0986.txt 2008-10-12 00:40 13K
ednet1086.txt 2008-10-12 00:45 13K
ednet0786.txt 2008-10-12 00:53 13K
files.txt 2008-10-12 00:40 13K
junk.txt 2008-10-12 00:46 13K
ednet1186.txt 2008-10-12 00:46 13K
ednet0187.txt 2008-10-12 00:54 14K
dgn1s.txt 2008-10-12 00:43 14K
ertedgn_dgn1s.txt 2008-10-12 00:45 14K
erteicl_dlog8s.txt 2008-10-12 00:40 14K
kmc11_krings.txt 2008-10-12 00:49 14K
ibmdoc_a2.txt 2008-10-12 00:50 14K
node_parr5s.txt 2008-10-12 00:43 14K
node_parr4s.txt 2008-10-12 00:43 14K
dbug5s.txt 2008-10-12 00:40 14K
dbug77.txt 2008-10-12 00:54 14K
ring_rolb77s.txt 2008-10-12 00:46 14K
node_parr6s.txt 2008-10-12 00:44 14K
networks87.txt 2008-10-12 00:46 14K
erteburr_dvrub2icl.txt 2008-10-12 00:43 14K
ratgames.txt 2008-10-12 00:41 14K
gecenhan.txt 2008-10-12 00:54 14K
gecpaper.txt 2008-10-12 00:50 14K
am1test.txt 2008-10-12 00:51 14K
time40s.txt 2008-10-12 00:54 15K
cpmhelp.txt 2008-10-12 00:40 15K
sys_load7s.txt 2008-10-12 00:50 15K
newsys_load8s.txt 2008-10-12 00:43 15K
newsys_supbuilds.txt 2008-10-12 00:53 15K
pssbuild_dvdup.txt 2008-10-12 00:48 15K
sys_dvdup.txt 2008-10-12 00:45 15K
dvdup.txt 2008-10-12 00:53 15K
itpinfs.txt 2008-10-12 00:41 15K
node_itpinfs.txt 2008-10-12 00:41 15K
kmc11_kring2s.txt 2008-10-12 00:49 15K
fepfig3s.txt 2008-10-12 00:54 15K
node_itpin2s.txt 2008-10-12 00:45 15K
dvn.txt 2008-10-12 00:42 15K
newsys_supbuilde.txt 2008-10-12 00:53 15K
ibmdoc_b3.txt 2008-10-12 00:51 15K
sys_load8s.txt 2008-10-12 00:52 15K
dvrub.txt 2008-10-12 00:53 15K
ibmdoc_ftpqmemo.txt 2008-10-12 00:46 15K
dz11s.txt 2008-10-12 00:53 15K
ertedgn_dz11s.txt 2008-10-12 00:40 15K
stars.txt 2008-10-12 00:51 16K
newsys_dvn87.txt 2008-10-12 00:52 16K
sys_dvrubshs.txt 2008-10-12 00:47 16K
kmc11_kring3s.txt 2008-10-12 00:50 16K
log_f5.txt 2008-10-12 00:43 16K
erte_dvibms.txt 2008-10-12 00:50 16K
docum_kmc1.txt 2008-10-12 00:54 16K
sys_dvrxrub.txt 2008-10-12 00:53 16K
dpal7s.txt 2008-10-12 00:52 16K
docum_kmc1.html 2008-10-12 00:53 16K
log_f1.txt 2008-10-12 00:43 17K
erteburr_xbm01.txt 2008-10-12 00:48 17K
sys_link5s.txt 2008-10-12 00:41 17K
ybgate.txt 2008-10-12 00:53 17K
link11.txt 2008-10-12 00:41 17K
erte_xbm01.txt 2008-10-12 00:53 17K
erteicl_xbm01.txt 2008-10-12 00:39 17K
sys_link6s.txt 2008-10-12 00:41 17K
kmc11_kmcman.txt 2008-10-12 00:54 17K
pcme_source.txt 2008-10-12 00:53 17K
erteburr_dvburr01.txt 2008-10-12 00:41 17K
iprogsou_link11.txt 2008-10-12 00:49 17K
erte_blog7s.txt 2008-10-12 00:40 17K
erteicl_blog7s.txt 2008-10-12 00:46 17K
ibmdoc_f1.txt 2008-10-12 00:53 17K
mangame.txt 2008-10-12 00:40 17K
sys_fsys77.txt 2008-10-12 00:42 18K
log_t44simtest.txt 2008-10-12 00:53 18K
nodemon3s.txt 2008-10-12 00:52 18K
erte_dvxbms.txt 2008-10-12 00:50 18K
setmode9x.txt 2008-10-12 00:52 18K
anlog4s.txt 2008-10-12 00:42 18K
lmtsxs.txt 2008-10-12 00:43 18K
newsys_fsys79.txt 2008-10-12 00:50 18K
sys_fsys78.txt 2008-10-12 00:42 19K
fsystu581s.txt 2008-10-12 00:46 19K
iprogsou_alist11.txt 2008-10-12 00:53 19K
iprogsou_code11.txt 2008-10-12 00:39 19K
sys_fsytxs.txt 2008-10-12 00:42 19K
tu58_fsytus.txt 2008-10-12 00:46 19K
fepfig2s.txt 2008-10-12 00:54 19K
sys_fsys1s.txt 2008-10-12 00:42 19K
docum_dmanual.txt 2008-10-12 00:53 19K
ibmdoc_a3.txt 2008-10-12 00:50 19K
cslinktest.txt 2008-10-12 00:42 19K
erte_ibm1s.txt 2008-10-12 00:43 19K
ftppd_oldsource.txt 2008-10-12 00:53 19K
docum_dmanual.html 2008-10-12 00:40 20K
sys_sup009.txt 2008-10-12 00:45 20K
newsys_supnew.txt 2008-10-12 00:52 20K
supnew.txt 2008-10-12 00:45 20K
ncont3s.txt 2008-10-12 00:40 20K
erteicl_sivcs9.txt 2008-10-12 00:46 20K
log_f6.txt 2008-10-12 00:44 20K
sys_sup010.txt 2008-10-12 00:45 20K
statnode7s.txt 2008-10-12 00:49 20K
advent_mess.txt 2008-10-12 00:40 21K
stat7s.txt 2008-10-12 00:40 21K
sys_sup011.txt 2008-10-12 00:45 21K
inv.txt 2008-10-12 00:53 21K
stat8s.txt 2008-10-12 00:40 21K
blackboxmss.txt 2008-10-12 00:55 21K
ibmdoc_a4.txt 2008-10-12 00:50 21K
stat9s.txt 2008-10-12 00:40 21K
ftppd_source.txt 2008-10-12 00:48 21K
gecgrab2.txt 2008-10-12 00:46 21K
intro.txt 2008-10-12 00:40 21K
networks85_intro.txt 2008-10-12 00:46 21K
networks85_newpaper.txt 2008-10-12 00:54 22K
statnode8s.txt 2008-10-12 00:49 22K
node_down4m.txt 2008-10-12 00:48 22K
erteicl_scpt2s.txt 2008-10-12 00:42 22K
ibmdoc_b1.txt 2008-10-12 00:51 22K
prt9ns.txt 2008-10-12 00:50 23K
node_prt10ns.txt 2008-10-12 00:42 23K
statszoo.txt 2008-10-12 00:49 23K
prt11s.txt 2008-10-12 00:50 23K
ibmdoc_d1.txt 2008-10-12 00:53 23K
node_prt11ns.txt 2008-10-12 00:45 24K
crackerhelp.txt 2008-10-12 00:40 24K
ring_nsiw77s.txt 2008-10-12 00:49 24K
sys_perm2s.txt 2008-10-12 00:48 24K
invaders.txt 2008-10-12 00:41 25K
dumpgec.txt 2008-10-12 00:41 25K
statsreh.txt 2008-10-12 00:45 25K
node_ncon10s.txt 2008-10-12 00:42 25K
ring_ringk7s.txt 2008-10-12 00:49 25K
nodemon2s.txt 2008-10-12 00:50 26K
fepb_nsiws.txt 2008-10-12 00:50 26K
kents1280_nsiws.txt 2008-10-12 00:45 26K
kents_nsiws.txt 2008-10-12 00:50 26K
node_ngate3.txt 2008-10-12 00:51 26K
ringold_nsiwes.txt 2008-10-12 00:42 27K
erte_erteman8s.txt 2008-10-12 00:41 27K
node_umctest.txt 2008-10-12 00:41 27K
ringtester_ringrs.txt 2008-10-12 00:49 28K
fepb_eam7p.txt 2008-10-12 00:46 29K
kents_eam7p.txt 2008-10-12 00:45 29K
ibmdoc_ftpmemo.txt 2008-10-12 00:41 29K
erteicl_alog6s.txt 2008-10-12 00:42 29K
mean2s.txt 2008-10-12 00:53 29K
docum_mmanual.txt 2008-10-12 00:46 29K
gate5.txt 2008-10-12 00:54 29K
gateold.txt 2008-10-12 00:54 29K
kents1280_eam7.txt 2008-10-12 00:46 30K
sys_dxxxxx.txt 2008-10-12 00:48 30K
gatex1.txt 2008-10-12 00:41 30K
dxxxxx.txt 2008-10-12 00:52 30K
dumpgec2.txt 2008-10-12 00:45 30K
ibmdoc_c2.txt 2008-10-12 00:52 31K
cp4syswor.txt 2008-10-12 00:49 31K
kents1280_ring4s.txt 2008-10-12 00:42 31K
fepb_docs.txt 2008-10-12 00:51 31K
kents_docs.txt 2008-10-12 00:54 31K
advent_prog.txt 2008-10-12 00:50 32K
newperm.txt 2008-10-12 00:41 32K
ring6s.txt 2008-10-12 00:43 32K
docum_mmanual.html 2008-10-12 00:40 32K
fepb_ring4s.txt 2008-10-12 00:41 32K
kents_ring4s.txt 2008-10-12 00:39 32K
ring_ringx8s.txt 2008-10-12 00:48 32K
eam77.txt 2008-10-12 00:41 32K
eam88.txt 2008-10-12 00:41 32K
fepb_bsp4s.txt 2008-10-12 00:40 33K
kents_bsp4s.txt 2008-10-12 00:40 33K
ring_ring8s.txt 2008-10-12 00:55 34K
docum_dmanual2.txt 2008-10-12 00:40 34K
kents1280_bsp4s.txt 2008-10-12 00:51 34K
kent#jun81_bsp5s.txt 2008-10-12 00:41 34K
docum_dmanual2.html 2008-10-12 00:42 35K
kents1280_bsp5s.txt 2008-10-12 00:52 35K
ringold_bsp6s.txt 2008-10-12 00:45 35K
node_prt12us.txt 2008-10-12 00:49 35K
rats.txt 2008-10-12 00:47 36K
log_n2.txt 2008-10-12 00:45 37K
dx11leeds.txt 2008-10-12 00:42 37K
ring_bsp78s.txt 2008-10-12 00:40 38K
edinburgh.txt 2008-10-12 00:53 39K
docum_dmanual3.txt 2008-10-12 00:40 40K
ass11s.txt 2008-10-12 00:54 40K
asst11j.txt 2008-10-12 00:50 41K
iprogsou_ass11.txt 2008-10-12 00:43 41K
kmc11_kmcs.txt 2008-10-12 00:39 41K
gouldpap.txt 2008-10-12 00:40 41K
kmc11_kmc2s.txt 2008-10-12 00:42 41K
kmc11_kmc3s.txt 2008-10-12 00:42 41K
docum_dmanual3.html 2008-10-12 00:43 43K
log_n4.txt 2008-10-12 00:45 45K
node_nbsp9s.txt 2008-10-12 00:50 46K
node_nbsp8s.txt 2008-10-12 00:49 46K
tsbsp_source.txt 2008-10-12 00:53 48K
kents1280_itps8.txt 2008-10-12 00:41 48K
fepb_itps7.txt 2008-10-12 00:45 48K
kents_itps7.txt 2008-10-12 00:45 48K
la0227.txt 2008-10-12 00:40 49K
erte_erteman.txt 2008-10-12 00:45 49K
kntkv11.txt 2008-10-12 00:53 49K
sourceis.txt 2008-10-12 00:42 50K
ringold_itpe8s.txt 2008-10-12 00:48 50K
itps8.txt 2008-10-12 00:41 50K
mx.txt 2008-10-12 00:47 51K
kent#jun81_itps8.txt 2008-10-12 00:46 51K
fepb_rjes8.txt 2008-10-12 00:53 53K
kents_rjes8.txt 2008-10-12 00:53 53K
kents1280_rjes8.txt 2008-10-12 00:48 54K
chats.txt 2008-10-12 00:43 54K
ibmdoc_b2.txt 2008-10-12 00:51 55K
ringold_rjee8s.txt 2008-10-12 00:45 55K
kent#jun81_rjes8.txt 2008-10-12 00:40 58K
ring_itpe9s.txt 2008-10-12 00:40 58K
tcpcrash.txt 2008-10-12 00:42 58K
lk0226.txt 2008-10-12 00:50 61K
doc2.txt 2008-10-12 00:53 61K
ibmdoc_a1.txt 2008-10-12 00:50 62K
log_n5.txt 2008-10-12 00:45 62K
bridges.txt 2008-10-12 00:45 63K
log_n6.txt 2008-10-12 00:45 66K
kentkv11.txt 2008-10-12 00:43 68K
la0216.txt 2008-10-12 00:40 70K
ls0412.txt 2008-10-12 00:48 70K
gatex_pre.txt 2008-10-12 00:53 71K
ibmdoc_c1.txt 2008-10-12 00:52 71K
coral2.txt 2008-10-12 00:41 72K
coral2orig.txt 2008-10-12 00:40 72K
coral2i.txt 2008-10-12 00:50 73K
docum_dmphilp2.txt 2008-10-12 00:53 73K
gatex_nsource.txt 2008-10-12 00:45 74K
coral2x.txt 2008-10-12 00:52 74K
lmon9.txt 2008-10-12 00:43 76K
kern31l.txt 2008-10-12 00:48 76K
docum_dmphilp2.html 2008-10-12 00:54 80K
isotgreport.txt 2008-10-12 00:53 83K
nsource.txt 2008-10-12 00:50 86K
statskbpad.txt 2008-10-12 00:49 88K
docum_dmphilp1.txt 2008-10-12 00:53 92K
docum_dmphilp1.html 2008-10-12 00:54 102K
pass1.txt 2008-10-12 00:41 105K
hostessipss.txt 2008-10-12 00:47 121K
syslex.txt 2008-10-12 00:42 123K
lexiconfull.txt 2008-10-12 00:50 176K
nrsl.txt 2008-10-12 00:46 237K
nrs.txt 2008-10-12 00:49 398K
README 2008-10-12 00:41 428K
logfile.txt 2008-10-12 00:45 1.1M
log230982.txt 2008-10-12 00:49 1.4M
log031182.txt 2008-10-12 00:48 1.5M
log30nov82.txt 2008-10-12 00:47 1.5M
log31aug82.txt 2008-10-12 00:54 1.5M
log26nov82.txt 2008-10-12 00:44 1.7M
log11jan83.txt 2008-10-12 00:47 1.7M
log080483.txt 2008-10-12 00:43 1.8M
Apache/2.4 Server at history.dcs.ed.ac.uk Port 443