==> 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/FK(M/GATX Running/M0R/Running/Ii/ (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/FK(M/GATX Running/M0R/Running/Ii/ (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/FK(M/GATX Running/M0R/Running/Ii/ (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 <== 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/FKM/XGAT Running/M0R/Running/II/ (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/fKZ(r/Running/ii/ (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/fKZ(r/Running/ii/ (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/fKZ(r/Running/ii/ (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/fKZ(r/Running/ii/ (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/fKZ(r/Running/ii/ (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/fKZ(r/Running/ii/ (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/fKZ(r/Running/ii/ (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/fKZ(r/Running/ii/ (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 <== 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 <== ;! 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 ==> 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:- -> -> | + | - -> | 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 <== ! ! KMC11 RECODE - GJB 19/06/78 ! %CONTROL K'101011' %BEGIN %EXTERNALROUTINESPEC HEX(%INTEGER DATA) %EXTERNALROUTINESPEC OCTAL(%INTEGER DATA) %EXTERNALROUTINESPEC SYMBOL(%INTEGER DATA) %EXTERNALROUTINESPEC INST(%INTEGER DATA) %INTEGER DATA,ADDRESS %ROUTINE READ DATA %INTEGER I read ch(I); read ch(DATA); DATA=DATA!I<<8 %END %ROUTINE MOVE %INTEGER I NEWLINE; PRINT SYMBOL('*') %FOR I=1,1,77; NEWLINES(2) %END ==> kmc11_kring2s.txt <== ! ! Ring handler for KMC11 ! DATE 23.nov.81 ! ! $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 ! sp5, sp9 & 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 <== ! ! Ring handler for KMC11 ! DATE 11.nov.81 ! ! $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 ! sp5, sp9 & 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 <== NODEST 1 0 BRG 1 6100 BRGSHR 1 300 MEMORY 1 4500 B 7 FFFF SP0 3 600 SP1 3 601 SP2 3 602 SP3 3 603 SP4 3 604 SP5 3 605 SP6 3 606 SP7 3 607 SP8 3 608 SP9 3 609 SP10 3 60A SP11 3 60B SP12 3 60C SP13 3 60D SP14 3 60E SP15 3 60F ==> 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 <== !********** !* bdk6s * !*18.feb.82* !************ %control 1 %begin %recordformat pf((%byteinteger 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 <== !********** !* bdk7s * !*22.jun.82* !************ %control 1 %begin %recordformat pf((%byteinteger 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_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 ' 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 <== ! PARITY REGISTER CHECKER & 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:- followed by:- where and are all 'control' characters, ie the ninth bit is set to distinguish them from data. The case of = -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 ( ) is not followed by a or the = -2 data bytes are not terminated by a , the FEP will then read up to 200 bytes of data before detecting an error. In all other cases a missing 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
then ctrl+p A to wake it up again PAD> s to start logging PAD> dfwt 126 to set forwarding condition PAD> p back to
PAD> CLR to get out & stop logging hhcp emas: 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 <== Node = 7, Term = 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ==> 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 ! ! ! 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} !> ! ! sxprot.txt <== EDIT x25_XPROTs,T#B TA/198/A1STM/Versi/fKZ(r/Running/ii/ (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