===== ./fep/ts29s.imp ===== !******************************** !* emas-2900 fep ts29 server * !* file: fepi_ts29s * !******************************** !! stack size = 500 !* ! ! prep options ! ! k - kent ! i - new imp compiler ! s - use streams 8 & 9 as control streams to coexist with itp hdlr ===== ./fep/rls.imp ===== ! RLS/RL A.L. IBBETSON UNIKENT 1979 ! DOWN-LINE LOADING VIA RING ! FILE ON STREAM 1 IN A-P FORMAT ! %CONTROL K'100001' %BEGIN %RECORDFORMAT BUFF(%BYTEINTEGERARRAY A(0:100)) %RECORDFORMAT MEF(%RECORD (MEF) %NAME LINK,%BYTEINTEGER LEN,TYPE,%C %RECORD (BUFF) BUF) %RECORDFORMAT PE(%BYTEINTEGER SER,REPLY,FN,PORT,%RECORD (MEF) %NAME MES,%C %BYTEINTEGER L,S) %RECORD (PE) P ===== ./fep/rjes10s.imp ===== !prep options :- ! ! k - kent ! n - nsi ! r - ring ! x - transport service ! #if (k & n) ! (n & r) ! (n & x) ! (x & r) ! ~(r ! x ! n) #report Incompatible options #abort #fi ! file 'fep_rjes10s' ===== ./fep/buff5s.imp ===== ! prep options ! k - kent (uses bigger small buffers) ! t - put task id in mode field and use 128 as flag for small buffs ! ! FILE 'FEP_BUFF3' !******************************* !* EMAS-2900 BUFFER MANAGER * !* FILE: BUFF3 (FEP) * !* DATE: 29.JAN.81 * !****************************** !! STK = SIZE+200 ===== ./fep/zbootdoc.txt ===== .LP .ce .B ZBOOT - Ring boot server .sp .ce Steve Binns .sp .ce Revised Nov 1983 .sp .R ===== ./fep/ftpdxs.imp ===== ! prep options ! n - nsi ! r - ring ! k - kent ! x - transport service interface ! if k is not set, ercc format is assumed #if ~(n!r!x) ! (k&n) #report invalid prep options #abort 1 #fi ! ! ===== ./fep/comm77s.imp ===== !************************ !* COMMS * !* TT BUFFER * !* DATE: 09.JAN.80 * !* IMP77 VSN:24.OCT.80 * !* time prefix added * !* 13/12/83 * !************************ ! !prep option: ===== ./fep/ftpd3s.imp ===== ! prep options ! n - nsi ! r - ring ! k - kent ! x - transport service interface ! e - Edinburgh format ftp ! g - more general ftp ! if k is not set, ercc format is assumed #if ~(n!r!x) ! ~(e!g) ! (n&r) ! (n&x) ! (r&x) ! (e&g) #report must specify one of (n,r,x) and one of (e,g) #abort #fi ===== ./fep/itps9x.imp ===== !******************************** !* emas-2900 fep itp server * !* file: itps9/itps9y * !* date: 25.mar.82 * !******************************** !! stack size = 500 !* !* code options !* a = additions !* b = kent booking server code !* n = ercc nsi !* r = ring ===== ./fep/settimes.imp ===== ! ! program settime (source fep*_settimes) ! Prompts for the time and sends a pon to commy ! %control k'100401' %begin %recordformat pef(%byteinteger ser, reply, %integer a,b,c) %externalroutinespec pon(%record (pef) %name p) ===== ./fep/xxx1s.imp ===== !******************************** !* emas-2900 fep itp server * !* file: x25_xxx1s/xxx1y * !******************************** !! stack size = 500 !* !* nsi version - include !n! statements !* ring version - !n! -> !n! and !r! -> {r} !* #if i %control x'4001' ===== ./fep/ftp3s.imp ===== %conststring (13) vsn = "ftps....2a " #datestring #timestring !******************************** !* emas-2900 fep ftp server * !* file: fpt3s/fpt3y * !* * !******************************** !#options ===== ./fep/nmbts.imp ===== ! !THIS PROGRAM IS USED TO BOOT THE NAME TABLE FOR THE RING NAME SERVER !IT HAS THE SAME INTERFACE AS THE CAMBRIDGE FILE SERVER (ENOUGH TO !ACCOMPLISH THIS TASK). ALL REQUESTS TO IT TO READ A FILE CAUSE STREAM !1 TO BE SELECTED AND READ, THIS SHOULD BE THE SOURCE FORM OF THE NAME !SERVER TABLE I.E. A SERIES OF LINES OF THE FORM:- ! ! name address port type function ! ! name should be enclosed in quotes (' or ") if it contains ! non-alphanumerics or starts with a digit. ! ===== ./fep/ring12s.imp ===== ! file 'ring9s' - with monitoring back in !******************************** !* emas-2900 ring interface * !* handler * !* file: ring8s * !* date:04.feb.82 * !********************************* !new version to handle version 2 of TSBSP (Nov 82) ! prep options are: ! t trace buffer ===== ./fep/eam77s.imp ===== ! file 'fep_eam77' !******************************** !* emas-2900 fep am1 handler * !* file: eam7 * !* date: 24.mar.82 * !* modified for pcb interface * !******************************** !! stack size = 300 %owninteger fep no = 9; ! number supplied on load ===== ./fep/zboots.imp ===== !prep options ! x - uses ts interface ! default is the old bsp (gate) interface ! #datestring !Z80 TCP BOOT PROGRAM ! !! STK = 500, STRM = 1 ! !VERSION 6 ALLOWS ALTERNATIVES IN THE PATTERN MATCH USING [..|..|..] !VERSION 5 USES THE CALLING ADDRESS IN THE TSBSP OPEN IF PRESENT ! INSTEAD OF DOING A REVERSE LOOKUP ===== ./fep/aareadme.txt ===== These files make up the transport service version of the EMAS ring fep. The TSBSP handler is not included, look for a PD file called TSBSP. The PD file makefiles contains obey files for compiling most of the modules. The source needs to be preped with an x option but that's in the obey files. Some of the modules need to be preped with an x (and possibly k) and then compiled on the old pdp11 compiler. ===== ./fep/names.imp ===== !********************* !* * !* name server * !* interface * !* * !********************* %include "deimosperm" %constrecord (*) %name nil == 0 ===== ./new/btt7s.imp ===== ! 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) ===== ./new/cli1s.imp ===== ! 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 ===== ./new/bvt1s.imp ===== !************** !* 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) ===== ./new/moth6s.imp ===== !************ !* MOTH6S * !* 27.NOV.79* !************ %CONTROL K'101011' %PERMINTEGERFNSPEC SVC(%INTEGER EP, R0, R1) %BEGIN %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) ===== ./new/link6s.imp ===== !************************** !* 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 ===== ./new/rl04s.imp ===== !************ !* 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) ===== ./new/fsys1s.imp ===== !****************************** !* 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 ===== ./new/fsys77.imp ===== !****************************** !* 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 ===== ./new/fsys78.imp ===== !****************************** !* 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 ===== ./new/sin009.imp ===== !*************************** !* 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 ===== ./new/sin010.imp ===== !*************************** !* 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 ===== ./new/sbldrx3s.imp ===== !********** !* 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 ===== ./new/fsytxs.imp ===== ! 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 ===== ./new/sbldrk3s.imp ===== !********** !* 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 ===== ./new/dvrubshs.imp ===== ;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 ===== ./new/lkdl2s.imp ===== !**************** !* 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) ===== ./new/dvtu58s.imp ===== ; 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 ===== ./new/sup009.imp ===== !*********** !* 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 ===== ./new/sup010.imp ===== !*********** !* 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 ===== ./new/brun10.asm ===== .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 ===== ./new/sbldrl2s.imp ===== !********** !* 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 ===== ./new/sbldrl3s.imp ===== ! 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) ===== ./new/tu58s.imp ===== !* 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 ===== ./new/dxxxxx.imp ===== ;************************************** ;* 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 ===== ./new/moth77s.imp ===== !************ !* moth6s * !* 14.jul.81* !************ %control 1 %include "deimosperm" %begin %recordformat pf(%byteinteger service, reply, %integer a1, a2, a3) ===== ./new/rx021s.imp ===== ! ! 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 ===== ./new/dvdup.asm ===== ;! FILE 'DVDUP' ;.TIME40 ;************************************** ;* DVDUP * ;* INTERFACE BETWEEN HARDWARE AND IMP* ;* DATE: 27.MAR.81 * ;************************************** PS=177776; PROCESSOR STATUS WORD IDLEST=-1; SUPERVISOR IDLE FLAG ===== ./new/perm2s.asm ===== ; 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 ===== ./new/sbld12s.imp ===== !********** !* 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 ===== ./new/dvrxrub.imp ===== .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 ===== ./new/load8s.imp ===== ! 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 ===== ./new/bdk4s.imp ===== !********** !* BDK4S * !********** %CONTROL K'100001'; ! 'SYSTEM' PROGRAM+MUL+TRUSTED %PERMINTEGERFNSPEC SVC(%INTEGER EP, P1, P2) %PERMINTEGERMAPSPEC INTEGER %PERMBYTEINTEGERMAPSPEC BYTEINTEGER %PERMINTEGERFNSPEC ADDR %PERMINTEGERFNSPEC ACC ===== ./old/cli1s.imp ===== ! 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 ===== ./old/dbug5s.imp ===== ! FILE 'DBUG5S' !***************************** !* DBUG4S * !*DATE: 04.DEC.79 * !***************************** !! STK = 300, STR = 1 %CONTROL K'100001' %PERMROUTINESPEC SVC(%INTEGER EP, R0, R1) %PERMINTEGERMAPSPEC INTEGER %PERMBYTEINTEGERMAPSPEC BYTEINTEGER %PERMINTEGERFNSPEC ADDR ===== ./old/files.imp ===== !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:- ===== ./old/bvt1s.imp ===== !************** !* 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) ===== ./old/comms.imp ===== !******************** !* COMMS * !* TT BUFFER * !* 21:OCT:77 15.13 * !******************** %CONTROL K'101011'; ! 'SYSTEM' PROGRAM (FAST ! ROUTINE ENTRY/EXIT) %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) %SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG) ===== ./old/moth6s.imp ===== !************ !* MOTH6S * !* 27.NOV.79* !************ %CONTROL K'101011' %PERMINTEGERFNSPEC SVC(%INTEGER EP, R0, R1) %BEGIN %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) ===== ./old/fslsis.imp ===== !****************************** !* 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 ===== ./old/edits.imp ===== %CONTROL K'101011' ! STACK=60000, STREAMS=3 %BEGIN %CONSTBYTEINTEGERNAME INT=K'160060' %RECORDFORMAT STRDF(%INTEGER A,B,C,%BYTEINTEGER SER,REPLY, %C %INTEGER D,E,F,G,H,I,J,K) %PERMRECORD(STRDF)%MAPSPEC RECORD(%INTEGER X) %RECORDFORMAT STRPF(%RECORD(STRDF)%NAME STRD) %CONSTRECORD(STRPF)%NAME INST1=K'160034', INST2=K'160036', OUTST1=K'160044' %CONSTINTEGERNAME XOUTST1=K'160044' %CONSTRECORD(STRDF)%NAME NULL=0 ===== ./old/dirs.imp ===== !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! DIR LISTS CURRENT DIRECTORY ! ! W.S.C. 8TH APRIL 1980 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! STACK=2000 STREAMS=1 %CONTROL K'101011' %BEGIN ===== ./old/link6s.imp ===== !************************** !* LINK6S/LINK * !* DATE: 25.FEB.80 * !* 4TH PASS FOR IMP COMP. * !************************** %CONTROL K'101011'; ! 11/45 & TRUSTED %RECORDFORMAT DFGH(%INTEGER G) %CONSTRECORD (DFGH) %NAME NULL = 0 ===== ./old/dvno1s.asm ===== ;************************************** ;* 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 ===== ./old/sin009.imp ===== !*************************** !* SIN009 * !* DATE: 22.APR.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 ===== ./old/nsiws.imp ===== !********************** !* 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' ===== ./old/flis2.imp ===== %PERMROUTINESPEC SVC(%INTEGER EP, %BYTEINTEGERNAME R0, R1) %PERMINTEGERMAPSPEC INTEGER(%INTEGER N) %PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER N) %PERMINTEGERFNSPEC ADDR(%INTEGERNAME N) %PERMINTEGERFNSPEC ACC %OWNBYTEINTEGERNAME DUMMY = 0 %BEGIN ===== ./old/control.txt ===== %CONTROL bits: 2**00 - Enable use of: MUL, DIV ASH, ASHC XOR rather than subroutines ===== ./old/dqs12e.imp ===== ! FILE 'FEP_DQS12E' !************** !* DQS11E * !*DA:01.APR.80* !************** %CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND ! TRUSTED PROG %RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN) ===== ./old/veris2.imp ===== %PERMROUTINESPEC SVC(%INTEGER EP, %INTEGERNAME R0, R1) %PERMINTEGERMAPSPEC INTEGER(%INTEGER N) %PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER N) %PERMINTEGERFNSPEC ADDR(%INTEGERNAME N) %PERMINTEGERFNSPEC ACC %OWNINTEGERNAME DUMMY = 0 ===== ./old/bdut3s.imp ===== ! DISC UTILITY AND TEST PROGRAM !W.S.C. 16TH AUGUST 1976 !LAST UPDATED 31/8/76 10:40 !THE FOLLOWING TEST STATES CAN BE SELECTED ! 1-READ N BLOCKS AND LIST THEM ! 2-WRITE N BLOCKS WITH A GIVEN PATTERN ! 3-COMPARE N BLOCKS WITH A GIVEN PATTERN ===== ./old/reco1s.imp ===== %BEGIN %CONSTINTEGER EOT = 4 %INTEGER LNUM, CURRENT LINE, ADDR, CA, S %INTEGERFN ITEM %OWNINTEGERARRAY BUF(1:64) %INTEGER S, L1, L2 %ROUTINE GET(%INTEGERNAME N) %INTEGER S READSYMBOL(N); READSYMBOL(S) N = N+S<<8 %END ===== ./old/sup009.imp ===== !*********** !* SUP009 * !*21.APR.80* !*********** %CONTROL K'111011'; ! MUL+TRUSTED %PERMROUTINESPEC SVC %PERMINTEGERMAPSPEC INTEGER(%INTEGER X); ! USED IN INIT %RECORDFORMAT DUMMY(%INTEGER X) %CONSTRECORD (DUMMY) %NAME NULL=0 ===== ./old/coprxs.imp ===== %BEGIN %CONSTBYTEINTEGERNAME ID = K'160030' %CONSTINTEGERNAME NULLI=0 %CONSTINTEGER DREAD=0, DWRITE=1 %RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, %C %INTEGERNAME A2, %INTEGER A3) %INTEGER I, J, K, L, M, DRIVE ===== ./old/rk051s.imp ===== !************ !* BDK6S * !*21.APR.78* !************ !* N O T E: MODIFIED TO ADDRESS UNIT 4 (SOFTWARE) AS UNIT 2 (HARDWARE) %CONTROL K'100001'; ! 'SYSTEM' PROGRAM+MUL+TRUSTED %PERMINTEGERFNSPEC SVC(%INTEGER EP, P1, P2) %PERMINTEGERMAPSPEC INTEGER %PERMBYTEINTEGERMAPSPEC BYTEINTEGER %PERMINTEGERFNSPEC ADDR ===== ./old/rxints.imp ===== ! !!!!!!!!!!!! DISC INITIALISER (RXO2) !!!!!!!!!!!!!!!! ! ! COPIES THE SYSTEM (0-87) FROM UNIT 0 TO UNIT 1 ! AND ZEROS THE BLKLST AND DIRECTORIES ON UNIT 1 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! %BEGIN ===== ./old/dpal6s.imp ===== ! FILE 'SYS_DPAL6S' !************ !* DPAL6S * !*14.SEP.79* !************ %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 ===== ./old/frmats.imp ===== ! ! FORMAT.......FORMATS RXO2 ON UNIT 1 ! %CONTROL K'101011' %SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG) %BEGIN %RECORDFORMAT RXF(%INTEGER CONTROL,DBREG) %CONSTRECORD(RXF)%NAME RX=K'117170' %INTEGER I MAPHWR(4) PRINTSTRING('FORMATS RXO2 ON UNIT 1.........') NEWLINE ===== ./old/botrxs.asm ===== %BEGIN %CONSTBYTEINTEGERNAME ID = K'160030' %CONSTINTEGERNAME NULLI=0 %CONSTINTEGER DREAD=0, DWRITE=1 %RECORDFORMAT PF(%BYTEINTEGER SERVICE, REPLY, %INTEGER A1, %C %INTEGERNAME A2, %INTEGER A3) %INTEGER I, J, K, L, M, DRIVE ===== ./old/rx022s.imp ===== ! 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) ===== ./old/rx022t.imp ===== ! TEMP VERSION TO PRINT OUT ERRORS ! 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 ===== ./old/dvrub.asm ===== ;************************************** ;* DVRUB * ;* INTERFACE BETWEEN HARDWARE AND IMP* ;* DATE: 14.APR.80 * ;************************************** PS=177776; PROCESSOR STATUS WORD IDLEST=-1; SUPERVISOR IDLE FLAG INTVAL=40; DEDICATED LOCATION FOR INTERRUPT NUMBER ALARMF=44; DITTO - FOR CLOCK ===== ./old/sbld3s.imp ===== !********** !* 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 ===== ./old/load7s.imp ===== ! FILE 'LOAD7S' !************** !* LOAD17S * !* 22.APR.80 * !************** %PERMINTEGERFNSPEC SVC(%INTEGER EP, %INTEGER P1, %INTEGER P2) %PERMINTEGERMAPSPEC INTEGER(%INTEGER X) %PERMBYTEINTEGERMAPSPEC BYTEINTEGER(%INTEGER X) %PERMINTEGERFNSPEC ADDR(%INTEGERNAME X) %CONSTINTEGERNAME DUMMY = 0 %SYSTEMINTEGERFNSPEC GETID ===== ./old/bootr.asm ===== .ABSOLUTE .=600 . ;SET DESTINATION MOVB #71.,@#764052 MOV #0,R2 ;DISC ADDRESS REG MOV #256,R3 ;NO OF TRACKS MOV #17440,R4 ;DL STAUS REG ;READ BLOCK LOOP: MOV #1000,@#174402 ;BUFFER ADDRESS MOV R2,@#174404 ;DISC ADDRESS MOV #-5120.,@#174406 ;WORD COUNT ===== ./old/boott.asm ===== .ABSOLUTE .=600 ; RECEIVER - INITIALISE THE RING MOV #66,@#164042 BIS #1,@#1764056 MOV #256,R3 ;NO OF TRACKS MOV #174400,R4 ;DL STATUS REG MOV #0,R2 ;DISC ADDRESS ;WAIT FOR BLOCK FROM RING LOOP: MOV #5120.,R0 MOV #1000,R1 ;WAIT FOR REC READY ===== ./old/dup11e.imp ===== !************** !* DUP11E * !*DA:10.APR.80* !* FOR DU11 * !************** %CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND ! TRUSTED PROG %RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN) ===== ./disk-images/rx02a.hex ===== 00000000: 00 07 d2 20 00 00 00 20 00 08 00 00 00 00 00 04 : ... ... ........ 00000010: 00 00 00 00 30 90 ce d0 00 00 00 03 00 00 00 00 : ....0........... 00000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 000000a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 000000b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ ===== ./disk-images/rx02a.txt ===== xþ÷ b ÄÐzþ÷ T zþ÷ T xþ÷ : zþ÷ 0 zþ÷ 2 Ã-\ý öüÄe w ÌÿÁ þÿ°üï ÿÿ¨üë ûÿrüÐ ===== ./disk-images/rx02b.hex ===== 00000000: 00 07 d2 20 00 00 00 20 00 08 00 00 00 00 00 04 : ... ... ........ 00000010: 00 00 00 00 30 90 ce f2 00 00 00 03 00 00 00 00 : ....0........... 00000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 000000a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 000000b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ ===== ./disk-images/rx02b.txt ===== xþ÷ b ÄÐzþ÷ T zþ÷ T xþ÷ : zþ÷ 0 zþ÷ 2 Ã-\ý öüÄe w ÌÿÁ þÿ°üï ÿÿ¨üë ûÿrüÐ ===== ./disk-images/rx02c.hex ===== 00000000: 00 07 d2 20 00 00 00 20 00 08 00 00 00 00 00 04 : ... ... ........ 00000010: 00 00 00 00 30 90 d0 0f 00 00 00 03 00 00 00 00 : ....0........... 00000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 000000a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 000000b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ ===== ./disk-images/rx02c.txt ===== xþ÷ b ÄÐzþ÷ T zþ÷ T xþ÷ : zþ÷ 0 zþ÷ 2 Ã-\ý öüÄe w ÌÿÁ þÿ°üï ÿÿ¨üë ûÿrüÐ ===== ./disk-images/rx02d.hex ===== 00000000: 00 07 d2 20 00 00 00 20 00 08 00 00 00 00 00 04 : ... ... ........ 00000010: 00 00 00 00 30 90 d0 22 00 00 00 03 00 00 00 00 : ....0.."........ 00000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 00000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 000000a0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ 000000b0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 : ................ ===== ./disk-images/rx02d.txt ===== xþ÷ b ÄÐzþ÷ T zþ÷ T xþ÷ : zþ÷ 0 zþ÷ 2 Ã-\ý öüÄe w ÌÿÁ þÿ°üï ÿÿ¨üë ûÿrüÐ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/kents_ring4s.txt ===== !******************************** !* EMAS-2900 RING INTERFACE * !* HANDLER * !* FILE: RING4S * !* 27:3:80 * !********************************* !! STK = 300, STRM = 1 ! COMPILE OPTIONS ! --------------- ===== ./ercm09/emas-2900/b_lmpsse.txt ===== imp11 lmpsse link11 lmpsse#rel i77perm .stack 2000 .streams 1 .end lmpssey list lmpssey,.fep72 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/la0216.txt ===== Dump GEC logfile Version 1.3c Log:ACCNTS.GAP850216 To:LA0216 First record at 23:57:23 ===== ./ercm09/emas-2900/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 - - ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 (!) ===== ./ercm09/emas-2900/ftppd_tableold.txt ===== / [LITERALS] [ATTRIBUTES] 1 PROTID/0 ACCESSMODE/1 TRANSCODE/2 TEXTFORM/3 MAXREC/5 TRANSLIM/6 INITM/11 TIMEOUT/13 FACILITIES/14 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/sys_moth6s.txt ===== !************ !* MOTH6S * !* 27.NOV.79* !************ %CONTROL K'101011' %PERMINTEGERFNSPEC SVC(%INTEGER EP, R0, R1) %BEGIN %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/kents_bsp4s.txt ===== !******************************** !* EMAS-2900 BSP INTERFACE * !* HANDLER * !* FILE: BSP4S * !* 18:3:80 * !********************************* !! STK = 300, STRM = 1 %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ! ===== ./ercm09/emas-2900/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, ===== ./ercm09/emas-2900/crackerhelp.txt ===== *************************** * * * THE CRACKER * * Copyright (C) 1984-6 * * I.W.SEARLE * * All Rights Reserved * * Version 2.31 * * * *************************** ===== ./ercm09/emas-2900/fepb_bsp4s.txt ===== !******************************** !* EMAS-2900 BSP INTERFACE * !* HANDLER * !* FILE: BSP4S * !* 18:3:80 * !********************************* !! STK = 300, STRM = 1 %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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:- ===== ./ercm09/emas-2900/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' ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/stat7s.txt ===== %REALSLONG ! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! 2900 FEP STATISTICS PACKAGE ! ! ! ! GRAPH1 - USERS V KILO BYTES/SECOND AND CPU ! ! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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[ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/stat8s.txt ===== %REALSLONG ! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! 2900 FEP STATISTICS PACKAGE ! ! ! ! GRAPH1 - USERS V KILO BYTES/SECOND AND CPU ! ! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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", ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/stat9s.txt ===== ! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! 2900 FEP STATISTICS PACKAGE ! ! ! ! GRAPH1 - USERS V KILO BYTES/SECOND AND CPU ! ! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD ! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_peek.txt ===== imp11 peeks link11 peeks#rel i77perm .stack 500 .streams 1 .end peeky ===== ./ercm09/emas-2900/response_kentdec22.txt ===== P Node = 0, Term = 5 0 0 0 0 6 87 81 20 10 5 ===== ./ercm09/emas-2900/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] ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/ftppd_tablist.txt ===== ! ? " ? # ? $ ? % ? & ? ' ? ( ? ) ? * ? ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/colorinfos.txt ===== ! FILE 'ERCM08.INC_COLOURDEFS' %CONTROL K'100001' %BEGIN ! ! *** COLOUR DEFINITIONS ! %CONSTINTEGER BLACK=16 %CONSTINTEGER RED=17 %CONSTINTEGER GREEN=18 %CONSTINTEGER YELLOW=19 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_umc.txt ===== imp11 umcs link11 umcs#rel i77perm .stack 400 .streams 0 .end umcy ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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' ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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, ===== ./ercm09/emas-2900/b_nbsmon.txt ===== imp11 nbsmon/,ll link11 nbsmon#rel i77perm .stack 1000 .streams 0 .end nbsmony list nbsmony,.bpp6 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/fepb_ring4s.txt ===== !******************************** !* EMAS-2900 RING INTERFACE * !* HANDLER * !* FILE: RING4S * !* 27:3:80 * !********************************* !! STK = 300, STRM = 1 ! COMPILE OPTIONS ! --------------- ===== ./ercm09/emas-2900/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)) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_lmcon.txt ===== imp11 lmcons/,l link11 lmcons#rel i77perm .stack 1000 .streams 0 .end lmcony alist11 lmcons/.lp23 list lmcony,.bpp6 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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:- ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/itpinfs.txt ===== %CONTROL 1 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! INFO MARK 2--ITP CONSOLE HANDLER ! ! FILE=ITPS ! ! 27TH AUG 1980 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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). ===== ./ercm09/emas-2900/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); ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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, ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/node_itpinfs.txt ===== %CONTROL 1 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! INFO MARK 2--ITP CONSOLE HANDLER ! ! FILE=ITPS ! ! 27TH AUG 1980 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/kent#jun81_bsp5s.txt ===== !******************************** !* EMAS-2900 BSP INTERFACE * !* HANDLER * !* FILE: BSP5S * !* 24:11:80 * !********************************* !! STK = 300, STRM = 1 %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) ===== ./ercm09/emas-2900/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 = "" ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/lynp1s.txt ===== %CONTROL K'100001' %BEGIN ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! *** OWN ROUTINES FOR DRIVING INTECOLOUR DISPLAY ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! %OWNINTEGER CBACK ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ; ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/README ===== ==> 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. ===== ./ercm09/emas-2900/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 ! ! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/lynp2s.txt ===== %CONTROL K'100001' %BEGIN ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! *** OWN ROUTINES FOR DRIVING INTECOLOUR DISPLAY ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! %OWNINTEGER CBACK ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ; ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_fsave.txt ===== imp11 fsaves/,ll link11 fsaves#rel i77perm .stack 1000 .streams 1 .end fsavey alist11 fsaves/.lp23 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/config509.txt ===== 16th Sep. 1986 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_gate.txt ===== imp11 gate77 link11 gate77#rel i77perm .stack 1000 .streams 1 .end gate77y alist11 gate77/.lp23 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/response_n7t9dec22a.txt ===== Node = 7, Term = 9 0 0 0 0 0 0 0 0 0 0 ===== ./ercm09/emas-2900/response_n7t9dec22b.txt ===== Node = 7, Term = 9 0 0 0 0 0 0 0 0 0 0 ===== ./ercm09/emas-2900/b_bdk.txt ===== dimp11 bdk7s link11 /map bdk7s .codeseg 2 .stackseg 6 .stack 200 .streams 0 .end bdk7s c bdk7s#abs,newsys_bdk7y ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_veris.txt ===== IMP11 gen_VERIS77/veris77#rel,L LINK11 VERIS77#REL GEN_EXTERNSREL I77PERM .STACK 6000 .STREAMS 1 .END VERIS77Y ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/ring_lmeors.txt ===== ! file 'lmeors' !********************** !* lmeors/lmeory * !* date: 16.dec.81 * !********************* %conststring (13) vsn = "lmeo:vsn001b " !! stack = 300, streams = 1 %control 1 ===== ./ercm09/emas-2900/b_pcl.txt ===== imp11 pclo4s link11 pclo4s#rel i77perm .stack 1400 .streams 0 .name clok .end pclo4y ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/dirs.txt ===== !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! DIR LISTS CURRENT DIRECTORY ! ! W.S.C. 8TH APRIL 1980 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! STACK=2000 STREAMS=1 %CONTROL K'101011' %BEGIN ===== ./ercm09/emas-2900/temp.txt ===== notice nodes gp15 n h n y n ===== ./ercm09/emas-2900/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 ! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/tcpcrash.txt ===== AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAHDIAOLIPACIOKOFBCNFBAAAAAAAAPPAABAAAOBJOIODAHDIAIKIPIAAO MLGBMKGBAAAAAAAABAAADAAAAAAAAAAAAAAABABADAPPAAAAAAAAAAAABACADAPP AAAAAAAAAAAABADADAPPAAAAAAAAAAAABAEADAEAAAAAAAAAAAAABAFADAFAAAAA AAAAAAAABAGADAPPAAAAAAAAAAAABAHADAPPAAAAAAAAAAAABAIADAPPAAAAAAAA AAAABAJADAJAAAAAAAAAAAAABAKADAKAAAAAAAAAAAAABALADALAAAAAAAAAAAAA BAMADAMAAAAAAAAAAAAABANADAPPAAAAAAAAAAAABAOADAOAAAAAAAAAAAAABAPA DAPPAAAAAAAAHDIAMPHPIAAOEGHBIDHBAAAAAAAAAAAADAAAAAAAMFKAAAAAAABA DAPPAAAAAAAAAAAAAACADAPPAAAAAAAAAAAAAADADAPPAAAAAAAAAAAAAAEADAEA AAAAMFKAKIBHBAFADAFAAAAAMFKAAAAAAAGADAPPAAAAAAAAAAAAAAHADAPPAAAA ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_lm2976.txt ===== imp11 lm2976 link11 lm2976#rel i77perm .stack 2000 .streams 1 .end lm2976y list lm2976y,.fep72 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/colorls.txt ===== ! FILE 'ERCM08.INC_COLOURDEFS' %CONTROL K'100001' %BEGIN ! ! *** COLOUR DEFINITIONS ! %CONSTINTEGER BLACK=16 %CONSTINTEGER RED=17 %CONSTINTEGER GREEN=18 %CONSTINTEGER YELLOW=19 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 * * ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_link.txt ===== imp11 link77s/,l link11 link77s#rel .streams 4 i77perm .stack 27200 .end link77y alist11 link77s/.lp23 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) !! ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_rles.txt ===== imp11 rles77 link11 rles77#rel i77perm .stack 400 .streams 1 .end rlesy ===== ./ercm09/emas-2900/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, ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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]] ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/b_fsys.txt ===== dimp11 fsys79 link11 /fsys79 fsys79 .stack 300 .streams 0 .stackseg 6 .codeseg 2 .end fsys79 c fsys79#abs,newsys_fsys79y ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/ftppd_table.txt ===== / [LITERALS] [ATTRIBUTES] 1 PROTID/0 ACCESSMODE/1 TRANSCODE/2 TEXTFORM/3 MAXREC/5 TRANSLIM/6 INITM/11 TIMEOUT/13 FACILITIES/14 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_prt9f.txt ===== imp11 prt9fs/,ll link11 prt9fs#rel i77perm .stack 1000 .streams 0 .name PRT0 .end prt9fy list prt9fy,.fep72 alist11 prt9fs/.lp23 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/response_fe121jan.txt ===== Node = 80, Term = 80 - 21 Jan 82 fe1 0 0 0 0 21 85 104 92 75 64 43 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 * !* * !* * !******************************************************************************* ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/newsys_load8s.txt ===== !************** !* load18s * !* 14.jun.82 * !************** %control x'4001' %constrecord (*) %name null == 0 !*********************************** ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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, ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/netsig485.txt ===== Edinburgh Regional Computing Centre Edinburgh University Networks Special Interest Group Calling Notice and Agenda issued by Brian Gilmore ===== ./ercm09/emas-2900/cursorlyns.txt ===== !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! PERKIN ELMER CURSOR ADDRESSING ROUTINES !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! %EXTERNALROUTINESPEC PROMPT(%STRING (15) S) %CONSTINTEGER ESC = 27 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_dpal.txt ===== imp11 gen_dpal8s/dpal8s#rel,ll link11 dpal8s#rel i77perm .stack 2400 .streams 1 .end dpal8y alist11 dpal8s/.lp23 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/response_infodec22.txt ===== Node = 156, Term = 156 0 0 0 0 0 0 0 0 0 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_bou.txt ===== imp11 bounce/,ll link11 bounce#rel i77perm .stack 1000 .streams 1 .end bouncey ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_inv.txt ===== prep invaders,inv#imp,d imp11 inv#imp link11 /map inv#rel i77perm .stack 4000 .end invy ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 * ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/newsys_cli1s.txt ===== ! file 'cli1s' !************** !* cli1s * !* 26.feb.81 * !************** %control 1 %recordformat dumrec(%integer x) %constrecord (*) %name null == 0 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_det23.txt ===== out=lp23 name=what a drag .end ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 " ===== ./ercm09/emas-2900/newsys_bdk6s.txt ===== !********** !* bdk6s * !*18.feb.82* !************ %control 1 %begin %recordformat pf((%byteinteger service, reply %or %integer d), %c %integer a1, a2, a3) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 =/)* ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_lmeor.txt ===== imp11 lmeors link11 lmeors#rel i77perm .stack 1000 .streams 1 .end lmeory alist11 lmeors/.lp23 ===== ./ercm09/emas-2900/newsys_bdk7s.txt ===== !********** !* bdk7s * !*22.jun.82* !************ %control 1 %begin %recordformat pf((%byteinteger service, reply %or %integer d), %c %integer a1, a2, a3) ===== ./ercm09/emas-2900/b_bsp.txt ===== prep bsp78s,bsp78s#imp,o imp11 bsp78s#imp link11 bsp78s#rel i77perm .stack 1000 .streams 0 .name bsps .end bsp78y ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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' ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/comm.txt ===== Networking in Edinburgh University Introduction ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/node_itpin2s.txt ===== %CONTROL 1 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! INFO MARK 2--ITP CONSOLE HANDLER ! ! FILE=ITPS ! ! 27TH AUG 1980 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ===== ./ercm09/emas-2900/gatex_nsource.txt ===== !********************************************************** !* * !* PSS X-25 Level 3 Protocol Handler * !* * !* GATEX * !* * !* Version 9.31 15 Sep 1983 * !* * !********************************************************** !* %control 1 ===== ./ercm09/emas-2900/ringold_bsp6s.txt ===== ! FILE 'BSP78s' !******************************** !* EMAS-2900 BSP INTERFACE * !* HANDLER * !* FILE: BSP78s * !* DATE:02.sep.81 * !* MODIFIED FOR ERCC USE * !********************************* !! STK = 300, STRM = 1 ===== ./ercm09/emas-2900/infcolours.txt ===== ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! *** EXTERNAL ROUTINES FOR DRIVING INTECOLOUR DISPLAY ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! %INCLUDE "INC_COLOURDEFS" %INCLUDE "INC_SERVICES" %EXTERNALINTEGERSPEC CBACK %EXTERNALINTEGERSPEC CFORE ! ===== ./ercm09/emas-2900/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:- ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_cli.txt ===== dimp11 cli1s link11 /map cli1s .codeseg 2 .stackseg 6 .stack 300 .streams 0 .end cli1s c cli1s#abs,newsys_cli1y ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/cursors.txt ===== !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! PERKIN ELMER CURSOR ADDRESSING ROUTINES !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! %EXTERNALROUTINESPEC PROMPT(%STRING (15) S) %CONSTINTEGER ESC = 27 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/mon.txt ===== Node = 80, Term = 80 0 0 0 0 15 21 10 0 1 0 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/gecgrab2.txt ===== !********************************************************** !* * !* RCO ITP to GEC Network Management Module * !* * !* Gecgrab * !* * !* * !********************************************************** #options !* Prep options ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/ringboot.txt ===== AAAABAABAAAAAACAAAAACAAAAAAAAAADAAAAAAAACMNCLHBIAAAAAAAAAAAAAAAADLCAEDEPENENEFEO FECAEDEPENENEFEOFECAEDEPENENEFEOFECAEDEPENENEFEOFEAKDLAKDLCAEHEFEPFCEHEFCACNCAFD EPFCFCFJCAEBECEPFFFECAEDEPEDELFFFACAEMEBFDFECAFHEFEFELCOCAEGEJEOEHEFFCCAFEFCEPFF ECEMEFCAFHEIEFEOCAFAFFEOEDEIEJEOEHAKDLCAFJEPFFFCCAFAFEEBFAEFCOCAFEEIEJFDCAEJFDCA EEEFEGEJEOEJFEEFEMFJCAFEEIEFCAEDFFFCFCEFEOFECAFHEPFCELEJEOEHCAFGEFFCFDEJEPEOCOAK DLCAFEEIEJFDCAEGEJEMEFCAEEEJFDFAEBFEEDEIEFEECAEJEOFEEPCAFEEIEFCAEOEFFEFHEPFCELCA EBFECADBDBDKDDDAEBENCADJCPDDCPDIDBCOAKDLCAEJEOEGEPCAEPEOCAEBFDFDEFENECEMEFFCCPEM EJEOELEFFCCAEJEOFEEFFCEGEBEDEFCAFDFEEJEMEMCAEBFHEBEJFEEFEECACIFDEFEFCAEMEBFDFECA EMEFFEFEEFFCCJCOAKDLCACACACACACACNCAEBEMEBEOAKDLAKDLCAEDEPENENEFEOFECAEDEPENENEF EOFECAEDEPENENEFEOFECAEDEPENENEFEOFEAKDLAKAJCOFEEJFEEMEFCAFCEJEOEHCAEBECFDEPEMFF FEEFCAEMEPEBEEEFFCAKDLENEPEEEJEGEJEFEECAEGFCEPENCAEBEOEEFJCAECEFEMEMFDCAFCFECNDB DBCAEMEPEBEEEFFCCOCAEBEMEJCADDDACPDICPDHDHCOAKDLFEEIEJFDCAFAFCEPEHFCEBENCAFAFFEO ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 - - ===== ./ercm09/emas-2900/b_down.txt ===== imp11 down4m link11 down4m#rel .stack 2000 i77perm .streams 1 .end down4y ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/parr4fs.txt ===== !********************* !* parr4fs/parr4y * !* date: 20.jan.82 * !* modified for fep * !********************* !stack = 140 %control 1 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_rl01.txt ===== dimp11 rl06s link11 /map rl06s .codeseg 2 .stackseg 6 .stack 300 .streams 0 .end rl06s c rl06s#abs,newsys_rl06y ===== ./ercm09/emas-2900/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 ! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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 ! ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/dqs12e.txt ===== ! FILE 'FEP_DQS12E' !************** !* DQS12E * !*DA:14.APR.80* !************** %CONTROL K'100001'; ! 'SYSTEM' PROGRAM AND ! TRUSTED PROG %RECORDFORMAT PARF(%INTEGER TYPE, ADDRESS, LEN) ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/newsys_moth77.txt ===== !************ !* moth6s * !* 14.jul.81* !************ %control x'4001' %include "b_deimosspecs" %begin %recordformat pf(%byteinteger service, reply, %integer a1, a2, a3) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_det.txt ===== out=file outname=detout name=what a drag .end ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_snoop.txt ===== imp11 snoops/,l link11 snoops#rel i77perm .stack 1000 .streams 0 .end snoopy ===== ./ercm09/emas-2900/b_nbss.txt ===== DIMP11 nbss9S link11 /nbss nbss9s .stack 1000 .streams 1 .codeseg 1 .stackseg 6 .end nbss9s destroy nbss9y rename nbss9s#abs,nbss9y ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/ftu.txt ===== THIS IS a file ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_parrf.txt ===== imp11 parr4fs link11 parr4fs#rel i77perm .stack 400 .streams 0 .end parr4fy list parr4fy,.bpp155 ===== ./ercm09/emas-2900/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 * ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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$% ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 !!!!!!!!!!!!!!!!! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_temp.txt ===== imp11 temp link11 temp#rel i77perm .stack 62000 .streams 0 .name stte .end tempy list tempy,.bpp6 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_batch.txt ===== imp11 gen_batchs/batchs#rel link11 batchs#rel i77perm .stack 1000 .streams 2 .end batchy ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 !********************************************** !* * ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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) !! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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! ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_ncon.txt ===== imp11 ncon10s/,l link11 ncon10s#rel i77perm .stack 1400 .streams 1 .name node .end ncon10y list ncon10y,.bpp6 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_comms.txt ===== imp11 gen_comm77/comm77#rel link11 i77perm comm77#rel .stack 1000 .streams 1 .name comm .end alist11 gen_comm77/.lp23 ===== ./ercm09/emas-2900/graham.txt ===== GEC.D31 = 15000040.(FTP001,RATS).GECDFTP.00000000203150.FTP.MAIL GEC.D2 = 15000040.(FTP001,RATS).GECDFTP.00000000200250.FTP.MAIL] ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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)) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/cpsesumm.txt ===== @heading[CPSE Survey Summary] @varbatim[ Name Range (maxs) Cost(k):10 18 48 100 Notes =================================================================== ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/colors.txt ===== ! FILE 'ERCM08.INC_COLOURDEFS' %CONTROL K'100001' %BEGIN ! ! *** COLOUR DEFINITIONS ! %CONSTINTEGER BLACK=16 %CONSTINTEGER RED=17 %CONSTINTEGER GREEN=18 %CONSTINTEGER YELLOW=19 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_lmacc.txt ===== imp11 lmaccs/,l link11 lmaccs#rel i77perm .stack 1000 .streams 0 .end lmaccy alist11 lmaccs/.lp23 list lmaccy,.bpp6 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/statnode7s.txt ===== %REALSLONG ! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! NODE STATISTICS PACKAGE ! ! ! ! GRAPH1 - CONNECTS V BLKS AND CPU ! ! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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)}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 = "" ===== ./ercm09/emas-2900/reportfeb84.txt ===== Communications Group - Termly Report ------------------------------------ Personnel --------- Since Bill Byers and Peter Kirkby joined us in December the communications group is now complete again. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_parr.txt ===== imp11 parr4s link11 parr4s#rel i77perm .stack 400 .streams 0 .name para .end parr4y ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/usercmdec.txt ===== Edinburgh Regional Computing Centre ----------------------------------- For the attention of the Edinburgh Computer Users Committee ----------------------------------------------------------- Report on Communications ------------------------ ===== ./ercm09/emas-2900/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' ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/statnode8s.txt ===== %REALSLONG ! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! NODE STATISTICS PACKAGE ! ! ! ! GRAPH1 - CONNECTS V BLKS AND CPU ! ! GRAPH2 - 2900 USERS V BLOCKS RXD & TXD ===== ./ercm09/emas-2900/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; ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ; ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ? ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/tudumps.txt ===== ; ; ; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ; ; CORE DUMP TO TU-58 CASSETTE TAPE ; ; DUMPS FROM LOCATION 0 TO 157000-2 TO BLOCK 20 ; ; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ; .ABSOLUTE .=157000 ===== ./ercm09/emas-2900/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 ! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ** ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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' ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/nsource.txt ===== !********************************************************** !* * !* PSS X-25 Level 3 Protocol Handler * !* * !* GATEX * !* * !* Version 9.62 14 Mar 1986 * !* * !********************************************************** !* %control 1 ===== ./ercm09/emas-2900/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 ; ===== ./ercm09/emas-2900/sys_moth77s.txt ===== !************ !* moth6s * !* 14.jul.81* !************ %control 1 %include "deimosperm" %begin %recordformat pf(%byteinteger service, reply, %integer a1, a2, a3) ===== ./ercm09/emas-2900/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' ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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] ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/kbstats.txt ===== ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_ringk.txt ===== imp11 ringk7s/,ll link11 ringk7s#rel i77perm .stack 1000 .streams 1 .end ringk7y ===== ./ercm09/emas-2900/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_____!___________!_______________! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_nodesim.txt ===== dimp11 nodesim link11 /nodesim nodesim ercm11.newimp .stack 5000 .streams 0 .end nodesim list nodesim#abs,.fep72 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/ibmdoc_a1.txt ===== 1 0 Ref. A1 - - - - - - - - PROTOCOLS IN THE SERC/NERC NETWORK (Ref.A1) + _________ __ ___ ____ ____ _______ ___ __ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 + ____________ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 + ____________ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 + ___ _____ _________ ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ") ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/start.txt ===== xmode trans ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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, ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/kents1280_bsp4s.txt ===== !******************************** !* EMAS-2900 BSP INTERFACE * !* HANDLER * !* FILE: BSP4S * !* 18:3:80 * !********************************* !! STK = 300, STRM = 1 %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) ===== ./ercm09/emas-2900/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 + ____________ ===== ./ercm09/emas-2900/b_nlp3s.txt ===== dimp11 node_nlp3s link11 /nlp3s nlp3s .stack 1000 .streams 1 .name nlps .end nlp3s destroy nlp3y rename nlp3s#abs,nlp3y ===== ./ercm09/emas-2900/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 + ____________ ===== ./ercm09/emas-2900/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]. ===== ./ercm09/emas-2900/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 + ____________ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 + ____________ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/setmode9x.txt ===== ! UINF record for Director 17 ! ! !KZ(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 ===== ./ercm09/emas-2900/erteicl_xssllps.txt ===== %BEGIN *K'104001' %ENDOFPROGRAM ===== ./ercm09/emas-2900/b_lminfo.txt ===== imp11 lminfo link11 lminfo#rel i77perm .stack 2000 .streams 1 .end lminfoy list lminfoy,.fep72 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/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 + ____ _ _______ ___________ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/ftppd_newlist.txt ===== ! ? " ? # ? $ ? % ? & ? ' ? ( ? ) ? * ? ===== ./ercm09/emas-2900/log_t44simtest.txt ===== *T44 RING SINK FROM 3 MACHINES, LOOKING FOR LOCKOUT, 18.MAR.81 ******** I 9001 ******** O 9004 END OF TRACE ************ ************ ************ ************ ************ ************ ************ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ! ===== ./ercm09/emas-2900/pcme_source.txt ===== !********************************************************** !* * !* RCO ITP to GEC Network Management Module * !* * !* PCME * !* * !* Version 9.3 11 Apr 1983 * !* * !********************************************************** !* ===== ./ercm09/emas-2900/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("") ===== ./ercm09/emas-2900/test2.txt ===== THIS IS A TESTEND===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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' ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_umctest.txt ===== imp11 umctest/,l link11 umctest#rel i77perm .stack 1000 .streams 1 .name umct .end umctesty ===== ./ercm09/emas-2900/usergroup.txt ===== Edinburgh Regional Computing Centre ----------------------------------- For the attention of the Edinburgh Computer Users Committee ----------------------------------------------------------- Report on Communications ------------------------ ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_zom.txt ===== imp11 zomb82/,ll link11 zomb82#rel i77perm .stack 5000 .streams 0 .end zomb82y list zomb82y,.BPP155 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ** ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/dz11s.txt ===== !***************************** !* * !* DZ11 HANDLER * !* DATE: 10.FEB.82 * !* FOR ERTE: DATA GENERAL * !***************************** ! STK = 300, STREAMS = 0 %CONTROL K'100001' %CONSTSTRING (13) VSN = "Dz11:vsn001a ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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:- ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_fix.txt ===== ===== ./ercm09/emas-2900/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)) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_loads.txt ===== imp11 loads link11 loads#rel i77perm .stack 1000 .streams 1 .name lodf .end loady list loady,.bpp155 ===== ./ercm09/emas-2900/b_nsiw.txt ===== imp11 nsiw77s/,l link11 nsiw77s#rel i77perm .stack 1000 .streams 2 .end nsiw77y alist11 nsiw77s/.lp23 ===== ./ercm09/emas-2900/isotgreport.txt ===== Here it is! DRAFT December 85 ___________________________ Transition to OSI Standards _____________________________________________________ Report of the Academic Community OSI Transition Group __________________ 0. Management Summary ===== ./ercm09/emas-2900/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} ===== ./ercm09/emas-2900/b_ftpold.txt ===== imp11 ftp1es link11 ftp1es#rel i77perm .stack 1000 .streams 1 .name ftps .end ftp1ey list ftp1ey,.fep72 alist11 ftp1es/.lp23 ===== ./ercm09/emas-2900/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 * ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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" ===== ./ercm09/emas-2900/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. ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ! ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_zomnew.txt ===== dimp11 zomb82 link11 /zomb82 zomb82 ercm11.emts ercm11.newimp .stack 5000 .streams 0 .end zomb82 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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]] ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/gatex_pre.txt ===== !********************************************************** !* * !* PSS X-25 Level 3 Protocol Handler * !* * !* GATEX * !* * !* Version 9.30 7 Sep 1983 * !* * !********************************************************** !* %control 1 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/tests.txt ===== %begin %integer i,j,k %cycle readch(i); write(i, 4); newline %exitif i=4 %repeat %endofprogram ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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")}} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/node_usert2s.txt ===== !************************ !* USERTS/USERTY * !* DATE: 25.NOV.80 * !************************ ! FILE 'USERTS' ! STK = 500, STREAMS = 0 %RECORDFORMAT DMF(%INTEGER I) %CONSTRECORD (DMF) %NAME NULL = 0 ===== ./ercm09/emas-2900/b_loadup.txt ===== imp11 loadups link11 loadups#rel i77perm .stack 10000 .streams 0 .name ldup .end loadupy ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ======================= ===== ./ercm09/emas-2900/kents1280_names.txt ===== %SYSTEMROUTINESPEC LINKIN(%INTEGER SER) %SYSTEMROUTINESPEC ALARM(%INTEGER TICKS) %RECORDFORMAT DMF(%INTEGER I) %CONSTRECORD (DMF) %NAME NIL = 0 %CONTROL K'100001' ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_exters.txt ===== %externalstring (255) %map cli param %constintegername cli addr = k'160000' %result == string(cli addr) %end %endoffile ===== ./ercm09/emas-2900/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]. ===== ./ercm09/emas-2900/node_nbsmon.txt ===== ! file 'nbsmon' !******************************** !* bsp to nsi interface * !* file: nbsmon * !* date: 09.mar.82 * !* monitoring program * !********************************* !! stk = 1000, strm = 1 %control 1 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_lyn.txt ===== imp11 lynp3s/,ll link11 lynp3s#rel i77perm .stack 1000 .streams 1 .end lynp3y alist11 lynp3s/.lp23 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/b_nlpx.txt ===== imp11 x25_nlpx1/nlpx1#rel,l link11 nlpx1#rel i77perm .stack 1000 .streams 1 .name nlpx .end nlpx1y ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/b_ring.txt ===== imp11 ring8s/,ll link11 ring8s#rel i77perm .stack 1000 .streams 1 .end ring8y list ring8y,.fep72 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/usercmfeb.txt ===== Edinburgh Regional Computing Centre ----------------------------------- For the attention of the Edinburgh Computer Users Committee ----------------------------------------------------------- Report on Communications ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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) ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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, ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-2900/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} ===== ./ercm09/emas-2900/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 ===== ./ercm09/emas-a/dry/do ===== AA0384ERCM09DOY.DOdY2#ORIG903/07/8918.33.22ARCHIVEÅÿÿÿÿ„5–ˆEMAS3DRYSNVYES¨ø IMPLEMENTEDd ¤Ví†cc dhry1#c,dhry1#o cc dhry2#c,dhry2#o link dhry1#o dhry2#o .end dry ===== ./ercm09/emas-a/dry/dry ===== AA0384ERCM09DRY.DRYY2#ORIG903/07/8918.33.22ARCHIVEÆÿÿÿÿ„5–ˆEMAS3DRYSNVYES¨ø IMPLEMENTED\p `¤\l`UàUdAPð°<«A°°À˜‰ÐˆAŽ° ˜ÎÐØþXHP @XLP D’© ’ ’ª ’« ’¬ ’­ ’® A hP d’¯ A ŒP ˆ’° ’± ’´ A0€° ˜ÎÐèþPÐœ’µ A0€° ˜ÎÐèþPИ’· XÐœX@ИP@’¸ P@’¹ AP@’º A(P@ ’» ’¼ A@P°@XPÐP°D^°˜ÎÐøþ’½ X dP°@AP P°D^°˜ÎÐøþ’¿ ALPA ‹ !A X@дP@’Å AP@P°˜ÎÑþ^°˜ÎÑþ’Æ APDP°˜ÎÑþ^°˜ÎÑþ’Ç APtP°˜ÎÑþ^°˜ÎÑþ’È XÐÔG€ðN’Ê APxP°˜ÎÑþ^°˜ÎÑþ’Ë AP¤P°˜ÎÑþ^°˜ÎÑþ’Ì GððP’Ï ’ X@ÐA@¨€° ˜ÎÑþŽ° ˜ÎÑþ’РXPÐAPØP°˜ÎÑþ^°˜ÎÑþ’Ñ ’Ò ’ X@ÐA@Ü€° ˜ÎÑþŽ° ˜ÎÑþ’Ô ’Õ XPÐAQP°˜ÎÑ(þA ´P°˜ÎÑ8þ^°˜ÎÑþ’Ö X ´P °’× ’Ø AQP°˜ÎÑþ^°˜ÎÑþ’Ú AQP°˜ÎÑþX °P°˜ÎÑ8þ^°˜ÎÑþ’à ^°˜ÎÑHþPи’á AP ¬X °Y ¬GPÅ^’ä ’ Ž° ˜ÎÑXþ’å Ž° ˜ÎÑhþ’ç AP P’è AP T’é X ˆP°@X@ÐAALP°DŽ° ˜ÎÐøþ’ê AP `’ë X dP°@X ˆP°DŽ° ˜ÎÑxþAG€ðAPФ’í X TY PGÐÃð’ï ’ X  PL R[  TP  X’ñ X PP°@X TP°DA XP°HŽ° ˜Îшþ’ó AZ PP P’ô GðÃŽ’ö ’ XаP°@XдP°DX PP°HX XP°LŽ° ˜Îјþ’ø XИ€° ˜ÎѨþ’ù ’A \¿ \Š¿(ЬŠ G0Äø’ü ’ ¿ \ŠP°@ACP°DŽ° ˜ÎѸþY `Gpðf’ÿ P°@A `P°DŽ° ˜ÎÑÈþ’ ’ X ˆP°@XPÐAQlP°D^°˜ÎÐøþ’ X ¬P T’ X ¬PР’ ’ ’ C \JB \GðÄ<’ ’ X T\ PP T’ X TŽ ] XP P’ X T[ XLT[ PP T’  A P€° ˜ÎÑØþ’ AZ ¬P ¬GðÂè’ ’ Ž° ˜ÎÑHþPм’ X@ÐAAŒ€° ˜ÎÑþŽ° ˜ÎÑþ’ XPÐAQœP°˜ÎÑþ^°˜ÎÑþ’ AQ P°˜ÎÑþ^°˜ÎÑþ’ AQØP°˜ÎÑþ^°˜ÎÑþ’ AQÜP°˜ÎÑþXРP°˜ÎÑ8þ^°˜ÎÑþ’ AQøP°˜ÎÑþAP°˜ÎÑ8þ^°˜ÎÑþ’ ARP°˜ÎÑþXФP°˜ÎÑ8þ^°˜ÎÑþ’ AR0P°˜ÎÑþAP°˜ÎÑ8þ^°˜ÎÑþ’ ARLP°˜ÎÑþ¿ШŠP°@^°˜ÎÑ8þ^°˜ÎÑþ’ ARhP°˜ÎÑþAAP°˜ÎÑ8þ^°˜ÎÑþ’ AR„P°˜ÎÑþ¿ЬŠP°@^°˜ÎÑ8þ^°˜ÎÑþ’ AR P°˜ÎÑþABP°˜ÎÑ8þ^°˜ÎÑþ’! ’  A‹AR¼P ¸P°˜ÎÑþX@аX ¸X@P°˜ÎÑ8þ^°˜ÎÑþ’! ARØP°˜ÎÑþAP°˜ÎÑ8þ^°˜ÎÑþ’" ALPA ‹ !ARôP  ¼P°˜ÎÑþX@дX ¼X@P°˜ÎÑ8þ^°˜ÎÑþ’# ASP°˜ÎÑþ^°˜ÎÑþ’$ AS