First of all, what would cause something like this?

IMG_20170913_165851.jpg

The pattern changes each time I power cycle it, so maybe it's trying to display the contents of some uninitialized memory?

IMG_20170913_165921.jpg

I was going to open it up to check for obvious problems like blown capacitors, but there appears to be some sort of addon board that's blocking removal of the access cover, and I haven't been able to find documentation on what it is and how to remove it anywhere:

IMG_20170913_165253.jpg

Any help would be appreciated - I'm pretty new to vintage hardware and... well I'm sure the way to get started is to crack the thing open, but I'm not sure how to do that without damaging it. =/

With the help of the card-file translation tools written by Doug Jones, I'm able to read-in a short BASIC program (consisting of 4 cards) after configuring the CR driver (in RT-11) with the command "SET CR NOIMAGE,TRIM". By that I mean that when I run the RT-11 command "COPY CR: TT:", the entire BASIC program displays on screen. I can do this both using a "card input file" generated using Doug Jones' translation tool, or by using a simple ASCII file as the input card file. Similarly, I can COPY from the CR device to a file, rather than to device TT.

But I also want to be able to read-in binary (12-bit) data from the punched cards. RT-11 provides a setting for this ("SET CR IMAGE"), which I've tried with both TRIM and NOTRIM options. When I try this, the COPY operation completes but all I get is a stream of NULs. I've tried all potentially relevant switches for both the COPY and the PIP commands, with no luck so far.

Perhaps the problem is that the CR driver can only pass 8-bit bytes (rather than 12-bit binary data)?

Does anyone recall whether it should be possible to access binary card data through the CR driver (eg using the CR device), or was it always necessary to do direct I/O to the CR11 controller in order to recover binary data? ]]>

A while back, I contacted Mihail via the email address shared in this old "For Sale" post http://www.vcfed.org/forum/showthrea...-PCs-available . Anyway, I guess the closest domestic thing to it is the DEC PRO 325 & 350. After probably 2 months back and forth of figuring out if it works, how it works, what comes with it, what can I do with it, how much it all costs, and how to pack it so it doesn't get destroyed, I finally took the bait and got one. Its 150-lb crate arrived at the corner of my front yard last Tuesday, leaving me to haul it up nothing but hills with my hydraulic lift cart. :nervous:

Here are some pictures:

cdek-crate.jpg

The huge crate

DVK-3-box.jpg

Original packing materials (even the styrofoam)

DVK-3.jpg

The computer

DVK-3-docs.jpg

Physical documentation

I haven't had a chance to power it on (or even really rip it open yet), and am still thinking of the best way to get it the 220V (+22, -33) @ 50Hz it needs (or if it can live with 60Hz). It has a CEE 7 or GOST 7396 style plug on its power cable, and a separate input for ground. I was thinking of getting a 120VAC -> 12VDC converter, and then another 12VDC -> 220VAC @ 50Hz converter. However, one of my friends suggested that a cheap 220VAC converter might only serve up square waves, which has a slight chance of aggravating a power supply expecting sines. Also, there's been discussion as to whether the two CEE 7 plug pins are supposed to be hot & neutral, or two split-phase hot lines. I'll really have to open it up and take more photos.

Anyway, Mihail has shared with me a PDP-11 emulator configured as a DVK-3, even more digital documentation, and even a forum post about an SD card FDD emulator. The ST-412 hard drive made it through customs, but not the floppy disks, because they were concerned that encrypted data might live on the floppies, though no one had a way to test it. My best bet for now is probably to load things to it over a serial connection.

I'm glad this deal went down so well and that the artifact didn't take any cosmetic damage in shipping. I was especially worried about the CRT, as one I ordered once got broken coming from just California, but Mihail hand-made a really strong crate to protect everything and preserve the original packaging, so now I have...this wonderful piece of eye candy for now. :-P

I know the 1st and 2nd are the HD and Floppy controller. The 3rd and 4th are what I'm wondering about, pics below.

Also if you have a VR201 I'm interested- I have everything else - keyboard, video cable, I just need the monitor.

Also a 256M board- I'm learning I may need that to run BSD.

pro350_boards.jpg

brd1002.jpg

brd_34.jpg

thanks!

http://www.ebay.co.uk/itm/DEC-digita...AAAOSwBT9Zp~dl ]]>

I've recently come to test my VAXstation 6000/60 after a few years in storage, to find that it displays the following when powered up:

?3C NVR WRTERR

When halted, it displays "?? CRPT - Corrupt bit is set"

I did a bit of searching about the error codes (the first one is pretty self explanatory anyway), and saw a thread which suggested I replace the Dallas clock chip, which I've done, but it hasn't made any difference. I know the chip is good as I've tried it on another machine.

Any ideas?

Thanks ]]>

Yesterday I picked up a couple of free DECstation 5000/133s. Upon inspection when I got them home on my bench, one power supply was dead, the other seemed OK, but failed almost immediately. The failure mode was completely non-spectacular. No blown caps, no blown fuses, the fans just stopped spinning and no output voltage was observed.

