Schedule July 2009

return to main 1401 Restoration Page
go to Team Bios

Contents:

Wed July 1 - General, Thurs July 2 - Tape Team
Wed July 8 - General, Thurs July 9 - Tape Team, Sat July 11 - 2nd Sat
Wed July 15 - General, Thurs July 16 - Tape Team,
Wed July 22 - General, Thurs July 23 - Tape Team, Sat July 25 - 4th Sat
Mon July 27 - Ron Mak's class tour and follow-up
Wed July 29 - General, Thurs July 30 - Tape Team


Wed July 01 - general

  • Working were: Ron Williams, Bob Erickson Bill Flora, Frank King, Glenn Lea, George Ahearn, Joe Preston, Don Luke, Bill Newman, Jim (Chip) Hunt, Ed Thelen, Robert Garner.
    (Ron Williams said Ed Thelen spent so much time talking he should be listed as "Present". Ed says "I wasn't talking to myself, I had lots of company !!")

  • SMS Card Repair - We have a new "Dynamic Duo" - Jim Hunt and Bill Newman started right out checking/repairing our box of bad cards.
    They asked which cards had priority, and Ron Williams replied "TAU Cards" - meaning Tape Adapter Unit cards. The TAU has a rather unique series of SMS cards, and we have few to no replacements. This has been a real problem for the Tape People who work Thursdays (with days off for shooting rockets at Black Rock Desert.)
    Bill Newman got into the on-line 1401 & 1406 Unit Plugging Charts, made a sorted list of the TAU cards - and went to work.
    We are short of IBM type 101 - 107 transistors, and also don't have a cross reference for type 117 PNP type. Bill Newman knows of a "place in Oakland" and will try to increase our stock.

  • And of course we have bad news :-(( The next two cards they checked they reported "no problem found". :-((
    This of course is a CE's bad dream - Send a card to HQ for repair, and have it returned "no problem found". The question is then:
    - was the CE's diagnosis of the problem incorrect?
    - was the testing at HQ not sophisticated enough?
    - other blunder, card mix-up, intermittent bad connection, ...
    Frank King reported that IBM's custom was to mark "no problem found" cards with a little black mark to warn the CE's. Frank King reported that if a particular card had two black marks on it, and "failed" again, the card usually received a final "accident" - like being broken in half. Ron Williams said this drove IBM management nutz - but if a $10 card is repeatedly causing a $500 service call - you choose what to do -

  • AH - SMS cards - We have had two big bunches, and a few trickles of SMS cards coming in.
    The first bunch, with the German 1401, was placed in nice cabinets, with overflow of too many of one card type going into boxes.
    The next bunch, with the Connectuccut(sp), you know what I mean, 1401, was placed in boxes - not much room in cabinet, we were busy?? And the boxes are no longer in order :-((
    Clearly we have a CRISIS. Unlike California, we will do something.
    • Over the weekend, our staffers will draft a bill to resolve this CRISIS, maybe say 1,250 pages, like who is counting, or looking?
    • Monday and Tuesday we will add maybe 300 amendments to make various voting and money groups happy,
    • Wednesday morning the 1401 crew will have a few minutes to look at the probably 1450 page document, before voting YES on it
    • Wednesday noon Robert Garner will sign the bill into law.
    We probably won't have to spend the 834.5 billion, or is it trillion we have allocated for this CRISIS.

  • I'm sorry, I mostly don't know what was going on in the rest of the room. Bob Erickson seemed rather slow about starting to take the IBM 519 Reproducing Punch transmission apart, again. Glenn Lea had a big motor out of one of the CT tape drives - said he was lubricating it.

  • Robert Garner reports "Bill Flora et all successfully read a 45-year old tape from our German buddies! It's labeled DFT (they were looking for full complement of DFT for 1401!) and "Aufbewahren" which means "save" or "keep" ! I believe this may be the first time we've done this (successfully)!

  • The CT 1401 was or wasn't reading cards - it sometimes hung with a 1 bit in the instruction register - it should have been reading. Ron W and Joe P had a scope hung on this chassis. I commented that those yellow wires didn't look like they had been installed by GardnerDenver machines - Joe said they were Engineering Changes - and this is our "stock" 1401, without even Sterling arithmetic and Overlap :-|

  • Some docents appear to be unaware that the 1401 is being restored on Wednesdays, and that visitors are welcome. While wandering about I heard one family saying the father had worked on 1401s. I popped up and mentioned that a 1401 is being restored as we speak, by a bunch of old duffers like me. The docent seemed unaware that Wednesday is "OUR" day - I grabbed the family and they spent almost an hour with us.
    Frank King and the father had a good time exchanging "war" stories. The mother had worked as a German translator and helped Frank with the German translations of 1403 documents. She also explained how Germans easily make words of 40 or more letters, the ending is the gender of the last word in the superword.

  • From last Wednesday, Robert Garner
    Ed - Bob looking over the 1406, with its temperature sensitive problem.
    If Bob hadn't have had the enthusiasm to "look it over", I wouldn't have joined him in the hunt. When I did, I noticed the askew SMS card. After we removed it, we noticed its crack, which I verified with DVM was open or closed depending on bend angle... :-(

  • OH - Bill Newman and Mattias Goerner are getting into 1401 software and Ron Mak's ROPE (Ron's Own Programming Environment). He took up Ron Williams' and Stan Paddock's challenge to do a one card 80-80 list program.
    Bill Newman is just getting started in the debugger tool in ROPE.
    Matthias got stuck trying to cram it all into one card. Eventually Van Snyder was called in.


Thursday July 02 - Tape Team


Wednesday July 08 - General


Thursday July 9 - Tape Team

There was no meeting -

Saturday July 11 - 2nd Saturday

  • Working on the CT 1401 and 1402 reader were: Ron Williams, Bob Erickson.
    - Playing at making an interesting user-interactive 1401 demo were Stan Paddock and Bill Newman.
    - Researching transistor substitutions were Ron Crane and Ed Thelen (from 2 -> 4 )

  • During the morning Ed Thelen had been casting about the Internet for a good substitute transistor for the IBM type 112 transistors which Jim Hunt had used up last Wednesday. [Jim emails me that it was a 102. Apparently a bit flipped in my noggin. I should start taking notes!! or get memory parity !! Fortunately the substitution list indicates the same replacement.]

    The suggested replacement in the Transistor Replacement document is the 2N705. Venders on the Internet want $6 to $8 each. That seems an excessive ripoff, as much nicer modern transistors retail for $0.60 each - and we tend to buy transistors in bunches of thirty. I suppose $180 isn't all that much - but it rankles. An engineer ought to be able to do better than that. Unfortunately, the really nice modern transistors can be "too good", such as cause accidental triggering of flip-flops, or oscillations and/or ringing in circuits designed for the older "less good" lower performance transistors.

    For instance, a favorite story - The General Electric Computer Department production line was shut down for more than two weeks when a new batch of TI transistors (with much "improved" characteristics) were inserted into the printed circuit cards. All kinds of horrible things happened in the logic - at the ends of long ringing wires, AND logic became OR logic, ...

  • Ron Crane volunteered to come in at 2:00 to lend Ed a hand at selecting a substitute transistor for the IBM 112. Ron found this April 2006 e-mail he had written.
    The silicon transistors in these two drawers should be used for higher speed circuits, note that in differential pairs both must be of the changed out for proper operation.
    Ron Crane bought 30 more 2N2894 from Halted and placed them in this drawer. Transistor Replacement updated.

  • Wednesday July 15 - General

    • Ed sent a note to John Hollar CHM President & CEO, informing him that he was "on-the-clock" and should start punching in and out.

      John replied

      Ed:

      Thanks for the heads up! This sheds a whole new light on my morning routine. I hope I can remember to “clock in”—at least on Wednesdays.

      I was on the clock once before, about 30 years ago, when I worked summers at a small grocery store in my hometown of Pampa, Texas. A dim and dusty memory at this point!

      Having a clock is another great feature of the 1401 room, Stan. Thanks for all the effort you put in to make that happen.

      Best regards

      -- John

    • Present were: Ron Williams, Bob Erickson Bill Flora, Frank King, Don Luke, George Ahearn, Joe Preston, Don Luke, Stan Paddock, Sam Sjogen, Bill Newman, Jim (Chip) Hunt & Grandson, Robert Garner.
      This report dictated by Ron Williams to AWOL Ed Thelen over the phone. Any garbling of fact into fiction will be blamed on technology ;-))

    • Likely progress on the CT 1402 Card Reader/Punch. Among many mysteries, some blue cards had more trouble being read. It turns out the the blue cards are just slightly wider that the usual cards, and it was noticed that they were being hit just slightly in the card picker station by the joggler. This was causing them to bounce slightly and one of the picker knives occasionally missed picking one side of the card, causing a skew and trouble further down the line. There is talk of shimming the joggler assembly to provide more clearance. This may explain the extended and chronic intermittent read check stoppages.
      This is Bill Flora's machine, but about half the crew spent quite a bit of time eyeballing and discussing this discovery. Anyone not listed below (and some that are) spent a lot of time on/near the 1402.

    • Don Luke, jack of all trades, helped Joe Preston with a key punch, helped Bob Erickson with the 513, and enjoyed the 1402

    • Bill Newman was busy with the curve tracer, examining transistors

    • Jim Hunt and his grandson fixed 4 or 5 SMS cards. The grandson solders transistors :-))

    • Joe Preston started struggling on another 729 tape drive. He replaced the main circuit breaker, a dud, then found another circuit breaker feeding one of the power supplies had an open current sense coil. Working parts came from the "spare parts" 729.

    • Stan was active on the PC in the entry way, and entertaining guests. Stan has been e-mailing folks about clever and/or not obvious 1401 programming techniques.

    • Sam was busy with the German 1401 and printer, also getting into Card Code to BCD conversion.


    Thursday July 16 - Tape Team


    Wednesday July 22 - General

    • Present were: Ron Williams, Bob Erickson, Bill Flora, Don Luke, George Ahearn, Joe Preston, Don Luke, Stan Paddock, Sam Sjogen, Bill Newman, Jim Hunt, Robert Garner.

    • Ya know, Joe Preston just keeps pushing along. No jokes, no tall tales, ... He apparently comes to CHM to fix stuff, and is not easily distracted. :-)) I don't even know what this is and why it is here :-((

    • Talking about serious - another couple of guys - well, I guess most of the guys are serious. Maybe it is just Frank King and I that will pause to tell a tall tale, or three? This is embarrassing :-((
      Like Jim Hunt and Bill Newman fixed some more cards - ran out of replacement diodes :-((

    • Life can be tough. The CT 1402 card reader has been "fixed" I don't know how many times. - But the next week some new problem pops up - in WW II, it was gremlins, do we have a new scape goat?

    • For lunchtime entertainment Ron Mak gave a warm-up of the lecture he is giving at San Jose State to 60 students on Monday morning. In the afternoon they will visit CHM and the 1401, and I presume other sights also ;-))

    • And this is where pounds sterling is computed in the German 1401.

      This is a timely e-mail about the Sterling option - from Charles Morrrison via George Ahearn
      I joined IBM Greenock Scotland in 1964 and do not remember Greenock building the 1401. We were building the 026 and 056 punch and punch and verifiers. I would guess that the engineer from UK that helped with the design of the sterling feature would have been from the dev. lab at Hursley. In the computer room, Greenock had two 1401's and a 1410 for running the sites programs. I spent two years in the programming department writing programs for the 1401 for the finace department so had plenty of experience of using the sterling feature (12 pence in a shilling, 20 shillings in a pound). I found the 1401 a great and easy system to write programs for. I attach a photo of a 1401 bound for the Qatar Petroleum Co. being loaded aboard a plane at Frankfurt airport.


    Thursday July 23 - Tape Team


    Saturday July 25 - 4th Saturday


    Mon July 27 - Ron Mak's class tour and follow-up

    Monday July 27
    From Ron Mak
    I will teach a 90-minute class on the IBM 1401 to top computer science students from San Jose State University, Cal State Long Beach, Arizona State University, and an engineering school in Switzerland. I plan to discuss the machine's unique architecture, its pioneering role in the history of modern computing, and how to program it in Autocoder (with demos of our simulator environment). This will take place at San Jose State University campus on Monday morning, July 27.

    In the afternoon of the same day, the 60 students and their 10 faculty members will visit the Computer History Museum. Of course, after my class, they will want to see the 1401 alive and in action.

    So we need volunteers who are willing to come in that afternoon and run the 1401. Please let Robert or me know if you can do it. This will be a great opportunity for a large group of very interested students to learn about our machine. We'll work out how to break them up into groups and cycle them through the machine room, the Babbage difference engine, and the exhibit hall.

    The class I will teach at SJSU can be a prototype for a class we eventually teach at the museum. I may want to do a dry run at the museum before I give it at the university. I normally teach compiler writing and software engineering part-time in the CS department, but I may get the opportunity to teach a semester-long course on the history of modern computing.

    -- Ron

    P.S.: More information about the students and their summer exchange program:

    During each summer, a group of computer science students and faculty from San Jose State University, Cal State Long Beach, and Arizona State University get together with CS students and their faculty from La Haute Ecole d'Ingénierie et de Gestion du Canton de Vaud (HEIG-VD), a Swiss engineering school (http://www.heig-vd.ch/). The students take short courses taught by faculty members from all four universities on topics like security, networking, enterprise software development, open source, multi-agent systems, and ubiquitous computing.

    See http://cs.sjsu.edu/~pearce/summer09/index.html for the announcement about this summer's exchange program, which will be held at the SJSU campus. Dr. Jon Pearce, the professor in charge of the program at SJSU, is scheduling visits by the students and faculty to various high-tech Silicon Valley companies. Their schedule is at http://www.cs.sjsu.edu/faculty/pearce/summer09/sched/sched.html. (The seminar in the morning of July 27 is my class, and the afternoon visit to the museum is listed as "Tech Museum".)

    Ronald Mak
    Department of Computer Science
    San Jose State University
    http://cs.sjsu.edu/~mak/


    follow-up

    The seminar that I gave yesterday morning about the 1401 at San Jose State University went very well.
    The audience was 60 international senior and graduate computer science students from San Jose State, Long Beach State, Arizona State, and HEIG-VD, an engineering school in Switzerland. Then in the afternoon, they all visited the Computer History Museum where they saw the equipment I had discussed in my seminar. Seeing and hearing the restored IBM 1401 in action was a really big hit!

    In the morning, I had given each student a punched card containing his or her name. They brought their cards to the 1401 machine room where we ran the Big Print program to print each student a personalized listing. The 1402, the flashing console lights, and especially the 1403 were the stars of the show. Stan Paddock, Bill Worthington, and George Ahearn did fantastic jobs running the demos and explaining what it was like back in the good ol' days.

    After yesterday, the students should understand what data processing was like before the 1401 and how the 1401 changed things. At the very least, they ought to appreciate their laptops more!

    The website for my seminar is http://cs.sjsu.edu/~mak/1401/. You can download the PowerPoint slides and sample Autocoder programs that I presented.

    -- Ron

    Wed July 29 - general


    Thursday July 30 - Tape Team Van Snyder's response

    TAU Debug Status Report 2009-07-30
    - (Bob F. and me) [and Allen Palmer and Ron Williams]

    Our main work last Thursday was getting diagnostics to run from an emulated tape drive.

    Bob had given me a bunch of diagnostics in .crd format. Using a C program I wrote to convert from .crd to ASCII (note that deckview.exe does not produce usable ASCII card files for SIMH), then using SIMH to run the programs to produce .mt1 tape files, and finally using SimhConv.java to produce .tobj virtual tape files for the emulator, we got diagnostics to run on the real 1401. We created separate files with groups of diagnostics for CPU, RPP (Reader, Punch, Printer), and Tape; we named the files DiagCPU, DiagRPP, and DiagTape.

    Initially, the following CPU tests ran without error:

    TEST CHARACTER & BRANCH 0050B,
    TEST ZONE OR WM & BR 0060B,
    COMPARE & BR UNEQUAL 0100B,
    LOAD MOVE COMPARE 0110B,
    and LOAD MOVE DIGIT ZONE 0210C.

    Then the diagnostic

    MOVE & ZERO SUPPRESS 0230B
    began to run and emitted a large number of error messages, effectively failing on all the test cases contained in the diagnostic, and several other subsequent tests similarly failed until a machine check stopped the show sometime after
    RESET ADD & SUB 0330B

    began. As it appeared that the diagnostics were working properly we left a printout on a table for the rest of the team to use in debugging (subsequently thrown back in the printer output stack -- see below).

    However, I went back and used the .mt1 version of DiagCPU on SIMH to verify that the diagnostics were working properly. The

    MOVE & ZERO SUPPRESS 0230B
    test failed identically to the .tobj version run on the real 1401. I looked through the program searching for obvious errors but didn't see any. SIMH also reported an illegal instruction after the
    RESET ADD & SUB 0330B
    test, so that was also not indicative of a hardware problem on the 1401. I took an earlier version of the
    MOVE & ZERO SUPPRESS 0230B
    diagnostic, version 0230A, and that also failed all the test cases (although it only output one line to the line printer instead of 84 identical lines for each failing test case!).

    Diagnostics that fail before the machine check are

    MOVE & ZERO SUPPRESS 0230B
    and
    COMPLEMENT ADD 0310B.

    Diagnostics that succeed are

    TEST CHARACTER & BRANCH 0050B,
    TEST ZONE OR WM & BR 0060B,
    COMPARE & BR UNEQUAL 0100B,
    LOAD MOVE COMPARE 0110B,
    LOAD MOVE DIGIT ZONE 0210C,
    and
    TRUE ADD 0300B.

    The test

    RESET ADD & SUB 0330B
    is inconclusive due to the machine check occurring either during it or prior to output of the title line for the following
    ZONE ADD 0350B
    diagnostic.

    We found that some diagnostics are missing entirely. These are

    NUMERICAL RIPPLE PRINT 1022,
    SPACE SUPPRESSION 2030,
    MULTIPLY 3200, DIVIDE 3210,
    TAPE TO PUNCH/PRINTER 5010,
    MOVE BINARY TAPE 5070, and
    CORE STORAGE WORST PATTERN 9100.
    And our copy of
    729 IRG MEASUREMENT 5500
    appears to be truncated.

    I will review my CardToSIMH program to see if there is an error there. I'll also examine the 5300-5320 files that are placed in front of the rest of the diagnostics to load and run them. If anyone would care to help out by scanning the ASCII versions of the card images, let me know. Attached to this email are

    Diag0230A
    and
    Diag0230B
    that only include the 5300-5320 header and the 0230 tests.

    In addition to Bob's previous note on CT system tape channel termination:

    NOTE: THE CT SYSTEM'S TAPE CHANNEL IS NOW TERMINATED BY THE 729 EMULATOR. EMULATOR POWER MUST BE ON FOR THE TERMINATORS TO WORK. EMULATOR POWER IS ATTACHED TO THE POWER OUTLET OF THE NEAREST TAPE DRIVE, SO IT WILL POWER ON/OFF WHEN CT SYSTEM POWER (The wall breaker, not the Ops Panel switch.) IS CYCLED. DO NOT TURN THE POWER SWITCH ON THE FRONT OF THE EMULATOR BOX OFF.

    I'll repeat a finding from a previous debug session, a case that I ran into on one of my previous Wednesdays when we were getting garbage from the emulator:

    NOTE: THE TAPE DRIVES ON THE CT SYSTEM MUST BE POWERED ON TO USE THE EMULATOR. IF TURNED OFF THEY WILL AFFECT THE TAPE CHANNEL IN SUCH A WAY AS TO CORRUPT DATA BEING SENT TO OR FROM THE EMULATOR.

    Cheers,
    -Sam


    Diag0230A

    ,008015,022029,033033N      1001              WRITE TEST TAPE ROUTINE   5300E00A
    L068V35,V05V09,V16V23,V31V361001U%U1R1001MX03004LX00T98L%U1001WBW30L    5300E 02
    L063V66,V41V46,V50V55,V59V601001BW45KBV46 /081BX55 ,0011LT98081         5300E 03
    L069W03,V75V89,V96W00,W04W041001BV89080ABV23          MX06V44BV231001   5300E 04
    L068W39,W11W18,W25W30,W35W401001LT98S50MW61081MX09V44BV23 U%U1BU%U1E    5300E 05
    L072W79,W45W46,W50W55,W60W611001BV23 .BW45U%U1MU%U1R.BW60               5300E 06
    L062X09)W80W80,X00X01,X04X071001                    "T65W00V46          5300E 07
    L066X43,X12X14,X21X25,X32X401001I0T9MX13X23/T99AX11X13BX44X220BX14      5300E 08
    L057X68,X51X55,X60X65,X69X691001,001008BV00BX65GBW50ABV55               5300E 09
    BX14                                            WRITE TEST TAPE ROUTINE 5300E 10
    )012012,015022,029033N      1001                READ TEST TAPE ROUTINE  5310E00A
    L058T07,S87S88,S92S96,T04T081001U%U1RN/081,S51L%U1001RMS51              5310E 02
    L069T44,T12T16,T21T26,T34T381001LT98)S51BT86LBS82KBS88080A,S73C076S76   5310E 03
    L069T81,T50T55,T65T69,T73T771001BT77FB377/BS88      .T69,T98BS88BS88/   5310E 04
    L049T98,T86T91,T95T98,T98T981001B377U%U1BBS88   "                       5310E 05
    B008   L037381BV09              BS88            READ TEST TAPE ROUTINE  5310E 06
    ,008015,022029,033033N      1001                COPY TEST TAPE ROUTINE  5320E 0A
    ,008015,022029,033033N      1001                SET WORDMARK CARD       5320E 02
    L053102,087092,099099,0990991001U%U2RU%U1RL303106)104                   5320E 03
    L071141,107115,119126,1301341001/Z99B1301044,104A306106B099,281L%U1401R 5320E 04
    L069178,146151,156164,1691741001L282B200LB220KL%U2401WB250LB225KB092    5320E 05
    L072239,205220,225230,2352351001U%U1BB092           B087DU%U2MU%U2RU%U1R5320E 06
    L072279,241250,255260,2652651001.B082     U%U2BU%U2EB225KB156           5320E 07
    L059306,300304,304304,3043041001 "                  /Z99I00             5320E 08
    L067367,340344,348348,3483481001,008012,0011001                         5320E 09
    L059403,385400,404404,4044041001B400S541BS88           B082             5320E 10
    /333080                                         CLEAR WORDMARK CARD     5320E 11
    ,019027,031N      B031T98"B400BW04              COPY TEST TAPE ROUTINE  5320E 12
    ,0080121001                                     MOVE & ZERO SUPPRESS    0230A 0A
    ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0230A 02
    ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0230A 03
    L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0230A 04
    ,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0230A 05
    ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0230A 06
    L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0230A 07
    L0314041001BS88                   ,,                                    0230A 08
    L0314081001N000                   ,,                                    0230A 09
    L0314121001M360392                ,,                                    0230A 10
    L0314191001/332                 START TEST                              0230A 11
    L0314231001/                                                            0230A 12
    L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0230A 13
    L0314321001/080                 CLEAR READ AREA                         0230A 14
    L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0230A 15
    L0314401001,001078              LOAD PRINT AREA                         0230A 16
    L0314471001L080299                ,,                                    0230A 17
    L0314541001L072272                ,,                                    0230A 18
    L0314611001,241265                ,,                                    0230A 19
    L0314681001B480010              BR TO MOVE 1 POS FLD IF BLANK IN 010    0230A 20
    L0314761001Z210270              MOVE & ZERO SUPPRESS 10 POS FIELD       0230A 21
    L0314831001B457B                B ON TO SCOPE                           0230A 22
    L0314881001C270250              TEST FOR ERROR                          0230A 23
    L0314951001B499                   ,,                                    0230A 24
    L0314991001Z201261              MOVE & ZERO SUPPRESS 1 POS FIELD        0230A 25
    L0315061001B480B                B ON TO SCOPE                           0230A 26
    L0315111001C261241              TEST FOR ERROR                          0230A 27
    L0315181001B900/                BRANCH TO ERROR PRINT ROUTINE IF UNEQ   0230A 28
    L0315231001B950C                C ON TO CORRECT PRINT ROUTINE           0230A 29
    L0315281001B958                 BRANCH TO SENSE D                       0230A 30
    L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0230A 31
    L0319261001B916E                E ON TO ERROR STOP                      0230A 32
    L03193110012958                 ERROR PRINT                             0230A 33
    L0319351001.958                 ERROR STOP                              0230A 34
    L0319391001                     WORD MARK                               0230A 35
    L0319691001L/19285              CORRECT PRINT ROUTINE                   0230A 36
    L03197610012                      ,,                                    0230A 37
    L0319771001B421D                D ON TO REPEAT                          0230A 38
    L0319821001B417                 BRANCH TO READ NEXT RECORD              0230A 39
    L031/291001ERROR                CONSTANTS                               0230A 40
    L031/341001                       ,,                                    0230A 41
    L031/391001A FIELD                ,,                                    0230A 42
    L031/591001B FIELD                ,,                                    0230A 43
    L031/791001RESULT SHOULD BE       ,,                                    0230A 44
    L031/991001RESULT IS              ,,                                    0230A 45
    ,019027,031,038042B031T98"B400L046352BW04BS88   MOVE & ZERO SUPPRESS    0230A 46
    00.000.000                                                              0230A 47
    00.000.009                                       9                      0230A 48
    00.000.090                                      90                      0230A 49
    00.000.80I                                     809                      0230A 50
    00.00070A&                                    70A                       0230A 51
    00.0060K0R                                   60K 9                      0230A 52
    00.050T0Q-                                  50T Q                       0230A 53
    00.40D0Z0Z                                 40D Z 9                      0230A 54
    0030N0&0-'                                30N & -                       0230A 55
    020W0$0'07                               20W $ ' 7                      0230A 56
    10G0)0#0@0                              10G ) # @                       0230A 57
    7                                       7                               0230A 58
    R                                       9                               0230A 59
    &                                                                       0230A 60
    '                                                                       0230A 61
    0                                                                       0230A 62
    )                                       @                               0230A 63
    ,                                       #                               0230A 64
    
    



    Diag0230B

    ,008015,022029,033033N      1001              WRITE TEST TAPE ROUTINE   5300E00A
    L068V35,V05V09,V16V23,V31V361001U%U1R1001MX03004LX00T98L%U1001WBW30L    5300E 02
    L063V66,V41V46,V50V55,V59V601001BW45KBV46 /081BX55 ,0011LT98081         5300E 03
    L069W03,V75V89,V96W00,W04W041001BV89080ABV23          MX06V44BV231001   5300E 04
    L068W39,W11W18,W25W30,W35W401001LT98S50MW61081MX09V44BV23 U%U1BU%U1E    5300E 05
    L072W79,W45W46,W50W55,W60W611001BV23 .BW45U%U1MU%U1R.BW60               5300E 06
    L062X09)W80W80,X00X01,X04X071001                    "T65W00V46          5300E 07
    L066X43,X12X14,X21X25,X32X401001I0T9MX13X23/T99AX11X13BX44X220BX14      5300E 08
    L057X68,X51X55,X60X65,X69X691001,001008BV00BX65GBW50ABV55               5300E 09
    BX14                                            WRITE TEST TAPE ROUTINE 5300E 10
    )012012,015022,029033N      1001                READ TEST TAPE ROUTINE  5310E00A
    L058T07,S87S88,S92S96,T04T081001U%U1RN/081,S51L%U1001RMS51              5310E 02
    L069T44,T12T16,T21T26,T34T381001LT98)S51BT86LBS82KBS88080A,S73C076S76   5310E 03
    L069T81,T50T55,T65T69,T73T771001BT77FB377/BS88      .T69,T98BS88BS88/   5310E 04
    L049T98,T86T91,T95T98,T98T981001B377U%U1BBS88   "                       5310E 05
    B008   L037381BV09              BS88            READ TEST TAPE ROUTINE  5310E 06
    ,008015,022029,033033N      1001                COPY TEST TAPE ROUTINE  5320E 0A
    ,008015,022029,033033N      1001                SET WORDMARK CARD       5320E 02
    L053102,087092,099099,0990991001U%U2RU%U1RL303106)104                   5320E 03
    L071141,107115,119126,1301341001/Z99B1301044,104A306106B099,281L%U1401R 5320E 04
    L069178,146151,156164,1691741001L282B200LB220KL%U2401WB250LB225KB092    5320E 05
    L072239,205220,225230,2352351001U%U1BB092           B087DU%U2MU%U2RU%U1R5320E 06
    L072279,241250,255260,2652651001.B082     U%U2BU%U2EB225KB156           5320E 07
    L059306,300304,304304,3043041001 "                  /Z99I00             5320E 08
    L067367,340344,348348,3483481001,008012,0011001                         5320E 09
    L059403,385400,404404,4044041001B400S541BS88           B082             5320E 10
    /333080                                         CLEAR WORDMARK CARD     5320E 11
    ,019027,031N      B031T98"B400BW04              COPY TEST TAPE ROUTINE  5320E 12
    ,008015,022029,033033N      1001                MOVE & ZERO SUPPRESS    0230B00A
    ,008015,022029,033033N      1001                SET WORDMARK CARD       0230B 02
    L067367,340344,348349,3573611001,008012,00110011B361080AB421/340080     0230B 03
    L069404,377385,389393,4004041001         B389    BS88N000M360392/332/   0230B 04
    L069441,413417,421428,4354421001BS00S521/080B348,001078L080299L072272   0230B 05
    L070479,449457,464469,4764761001,241265B480010 Z210270B935BC270250B499  0230B 06
    L060507,487492,499504,5085081001Z201261B935BC261241B900/B920            0230B 07
    L071938,907912,916920,9279351001L/14285B916E2920.920A920970B9449699/332 0230B 08
    L056962,940944,948953,9579581001/B421S970B957CB9582B421D                0230B 09
    L040970,967971,971971,9719711001B348000^                                0230B 10
    L065/39)/07/07,/10/15,/20/401001   ERROR     A FIELD                    0230B 11
    L072/79,/60/80,/80/80,/80/801001B FIELD             RESULT SHOULD BE    0230B 12
    L070S17,S00S01,S05S12,S13S171001RESULT IS           2,049L0772772/2772  0230B 13
    L059S44,S25S29,S36S37,S41S451001)/40/60)/80L/892702/2702413             0230B 14
    /333080N                                        CLEAR WORDMARK CARD     0230B 15
    ,019027,031,038042B031T98"B400L046352BW04BS88   MOVE & ZERO SUPPRESS    0230B 16
    00.000.000                                                              0230B 17
    00.000.009                                       9                      0230B 18
    00.000.090                                      90                      0230B 19
    00.000.80I                                     809                      0230B 20
    00.00070A^                                    70A                       0230B 21
    00.0060K0R                                   60K 9                      0230B 22
    00.050T0Q^                                  50T Q                       0230B 23
    00.40D0Z0Z                                 40D Z 9                      0230B 24
    0030N0&0-'                                30N & -                       0230B 25
    020W0$0'07                               20W $ ' 7                      0230B 26
    10G0)0#0@0                              10G ) # @                       0230B 27
    7                                       7                               0230B 28
    R                                       9                               0230B 29
    &                                                                       0230B 30
    '                                                                       0230B 31
    0                                                                       0230B 32
    )                                       @                               0230B 33
    ,                                       #                               0230B 34
    
    
    
    
    Van Snyder responsed a few hours later with
    
    
    I made up a test tape with 0050B, 0060B, 0100B, 0110B, 0210C and 0230B
    and ran it in SimH 3.8.0.  0210C and 0230B failed.
    
    0210C failed because of incorrect encodings.  Group mark was encoded as
    ", not }, and record mark was encoded as ', not |.  When I fixed that,
    only 0230B failed.
    
    0230B failed because its detail cards are set up for Europe.  MCS in USA
    replaces high-order zeros and commas by blanks.  MCS in Europe replaces
    high-order zeros and periods by blanks.
    
    So the 0230B deck from Arnold will fail on the CT machine unless you
    make copies of the detail cards with "." replaced by ",:".
    
    When I did this, 0230B works in SimH.
    
    Other diagnostic programs (Move Characters and Edit?) might have the
    same or similar problems.
    
    The program that gets written on the beginning of the test tape, and
    that reads the diagnostic programs and executes them, rewinds the tape
    and starts over when it reaches the end.
    
    If you wrote the tape with 5300E/5310E, booting will stop with ASR = IAR
    = 1369, at which time you're expected to set sense switches and set
    "interesting" memory locations.  If you want to print the headers for
    each diagnostic program, patch a 1 into 1252.  If you want to halt at
    the end of the tape, patch a halt into 1287.  Others are described in
    the diagnostic programs manual.
    
    Disassembled versions of 5300E and 5310E are attached.  A Readme file
    for 5300/5310 is also attached.  Also the deck I used to create a
    diagnostic tape, the diagnostic tape (in SimH format), and output from a
    run.
    
    Van
    
    attached files:
    
    5300E.s
    5310E.s
    Readme.txt
    test2.cd
    test2.mt1
    test2.mt1.lpt

    and

    
    > 
    > The .mt1 type file is not ASCII
    >          and must be accessed by FTP or what ever
    
    The .mt1 file is a SimH tape file.  You should be able to do "save as"
    from your mailer.  Don't try to do "show inline."  A dumper is attached.
    If run with no command-line arguments it prints its usage.
    
    Usage: ./tpdump [options] 
     Options: -w to print word marks on a separate line
              -# number of 'files' to print (default 1)
              -a print all of each record, including blank lines,
                 which are otherwise suppressed (except for the last one)
              -b use 'b' for blank, default is blank
              -c use '^' for blank, default is blank
              -e E11 format, i.e., don't require even-length records
              -h Use the H (Fortran) print arrangement (default A)
              -o Use the 'old simh' print arrangement
    
    Here's how I ran test2.mt1 in SimH:
    
    i1401
    > at mt1 test2.mt1
    > at lpt test2.mt1.lpt
    > b mt1
    > d 1252 1
    > d 1371 `.
    > c
    
    Van
    
    attached files:
    
    tpdump.c



    Go to
    August 2009
    go to Team Bios