HD2 upgrade -- some missing info

John B. Milton jbm at uncle.uucp
Sat Apr 6 14:42:27 AEST 1991

In article <1315 at kosman.UUCP> kevin at kosman.UUCP (Kevin O'Gorman) writes:
>I got my Priam drive from A Cano's group buy, my DRUN patch instructions,
>a new soldering station, and I'm finally getting around to installing the
>first of my two HD2 upgrades.  I think I'm about done, but...
Remember to get a good power supply for the Priam drives, they draw a LOT
of current when seeking. You will also want to locate the drive away from
you monitor, as the magnetic field from the voice coil in the drive will
warp the image on the screen.

>What was the short rope for? Hanging myself?  (See shopping list item 7
>which says see intruction 17, which doesn't seem to use the rope...
>oh, there are *two* instructions 17...).
>(back to basics)
It's to keep the plate from crashing down once you have it standing up.

>I'm about where I should do the initial 'smoke test'.  But the little
>HD2 board has no clear indication of the location of pin 1 on the headers.
>Moreover, I discover I don't have enough ribbon cable to try this on my
>drive(s), and there is no indication of how to back out to P5.1 use.
>I would like to know these things, just to be sure: where is pin 1, and
>do I just plug my PAL back in to go back to P5.1?

All the HD2 kits went out with a copy of the PC foil pattern. All the pin
ones have square pads, and all the other ones are round. You will have to
check the copy because it's too hard to tell by looking at the board with
all the pads covered up.

About the Mondo Combo board, John Lydic will soon be on the net. He has
a TB, HDB and everything. You can still get mail through to him now by
using the email address "ka8lvz!jwl at n8emr.uucp". Some of the design has
recently been changed to use 4Mb RAMs instead of 1Mb. You should see him
here soon.

I am spending most of my constructive time working on the DPP (Dsp Parallel
Processor). I have a 2 processor (20 MIPs) version working now, and hope to
bring a 12 processor (120 MIPs) prototype to TCF. If you have a UNIXpc
expansion box that you KNOW you can have there, let me know. I will be coming
on a private plane, and can't bring much with me.

Below is the current state of the "idl" driver. By the way it looks, I can tell
a lot about what's happening on the system. I can't exactly explain the
appearance though.

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  idl.c inst
# Wrapped by jbm at uncle on Fri Apr  5 23:35:55 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'idl.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'idl.c'\"
echo shar: Extracting \"'idl.c'\" \(2077 characters\)
sed "s/^X//" >'idl.c' <<'END_OF_FILE'
X/* vi:set ts=2 sw=2: */
X#include <sys/hardware.h> /* for led_on/off */
X#include <sys/iohw.h> /* for VIDMEM */
X#if 0
X#define VILEN 16
X#define VIDLE1 (VIDMEM+309*45+28)
X#define VIDLE2 (VIDMEM+310*45+28)
X#define VILEN 45
X#define VIDLE1 (VIDMEM+346*45+0)
X#define VIDLE2 (VIDMEM+347*45+0)
Xextern short clkrun;
Xextern int idleflag;
Xextern int swtch();
Xextern char scrsav;
Xstatic int myidle(n)
Xint n;
X	register char off=0,offn=0,c1,c2;
X	char up=0;
X	int x;
X	unsigned short value[VILEN];
X	idleflag=1;
X	x=spl0();
X	value[0]=0x8000;
X	while (idleflag && n) {
X		led_on(LED2); /* tell the world we're idle */
X		if (n>0)
X			n--;
X		spl0();
X		if (clkrun)
X			clockspecial();
X		if (!scrsav) {
X			up=1;
X			if (value[off]&1) {
X				offn=(off+1)%VILEN;
X				value[offn]=(value[offn]>>1)|0x8000;
X				*(VIDLE1+offn)=*(VIDLE2+offn)=value[offn];
X				c2=offn;
X			}
X			value[off]>>=1;
X			c1=off;
X			if (!value[off]) {
X				*(VIDLE1+off)=*(VIDLE2+off)=0;
X				off=offn;
X			} else
X				*(VIDLE1+off)=*(VIDLE2+off)=value[off];
X		}
X	}
X	if (up)
X		*(VIDLE1+c1)=*(VIDLE2+c1)=*(VIDLE1+c2)=*(VIDLE2+c2)=0;
X	idleflag=0;
X	led_off(LED2);
X	splx(x);
Xstatic int orig;
X	char *oldidle;
X	oldidle=(char *)swtch;
X	oldidle+=0x7c+2; /* point to the long address part of the jsr */
X	orig=*(int *)oldidle;
X	*(int *)oldidle=(int)myidle;
X	return;
X	char *oldidle;
X	oldidle=(char *)swtch;
X	oldidle+=0x7c+2; /* point to the long address part of the jsr */
X	*(int *)oldidle=orig;
X	return;
X#if 0
Xswtch+70:		mov.b	&7f,curpri
Xswtch+78:		moveq.l	&-1,%d0
Xswtch+7a:		mov.l	%d0,(%sp)
Xswtch+7c:		jsr	idle
Xswtch+82:		or.w	&700,sr
Xswtch+86:		and.w	&-101,sr
X                                TS32:
X000498: 13fc 007f 0000 0000             mov.b   &127,curpri
X0004a0: 70ff                            mov.l   &-1,%d0
X0004a2: 2e80                            mov.l   %d0,(%sp)
X0004a4: 4eb9 0000 0000                  jsr     idle
X                                TS30:
X0004aa: 007c 0700                       or.w    &0x700,%sr
X0004ae: 027c feff                       and.w   &0xfffffeff,%sr
if test 2077 -ne `wc -c <'idl.c'`; then
    echo shar: \"'idl.c'\" unpacked with wrong size!
# end of 'idl.c'
if test -f 'inst' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'inst'\"
echo shar: Extracting \"'inst'\" \(361 characters\)
sed "s/^X//" >'inst' <<'END_OF_FILE'
X# vi:set ts=2 sw=2:
Xif cc -Oc idl.c; then
X	mv idl.o /etc/lddrv
X	cd /etc/lddrv
X	if ../masterupd -c idl >/dev/null; then
X		./lddrv -dv idl
X	else
X		../masterupd -a char init release idl
X	fi
X	sync; sync; sync
X	./lddrv -av idl
X	# uncomment if you want "idl" to come up when you boot
X	# if grep '^idl$' drivers >/dev/null; then :; else echo "idl" >> drivers; fi
if test 361 -ne `wc -c <'inst'`; then
    echo shar: \"'inst'\" unpacked with wrong size!
chmod +x 'inst'
# end of 'inst'
echo shar: End of shell archive.
exit 0
John Bly Milton IV, jbm at uncle.UUCP, n8emr!uncle!jbm at osu-cis.cis.ohio-state.edu
(614) h:252-8544, w:785-1110; N8KSN, AMPR:; Don't FLAME, inform!

More information about the Comp.sys.3b1 mailing list