I'd love to repair these supplies, but I have no schematics, and my Google-fu isn't turning any up. The real bummer is that there are no obviously bad parts, so I'm going to have to blindly work my way from the mains back and make some assumptions based on my poor knowledge of switch-mode power supplies.

If anyone has any schematics squirreled away, I would be forever grateful :)

Best Wishes,

-Seth ]]>

The other errors as far as I can tell are related to the timing portion of the code. As this code was written for a different system, it likely had different timing functions... What should I use for this implementation? I know there are specific PDP-12 Fortran functions that use the KW12 real time clock, but I would like to make this code a little more generic so that it can run on a regular PDP-8.

Anyway. The problem lines are bolded and underlined. Any help is appreciated.

Code:

C**********************************************************************

C BENCHMARK #2 -- SINGLE PRECISION WHETSTONE (A001)

C

C O THIS IS A REAL*4 VERSION OF

C THE WHETSTONE BENCHMARK PROGRAM.

C

C O DO-LOOP SEMANTICS ARE ANSI-66 COMPATIBLE.

C

C O FINAL MEASUREMENTS ARE TO BE MADE WITH ALL

C WRITE STATEMENTS AND FORMAT STTEMENTS REMOVED.

C

C**********************************************************************

** IMPLICIT REAL*4 (A-H,O-Z)**

C

COMMON T,T1,T2,E1(4),J,K,L

COMMON/PTIME/PTIME,TIME0

REAL TIME0,TIME1,WALLTIME,PTIME

C

WRITE(6,1)

1 FORMAT(/' BENCHMARK #2 -- SINGLE PRECISION WHETSTONE (A001)')

C

C START BENCHMARK TIMING AT THIS POINT.

C

__ TIME0 = WALLTIME()__

PTIME = TIME0

C

C THE ACTUAL BENCHMARK STARTS HERE.

C

T = .499975

T1 = 0.50025

T2 = 2.0

C

C WITH LOOPCOUNT LOOP=10, ONE MILLION WHETSTONE INSTRUCTIONS

C WILL BE EXECUTED IN EACH MAJOR LOOP..A MAJOR LOOP IS EXECUTED

C 'II' TIMES TO INCREASE WALL-CLOCK TIMING ACCURACY.

C

LOOP = 1000

II = 1

C

DO 500 JJ=1,II

C

C ESTABLISH THE RELATIVE LOOP COUNTS OF EACH MODULE.

C

N1 = 0

N2 = 12 * LOOP

N3 = 14 * LOOP

N4 = 345 * LOOP

N5 = 0

N6 = 210 * LOOP

N7 = 32 * LOOP

N8 = 899 * LOOP

N9 = 616 * LOOP

N10 = 0

N11 = 93 * LOOP

C

C MODULE 1: SIMPLE IDENTIFIERS

C

X1 = 1.0

X2 = -1.0

X3 = -1.0

X4 = -1.0

C

IF (N1.EQ.0) GO TO 35

DO 30 I=1,N1

X1 = (X1 + X2 + X3 - X4)*T

X2 = (X1 + X2 - X3 + X4)*T

X3 = (X1 - X2 + X3 + X4)*T

X4 = (-X1 + X2 + X3 + X4)*T

30 CONTINUE

35 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N1,N1,N1,X1,X2,X3,X4)

C

C MODULE 2: ARRAY ELEMENTS

C

E1(1) = 1.0

E1(2) = -1.0

E1(3) = -1.0

E1(4) = -1.0

C

IF (N2.EQ.0) GO TO 45

DO 40 I=1,N2

E1(1) = (E1(1) + E1(2) + E1(3) - E1(4))*T

E1(2) = (E1(1) + E1(2) - E1(3) + E1(4))*T

E1(3) = (E1(1) - E1(2) + E1(3) + E1(4))*T

E1(4) = (-E1(1) + E1(2) + E1(3) + E1(4))*T

40 CONTINUE

45 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N2,N3,N2,E1(1),E1(2),E1(3),E1(4))

C

C MODULE 3: ARRAY AS PARAMETER

C

IF (N3.EQ.0) GO TO 59

DO 50 I=1,N3

CALL PA(E1)

50 CONTINUE

59 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N3,N2,N2,E1(1),E1(2),E1(3),E1(4))

C

C MODULE 4: CONDITIONAL JUMPS

C

J = 1

IF (N4.EQ.0) GO TO 65

DO 60 I=1,N4

IF (J.EQ.1) GO TO 51

J = 3

GO TO 52

51 J = 2

52 IF (J.GT.2) GO TO 53

J = 1

GO TO 54

53 J = 0

54 IF (J.LT.1) GO TO 55

J = 0

GO TO 60

55 J = 1

60 CONTINUE

65 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N4,J,J,X1,X2,X3,X4)

