rAVs mX7K:XBjI]?$\`TZB]Bo'\`.>Huo'\`_2 @ss.7; AMD - Program to talk to Applied Math Dept. PDP11 as a terminal -*-MIDAS-*- VERSIO==.FNAM2 TITLE AMD .INSRT SYSENG;$CALL MACRO A=1 ; DEFINE ACS B=2 C=3 D=4 E=5 P=17 TYIC==1 ; DEFINE CHANNEL NO.S TYOC==2 LIIC==3 LIOC==4 DISB==A_6+3 ; PUSH ACS A,B AND C ON INTERRUPT AMD: LOC 42 -LINTBLK,,INTBLK LOC AMD move p,ttl hrrm p,ttl1 hrrm p,ttl2 MOVE P,[-LPDL,,PDL-1] .OPEN TYIC,[%TINWT+%TIINT+.UII,,'TTY] .LOSE 1000 .OPEN TYOC,[%TJMOR+%TJDIS+.UIO,,'TTY] .LOSE 1000 .OPEN LIIC,ttl1 .LOSE 1000 .OPEN LIOC,ttl2 .LOSE 1000 .SUSET [.SOPTION,,[OPTINT,,0]] .SUSET [.SMSK2,,[1_LIIC+1_TYIC]] .IOT LIOC,[^Z] JFCL ; OPERATE AT INT LEVEL .HANG TYIINT: .IOT TYIC,A ; GET INTERRUPT CHAR cain a,1 ; make ^A send a ^Z down the line. move a,[^Z] JUMPL A,TYI1 .IOT LIOC,A ; SEND TO LINE JRST TYIINT TYI1: $CALL DISMIS,P,,#DISB .LOSE 1000 LIIINT: MOVE A,[440700,,BUF] ; B.P. TO BUFFER MOVEI B,LBUF*5 ; LENGTH OF BUFFER $CALL SIOT,[#LIIC,A,B] ; READ INPUT .LOSE 1000 MOVE A,[440700,,BUF] MOVN C,B ADDI C,LBUF*5 $CALL SIOT,[#TYOC,A,C] .LOSE 1000 JUMPE B,LIIINT $CALL DISMIS,P,,#DISB .LOSE 1000 INTBLK: DISB,,P 0 ? 1_TYIC ? 0 ? 1_TYIC+1_LIIC ? TYIINT 0 ? 1_LIIC ? 0 ? 1_LIIC ? LIIINT LINTBLK==.-INTBLK PAT: PATCH: BLOCK 100 LBUF==40 BUF: BLOCK LBUF ; BUFFER FOR LINE OUTPUT LPDL==40 PDL: BLOCK LPDL ; ROOM FOR OUR STACK loc 400 ttl: 0,,'t02 ttl1: %tinwt+%tiint+.uii,,'t02 ttl2: %tjsio+.uio,,'t02 END AMD q` (uq` xh*6Hi atsRpL e (8 A`dh X A`_ Patch Box Wiring Info for Room 2-366 Box to PDP11 6 wire Gray cable Socket Signal EIA Pin Wire Pin Number Name Number Color ---------------------------------------------------------------------- Gnd Ground 7 Green's Black 1 Rxd 3 Green 2 Txd 2 Red's Black 3 Dtr 20 Red 4 Cxr 8 White's Black 5 Ri 22 White Box to Modem 6 wire Gray cable Socket Signal EIA Pin Wire Pin Number Name Number Color ------------------------------------------------------------------------ Gnd Ground 7 Green's Black 1 Txd 2 Green 2 Rxd 3 Red's Black 3 Cxr 8 Red 4 Dtr 20 White's Black 5 Ri 22 White Box to Terminals 4 wire Phone quad Socket Signal EIA Pin Wire Pin Number Name Number Color ------------------------------------------------------------------------ Gnd Ground 7 Black 1 Rxd 3 Green 2 Txd 2 Red 3 Dtr 20 Yellow 4 - - Not Connected 5 - - Not Connected Box To Box 6 wires (Patch Cables) From: To: Socket Wire Socket Wire Pin Number Color Pin Number Color ------------------------------------------------------------------------ 1 Green 2 Green 2 Red 1 Red 3 Brown 4 Brown 4 White 3 White 5 Black 5 Black Box on wall behind PDP11 to HP: PDP11 Cable Signal Cable Wire HP Cable Number Name Color Number ------------------------------------------------------------------------ Txd Orange 1 Rxd Orange's Black Txd Red 2 Rxd Red's Black Txd Yellow 3 Rxd Yellow's Black Txd Blue 4 Rxd Blue's Black Txd Green 5 Rxd Green's Black Txd Red 6 Rxd Red's White Txd Yellow 7 Rxd Yellow's White Txd Purple 8 Rxd Purple's White Txd Gray 9 Rxd Gray's White Txd Green 10 Rxd Green's White Txd Brown 11 Rxd Brown's White Txd Black 12 Rxd Black's White Txd Gray 13 Rxd Gray's White Txd Blue 14 Rxd Blue's White Txd Orange 15 Rxd Orange's White ( Ground is the braided shield around the cable. ) See above for cable plans. *** things to do. 1) Document wiring for the whole area. 2) Show cables between box behind PDP11 and other places. 3) Make sure things are up to date. 4) Post copies of this file in HP Room, 2-366, and Lab in Basement. Patch Box Wiring Info for Room 2-366 Box to PDP11 6 wire Gray cable Socket Signal EIA Pin Wire Pin Number Name Number Color ---------------------------------------------------------------------- Gnd Ground 7 Green's Black 1 Rxd 3 Green 2 Txd 2 Red's Black 3 Dtr 20 Red 4 Cxr 8 White's Black 5 Ri 22 White Box to Modem 6 wire Gray cable Socket Signal EIA Pin Wire Pin Number Name Number Color ------------------------------------------------------------------------ Gnd Ground 7 Green's Black 1 Txd 2 Green 2 Rxd 3 Red's Black 3 Cxr 8 Red 4 Dtr 20 White's Black 5 Ri 22 White Box to Terminals 4 wire Phone quad Socket Signal EIA Pin Wire Pin Number Name Number Color ------------------------------------------------------------------------ Gnd Ground 7 Black 1 Rxd 3 Green 2 Txd 2 Red 3 Dtr 20 Yellow 4 - - Not Connected 5 - - Not Connected Box To Box 6 wires (Patch Cables) From: To: Socket Wire Socket Wire Pin Number Color Pin Number Color ------------------------------------------------------------------------ 1 Green 2 Green 2 Red 1 Red 3 Brown 4 Brown 4 White 3 White 5 Black 5 Black Box on wall behind PDP11 to HP: PDP11 Cable Signal Cable Wire HP Cable Number Name Color Number ------------------------------------------------------------------------ Txd Orange 1 Rxd Orange's Black Txd Red 2 Rxd Red's Black Txd Yellow 3 Rxd Yellow's Black Txd Blue 4 Rxd Blue's Black Txd Green 5 Rxd Green's Black Txd Red 6 Rxd Red's White Txd Yellow 7 Rxd Yellow's White Txd Purple 8 Rxd Purple's White Txd Gray 9 Rxd Gray's White Txd Green 10 Rxd Green's White Txd Brown 11 Rxd Brown's White Txd Black 12 Rxd Black's White Txd Gray 13 Rxd Gray's White Txd Blue 14 Rxd Blue's White Txd Orange 15 Rxd Orange's White ( Ground is the braided shield around the cable. ) See above for cable plans.  PATCH BOX WIRING INFO Box to PDP11 6 wire Gray cable Socket Signal EIA Pin Wire Pin Number Name Number Color ------------------------------------------------------------------------ GND Ground 7 BLACK 1 RXD 3 GREEN 2 TXD 2 RED 3 DTR 20 YELLOW 4 CXR 8 BLUE 5 RI 22 WHITE Box to Modem 6 wire Gray cable Socket Signal EIA Pin Wire Pin Number Name Number Color ------------------------------------------------------------------------ GND Ground 7 BLACK 1 TXD 2 GREEN 2 RXD 3 RED 3 CXR 8 YELLOW 4 DTR 20 BLUE 5 RI 22 WHITE ***NOTE: The cables used for the 6 conductor connections above are actually 12 conductors (6 pairs), not 6. Further, there is not one, but 6 black wires in each of these cables (one for each pair). The black wire that is used (as described above) is the one paired with the brown lead. Note that the brown lead is not used. Box to Terminal 4 wire Phone quad Socket Signal EIA Pin Wire Pin Number Name Number Color ------------------------------------------------------------------------ GND Ground 7 BLACK 1 RXD 3 GREEN 2 TXD 2 RED 3 DTR 20 YELLOW 4 - - NOT CONNECTED 5 - - NOT CONNECTED Box to Box 6 wires (Jumper Cables) From: To: Socket Wire Socket Wire Pin Number Color Pin Number Color ------------------------------------------------------------------------ 1 GREEN 2 GREEN 2 RED 1 RED 3 BROWN 4 BROWN 4 WHITE 3 WHITE 5 BLACK 5 BLACK Box to HP: Box Socket Signal 50 Pin Cable Cable HP Socket Pin Name Plug Wire Pair Destination Number Number Pin # Color Colors ------------------------------------------------------------------------ 1 1 TXD 4 ORANGE ORANGE BLACK J1,TXD 1 2 RXD 5 BLACK ORANGE BLACK J1,RXD 1 3 CXR - 1 4 DTR - 1 5 RI - 2 1 TXD 2 RED RED BLACK J2,TXD 2 2 RXD 3 BLACK RED BLACK J2,RXD 2 3 CXR - 2 4 DTR - 2 5 RI - 3 1 TXD 9,10 YELLOW YELLOW BLACK J6,TXD 3 2 RXD 11,12 BLACK YELLOW BLACK J6,RXD 3 3 CXR 13 - 3 4 DTR 14 - 3 5 RI 15 - 4 1 TXD 16,17 GREEN GREEN BLACK J7,TXD 4 2 RXD 1,18 BLACK GREEN BLACK J7,RXD 4 3 CXR 19 - 4 4 DTR 20 - 4 5 RI 21 - 5 1 TXD 22,23 BLUE BLUE BLACK J10,TXD 5 2 RXD 24,25 BLACK BLUE BLACK J10,RXD 5 3 CXR 26 - 5 4 DTR 27 - 5 5 RI 28 - 6 1 TXD 29,30 RED WHITE J12,TXD 6 2 RXD 31,32 ORANGE WHITE J12,RXD 6 3 CXR 33 - 6 4 DTR 34 - 6 5 RI 35 - 7 1 TXD 36,37 YELLOW WHITE J14,TXD 7 2 RXD 38,39 GREEN WHITE J14,RXD 7 3 CXR 40 BLUE BLUE WHITE J14,CXR 7 4 DTR 41 WHITE BLUE WHITE J14,DTR 7 5 RI 42 BROWN BROWN WHITE J14,RI 8 1 TXD 43,44 PURPLE WHITE J15,TXD 8 2 RXD 45,46 GRAY WHITE J15,RXD 8 3 CXR 47 BLACK BLACK WHITE J15,CXR 8 4 DTR 48 WHITE BLACK WHITE J15,DTR 8 5 RI 49 WHITE BROWN WHITE J15,RI SPECIAL EIA SOCKET ON THE RIGHT SIDE OF THE PATCHBOX ("SOCKET" 0) 0 2 TXD 31,32 ORANGE WHITE 0 3 RXD 29,30 RED WHITE 0 4 RTS 22,23 BLUE BLUE BLACK 0 5 CTS 24,25 BLACK BLUE BLACK 0 6 DSR 9,10 YELLOW YELLOW BLACK 0 7 GND - - - GROUND 0 8 CXR 16,17 GREEN GREEN BLACK 0 20 DTR 1,18 BLACK GREEN BLACK 0 22 RI 11,12 BLACK YELLOW BLACK Date: 26 FEB 1980 1737-EST From: ZRM at MIT-MC (Zigurd R. Mednieks) To: RDM at MIT-MC CC: HP3000 at MIT-MC The following need to be done soon (by you), tell Steve when you are done. Attach the other la34 Clean up the file allocations, manually, its faster A class acct has not been created -- needs to be done Make plot ten a real service These should be done before things like an MPE source, file system fix (item two might fix it anyway), or much anything else gets done  Date: 16 FEB 1979 0010-EST From: CBF at MIT-MC (Charles Frankston) To: DKOLM at MIT-MC CC: HP3000 at MIT-MC Date: 14 FEB 1979 2334-EST From: DKOLM at MIT-MC (David W. Kolm) I PUT MY NAME ON THIS LIST SEVERAL MONTHS AGO, AND AS OF YET, HAVE NOT HEARD ANYTHING FROM IT. PERHAPS I AM THE FIRST? What the hell were you expecting? This is not a public distribution list. It is a list maintained for the disemination of information pertaining to a particular HP3000 installation. Since the number of people needing to know about that machine is on the order of 3, it has fallen into disuse. Where do you come off going around putting yourself on everyone's mailing lists? I seem to remember removing you at least once anyway. THE HP-3000 MPEIII SYSTEM I USE IS CONFIGURED FOR OUTPUT TO 80 CHARACTERS PER LINE FOR THE TERMINALS CONNECTED TO IT. I USE IT OVER PHONE LINES ON A 132 CHARACTER TERMINAL, AND THE SYSTEM REFUSES TO ACCEPT A TERMINAL OF THIS SORT. MY QUESTION IS, IS THERE A WAY TO ALTER THIS CHARACTERISTIC--OTHER THAN TAKING THE SYSTEM DOWN AND RE-CONFIGURING THE I/O PORTS? I AM JUST LEARNING ABOUT MUCH OF THE SYSTEM (SUCH AS INTRINSIC CALLS), AND HAVE CONVINCED MYSELF THAT IT CAN BE DONE, BUT SO FAR, EVERYBODY I HAVE ASKED HAS SAID THAT"THEY DON'T KNOW. CAN ANY OF YOU HELP ME? -- PLEASE? As far as I know MPEIII does not have the capabilities you speak of as part of its neolithic terminal support. I could very easily be wrong about this though.  Date: 15 FEB 1979 1710-EST From: RDM at MIT-MC (Ronald D. Mabbitt) To: HP3000 at MIT-MC The system has a new 7925 disk with tons of storage, and the HP Users Group stuff is now on the machine. I will attempt to evaluate this stuff over the next few weeks and give reports (first report is that EDIT2 seems to be a real win). -rdm  Date: 15 FEB 1979 1706-EST From: RDM at MIT-MC (Ronald D. Mabbitt) To: DKOLM at MIT-MC, HP3000 at MIT-MC I believe that if the actual machine ports are configured for 80 character lines, then indeed you must reconfigure the system. I find it hard to believe that the ports are actually configured that way, however. Sorry about no mail on this list, I guess I have been delinquent. I shall attempt to find out the answer to you problem. -rdm  Date: 14 FEB 1979 2334-EST From: DKOLM at MIT-MC (David W. Kolm) To: HP3000 at MIT-MC I PUT MY NAME ON THIS LIST SEVERAL MONTHS AGO, AND AS OF YET, HAVE NOT HEARD ANYTHING FROM IT. PERHAPS I AM THE FIRST? NOW, THE QUESTION I HAVE--WICH I HOPE ONE OF YOU CAN HELP ME WITH IS: THE HP-3000 MPEIII SYSTEM I USE IS CONFIGURED FOR OUTPUT TO 80 CHARACTERS PER LINE FOR THE TERMINALS CONNECTED TO IT. I USE IT OVER PHONE LINES ON A 132 CHARACTER TERMINAL, AND THE SYSTEM REFUSES TO ACCEPT A TERMINAL OF THIS SORT. MY QUESTION IS, IS THERE A WAY TO ALTER THIS CHARACTERISTIC--OTHER THAN TAKING THE SYSTEM DOWN AND RE-CONFIGURING THE I/O PORTS? I AM JUST LEARNING ABOUT MUCH OF THE SYSTEM (SUCH AS INTRINSIC CALLS), AND HAVE CONVINCED MYSELF THAT IT CAN BE DONE, BUT SO FAR, EVERYBODY I HAVE ASKED HAS SAID THAT"THEY DON'T KNOW. CAN ANY OF YOU HELP ME? -- PLEASE? DKOLM@MC DAVE KOLM  Date: 30 JUL 1978 0558-EDT From: RDM at MIT-MC (Ronald D. Mabbitt) Subject: Lossage To: HP3000 at MIT-MC ETC has put HSSP on our machine. MTAB, Chernoff's pride and joy, has finally found its way from tape to our machine, has been run, and has given birth to another monstrosity (also of the 20K sector variety) called MINITAB. Between these two and their pre-processor, system space is probably at an all time low. I have reaped the old LIB account which this new stuff is supposed to replace, and have put Dave Russo and this junk on it (LIB now has 25000 sectors). MSTAT, the original project, has also been increased in size from 10K to 20K, but Russo is the only one capable of accessing the additional ammount. A luser (who will go nameless, as he was at least the only person since I arrived to at least sigh his name to the log book) managed to bring up the system the night of the 28th with the wrong date: 7/28/77. Seems harmless (although there IS no way I can find of changing the date on the system without bringing it down), doesn't it? Well, somebody managed to write a several hundred line program between then and night of the 29th, when I did an incremental dump back to the last full dump (7/13/78). He accidently deleted it, and came crying for me to bring it back, which I found I couldn't. After not finding it on the tape, and trying to convince this person against his will that he must have had that file open at the time of the dump (i.e., an hour), I suddenly realized what the creation date on the file must have been and why it obviously wasn't backed up. The problem of lusers bringing the machine up will probably be remedied by the fact that Steve is having the lock of the inner machine room changed, but still ... We are FINALLY having physical plant do something about our drainage problem in the machine room - come Monday someone is designing and installing some sheet metal gutter for the air conditioner which will funnel all the water down the drain. PLEASE don't ask how much a hassle it has been to get this done. We (i.e., keyholders) also now have the burden of trying to make sure one of us is around Tuesdays and Thursdays around eight or nine at night to let the HSSP students in. Aren't HP's fun? -rdm  Date: 25 JUL 1978 2355-EDT From: ETC at MIT-MC (Earl T. Cohen) Subject: Our HP3000 To: BKD at MIT-DMS CC: HP3000 at MIT-MC The mailing list is for users (mainly people more in charge of the machine than just users) of the Math department's HP3000. Not to much interesting is said, but feel free to add yourself to the list if you are curious.  Date: 24 Jul 1978 2002-EDT From: BKD at MIT-DMS (Bruce Daniels) To: HP3000 at MIT-MC Subject: Purpose? Message-id: <[MIT-DMS].82445> I noticed this mailing list on MC. Since I have some mild interest in this machine, I was wondering what your interest was in the 3000? /Bruce  Date: 25 MAY 1978 0423-EDT From: ANC at MIT-MC (Andrew Chiang) To: HP3000 at MIT-MC I will be back at the end of August  Date: 25 MAY 1978 0401-EDT From: ANC at MIT-MC (Andrew Chiang) To: HP3000 at MIT-MC there is a listing of each program in the file under tektronix in the cabinet  Date: 25 MAY 1978 0348-EDT From: ANC at MIT-MC (Andrew Chiang) To: HP3000 at MIT-MC the plotter program seem to work, but i was not able to test the whole thing together (i.e. one calling another) basically because I wasn't able to figure out how the segmenter works and how the external subroutine linkage is done, so I can only test each subroutine independently. I guess I won't have the time to figure out before I leave.......But I will be back early, by the way, the number for Maryland doesn't seem to work, how about finding out what the correct number is. Also who is going to write the second stage stuff for the plotter?? I will be glad to when I come back, but meanwhile maybe someone around wants to do something?? HAVE A HAPPY SUMMER, (I don't know.... I am going to IBM).  Date: 22 MAY 1978 1205-EDT From: EAK at MIT-MC (Earl A. Killian) To: ANC at MIT-MC CC: HP3000 at MIT-MC Date: 21 MAY 1978 1744-EDT From: Andrew Chiang To: HP3000 at MIT-MC the plotbeg routine now works, its tested...hopefully I will be able to finish the whole thing before I leave, now that I got a better idea of that SPL. What does "its tested" mean?  Date: 21 MAY 1978 1744-EDT From: ANC at MIT-MC (Andrew Chiang) To: HP3000 at MIT-MC the plotbeg routine now works, its tested...hopefully I will be able to finish the whole thing before I leave, now that I got a better idea of that SPL.  Date: 10 MAY 1978 1656-EDT From: CBF at MIT-MC (Charles Frankston) To: HP3000 at MIT-MC Telephone consulting service in Maryland is 800-438-4002. Mainly they only want our system manager to talk to them. Jerry Schwartz is an operating system internals person based out of New Haven, is in Waltham one day a week. This is the person to talk to about character at a time I/O.  EAK@MIT-ML 01/31/78 14:44:01 The phone in the HP room 3-1978.  Date: 12/29/77 01:41:41 From: CBF@MIT-MC To: MATH11 at MIT-MC HP customer engineer: Bill Danilczuk 32 Hartwell Avenue Lexington, MA 02173 (617) 861-8960 Should probably post by machine.   HP Interface Terminal Connected Patch Panel Wire Pair Number To Number Colors -------------------------------------------------------------- J0 HP2640 console - - J1 300 Baud Dialup 1 Gray & White J2 300 Baud Dialup 2 Yellow & Black J3 2400 Baud Printing Term. 8 Blue & White J4 HP2645A CRT - - J5 HP2645A CRT - - J6 300 Baud Dialup 3 Blue & Black J7 300 Baud Dialup 4 Brown & White J8 HP2645A CRT - - J9 1200 Baud Terminet (2-013) 9 Orange & White J10 1200 Baud Printer(Plotter) 5 Orange & Black J11 LA120 Printer Terminal - - J12 2400 Baud Printing Term. 6 Green & Black J13 HP2645A CRT - - J14 LA34 Printing Terminal - - J15 2400 Baud Printing Term. 7 Purple & White MC Line - 10 Red & White [ Spinwriter commands: Commands are a / followed by one of the following characters. Character Command performed --------- ----------------- No-op No-op + Change Vertical Movement to 4 LPI - Change Vertical Movement to 3 LPI 0 Move up one-twelfth of an inch 1 Move down one-twelfth of an inch 2 Turn on Underline All Mode 3 Turn off Underline All Mode (default) 4 Turn off Underline Mode 5 Change to Normal Font 6 Turn off Boldface Mode 7 8 9 0 @ Send a form feed to the spinwriter (^L) A Select Alternate Character Font Mode B Select Boldfacing Mode C Change Vertical Movement to 48 LPI D Move down one line at current vertical movement E Change Vertical Movement to 24 LPI F Change Vertical Movement to 12 LPI G Change Vertical Movement to 8 LPI H Backspace I Change Vertical Movement to 6 LPI (default) J Set Right Margin K Reset Right Margin L Set Left Margin M Reset Left Margin N Shift In O Shift Out P Turn on Single Spacing (default) Q Turn on Double Spacing R Reset Output Mode (turns off underlining, resets to printing font 0, turns off under- lining all, and resets to single spacing) S Reset Horizontal Tab T Set Horizontal Tab U Move up one line V Read and Restore Panel Switches W Print a DEL character X Print a Large | (or-bar) Y Print a Summation Sign Z Print a Large / [ Print a Large [ \ Print a \ (Escape an Escape) ] Print a Large ] ^ Print an Integral Sign _ Select Underlining Mode (off by default) !~FILENAME~:! !-*-TECO-*- macros for PALX PDP11 programs.! PDP11MACS !Trantor:! !C Assemble Trantor. Have PALX assemble PDP11;TRANTR > producing BIN, ERR, CRASH and SYMTAB files.! m(m.m& Assemble)TRANTRT/H  !Roundhouse:! !C Assemble Roundhouse. Have PALX assemble PDP11;ROUNDH > producing BIN, ERR, CRASH and SYMTAB files.! m(m.m& Assemble)ROUNDHRH !Dover Trantor:! !S Dover Trantor.! :xxfile pdp11;dover trantr $p !& Assemble:! !S Assemble a PDP11 program! m(m.mSave All Files) !* make sure everything is written out! [1[2[3[4[5[6 f[bbindw f[dfilew f[sstringw 0f[fnamsyntaxw :i1 :i2 :i6 ezDSK:PDP11; j <:s  1 ; \f"n u3'w> !* get program version number! hk g2 q3\w hfx3 !* version in Q3, make it fn1! i .nlist .macro .date. .ascii " mmInsert Datel i" .endm .date  ei hp ef.asm 1 !* Define .DATE. macro to tell program the when it was assembled! hk f+ :PALX PDP11;3 BIN,3 SYMTAB,3 ERR_PDP11;.ASM,1/N6 $P 1:w 8f[ibasew 1:< er3 err^y !* get PALX's ERROR file! :i4 <:s FILE ; fb; 4,40.i 4r ^:x4 4d> j !* collect file names! :i5 <:s.msg _C_ ; fkd 0l ^fx5>j !* collect crash msgs! :sFILE "l fkc b,.k' !* delete cruft at beginning! ei hp ef !* write out the ERR file! hk i CRASH Messages  g4 i PC PC Message  g5 ei hp efcrash !* write out the CRASH file! > 1:< ersymtab^y !* read in the listing file! :s***SYMBOL TABLE***"l !* delete all but the symbol table! -s  c b,.k ei hp ef' !* and write out as SYMTAB! hk > 1:w 1:w 1:w !* make links to files just! 1:w !* produced!  !^R Squish Region:! !C Squish tabs in instructions to spaces. Change tabs between op code and operands to spaces.! [1[2[3 f[vb f[vz .,(w)f fs boundw !* set bounds to region! j < .-z; 1:fu2u1 0u3 !* find bounds of instruction! q1,q2:fb;"l r .u2 fshposu3' !* ignore comment on line! 1< q1,q2:fb ; .,q2:fb; !* find second tab in instruction! -di  !* change to space! q3"g q2j fshpos-q3"n i '' !* keep comment in same place! > l > h  !^R Indent PALX code:! !^R Change indentation of code, comments remain stationary.! [1[2 f[vb f[vz f[sstring .,(w.)f fsboundw m.m& Indentu1 !* get ptrs to subrs for fast calling! 0s ;w !* set search string! j < .-z; .(:s+1"l r fshposu2'"# 2r -1u2' fsz-.f[vz)j 1< ^:f l .-z; !* move past labels etc.! ^ f l .-z; !* move past indentation! fshpos+m1 !* reindent! q2:; zj q2m1 !* put comment back! > f]vz l > h  !Args:! !C Print arguments and return values for Trantor subroutine. String arg is name of subroutine. Subroutine is found via the current tag table.! [1[2[3 qBuffer Nameu2 .u3 !* Save current buffer name and point! m(m.mFind Tag) !* Find the subroutine! 0l .u1 !* Move to end of description! < b-.; -l !* Move back line by line until one! 1a-;"n 1a-15."n 1;'' !* starts with other than ; or CR! > l < 2f= "n 1;' l > !* remove leading blank lines! q1-."n .,q1t' !* Type description if there is one! q2m(m.mSelect Buffer) q3j !* Go back to old buffer and point!  !PALX Mode:! !C Set things up for editing PALX code.! m(m.m& Init Buffer Locals) !* ! 1,32M.LComment Column !* try to put comments in column 32! 1,(:I*;) m.lComment Start !* semicolon starts comments! 1,(:I*; )m.lComment Begin !* semicolon space looks nicer though! 1,(:I*)m.lParagraph Delimiter !* ! 1,(m.m^R Indent Relative)m.qI !* set TAB to indent under last line! ! 1,(m.m^R Indent PALX Code)m.q:.x(11.) |* put indenter on ^X Tab! 1,Q1,Q..Q)M.Q. !* Exchange rubout flavors! 0fo..qMIDAS Vector[1 !* ! q1"e 5*5fsqvectoru1 q1m.vMIDAS Vector !* ! m.m^R Go to AC Fieldu:1(0) !* ! m.m^R Kill Terminated Wordu:1(1) !* ! m.m^R Go to Address Fieldu:1(2) !* ! m.m^R Go to Next Labelu:1(3) !* ! m.m^R Go to Previous Labelu:1(4)' !* ! 1,Q:1(0)M.Q...A !* use MIDAS Mode stuff! 1,Q:1(1)M.Q...D !* ...! 1,Q:1(2)M.Q...E !* ...! 1,Q:1(3)M.Q...N !* ...! 1,Q:1(4)M.Q...P !* ...! Q.0,1M(M.M& Set Mode Line)PALX !* !  ([0 +8+fq(+4)[1 0fo10f"g+q1' +fq()+4u1 fq1"l 0' ,q1:m(q1+4(]1]0))<C H ]KSC*~ #x%a?I` E Y 5 e S a / {  1 {  y n x *0Trantorm(m.m& Assemble)TRANTRT/H Roundhousem(m.m& Assemble)ROUNDHRHDover Trantor :xxfile pdp11;dover trantr $p& Assemblexm(m.mSave All Files) [1[2[3[4[5[6 f[bbindw f[dfilew f[sstringw 0f[fnamsyntaxw :i1 :i2 :i6 ezDSK:PDP11; j <:s  1 ; \f"n u3'w> hk g2 q3\w hfx3 i .nlist .macro .date. .ascii " mmInsert Datel i" .endm .date  ei hp ef.asm 1 hk f+ :PALX PDP11;3 BIN,3 SYMTAB,3 ERR_PDP11;.ASM,1/N6 $P 1:w 8f[ibasew 1:< er3 err^y :i4 <:s FILE ; fb; 4,40.i 4r ^:x4 4d> j :i5 <:s.msg _C_ ; fkd 0l ^fx5>j :sFILE "l fkc b,.k' ei hp ef hk i CRASH Messages  g4 i PC PC Message  g5 ei hp efcrash > 1:< ersymtab^y :s***SYMBOL TABLE***"l -s  c b,.k ei hp ef' hk > 1:w 1:w 1:w 1:w ^R Squish Region[1[2[3 f[vb f[vz .,(w)f fs boundw j < .-z; 1:fu2u1 0u3 q1,q2:fb;"l r .u2 fshposu3' 1< q1,q2:fb ; .,q2:fb; -di  q3"g q2j fshpos-q3"n i '' > l > h ^R Indent PALX code[1[2 f[vb f[vz f[sstring .,(w.)f fsboundw m.m& Indentu1 0s ;w j < .-z; .(:s+1"l r fshposu2'"# 2r -1u2' fsz-.f[vz)j 1< ^:f l .-z; ^ f l .-z; fshpos+m1 q2:; zj q2m1 > f]vz l > h Args[1[2[3 qBuffer Nameu2 .u3 m(m.mFind Tag) 0l .u1 < b-.; -l 1a-;"n 1a-15."n 1;'' > l < 2f= "n 1;' l > q1-."n .,q1t' q2m(m.mSelect Buffer) q3j PALX Modem(m.m& Init Buffer Locals) 1,32M.LComment Column 1,(:I*;) m.lComment Start 1,(:I*; )m.lComment Begin 1,(:I*)m.lParagraph Delimiter 1,(m.m^R Indent Relative)m.qI ! 1,(m.m^R Indent PALX Code)m.q:.x(11.) |* put indenter on ^X Tab! 1,Q1,Q..Q)M.Q. 0fo..qMIDAS Vector[1 q1"e 5*5fsqvectoru1 q1m.vMIDAS Vector m.m^R Go to AC Fieldu:1(0) m.m^R Kill Terminated Wordu:1(1) m.m^R Go to Address Fieldu:1(2) m.m^R Go to Next Labelu:1(3) m.m^R Go to Previous Labelu:1(4)' 1,Q:1(0)M.Q...A 1,Q:1(1)M.Q...D 1,Q:1(2)M.Q...E 1,Q:1(3)M.Q...N 1,Q:1(4)M.Q...P Q.0,1M(M.M& Set Mode Line)PALX  & SetUp Compressed PDP11MACS Libraries ~FILENAME~PDP11MACS~DOC~ ~FILENAME~-*-TECO-*- macros for PALX PDP11 programs. ~DOC~ TrantorC Assemble Trantor. Have PALX assemble PDP11;TRANTR > producing BIN, ERR, CRASH and SYMTAB files. ~DOC~ RoundhouseC Assemble Roundhouse. Have PALX assemble PDP11;ROUNDH > producing BIN, ERR, CRASH and SYMTAB files. ~DOC~ Dover TrantorS Dover Trantor. ~DOC~ & AssembleS Assemble a PDP11 program ~DOC~ ^R Squish RegionC Squish tabs in instructions to spaces. Change tabs between op code and operands to spaces. ~DOC~ ^R Indent PALX code^R Change indentation of code, comments remain stationary. ~DOC~ ArgsC Print arguments and return values for Trantor subroutine. String arg is name of subroutine. Subroutine is found via the current tag table. ~DOC~ PALX ModeC Set things up for editing PALX code. ~DOC~ & SetUp Compressed PDP11MACS LibrariesS Call hidden & SetUps. I.e. those from files whose ~FILENAME~s are not that of the object file. The object file & SetUp (i.e. the main one) should call this. This object file was compressed on 10:45am Tuesday, 6 May 1980 by RLL on MC from the following source libraries: PDP11; DSK: PMACS 46, 04/24/80 21:25:22 ~DIRECTORY~Trantor Roundhouse Dover Trantor & Assemble ^R Squish Region ^R Indent PALX code Args PALX Mode & SetUp Compressed PDP11MACS Libraries ~INVERT~[1 Q1 a The User200 Protocol The User200 protocol is brain-damaged. It probably doesn't even work. Messages the master whips the slave with: Write message Poll message (Alert) Messages the slave begs forgiveness with: Read message Acknowledge Reject Error Example: Master Slave ------ ----- Write-E1 message to display ACK acknowledge write message POLL request for user typein REJ nothing to send POLL REJ POLL Read-E1 send user typein Write-E3 start reading card data ACK acknowledge write message POLL request send card data Read-E3 send card data Write-E3 start reading card data ACK POLL REJ card data not ready POLL Read-E3 Write-E3 ACK POLL Read-E3 (error) send card data POLL request resend card data Read-E3 Write-E3 (error) ERROR error receiving write message Write-E3 ACK POLL (error) ERROR POLL Read-E3 Write-E3 ACK (error) Write-E3 ACK POLL Read-E2 send card data and indicate there is no more to follow (i.e.end of hopper or error) Write-E1 ACK POLL request for user typein REJ nothing to send POLL REJ POLL Read-E1 (error) send user typein POLL request resend user typein Read-E1 resend user typein Write-E2 LPT data ACK acknowledge write message POLL query about LPT status Read-E3 LPT is ready Write-E2 more LPT data ACK POLL Read-E3 LPT still ok Write-E2 more LPT data ACK POLL Read-E2 LPT hung ;;;Local Modes: ;;;Mode:Text ;;;Auto Fill Mode:1 ;;;Fill Column:70 ;;;End: