Differences between revisions 1 and 7 (spanning 6 versions)
Revision 1 as of 2005-03-24 20:16:25
Size: 1299
Editor: TimRiker
Comment:
Revision 7 as of 2005-03-24 21:52:06
Size: 2500
Editor: TimRiker
Comment:
Deletions are marked like this. Additions are marked like this.
Line 1: Line 1:
The FirstComputer that TimRiker ever worked on was at Penfield High School in Penfield, New York. It was likely an HP-2114A model. The FirstComputer that TimRiker ever worked on was at [http://www.penfield.edu/phs/ Penfield High School] in [http://www.penfield.org/web/ Penfield, New York]. It was likely an HP-2114A model.
Line 9: Line 9:
 * 1 "graphics" terminal (honeywell?)
 * 1 test crt terminal
 * 1 "graphics" terminal (honeywell? I remember it had a graphics character set with a toggle button)
 * 1 text crt terminal
Line 23: Line 23:
 * http://www.infionline.net/~wtnewton/oldcomp/hp2100/ <- new OS in development, if you can believe that. ;))  * http://www.infionline.net/~wtnewton/oldcomp/hp2100/ <- new OS in development, if you can believe that. :))
Line 25: Line 25:
 * http://simh.trailing-edge.com/ <- SIMH simulator :))

Hacking HOWTO:

 * install SIMH above and start "{{{hp2100}}}"
 * load the hp basic sources: "{{{LO basic1.abs}}}"
 * jump into basic "{{{RUN 100}}}" Note! TimRiker has no idea if this is the correct location but it seems to work.
 * input a simple program like this one "forever": {{{
10 DEF FNA(X)=ATN(TAN(ATN(TAN(ATN(TAN(ATN(TAN(ATN(TAN(X))))))))))
20 DEF FNB(X)=FNA(FNA(FNA(FNA(FNA(FNA(FNA(FNA(FNA(FNA(FNA(X)))))))))))
30 DEF FNC(X)=FNB(FNB(FNB(FNB(FNB(FNB(FNB(FNB(FNB(FNB(FNB(X)))))))))))
40 DEF FND(X)=FNC(FNC(FNC(FNC(FNC(FNC(FNC(FNC(FNC(FNC(FNC(X)))))))))))
50 DEF FNE(X)=FND(FND(FND(FND(FND(FND(FND(FND(FND(FND(FND(X)))))))))))
60 DEF FNF(X)=FNE(FNE(FNE(FNE(FNE(FNE(FNE(FNE(FNE(FNE(FNE(X)))))))))))
80 PRINT FNF(1)
90 END
}}}
 * list the program: "{{{LIST}}}"
 * then run it: "{{{RUN}}}"
 * note that on real hardware this silly recursive program could take a very long time to finish. On a 1G ppc debian linux box with SIMH 3.3.1-1 it takes about a half hour and then prints '''1.''' :)).

The FirstComputer that TimRiker ever worked on was at [http://www.penfield.edu/phs/ Penfield High School] in [http://www.penfield.org/web/ Penfield, New York]. It was likely an HP-2114A model.

The system config as best recollected:

  • mounted in a rack mount cabinet
  • 32k of RAM installed split 5/5/3/3 or similar for the 2 CRTs, card reader and teletype
  • 1 "graphics" terminal (honeywell? I remember it had a graphics character set with a toggle button)
  • 1 text crt terminal
  • [http://www.pdp8.net/asr33/asr33.shtml ASR-33 teletype] with punch tape reader (writer?)

  • 2? disk drives. (type? 8" floppy? drum?
  • external tape punch was not connected.
  • card reader
  • line printer

It was running a time slicing basic environment. Perhaps the "TIME-SHARING EXECUTIVE" mentioned in the [http://oscar.taurus.com/~jeff/2100/family/family.html sales brochure]?

There are multiple emulators around for this platform. TimRiker is trying to get one running for old time's sake. Here are some useful links:

Hacking HOWTO:

  • install SIMH above and start "hp2100"

  • load the hp basic sources: "LO basic1.abs"

  • jump into basic "RUN 100" Note! TimRiker has no idea if this is the correct location but it seems to work.

  • input a simple program like this one "forever":

    10 DEF FNA(X)=ATN(TAN(ATN(TAN(ATN(TAN(ATN(TAN(ATN(TAN(X))))))))))
    20 DEF FNB(X)=FNA(FNA(FNA(FNA(FNA(FNA(FNA(FNA(FNA(FNA(FNA(X)))))))))))
    30 DEF FNC(X)=FNB(FNB(FNB(FNB(FNB(FNB(FNB(FNB(FNB(FNB(FNB(X)))))))))))
    40 DEF FND(X)=FNC(FNC(FNC(FNC(FNC(FNC(FNC(FNC(FNC(FNC(FNC(X)))))))))))
    50 DEF FNE(X)=FND(FND(FND(FND(FND(FND(FND(FND(FND(FND(FND(X)))))))))))
    60 DEF FNF(X)=FNE(FNE(FNE(FNE(FNE(FNE(FNE(FNE(FNE(FNE(FNE(X)))))))))))
    80 PRINT FNF(1)
    90 END
  • list the program: "LIST"

  • then run it: "RUN"

  • note that on real hardware this silly recursive program could take a very long time to finish. On a 1G ppc debian linux box with SIMH 3.3.1-1 it takes about a half hour and then prints 1. :)).

RikerWiki: FirstComputer (last edited 2014-02-26 18:47:12 by TimRiker)