==> 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
Icon  Name                    Last modified      Size  Description
[TXT] README 2008-10-12 00:41 428K [TXT] advent_desc.txt 2008-10-12 00:48 3.7K [TXT] advent_item.txt 2008-10-12 00:48 1.3K [TXT] advent_mess.txt 2008-10-12 00:40 21K [TXT] advent_move.txt 2008-10-12 00:46 3.0K [TXT] advent_prog.txt 2008-10-12 00:50 32K [TXT] advertinfo.txt 2008-10-12 00:45 2.5K [TXT] alert.txt 2008-10-12 00:41 491 [TXT] alist11s.txt 2008-10-12 00:40 1.1K [TXT] am1test.txt 2008-10-12 00:51 14K [TXT] amstradfs.txt 2008-10-12 00:53 495 [TXT] anlog2s.txt 2008-10-12 00:41 12K [TXT] anlog4s.txt 2008-10-12 00:42 18K [TXT] anlogs.txt 2008-10-12 00:45 11K [TXT] ass11s.txt 2008-10-12 00:54 40K [TXT] asst11j.txt 2008-10-12 00:50 41K [TXT] atstats.txt 2008-10-12 00:53 178 [TXT] b_am1.txt 2008-10-12 00:41 192 [TXT] b_am1b.txt 2008-10-12 00:46 196 [TXT] b_am1m.txt 2008-10-12 00:46 196 [TXT] b_am1o.txt 2008-10-12 00:46 147 [TXT] b_batch.txt 2008-10-12 00:47 89 [TXT] b_bdk.txt 2008-10-12 00:42 112 [TXT] b_bgatex.txt 2008-10-12 00:40 363 [TXT] b_bou.txt 2008-10-12 00:45 79 [TXT] b_bsp.txt 2008-10-12 00:45 114 [TXT] b_bspd.txt 2008-10-12 00:53 122 [TXT] b_bspdnew.txt 2008-10-12 00:46 187 [TXT] b_bspnew.txt 2008-10-12 00:41 178 [TXT] b_bspxg.txt 2008-10-12 00:41 122 [TXT] b_buff.txt 2008-10-12 00:54 174 [TXT] b_changes.txt 2008-10-12 00:51 527 [TXT] b_cli.txt 2008-10-12 00:45 112 [TXT] b_comms.txt 2008-10-12 00:48 118 [TXT] b_dbug.txt 2008-10-12 00:47 123 [TXT] b_deimosperm.txt 2008-10-12 00:53 1.1K [TXT] b_deimosspecs.txt 2008-10-12 00:45 599 [TXT] b_det.txt 2008-10-12 00:46 46 [TXT] b_det23.txt 2008-10-12 00:45 31 [TXT] b_down.txt 2008-10-12 00:46 74 [TXT] b_dpal.txt 2008-10-12 00:45 113 [TXT] b_dpalnew.txt 2008-10-12 00:45 150 [TXT] b_dx11.txt 2008-10-12 00:53 147 [TXT] b_dx11bb.txt 2008-10-12 00:46 186 [TXT] b_exters.txt 2008-10-12 00:54 133 [TXT] b_fbgatex.txt 2008-10-12 00:40 310 [TXT] b_fepload.txt 2008-10-12 00:50 134 [TXT] b_fgatex.txt 2008-10-12 00:40 332 [TXT] b_fix.txt 2008-10-12 00:53 0 [TXT] b_fsave.txt 2008-10-12 00:42 99 [TXT] b_fsys.txt 2008-10-12 00:43 121 [TXT] b_fsys78.txt 2008-10-12 00:46 138 [TXT] b_ftpb.txt 2008-10-12 00:43 171 [TXT] b_ftpd.txt 2008-10-12 00:43 197 [TXT] b_ftpgbx.txt 2008-10-12 00:48 229 [TXT] b_ftpgn.txt 2008-10-12 00:52 172 [TXT] b_ftpgx.txt 2008-10-12 00:53 227 [TXT] b_ftpn.txt 2008-10-12 00:43 125 [TXT] b_ftpold.txt 2008-10-12 00:53 125 [TXT] b_ftpp.txt 2008-10-12 00:43 140 [TXT] b_ftpr.txt 2008-10-12 00:43 250 [TXT] b_ftpra.txt 2008-10-12 00:54 217 [TXT] b_ftpring.txt 2008-10-12 00:46 125 [TXT] b_ftprnew.txt 2008-10-12 00:41 465 [TXT] b_ftpsnew.txt 2008-10-12 00:51 170 [TXT] b_ftpx.txt 2008-10-12 00:44 169 [TXT] b_ftpxa.txt 2008-10-12 00:39 217 [TXT] b_game.txt 2008-10-12 00:41 128 [TXT] b_gate.txt 2008-10-12 00:42 96 [TXT] b_gecgrab.txt 2008-10-12 00:45 125 [TXT] b_gecgrabn.txt 2008-10-12 00:41 149 [TXT] b_gecstr.txt 2008-10-12 00:45 119 [TXT] b_info.txt 2008-10-12 00:41 165 [TXT] b_infoamd.txt 2008-10-12 00:43 228 [TXT] b_infop.txt 2008-10-12 00:45 180 [TXT] b_infops.txt 2008-10-12 00:41 177 [TXT] b_infopsse.txt 2008-10-12 00:54 173 [TXT] b_infoxcall.txt 2008-10-12 00:40 173 [TXT] b_inv.txt 2008-10-12 00:45 88 [TXT] b_itps.txt 2008-10-12 00:41 159 [TXT] b_itpx.txt 2008-10-12 00:41 151 [TXT] b_link.txt 2008-10-12 00:42 103 [TXT] b_lm2972.txt 2008-10-12 00:42 199 [TXT] b_lm2976.txt 2008-10-12 00:42 95 [TXT] b_lm2980.txt 2008-10-12 00:42 179 [TXT] b_lmacc.txt 2008-10-12 00:49 116 [TXT] b_lmacx2s.txt 2008-10-12 00:53 150 [TXT] b_lmacxs.txt 2008-10-12 00:50 138 [TXT] b_lmcon.txt 2008-10-12 00:41 116 [TXT] b_lmcox2s.txt 2008-10-12 00:42 146 [TXT] b_lmcoxs.txt 2008-10-12 00:48 144 [TXT] b_lmeor.txt 2008-10-12 00:45 95 [TXT] b_lminfo.txt 2008-10-12 00:53 95 [TXT] b_lmiots.txt 2008-10-12 00:41 180 [TXT] b_lmlsse.txt 2008-10-12 00:46 211 [TXT] b_lmn6.txt 2008-10-12 00:53 178 [TXT] b_lmpsse.txt 2008-10-12 00:39 95 [TXT] b_lmss.txt 2008-10-12 00:54 244 [TXT] b_lmtim.txt 2008-10-12 00:46 137 [TXT] b_lmtsxbs.txt 2008-10-12 00:40 191 [TXT] b_lmtsxs.txt 2008-10-12 00:45 185 [TXT] b_lmxs.txt 2008-10-12 00:40 143 [TXT] b_lmxxxs.txt 2008-10-12 00:47 177 [TXT] b_load8.txt 2008-10-12 00:53 117 [TXT] b_loads.txt 2008-10-12 00:53 101 [TXT] b_loadup.txt 2008-10-12 00:54 89 [TXT] b_lotups.txt 2008-10-12 00:52 206 [TXT] b_lyn.txt 2008-10-12 00:54 99 [TXT] b_mail.txt 2008-10-12 00:49 183 [TXT] b_moth.txt 2008-10-12 00:53 139 [TXT] b_nbsmon.txt 2008-10-12 00:41 98 [TXT] b_nbsmox.txt 2008-10-12 00:41 147 [TXT] b_nbsp.txt 2008-10-12 00:46 152 [TXT] b_nbss.txt 2008-10-12 00:46 132 [TXT] b_ncon.txt 2008-10-12 00:48 110 [TXT] b_nlp3s.txt 2008-10-12 00:51 120 [TXT] b_nlpx.txt 2008-10-12 00:54 99 [TXT] b_nodesim.txt 2008-10-12 00:50 113 [TXT] b_nodesimold.txt 2008-10-12 00:40 158 [TXT] b_nsiw.txt 2008-10-12 00:53 102 [TXT] b_parr.txt 2008-10-12 00:49 84 [TXT] b_parrf.txt 2008-10-12 00:46 97 [TXT] b_pcl.txt 2008-10-12 00:42 85 [TXT] b_peek.txt 2008-10-12 00:40 70 [TXT] b_pollpad.txt 2008-10-12 00:42 170 [TXT] b_prt12.txt 2008-10-12 00:41 188 [TXT] b_prt9f.txt 2008-10-12 00:43 129 [TXT] b_ring.txt 2008-10-12 00:54 97 [TXT] b_ringdma.txt 2008-10-12 00:52 117 [TXT] b_ringk.txt 2008-10-12 00:50 81 [TXT] b_ringnew.txt 2008-10-12 00:41 149 [TXT] b_rjee.txt 2008-10-12 00:55 201 [TXT] b_rjes.txt 2008-10-12 00:40 158 [TXT] b_rjesx.txt 2008-10-12 00:42 153 [TXT] b_rl01.txt 2008-10-12 00:46 112 [TXT] b_rles.txt 2008-10-12 00:43 72 [TXT] b_rolb.txt 2008-10-12 00:53 143 [TXT] b_sbld.txt 2008-10-12 00:46 128 [TXT] b_sbld5.txt 2008-10-12 00:50 128 [TXT] b_snoop.txt 2008-10-12 00:46 77 [TXT] b_sup.txt 2008-10-12 00:54 159 [TXT] b_supbl.txt 2008-10-12 00:53 91 [TXT] b_temp.txt 2008-10-12 00:47 98 [TXT] b_tolp23.txt 2008-10-12 00:44 221 [TXT] b_umc.txt 2008-10-12 00:41 67 [TXT] b_umctest.txt 2008-10-12 00:53 92 [TXT] b_veris.txt 2008-10-12 00:42 111 [TXT] b_verisnew.txt 2008-10-12 00:52 303 [TXT] b_xgate.txt 2008-10-12 00:42 339 [TXT] b_xprot.txt 2008-10-12 00:41 278 [TXT] b_xprotb.txt 2008-10-12 00:45 300 [TXT] b_xprotbm.txt 2008-10-12 00:45 297 [TXT] b_xprotks.txt 2008-10-12 00:46 367 [TXT] b_xprotm.txt 2008-10-12 00:46 275 [TXT] b_xprotp.txt 2008-10-12 00:46 278 [TXT] b_xproty.txt 2008-10-12 00:46 282 [TXT] b_xprotyp.txt 2008-10-12 00:50 282 [TXT] b_xxxa.txt 2008-10-12 00:53 170 [TXT] b_xxxbig.txt 2008-10-12 00:47 166 [TXT] b_xxxe.txt 2008-10-12 00:53 164 [TXT] b_ygatecalls.txt 2008-10-12 00:40 1.1K [TXT] b_zom.txt 2008-10-12 00:53 100 [TXT] b_zomnew.txt 2008-10-12 00:53 97 [TXT] bdiagram.txt 2008-10-12 00:41 8.6K [TXT] biog.txt 2008-10-12 00:40 171 [TXT] blackboxmss.txt 2008-10-12 00:55 21K [TXT] bridges.txt 2008-10-12 00:45 63K [TXT] btt6ss.txt 2008-10-12 00:54 8.2K [TXT] btt6xs.txt 2008-10-12 00:40 8.3K [TXT] btt7ss.txt 2008-10-12 00:40 8.7K [TXT] buff3.txt 2008-10-12 00:41 7.0K [TXT] buff3s.txt 2008-10-12 00:42 7.5K [TXT] bush83.txt 2008-10-12 00:43 4.2K [TXT] cals.txt 2008-10-12 00:45 7.5K [TXT] capsub83.txt 2008-10-12 00:50 474 [TXT] capsub85.txt 2008-10-12 00:50 2.0K [TXT] capsub86.txt 2008-10-12 00:50 408 [TXT] cent.txt 2008-10-12 00:40 4.1K [TXT] chats.txt 2008-10-12 00:43 54K [TXT] cleans.txt 2008-10-12 00:49 577 [TXT] clog6s.txt 2008-10-12 00:52 10K [TXT] color3s.txt 2008-10-12 00:46 5.3K [TXT] colorinfos.txt 2008-10-12 00:41 8.8K [TXT] colorls.txt 2008-10-12 00:42 7.6K [TXT] colors.txt 2008-10-12 00:49 7.9K [TXT] comm.txt 2008-10-12 00:45 7.6K [TXT] commsrpt.txt 2008-10-12 00:48 3.2K [TXT] config.txt 2008-10-12 00:45 1.4K [TXT] config509.txt 2008-10-12 00:42 1.1K [TXT] cons.txt 2008-10-12 00:45 3.3K [TXT] coral2.txt 2008-10-12 00:41 72K [TXT] coral2i.txt 2008-10-12 00:50 73K [TXT] coral2orig.txt 2008-10-12 00:40 72K [TXT] coral2x.txt 2008-10-12 00:52 74K [TXT] coraltrans.txt 2008-10-12 00:45 1.2K [TXT] cp4syswor.txt 2008-10-12 00:49 31K [TXT] cpmhelp.txt 2008-10-12 00:40 15K [TXT] cpse.txt 2008-10-12 00:49 1.3K [TXT] cpsequest.txt 2008-10-12 00:41 1.3K [TXT] cpsesetth.txt 2008-10-12 00:52 472 [TXT] cpsesumm.txt 2008-10-12 00:48 176 [TXT] crackerhelp.txt 2008-10-12 00:40 24K [TXT] cslinktest.txt 2008-10-12 00:42 19K [TXT] cursorlyns.txt 2008-10-12 00:44 1.1K [TXT] cursors.txt 2008-10-12 00:45 1.1K [TXT] cv1.txt 2008-10-12 00:40 602 [TXT] dbug5s.txt 2008-10-12 00:40 14K [TXT] dbug77.txt 2008-10-12 00:54 14K [TXT] ddload.txt 2008-10-12 00:45 1.2K [TXT] deimosperm.txt 2008-10-12 00:49 1.1K [TXT] devlog1.txt 2008-10-12 00:54 649 [TXT] devlog2.txt 2008-10-12 00:54 502 [TXT] dgn1s.txt 2008-10-12 00:43 14K [TXT] dirs.txt 2008-10-12 00:42 3.1K [TXT] discovs.txt 2008-10-12 00:41 224 [TXT] dmareq.txt 2008-10-12 00:45 511 [TXT] doc2.txt 2008-10-12 00:53 61K [TXT] docum_ddbug.html 2008-10-12 00:43 6.0K [TXT] docum_ddbug.txt 2008-10-12 00:43 6.0K [TXT] docum_dfaults.html 2008-10-12 00:43 4.5K [TXT] docum_dfaults.txt 2008-10-12 00:45 4.5K [TXT] docum_dmanual.html 2008-10-12 00:40 20K [TXT] docum_dmanual.txt 2008-10-12 00:53 19K [TXT] docum_dmanual2.html 2008-10-12 00:42 35K [TXT] docum_dmanual2.txt 2008-10-12 00:40 34K [TXT] docum_dmanual3.html 2008-10-12 00:43 43K [TXT] docum_dmanual3.txt 2008-10-12 00:40 40K [TXT] docum_dmphilp1.html 2008-10-12 00:54 102K [TXT] docum_dmphilp1.txt 2008-10-12 00:53 92K [TXT] docum_dmphilp2.html 2008-10-12 00:54 80K [TXT] docum_dmphilp2.txt 2008-10-12 00:53 73K [TXT] docum_dsydesc.html 2008-10-12 00:46 10K [TXT] docum_dsydesc.txt 2008-10-12 00:41 9.7K [TXT] docum_dsydesc2.html 2008-10-12 00:53 9.5K [TXT] docum_dsydesc2.txt 2008-10-12 00:46 9.0K [TXT] docum_dsysman.html 2008-10-12 00:45 8.4K [TXT] docum_dsysman.txt 2008-10-12 00:41 7.8K [TXT] docum_kmc1.html 2008-10-12 00:53 16K [TXT] docum_kmc1.txt 2008-10-12 00:54 16K [TXT] docum_mdbug.html 2008-10-12 00:47 6.0K [TXT] docum_mdbug.txt 2008-10-12 00:45 5.9K [TXT] docum_mflop.html 2008-10-12 00:54 2.7K [TXT] docum_mflop.txt 2008-10-12 00:55 2.5K [TXT] docum_mmanual.html 2008-10-12 00:40 32K [TXT] docum_mmanual.txt 2008-10-12 00:46 29K [TXT] docum_speeds.html 2008-10-12 00:42 1.2K [TXT] docum_speeds.txt 2008-10-12 00:46 1.0K [TXT] dpal7s.txt 2008-10-12 00:52 16K [TXT] dqs12e.txt 2008-10-12 00:46 4.8K [TXT] dum2.txt 2008-10-12 00:53 822 [TXT] dum3.txt 2008-10-12 00:53 6.0K [TXT] dum4.txt 2008-10-12 00:53 6.0K [TXT] dumpgec.txt 2008-10-12 00:41 25K [TXT] dumpgec2.txt 2008-10-12 00:45 30K [TXT] dumpgecjb.txt 2008-10-12 00:48 4.9K [TXT] dvdup.txt 2008-10-12 00:53 15K [TXT] dvn.txt 2008-10-12 00:42 15K [TXT] dvrub.txt 2008-10-12 00:53 15K [TXT] dvrvp.txt 2008-10-12 00:53 11K [TXT] dx11leeds.txt 2008-10-12 00:42 37K [TXT] dxxxxx.txt 2008-10-12 00:52 30K [TXT] dz11s.txt 2008-10-12 00:53 15K [TXT] eam77.txt 2008-10-12 00:41 32K [TXT] eam88.txt 2008-10-12 00:41 32K [TXT] eamdum.txt 2008-10-12 00:42 6.0K [TXT] ecucrpt.txt 2008-10-12 00:53 3.1K [TXT] edinburgh.txt 2008-10-12 00:53 39K [TXT] edintcps.txt 2008-10-12 00:50 3.8K [TXT] ednet.txt 2008-10-12 00:52 10K [TXT] ednet0187.txt 2008-10-12 00:54 14K [TXT] ednet0285.txt 2008-10-12 00:40 11K [TXT] ednet0286.txt 2008-10-12 00:40 12K [TXT] ednet0385.txt 2008-10-12 00:42 11K [TXT] ednet0485.txt 2008-10-12 00:45 11K [TXT] ednet0486.txt 2008-10-12 00:45 12K [TXT] ednet0586.txt 2008-10-12 00:46 12K [TXT] ednet0686.txt 2008-10-12 00:48 13K [TXT] ednet0785.txt 2008-10-12 00:53 12K [TXT] ednet0786.txt 2008-10-12 00:53 13K [TXT] ednet0986.txt 2008-10-12 00:40 13K [TXT] ednet1086.txt 2008-10-12 00:45 13K [TXT] ednet1184.txt 2008-10-12 00:46 10K [TXT] ednet1186.txt 2008-10-12 00:46 13K [TXT] ednet1284.txt 2008-10-12 00:49 11K [TXT] ednet1285.txt 2008-10-12 00:49 13K [TXT] enhance.txt 2008-10-12 00:41 7.9K [TXT] equipprop.txt 2008-10-12 00:45 1.0K [TXT] erte_blog7s.txt 2008-10-12 00:40 17K [TXT] erte_clog6s.txt 2008-10-12 00:42 10K [TXT] erte_dup11e.txt 2008-10-12 00:45 6.4K [TXT] erte_dupxxe.txt 2008-10-12 00:50 6.7K [TXT] erte_duxxe.txt 2008-10-12 00:45 6.7K [TXT] erte_dvibms.txt 2008-10-12 00:50 16K [TXT] erte_dvxbms.txt 2008-10-12 00:50 18K [TXT] erte_erteman.txt 2008-10-12 00:45 49K [TXT] erte_erteman8s.txt 2008-10-12 00:41 27K [TXT] erte_ibm1s.txt 2008-10-12 00:43 19K [TXT] erte_icl1s.txt 2008-10-12 00:52 12K [TXT] erte_init70.txt 2008-10-12 00:41 5.0K [TXT] erte_xbm01.txt 2008-10-12 00:53 17K [TXT] erteburr_dup11eicl.txt 2008-10-12 00:41 6.5K [TXT] erteburr_dvburr01.txt 2008-10-12 00:41 17K [TXT] erteburr_dvrub2icl.txt 2008-10-12 00:43 14K [TXT] erteburr_icl1s.txt 2008-10-12 00:46 12K [TXT] erteburr_init70.txt 2008-10-12 00:41 4.6K [TXT] erteburr_xbm01.txt 2008-10-12 00:48 17K [TXT] erteburr_xbur1s.txt 2008-10-12 00:41 13K [TXT] ertedgn_dgn1s.txt 2008-10-12 00:45 14K [TXT] ertedgn_dz11s.txt 2008-10-12 00:40 15K [TXT] ertedgn_init90.txt 2008-10-12 00:42 5.6K [TXT] ertedgn_rk07s.txt 2008-10-12 00:54 3.9K [TXT] erteicl_alog6s.txt 2008-10-12 00:42 29K [TXT] erteicl_arith2.txt 2008-10-12 00:49 2.6K [TXT] erteicl_avars.txt 2008-10-12 00:40 2.7K [TXT] erteicl_blog7s.txt 2008-10-12 00:46 17K [TXT] erteicl_clog6s.txt 2008-10-12 00:50 10K [TXT] erteicl_cputs.txt 2008-10-12 00:47 1.4K [TXT] erteicl_dlog8s.txt 2008-10-12 00:40 14K [TXT] erteicl_du11e.txt 2008-10-12 00:43 6.5K [TXT] erteicl_dup11e.txt 2008-10-12 00:54 6.5K [TXT] erteicl_icl1s.txt 2008-10-12 00:54 12K [TXT] erteicl_init70.txt 2008-10-12 00:48 4.6K [TXT] erteicl_initdu.txt 2008-10-12 00:43 4.6K [TXT] erteicl_printd.txt 2008-10-12 00:53 1.0K [TXT] erteicl_scpt2s.txt 2008-10-12 00:42 22K [TXT] erteicl_sivcs9.txt 2008-10-12 00:46 20K [TXT] erteicl_sqrts.txt 2008-10-12 00:54 791 [TXT] erteicl_times.txt 2008-10-12 00:49 2.6K [TXT] erteicl_xbm01.txt 2008-10-12 00:39 17K [TXT] erteicl_xssllps.txt 2008-10-12 00:53 32 [TXT] erteinit6.txt 2008-10-12 00:41 5.1K [TXT] etherpict.txt 2008-10-12 00:40 8.4K [TXT] fecount.txt 2008-10-12 00:43 3.3K [TXT] fepb_bsp4s.txt 2008-10-12 00:40 33K [TXT] fepb_docs.txt 2008-10-12 00:51 31K [TXT] fepb_eam7p.txt 2008-10-12 00:46 29K [TXT] fepb_itps7.txt 2008-10-12 00:45 48K [TXT] fepb_notes.txt 2008-10-12 00:48 363 [TXT] fepb_nsiws.txt 2008-10-12 00:50 26K [TXT] fepb_ring4s.txt 2008-10-12 00:41 32K [TXT] fepb_rjes8.txt 2008-10-12 00:53 53K [TXT] fepconn.txt 2008-10-12 00:52 917 [TXT] fepfig2s.txt 2008-10-12 00:54 19K [TXT] fepfig3s.txt 2008-10-12 00:54 15K [TXT] feploads.txt 2008-10-12 00:50 1.5K [TXT] fepmons.txt 2008-10-12 00:50 4.9K [TXT] figs.txt 2008-10-12 00:43 473 [TXT] files.txt 2008-10-12 00:40 13K [   ] fix-layout.ecc 2008-10-12 00:45 119 [TXT] flink.txt 2008-10-12 00:46 11K [TXT] fred.txt 2008-10-12 00:47 201 [TXT] fspec.txt 2008-10-12 00:49 5.7K [TXT] fspec2.txt 2008-10-12 00:46 1.4K [TXT] fsystu581s.txt 2008-10-12 00:46 19K [TXT] ftppd_build.txt 2008-10-12 00:40 151 [TXT] ftppd_buildb.txt 2008-10-12 00:50 165 [TXT] ftppd_cons.txt 2008-10-12 00:43 2.9K [TXT] ftppd_doc.txt 2008-10-12 00:53 3.5K [TXT] ftppd_newlist.txt 2008-10-12 00:53 5.5K [TXT] ftppd_obj.txt 2008-10-12 00:43 3.3K [TXT] ftppd_oldsource.txt 2008-10-12 00:53 19K [TXT] ftppd_readme.txt 2008-10-12 00:52 623 [TXT] ftppd_source.txt 2008-10-12 00:48 21K [TXT] ftppd_table.txt 2008-10-12 00:43 2.7K [TXT] ftppd_tableold.txt 2008-10-12 00:40 2.6K [TXT] ftppd_tablist.txt 2008-10-12 00:41 5.3K [TXT] ftpsoak.txt 2008-10-12 00:40 491 [TXT] ftptest.txt 2008-10-12 00:45 1.2K [TXT] ftu.txt 2008-10-12 00:46 16 [TXT] fullscreen.txt 2008-10-12 00:46 3.7K [TXT] gate5.txt 2008-10-12 00:54 29K [TXT] gateold.txt 2008-10-12 00:54 29K [TXT] gateway.txt 2008-10-12 00:39 6.0K [TXT] gatex1.txt 2008-10-12 00:41 30K [TXT] gatex_nsource.txt 2008-10-12 00:45 74K [TXT] gatex_pre.txt 2008-10-12 00:53 71K [TXT] gecenhan.txt 2008-10-12 00:54 14K [TXT] gecenhres.txt 2008-10-12 00:53 2.4K [TXT] gecenhrest.txt 2008-10-12 00:54 731 [TXT] gecgrab2.txt 2008-10-12 00:46 21K [TXT] gecpaper.txt 2008-10-12 00:50 14K [TXT] gecresults.txt 2008-10-12 00:43 1.7K [TXT] gecsys669.txt 2008-10-12 00:54 619 [TXT] gouldpap.txt 2008-10-12 00:40 41K [TXT] graham.txt 2008-10-12 00:48 131 [TXT] grakb.txt 2008-10-12 00:46 824 [TXT] grate.txt 2008-10-12 00:49 918 [TXT] hextobin.txt 2008-10-12 00:53 1.5K [TXT] hostessipss.txt 2008-10-12 00:47 121K [TXT] i77p.txt 2008-10-12 00:41 4.2K [TXT] ibmdoc_a1.txt 2008-10-12 00:50 62K [TXT] ibmdoc_a2.txt 2008-10-12 00:50 14K [TXT] ibmdoc_a3.txt 2008-10-12 00:50 19K [TXT] ibmdoc_a4.txt 2008-10-12 00:50 21K [TXT] ibmdoc_a5.txt 2008-10-12 00:50 6.4K [TXT] ibmdoc_b1.txt 2008-10-12 00:51 22K [TXT] ibmdoc_b2.txt 2008-10-12 00:51 55K [TXT] ibmdoc_b3.txt 2008-10-12 00:51 15K [TXT] ibmdoc_b4.txt 2008-10-12 00:52 5.8K [TXT] ibmdoc_b5.txt 2008-10-12 00:52 7.9K [TXT] ibmdoc_b6.txt 2008-10-12 00:52 4.5K [TXT] ibmdoc_b7.txt 2008-10-12 00:52 3.8K [TXT] ibmdoc_c1.txt 2008-10-12 00:52 71K [TXT] ibmdoc_c2.txt 2008-10-12 00:52 31K [TXT] ibmdoc_c3.txt 2008-10-12 00:52 2.2K [TXT] ibmdoc_d1.txt 2008-10-12 00:53 23K [TXT] ibmdoc_e2.txt 2008-10-12 00:53 3.3K [TXT] ibmdoc_f1.txt 2008-10-12 00:53 17K [TXT] ibmdoc_f2.txt 2008-10-12 00:53 2.5K [TXT] ibmdoc_ftpmemo.txt 2008-10-12 00:41 29K [TXT] ibmdoc_ftpqmemo.txt 2008-10-12 00:46 15K [TXT] ibmdoc_i1.txt 2008-10-12 00:53 3.6K [TXT] ibmdoc_ibmcons.txt 2008-10-12 00:46 734 [TXT] imp77specs.txt 2008-10-12 00:53 1.1K [TXT] impsrc.txt 2008-10-12 00:40 3.3K [TXT] inc2_bformats.txt 2008-10-12 00:50 909 [TXT] inc2_config.txt 2008-10-12 00:46 2.8K [TXT] inc2_configf.txt 2008-10-12 00:47 2.7K [TXT] inc2_discquals.txt 2008-10-12 00:42 2.9K [TXT] inc2_exts.txt 2008-10-12 00:40 538 [TXT] inc2_formats.txt 2008-10-12 00:45 914 [TXT] inc2_sers.txt 2008-10-12 00:50 1.5K [TXT] inc2_various.txt 2008-10-12 00:42 564 [TXT] inc2_xgtfns.txt 2008-10-12 00:40 1.6K [TXT] inc_colourdefs.txt 2008-10-12 00:43 294 [TXT] inc_colourspecs.txt 2008-10-12 00:45 754 [TXT] inc_csidefs.txt 2008-10-12 00:53 186 [TXT] inc_deimosperm.txt 2008-10-12 00:41 632 [TXT] inc_fsys.txt 2008-10-12 00:45 273 [TXT] inc_gateint.txt 2008-10-12 00:53 493 [TXT] inc_itpint.txt 2008-10-12 00:44 335 [TXT] inc_records.txt 2008-10-12 00:42 402 [TXT] inc_services.txt 2008-10-12 00:48 549 [TXT] inc_terms.txt 2008-10-12 00:47 527 [TXT] inc_vt100.txt 2008-10-12 00:45 277 [TXT] infcolours.txt 2008-10-12 00:45 3.1K [TXT] infoinput.txt 2008-10-12 00:49 1.4K [TXT] init70.txt 2008-10-12 00:49 5.0K [TXT] init82.txt 2008-10-12 00:49 5.1K [TXT] intro.txt 2008-10-12 00:40 21K [TXT] inv.txt 2008-10-12 00:53 21K [TXT] invaders.txt 2008-10-12 00:41 25K [TXT] iprogsou_alist11.txt 2008-10-12 00:53 19K [TXT] iprogsou_ass11.txt 2008-10-12 00:43 41K [TXT] iprogsou_code11.txt 2008-10-12 00:39 19K [TXT] iprogsou_link11.txt 2008-10-12 00:49 17K [TXT] isotgreport.txt 2008-10-12 00:53 83K [TXT] isotran.txt 2008-10-12 00:45 3.7K [TXT] isotrsl_slide1.txt 2008-10-12 00:48 523 [TXT] isotrsl_slide2.txt 2008-10-12 00:48 612 [TXT] isotrsl_slide3.txt 2008-10-12 00:48 449 [TXT] isotrsl_slide4.txt 2008-10-12 00:48 592 [TXT] itpinfs.txt 2008-10-12 00:41 15K [TXT] itps8.txt 2008-10-12 00:41 50K [TXT] iunc.txt 2008-10-12 00:54 2.4K [TXT] jntnews.txt 2008-10-12 00:46 1.8K [TXT] jntprop.txt 2008-10-12 00:46 2.2K [TXT] jtmp.txt 2008-10-12 00:45 1.9K [TXT] junk.txt 2008-10-12 00:46 13K [TXT] kbstats.txt 2008-10-12 00:50 0 [TXT] kent#jun81_bsp5s.txt 2008-10-12 00:41 34K [TXT] kent#jun81_itps8.txt 2008-10-12 00:46 51K [TXT] kent#jun81_notes.txt 2008-10-12 00:50 774 [TXT] kent#jun81_rjes8.txt 2008-10-12 00:40 58K [TXT] kent#jun81_zboots.txt 2008-10-12 00:54 10K [TXT] kentkv11.txt 2008-10-12 00:43 68K [TXT] kents1280_bsp4s.txt 2008-10-12 00:51 34K [TXT] kents1280_bsp5s.txt 2008-10-12 00:52 35K [TXT] kents1280_buff3.txt 2008-10-12 00:41 6.4K [TXT] kents1280_eam7.txt 2008-10-12 00:46 30K [TXT] kents1280_itps8.txt 2008-10-12 00:41 48K [TXT] kents1280_namedoclp.txt 2008-10-12 00:43 4.7K [TXT] kents1280_names.txt 2008-10-12 00:54 7.5K [TXT] kents1280_notes.txt 2008-10-12 00:43 1.2K [TXT] kents1280_nsiws.txt 2008-10-12 00:45 26K [TXT] kents1280_ring4s.txt 2008-10-12 00:42 31K [TXT] kents1280_rjes8.txt 2008-10-12 00:48 54K [TXT] kents_bsp4s.txt 2008-10-12 00:40 33K [TXT] kents_docs.txt 2008-10-12 00:54 31K [TXT] kents_eam7p.txt 2008-10-12 00:45 29K [TXT] kents_itps7.txt 2008-10-12 00:45 48K [TXT] kents_notes.txt 2008-10-12 00:47 363 [TXT] kents_nsiws.txt 2008-10-12 00:50 26K [TXT] kents_ring4s.txt 2008-10-12 00:39 32K [TXT] kents_rjes8.txt 2008-10-12 00:53 53K [TXT] kern31l.txt 2008-10-12 00:48 76K [TXT] kmc11_kexts.txt 2008-10-12 00:45 3.3K [TXT] kmc11_klink.txt 2008-10-12 00:42 11K [TXT] kmc11_kloads.txt 2008-10-12 00:53 1.6K [TXT] kmc11_kmc2s.txt 2008-10-12 00:42 41K [TXT] kmc11_kmc3s.txt 2008-10-12 00:42 41K [TXT] kmc11_kmcdrvs.txt 2008-10-12 00:46 543 [TXT] kmc11_kmcman.txt 2008-10-12 00:54 17K [TXT] kmc11_kmcs.txt 2008-10-12 00:39 41K [TXT] kmc11_krecos.txt 2008-10-12 00:52 1.7K [TXT] kmc11_kring2s.txt 2008-10-12 00:49 15K [TXT] kmc11_kring3s.txt 2008-10-12 00:50 16K [TXT] kmc11_krings.txt 2008-10-12 00:49 14K [TXT] kntkv11.txt 2008-10-12 00:53 49K [TXT] kprims.txt 2008-10-12 00:40 754 [TXT] kxprot.txt 2008-10-12 00:50 184 [TXT] la0216.txt 2008-10-12 00:40 70K [TXT] la0227.txt 2008-10-12 00:40 49K [TXT] lex2.txt 2008-10-12 00:45 148 [TXT] lexicon.txt 2008-10-12 00:48 668 [TXT] lexiconfull.txt 2008-10-12 00:50 176K [TXT] libtalk3.txt 2008-10-12 00:50 421 [TXT] link11.txt 2008-10-12 00:41 17K [TXT] lk0226.txt 2008-10-12 00:50 61K [TXT] lmeots.txt 2008-10-12 00:48 9.0K [TXT] lmon9.txt 2008-10-12 00:43 76K [TXT] lmtsxs.txt 2008-10-12 00:43 18K [TXT] log031182.txt 2008-10-12 00:48 1.5M [TXT] log080483.txt 2008-10-12 00:43 1.8M [TXT] log11jan83.txt 2008-10-12 00:47 1.7M [TXT] log230982.txt 2008-10-12 00:49 1.4M [TXT] log26nov82.txt 2008-10-12 00:44 1.7M [TXT] log30nov82.txt 2008-10-12 00:47 1.5M [TXT] log31aug82.txt 2008-10-12 00:54 1.5M [TXT] log_f1.txt 2008-10-12 00:43 17K [TXT] log_f5.txt 2008-10-12 00:43 16K [TXT] log_f6.txt 2008-10-12 00:44 20K [TXT] log_n1.txt 2008-10-12 00:45 5.5K [TXT] log_n2.txt 2008-10-12 00:45 37K [TXT] log_n4.txt 2008-10-12 00:45 45K [TXT] log_n5.txt 2008-10-12 00:45 62K [TXT] log_n6.txt 2008-10-12 00:45 66K [TXT] log_t44sat1.txt 2008-10-12 00:48 2.6K [TXT] log_t44sat2.txt 2008-10-12 00:48 2.7K [TXT] log_t44sat3.txt 2008-10-12 00:48 2.6K [TXT] log_t44simtest.txt 2008-10-12 00:53 18K [TXT] log_t44simtest2.txt 2008-10-12 00:41 9.7K [TXT] logfile.txt 2008-10-12 00:45 1.1M [TXT] ls0124.txt 2008-10-12 00:42 4.1K [TXT] ls0412.txt 2008-10-12 00:48 70K [TXT] lynp1s.txt 2008-10-12 00:41 7.4K [TXT] lynp2s.txt 2008-10-12 00:42 7.9K [TXT] mainmon.txt 2008-10-12 00:41 5.1K [TXT] mangame.txt 2008-10-12 00:40 17K [TXT] mean2s.txt 2008-10-12 00:53 29K [TXT] mon.txt 2008-10-12 00:46 4.0K [TXT] msrdoc.txt 2008-10-12 00:46 1.1K [TXT] mx.txt 2008-10-12 00:47 51K [TXT] myusers.txt 2008-10-12 00:41 4.6K [TXT] ncont3s.txt 2008-10-12 00:40 20K [TXT] net87tit.txt 2008-10-12 00:53 838 [TXT] netnotes.txt 2008-10-12 00:46 4.8K [TXT] netsig.txt 2008-10-12 00:40 1.0K [TXT] netsig485.txt 2008-10-12 00:44 1.0K [TXT] networks85_intro.txt 2008-10-12 00:46 21K [TXT] networks85_netnotes.txt 2008-10-12 00:54 4.8K [TXT] networks85_newpaper.txt 2008-10-12 00:54 22K [TXT] networks85_slide1.txt 2008-10-12 00:40 958 [TXT] networks85_title.txt 2008-10-12 00:51 1.0K [TXT] networks85_titlesh.txt 2008-10-12 00:54 788 [TXT] networks87.txt 2008-10-12 00:46 14K [TXT] newperm.txt 2008-10-12 00:41 32K [TXT] newsys_bdk6s.txt 2008-10-12 00:45 2.7K [TXT] newsys_bdk7s.txt 2008-10-12 00:45 2.7K [TXT] newsys_btt7s.txt 2008-10-12 00:45 8.4K [TXT] newsys_build.txt 2008-10-12 00:40 512 [TXT] newsys_cli1s.txt 2008-10-12 00:45 8.9K [TXT] newsys_doitall.txt 2008-10-12 00:40 214 [TXT] newsys_dvn87.txt 2008-10-12 00:52 16K [TXT] newsys_fsys79.txt 2008-10-12 00:50 18K [TXT] newsys_load8s.txt 2008-10-12 00:43 15K [TXT] newsys_moth77.txt 2008-10-12 00:46 2.1K [TXT] newsys_rl06s.txt 2008-10-12 00:52 5.5K [TXT] newsys_sinnew.txt 2008-10-12 00:47 11K [TXT] newsys_supbuilde.txt 2008-10-12 00:53 15K [TXT] newsys_supbuilds.txt 2008-10-12 00:53 15K [TXT] newsys_supde0.txt 2008-10-12 00:42 580 [TXT] newsys_supnew.txt 2008-10-12 00:52 20K [TXT] newsys_suprin.txt 2008-10-12 00:45 514 [TXT] nhs1.txt 2008-10-12 00:40 1.6K [TXT] nhs2.txt 2008-10-12 00:40 518 [TXT] node2s.txt 2008-10-12 00:43 2.9K [TXT] node_buff4.txt 2008-10-12 00:42 7.2K [TXT] node_down4m.txt 2008-10-12 00:48 22K [TXT] node_dqs12e.txt 2008-10-12 00:46 4.9K [TXT] node_dup11e.txt 2008-10-12 00:39 5.2K [TXT] node_dvno1s.txt 2008-10-12 00:43 5.2K [TXT] node_go.txt 2008-10-12 00:40 503 [TXT] node_itpin2s.txt 2008-10-12 00:45 15K [TXT] node_itpinfs.txt 2008-10-12 00:41 15K [TXT] node_nbsmon.txt 2008-10-12 00:54 6.7K [TXT] node_nbsp8s.txt 2008-10-12 00:49 46K [TXT] node_nbsp9s.txt 2008-10-12 00:50 46K [TXT] node_ncon10s.txt 2008-10-12 00:42 25K [TXT] node_ngate3.txt 2008-10-12 00:51 26K [TXT] node_nlp3s.txt 2008-10-12 00:45 5.8K [TXT] node_nlps.txt 2008-10-12 00:48 8.0K [TXT] node_parr1e.txt 2008-10-12 00:42 3.9K [TXT] node_parr3s.txt 2008-10-12 00:43 12K [TXT] node_parr4s.txt 2008-10-12 00:43 14K [TXT] node_parr5s.txt 2008-10-12 00:43 14K [TXT] node_parr6s.txt 2008-10-12 00:44 14K [TXT] node_prt10ns.txt 2008-10-12 00:42 23K [TXT] node_prt11ns.txt 2008-10-12 00:45 24K [TXT] node_prt12us.txt 2008-10-12 00:49 35K [TXT] node_rles77.txt 2008-10-12 00:43 3.3K [TXT] node_subpb1145.txt 2008-10-12 00:48 913 [TXT] node_supde0.txt 2008-10-12 00:53 1.0K [TXT] node_umc1e.txt 2008-10-12 00:41 5.3K [TXT] node_umcs.txt 2008-10-12 00:53 3.5K [TXT] node_umctest.txt 2008-10-12 00:41 27K [TXT] node_usert2s.txt 2008-10-12 00:54 10K [TXT] node_userts.txt 2008-10-12 00:53 11K [TXT] nodemon2s.txt 2008-10-12 00:50 26K [TXT] nodemon3s.txt 2008-10-12 00:52 18K [TXT] nodemons.txt 2008-10-12 00:54 4.0K [TXT] nodes.txt 2008-10-12 00:40 2.9K [TXT] nrs.txt 2008-10-12 00:49 398K [TXT] nrsdo.txt 2008-10-12 00:40 1.9K [TXT] nrsl.txt 2008-10-12 00:46 237K [TXT] nsource.txt 2008-10-12 00:50 86K [TXT] padans.txt 2008-10-12 00:41 4.6K [TXT] paddoc.txt 2008-10-12 00:47 2.1K [TXT] parits.txt 2008-10-12 00:53 1.0K [TXT] parr4fs.txt 2008-10-12 00:46 11K [TXT] pass1.txt 2008-10-12 00:41 105K [TXT] pclo2s.txt 2008-10-12 00:43 3.5K [TXT] pclocks.txt 2008-10-12 00:46 2.8K [TXT] pcme_source.txt 2008-10-12 00:53 17K [TXT] prob2988.txt 2008-10-12 00:46 1.0K [TXT] prt11s.txt 2008-10-12 00:50 23K [TXT] prt9ns.txt 2008-10-12 00:50 23K [TXT] pssbuild_dvdup.txt 2008-10-12 00:48 15K [TXT] pssbuild_suppss.txt 2008-10-12 00:53 446 [TXT] rand.txt 2008-10-12 00:46 274 [TXT] ratgames.txt 2008-10-12 00:41 14K [TXT] rats.txt 2008-10-12 00:47 36K [TXT] readme.txt 2008-10-12 00:46 337 [TXT] readtest.txt 2008-10-12 00:40 524 [TXT] recode2s.txt 2008-10-12 00:43 11K [TXT] reportdec.txt 2008-10-12 00:54 2.8K [TXT] reportfeb84.txt 2008-10-12 00:49 2.2K [TXT] reportmar.txt 2008-10-12 00:42 2.8K [TXT] reportmay84.txt 2008-10-12 00:48 2.2K [TXT] reportsep.txt 2008-10-12 00:41 2.3K [TXT] reqs.txt 2008-10-12 00:41 505 [TXT] response2_fe0jan12.txt 2008-10-12 00:40 3.6K [TXT] response2_fe1jan12.txt 2008-10-12 00:43 3.6K [TXT] response2_info12jan.txt 2008-10-12 00:46 3.6K [TXT] response_fe0jan12.txt 2008-10-12 00:40 3.6K [TXT] response_fe0jan13.txt 2008-10-12 00:40 3.6K [TXT] response_fe121jan.txt 2008-10-12 00:43 4.1K [TXT] response_fe1jan11.txt 2008-10-12 00:42 3.6K [TXT] response_fe1jan12.txt 2008-10-12 00:42 3.6K [TXT] response_fe1jan13.txt 2008-10-12 00:42 3.6K [TXT] response_fe1jan25.txt 2008-10-12 00:43 4.1K [TXT] response_info12jan.txt 2008-10-12 00:40 3.6K [TXT] response_infodec22.txt 2008-10-12 00:45 3.6K [TXT] response_kentdec22.txt 2008-10-12 00:40 3.6K [TXT] response_mfe1jan22.txt 2008-10-12 00:49 4.1K [TXT] response_n0t9dec22.txt 2008-10-12 00:50 3.6K [TXT] response_n6t181jan11..> 2008-10-12 00:40 3.6K [TXT] response_n7t9dec22a.txt 2008-10-12 00:42 3.6K [TXT] response_n7t9dec22b.txt 2008-10-12 00:42 3.6K [TXT] response_n80t80dec21..> 2008-10-12 00:46 3.7K [TXT] response_n80t80jan6.txt 2008-10-12 00:41 3.6K [TXT] response_n9t180jan11..> 2008-10-12 00:40 3.6K [TXT] response_n9t75dec22.txt 2008-10-12 00:40 3.6K [TXT] response_pssloopjan7..> 2008-10-12 00:54 3.6K [TXT] ring6s.txt 2008-10-12 00:43 32K [TXT] ring_basblktes.txt 2008-10-12 00:53 2.3K [TXT] ring_bsp78s.txt 2008-10-12 00:40 38K [TXT] ring_itpe9s.txt 2008-10-12 00:40 58K [TXT] ring_lmacrs.txt 2008-10-12 00:41 6.2K [TXT] ring_lmcors.txt 2008-10-12 00:40 5.8K [TXT] ring_lmeors.txt 2008-10-12 00:42 11K [TXT] ring_nsiw77s.txt 2008-10-12 00:49 24K [TXT] ring_ring8s.txt 2008-10-12 00:55 34K [TXT] ring_ringk7s.txt 2008-10-12 00:49 25K [TXT] ring_ringx8s.txt 2008-10-12 00:48 32K [TXT] ring_rolb77s.txt 2008-10-12 00:46 14K [TXT] ring_rolles.txt 2008-10-12 00:46 11K [TXT] ringans.txt 2008-10-12 00:48 8.8K [TXT] ringboot.txt 2008-10-12 00:46 8.1K [TXT] ringold_bsp6s.txt 2008-10-12 00:45 35K [TXT] ringold_itpe8s.txt 2008-10-12 00:48 50K [TXT] ringold_nsiwes.txt 2008-10-12 00:42 27K [TXT] ringold_rjee8s.txt 2008-10-12 00:45 55K [TXT] ringtester_ringrs.txt 2008-10-12 00:49 28K [TXT] ringtester_ringts.txt 2008-10-12 00:50 6.8K [TXT] ringtester_rpts.txt 2008-10-12 00:50 13K [TXT] rjeprops.txt 2008-10-12 00:53 2.8K [TXT] rl04s.txt 2008-10-12 00:44 4.6K [TXT] rolls.txt 2008-10-12 00:48 11K [TXT] rxdump.txt 2008-10-12 00:50 1.5K [TXT] sbldrl3s.txt 2008-10-12 00:49 9.8K [TXT] setmode9x.txt 2008-10-12 00:52 18K [TXT] slide3.txt 2008-10-12 00:45 449 [TXT] slide4.txt 2008-10-12 00:45 300 [TXT] snoops.txt 2008-10-12 00:54 3.0K [TXT] sourceis.txt 2008-10-12 00:42 50K [TXT] spider.txt 2008-10-12 00:53 1.4K [TXT] spider2.txt 2008-10-12 00:41 885 [TXT] ss2.txt 2008-10-12 00:43 230 [TXT] stars.txt 2008-10-12 00:51 16K [TXT] start.txt 2008-10-12 00:51 12 [TXT] stat7s.txt 2008-10-12 00:40 21K [TXT] stat8s.txt 2008-10-12 00:40 21K [TXT] stat9s.txt 2008-10-12 00:40 21K [TXT] statnode7s.txt 2008-10-12 00:49 20K [TXT] statnode8s.txt 2008-10-12 00:49 22K [TXT] statskbpad.txt 2008-10-12 00:49 88K [TXT] statsreh.txt 2008-10-12 00:45 25K [TXT] statszoo.txt 2008-10-12 00:49 23K [TXT] supb1145.txt 2008-10-12 00:48 913 [TXT] supnew.txt 2008-10-12 00:45 20K [TXT] switchtox25.txt 2008-10-12 00:46 8.2K [TXT] sxmode.txt 2008-10-12 00:43 7.0K [TXT] sxprot.txt 2008-10-12 00:53 278 [TXT] sys_bdk4s.txt 2008-10-12 00:48 2.6K [TXT] sys_brun10.txt 2008-10-12 00:45 4.7K [TXT] sys_btt7s.txt 2008-10-12 00:48 8.7K [TXT] sys_bvt1s.txt 2008-10-12 00:50 8.3K [TXT] sys_cli1s.txt 2008-10-12 00:48 9.6K [TXT] sys_dvam1s.txt 2008-10-12 00:40 6.4K [TXT] sys_dvdup.txt 2008-10-12 00:45 15K [TXT] sys_dvno3s.txt 2008-10-12 00:41 7.6K [TXT] sys_dvrubshs.txt 2008-10-12 00:47 16K [TXT] sys_dvrxrub.txt 2008-10-12 00:53 16K [TXT] sys_dvtu58s.txt 2008-10-12 00:46 11K [TXT] sys_dxxxxx.txt 2008-10-12 00:48 30K [TXT] sys_fsys1s.txt 2008-10-12 00:42 19K [TXT] sys_fsys77.txt 2008-10-12 00:42 18K [TXT] sys_fsys78.txt 2008-10-12 00:42 19K [TXT] sys_fsytxs.txt 2008-10-12 00:42 19K [TXT] sys_link5s.txt 2008-10-12 00:41 17K [TXT] sys_link6s.txt 2008-10-12 00:41 17K [TXT] sys_lkdl2s.txt 2008-10-12 00:45 6.7K [TXT] sys_load7s.txt 2008-10-12 00:50 15K [TXT] sys_load8s.txt 2008-10-12 00:52 15K [TXT] sys_moth6s.txt 2008-10-12 00:40 2.2K [TXT] sys_moth77s.txt 2008-10-12 00:50 2.1K [TXT] sys_perm2s.txt 2008-10-12 00:48 24K [TXT] sys_rl04s.txt 2008-10-12 00:54 4.8K [TXT] sys_rx021s.txt 2008-10-12 00:48 5.7K [TXT] sys_rx023s.txt 2008-10-12 00:48 6.2K [TXT] sys_rx501s.txt 2008-10-12 00:43 8.3K [TXT] sys_rxboot.txt 2008-10-12 00:46 1.4K [TXT] sys_sbld12s.txt 2008-10-12 00:53 9.6K [TXT] sys_sbldrk3s.txt 2008-10-12 00:46 9.8K [TXT] sys_sbldrl2s.txt 2008-10-12 00:49 9.8K [TXT] sys_sbldrl3s.txt 2008-10-12 00:50 9.8K [TXT] sys_sbldrx3s.txt 2008-10-12 00:45 9.7K [TXT] sys_sin009.txt 2008-10-12 00:42 10K [TXT] sys_sin010.txt 2008-10-12 00:42 10K [TXT] sys_sin011.txt 2008-10-12 00:42 11K [TXT] sys_sup009.txt 2008-10-12 00:45 20K [TXT] sys_sup010.txt 2008-10-12 00:45 20K [TXT] sys_sup011.txt 2008-10-12 00:45 21K [TXT] sys_superte.txt 2008-10-12 00:53 503 [TXT] sys_tu58s.txt 2008-10-12 00:45 5.7K [TXT] syslex.txt 2008-10-12 00:42 123K [TXT] tcpcrash.txt 2008-10-12 00:42 58K [TXT] teledata.txt 2008-10-12 00:43 8.8K [TXT] telem.txt 2008-10-12 00:50 965 [TXT] telematics.txt 2008-10-12 00:50 8.8K [TXT] telepacpas.txt 2008-10-12 00:43 2.5K [TXT] telepacrep.txt 2008-10-12 00:48 9.5K [TXT] telepacrp2.txt 2008-10-12 00:50 7.6K [TXT] temp.txt 2008-10-12 00:42 28 [TXT] tes5.txt 2008-10-12 00:42 1.3K [TXT] test.txt 2008-10-12 00:43 154 [TXT] test2.txt 2008-10-12 00:53 20 [TXT] testats.txt 2008-10-12 00:54 92 [TXT] testout3.txt 2008-10-12 00:42 6.3K [TXT] tests.txt 2008-10-12 00:54 95 [TXT] time40s.txt 2008-10-12 00:54 15K [TXT] title.txt 2008-10-12 00:43 1.0K [TXT] titlesh.txt 2008-10-12 00:42 788 [TXT] tr.txt 2008-10-12 00:49 158 [TXT] tsbsp_deimos.txt 2008-10-12 00:46 291 [TXT] tsbsp_rawst.txt 2008-10-12 00:42 1.3K [TXT] tsbsp_source.txt 2008-10-12 00:53 48K [TXT] tsbsp_stab.txt 2008-10-12 00:50 3.6K [TXT] tsbsp_sttext.txt 2008-10-12 00:46 8.5K [TXT] tsbsp_tscodes.txt 2008-10-12 00:50 381 [TXT] tsbsp_tsdrivers.txt 2008-10-12 00:40 7.8K [TXT] tsbsp_tst_compile.txt 2008-10-12 00:54 124 [TXT] tsbsp_tst_rawst.txt 2008-10-12 00:40 365 [TXT] tsbsp_tst_readthis.txt 2008-10-12 00:53 532 [TXT] tsbsp_tst_source.txt 2008-10-12 00:51 6.8K [TXT] tsbsp_tst_stab.txt 2008-10-12 00:45 1.1K [TXT] tsbsp_tst_sttext.txt 2008-10-12 00:46 1.3K [TXT] tu58_bintus.txt 2008-10-12 00:41 2.0K [TXT] tu58_bottus.txt 2008-10-12 00:42 1.4K [TXT] tu58_fsytus.txt 2008-10-12 00:46 19K [TXT] tu58_suptu3.txt 2008-10-12 00:46 370 [TXT] tu58_tu582s.txt 2008-10-12 00:48 5.5K [TXT] tu58test.txt 2008-10-12 00:45 761 [TXT] tudumps.txt 2008-10-12 00:50 3.3K [TXT] usercmdec.txt 2008-10-12 00:49 1.7K [TXT] usercmfeb.txt 2008-10-12 00:54 1.9K [TXT] usercmoct83.txt 2008-10-12 00:42 2.7K [TXT] usergroup.txt 2008-10-12 00:53 2.3K [TXT] vaxperf.txt 2008-10-12 00:45 420 [TXT] vaxperf2.txt 2008-10-12 00:53 405 [TXT] verifgbs.txt 2008-10-12 00:42 7.5K [TXT] vp.txt 2008-10-12 00:50 11K [TXT] whos.txt 2008-10-12 00:46 1.2K [TXT] workshop.txt 2008-10-12 00:40 1.2K [TXT] x1.txt 2008-10-12 00:48 612 [TXT] x25addr.txt 2008-10-12 00:41 8.6K [TXT] x25addrn.txt 2008-10-12 00:53 9.7K [TXT] x25addrold.txt 2008-10-12 00:40 7.4K [TXT] x25conv.txt 2008-10-12 00:40 6.9K [TXT] x25extras.txt 2008-10-12 00:42 2.3K [TXT] xrco.txt 2008-10-12 00:45 9.6K [TXT] ybgate.txt 2008-10-12 00:53 17K [TXT] z.txt 2008-10-12 00:41 555 [TXT] zeps.txt 2008-10-12 00:53 12K [TXT] zzombie.txt 2008-10-12 00:40 4.9K