Differences between revisions 1 and 21 (spanning 20 versions)
Revision 1 as of 2005-03-24 20:16:25
Size: 1299
Editor: TimRiker
Comment:
Revision 21 as of 2005-03-28 05:48:08
Size: 4155
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.

 * http://d116.com/vcf/east/1.0/ - see hp2114a.jpg
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 may have been an HP-2114C model. It used a form of time shared basic, but it was '''not''' a dual cpu model cabinet. It was running a time shared basic environment. Perhaps the "TIME-SHARING EXECUTIVE" mentioned in the [http://oscar.taurus.com/~jeff/2100/family/family.html sales brochure]?
Line 7: Line 5:
 * HP-2114 style cover with 16 connected touch switches
Line 9: Line 8:
 * 1 "graphics" terminal (honeywell?)
 * 1 test crt terminal
Line 12: Line 9:
 * 1 text crt terminal
 * 1 "graphics" terminal (honeywell? I remember it had a graphics character set with a toggle button)
Line 13: Line 12:
 * external tape punch was not connected.
Line 16: Line 14:
 * external tape punch was not connected.
Line 17: Line 16:
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]? Here are some useful links:
Line 19: Line 18:
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:
 * http://kmt.hku.nl/~hans/pdf_files/hp2114c.pdf <- large pdf brochure
 * http://d116.com/vcf/east/1.0/ - see hp2114a.jpg
Line 23: Line 22:
 * http://www.infionline.net/~wtnewton/oldcomp/hp2100/ <- new OS in development, if you can believe that. ;))  * http://bitsavers.org/pdf/hp/2000TSB/ <- Timeshare BASIC specific stuff
* 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 :))
 * http://kmt.hku.nl/~hans/contents_pages/digital.htm - pdf bruchures, etc.
 * http://www.classiccmp.org/HP/ - more docs and some tape dumps
 * http://www.decodesystems.com/hp2000/ - info and basic code
 * http://descanso.jpl.nasa.gov/RCSGSO/Proceedings/Paper/A0053Paper.pdf <- success story, includes document numbers of the needed pieces
 * http://forums1.itrc.hp.com/service/forums/questionanswer.do?threadId=123682 - HP support questions with 1967 article re 2116 launch
 * http://www.pgcps.org/~mgemeny/access/ <- live system?
 * http://www.classiccmp.org/mailman/htdig/cctalk/2005-March/188582.html <- live system
 * http://www.brouhaha.com/~eric/software/tsbutils/ - tape utilities for *nix
 * http://www.brouhaha.com/~eric/software/asm21/ - hp assembler in perl

Hacking HOWTO:

 * install SIMH above and start "{{{hp2100}}}"
 * load the hp basic sources: "{{{LO basic1.abs}}}"
 * jump into basic "{{{GO 100}}}"
 * 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.''' :)
 * Here's a more useful program I whipped up that graphs trig functions {{{
100 REM TRIG BY TIM RIKER <TIM@RIKERS.ORG>
110 LET X1=-3.2
120 LET X2=3.2
130 LET X3=.1
140 LET Y1=-1.5
150 LET Y2=1.5
160 LET Y3=(Y2-Y1)/70
170 LET X4=(-X1)/X3
200 FOR X0=0 TO (X2-X1)/X3
210 LET X=X1+(X3*X0)
220 LET S0=INT(((SIN(X)-Y1)/Y3)-.5)
230 LET C0=INT(((COS(X)-Y1)/Y3)-.5)
240 LET T0=INT(((TAN(X)-Y1)/Y3)-.5)
250 LET Y0=INT(((0-Y1)/Y3)-.5)
300 FOR Y=0 TO 70
310 IF Y=T0 THEN 520
320 IF Y=S0 THEN 540
330 IF Y=C0 THEN 560
340 IF Y=Y0 THEN 580
350 IF X0=X4 THEN 600
500 PRINT " ";
510 GOTO 700
520 PRINT "T";
530 GOTO 700
540 PRINT "S";
550 GOTO 700
560 PRINT "C";
570 GOTO 700
580 PRINT "X";
590 GOTO 700
600 PRINT "Y";
700 NEXT Y
710 PRINT ""
720 NEXT X0
999 END
}}}

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 may have been an HP-2114C model. It used a form of time shared basic, but it was not a dual cpu model cabinet. It was running a time shared basic environment. Perhaps the "TIME-SHARING EXECUTIVE" mentioned in the [http://oscar.taurus.com/~jeff/2100/family/family.html sales brochure]?

The system config as best recollected:

  • HP-2114 style cover with 16 connected touch switches
  • 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
  • [http://www.pdp8.net/asr33/asr33.shtml ASR-33 teletype] with punch tape reader (writer?)

  • 1 text crt terminal
  • 1 "graphics" terminal (honeywell? I remember it had a graphics character set with a toggle button)
  • 2? disk drives. (type? 8" floppy? drum?
  • card reader
  • line printer
  • external tape punch was not connected.

Here are some useful links:

Hacking HOWTO:

  • install SIMH above and start "hp2100"

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

  • jump into basic "GO 100"

  • 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. :)

  • Here's a more useful program I whipped up that graphs trig functions

    100 REM TRIG BY TIM RIKER <TIM@RIKERS.ORG>
    110 LET X1=-3.2
    120 LET X2=3.2
    130 LET X3=.1
    140 LET Y1=-1.5
    150 LET Y2=1.5
    160 LET Y3=(Y2-Y1)/70
    170 LET X4=(-X1)/X3
    200 FOR X0=0 TO (X2-X1)/X3
    210 LET X=X1+(X3*X0)
    220 LET S0=INT(((SIN(X)-Y1)/Y3)-.5)
    230 LET C0=INT(((COS(X)-Y1)/Y3)-.5)
    240 LET T0=INT(((TAN(X)-Y1)/Y3)-.5)
    250 LET Y0=INT(((0-Y1)/Y3)-.5)
    300 FOR Y=0 TO 70
    310 IF Y=T0 THEN 520
    320 IF Y=S0 THEN 540
    330 IF Y=C0 THEN 560
    340 IF Y=Y0 THEN 580
    350 IF X0=X4 THEN 600
    500 PRINT " ";
    510 GOTO 700
    520 PRINT "T";
    530 GOTO 700
    540 PRINT "S";
    550 GOTO 700
    560 PRINT "C";
    570 GOTO 700
    580 PRINT "X";
    590 GOTO 700
    600 PRINT "Y";
    700 NEXT Y
    710 PRINT ""
    720 NEXT X0
    999 END

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