C

C MODULE 5: OMITTED

C MODULE 6: INTEGER ARITHMETIC

C

J = 1

K = 2

L = 3

C

IF (N6.EQ.0) GO TO 75

DO 70 I=1,N6

J = J * (K-J) * (L-K)

K = L * K - (L-J) * K

L = (L - K) * (K + J)

E1(L-1) = J + K + L

E1(K-1) = J * K * L

70 CONTINUE

75 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N6,J,K,E1(1),E1(2),E1(3),E1(4))

C

C MODULE 7: TRIGONOMETRIC FUNCTIONS

C

X = 0.5

Y = 0.5

C

IF (N7.EQ.0) GO TO 85

DO 80 I=1,N7

X=T*ATAN(T2*SIN(X)*COS(X)/(COS(X+Y)+COS(X-Y)-1.0))

Y=T*ATAN(T2*SIN(Y)*COS(Y)/(COS(X+Y)+COS(X-Y)-1.0))

80 CONTINUE

85 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N7,J,K,X,X,Y,Y)

C

C MODULE 8: PROCEDURE CALLS

C

X = 1.0

Y = 1.0

Z = 1.0

C

IF (N8.EQ.0) GO TO 95

DO 90 I=1,N8

CALL P3(X,Y,Z)

90 CONTINUE

95 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N8,J,K,X,Y,Z,Z)

C

C MODULE 9: ARRAY REFERENCES

C

J = 1

K = 2

L = 3

E1(1) = 1.0

E1(2) = 2.0

E1(3) = 3.0

C

IF (N9.EQ.0) GO TO 105

DO 100 I=1,N9

CALL P0

100 CONTINUE

105 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N9,J,K,E1(1),E1(2),E1(3),E1(4))

C

C MODULE 10: INTEGER ARITHMETIC

C

J = 2

K = 3

C

IF (N10.EQ.0) GO TO 115

DO 110 I=1,N10

J = J + K

K = J + K

J = K - J

K = K - J - J

110 CONTINUE

115 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N10,J,K,X1,X2,X3,X4)

C

C MODULE 11: STANDARD FUNCTIONS

C

X = 0.75

C

IF (N11.EQ.0) GO TO 125

DO 120 I=1,N11

X = SQRT(EXP(ALOG(X)/T1))

120 CONTINUE

125 CONTINUE

C

IF (JJ.EQ.II)CALL POUT(N11,J,K,X,X,X,X)

C

C THIS IS THE END OF THE MAJOR LOOP.

C

500 CONTINUE

C

C STOP BENCHMARK TIMING AT THIS POINT.

C

__ TIME1 = WALLTIME()__

C----------------------------------------------------------------

C PERFORMANCE IN WHETSTONE KIP'S PER SECOND IS GIVEN BY

C

C (100*LOOP*II)/TIME

C

C WHERE TIME IS IN SECONDS.

C--------------------------------------------------------------------

__ PRINT *,' SINGLE WHETSTONE KIPS ',NINT((100*LOOP*II)/(TIME1-TIME0))__

END

C

SUBROUTINE PA(E)

IMPLICIT REAL*4 (A-H,O-Z)

DIMENSION E(4)

COMMON T,T1,T2,E1(4),J,K,L

J1 = 0

10 E(1) = (E(1) + E(2) + E(3) - E(4)) * T

E(2) = (E(1) + E(2) - E(3) + E(4)) * T

E(3) = (E(1) - E(2) + E(3) + E(4)) * T

E(4) = (-E(1) + E(2) + E(3) + E(4)) / T2

J1 = J1 + 1

IF (J1 - 6) 10,20,20

C

20 RETURN

END

C

SUBROUTINE P0

IMPLICIT REAL*4 (A-H,O-Z)

COMMON T,T1,T2,E1(4),J,K,L

E1(J) = E1(K)

E1(K) = E1(L)

E1(L) = E1(J)

RETURN

END

C

SUBROUTINE P3(X,Y,Z)

IMPLICIT REAL*4 (A-H,O-Z)

COMMON T,T1,T2,E1(4),J,K,L

X1 = X

Y1 = Y

X1 = T * (X1 + Y1)

Y1 = T * (X1 + Y1)

Z = (X1 + Y1) / T2

RETURN

END

C

SUBROUTINE POUT(N,J,K,X1,X2,X3,X4)

COMMON/PTIME/PTIME,TIME0

REAL PTIME,TIME1,TIME0,WALLTIME

IMPLICIT REAL*4 (A-H,O-Z)

TIME1 = WALLTIME()

PRINT 10, NINT(TIME1-TIME0),NINT(TIME1-PTIME),N,J,K,X1,X2,X3,X4

10 FORMAT (2I3,1X,3I7,4(1PE12.4))

PTIME = TIME1

RETURN

END

REAL FUNCTION WALLTIME()

REAL IT(2)

WALLTIME = ETIME(IT)

RETURN

END