Received: from ELI.CS.YALE.EDU by BUGS.SYSTEMSY.CS.YALE.EDU; Fri, 8 Jun 90 11:51:53 EDT
Received: from life.ai.mit.edu by ELI.CS.YALE.EDU; Fri, 8 Jun 90 11:47:56 EDT
Received: from EDDIE.MIT.EDU by life.ai.mit.edu (4.1/AI-4.10) id AA18202; Fri, 8 Jun 90 11:24:26 EDT
Received:  by EDDIE.MIT.EDU (5.61/25-eef)
	id AA25132; Fri, 8 Jun 90 10:24:14 EST
Date: Fri, 8 Jun 90 10:24:14 EST
From: Robert E. Seastrom <rs@eddie.mit.edu>
Message-Id: <9006081524.AA25132@EDDIE.MIT.EDU>
To: pdp8-lovers@ai.mit.edu
Subject: [wallman@sci.ccny.cuny.edu: pdp8i]

Date: Fri, 8 Jun 90 10:24:14 EST
From: Robert E. Seastrom <rs@eddie.mit.edu>
To: pdp8-lovers@ai.mit.edu
Subject: [wallman@sci.ccny.cuny.edu: pdp8i]


Hey, look what turned up in my mailbox!


Return-Path: <wallman@sci.ccny.cuny.edu>
Date: Fri, 8 Jun 90 11:06:56 -0400
From: Josh Wallman <wallman@sci.ccny.cuny.edu>
To: pdp8-lovers-request@ai.mit.edu
Subject: pdp8i

We have an pdp8i and many dectapes, programs, etc, none of it in use.
If you know anyone who could use any of this, we would be glad to help.

					Josh Wallman (City Univ. of NY)
					(212-650-8541)


Received: from ELI.CS.YALE.EDU by BUGS.SYSTEMSY.CS.YALE.EDU; Fri, 15 Jun 90 01:36:14 EDT
Received: from life.ai.mit.edu by ELI.CS.YALE.EDU; Fri, 15 Jun 90 01:23:33 EDT
Received: from mc.lcs.mit.edu by life.ai.mit.edu (4.1/AI-4.10) id AA29364; Fri, 15 Jun 90 01:05:14 EDT
Received: from PO2.ANDREW.CMU.EDU by mc.lcs.mit.edu id aa02400;
          14 Jun 90 17:19 EDT
Received: by po2.andrew.cmu.edu (5.54/3.15) id <AA08152> for PDP8-LOVERS@mc.lcs.mit.edu; Thu, 14 Jun 90 17:18:38 EDT
Received: via switchmail; Thu, 14 Jun 90 17:18:28 -0400 (EDT)
Received: from unix2.andrew.cmu.edu via qmail
          ID </afs/andrew.cmu.edu/service/mailqs/q001/QF.oaRzuNS00WB340Pnhw>;
          Thu, 14 Jun 90 17:16:11 -0400 (EDT)
Received: from unix2.andrew.cmu.edu via qmail
          ID </afs/andrew.cmu.edu/usr15/jb3o/.Outgoing/QF.0aRzuL200WB38OIUtL>;
          Thu, 14 Jun 90 17:16:07 -0400 (EDT)
Received: from VUI.Andrew.3.20.CUILIB.3.45.SNAP.NOT.LINKED.unix2.andrew.cmu.edu.vax.3
          via MS.5.6.unix2.andrew.cmu.edu.vax_3;
          Thu, 14 Jun 90 17:16:06 -0400 (EDT)
Message-Id: <gaRzuKu00WB34OIUkb@andrew.cmu.edu>
Date: Thu, 14 Jun 90 17:16:06 -0400 (EDT)
From: Jon Allen Boone <jb3o+@andrew.cmu.edu>
To: PDP8-LOVERS@mc.lcs.mit.edu
Subject: pdp-11

Date: Thu, 14 Jun 90 17:16:06 -0400 (EDT)
From: Jon Allen Boone <jb3o+@andrew.cmu.edu>
To: PDP8-LOVERS@mc.lcs.mit.edu
Subject: pdp-11

is there a pdp-11 mailing list out there anywhere in netville?

-iain


Received: from ELI.CS.YALE.EDU by BUGS.SYSTEMSY.CS.YALE.EDU; Fri, 15 Jun 90 01:37:10 EDT
Received: from life.ai.mit.edu by ELI.CS.YALE.EDU; Fri, 15 Jun 90 01:24:14 EDT
Received: from mc.lcs.mit.edu by life.ai.mit.edu (4.1/AI-4.10) id AA29327; Fri, 15 Jun 90 00:59:18 EDT
Received: from MIPS.COM by mc.lcs.mit.edu id aa06142; 9 Jun 90 14:44 EDT
Received: by mips.com (5.61.14/1.11) id AA02271; Sat, 9 Jun 90 11:44:08 -0700 
From: david%llustig@mips.com
Message-Id: <9006091844.AA02271@mips.com>
To: pdp-8-lovers%mips@mc.lcs.mit.edu
Subject: Serial port modification and Request for old tape drives
Date: Sat Jun  9 11:30:03 1990

From: david%llustig@mips.com
To: pdp-8-lovers%mips@mc.lcs.mit.edu
Subject: Serial port modification and Request for old tape drives
Date: Sat Jun  9 11:30:03 1990

This weekend, I modified the M8650 serial port in my pdp8/m to connect the pdp
to my XENIX box, eliminating the need for an LA-36 DECwriter.  Even though the
XENIX box talks RS-232 and the LA-36 talks current loop, the modification was
simple, requiring only a new cable, as the M8650 has both interfaces, and the
pinout of the connector determines which interface is used.  I brought the RS-
232 signals (ground, RD, TD) to a modular phone jack which I attached, using
double-sided foam tape, to the top of the power supply, so a modular phone
cable can be inserted through the horizontal cable opening, secured with the
horizontal cable clamp, and plugged directly into the connector.  The other end
of the phone cable goes to the serial port on the XENIX box.  If you want more
information on this modification, modest though it is, feel free to contact me.

Meanwhile, I have an unwanted, fine condition LA-36 DECwriter cluttering up my
computer room.  It is clean, works fine, has a well-inked ribbon, and a current
loop interface.  It is free to whoever will give it a good home.  And it is
blindingly fast: 300 bits per SECOND.  Wow.  (Yeah, well...)

If you are in the San Francisco Bay Area and have an unwanted DECtape drive,
one of the two drives on my system is unhealthy and I will happily take your
drive away.  As an extra bonus, if you give me your unwanted drive, I won't
make you take the LA-36.

Or if you know something about debugging DECtape drives, I'd be pleased to talk
with you...

					-- David Schachter
					   llustig!david@mips.com
					   ...!uunet!mips!llustig!david
					   david@llustig.UUCP (MAYBE)

					   +1 415 328 7425
					   Palo Alto, California, USA

P.S. How many people read this mailing list?  Is it growing, shrinking, stable?


Received: from ELI.CS.YALE.EDU by BUGS.SYSTEMSY.CS.YALE.EDU; Fri, 15 Jun 90 21:05:59 EDT
Received: from life.ai.mit.edu by ELI.CS.YALE.EDU; Fri, 15 Jun 90 20:55:22 EDT
Received: from mc.lcs.mit.edu by life.ai.mit.edu (4.1/AI-4.10) id AA02604; Fri, 15 Jun 90 20:33:21 EDT
Received: from EDDIE.MIT.EDU by mc.lcs.mit.edu id aa04288; 15 Jun 90 18:27 EDT
Received:  by EDDIE.MIT.EDU (5.61/25-eef)
	id AA06911; Fri, 15 Jun 90 17:25:04 EST
Date: Fri, 15 Jun 90 17:25:04 EST
From: "Robert E. Seastrom" <rs@eddie.mit.edu>
Message-Id: <9006152225.AA06911@EDDIE.MIT.EDU>
To: jb3o+@andrew.cmu.edu
Cc: PDP8-LOVERS@mc.lcs.mit.edu
In-Reply-To: Jon Allen Boone's message of Thu, 14 Jun 90 17:16:06 -0400 (EDT) <gaRzuKu00WB34OIUkb@andrew.cmu.edu>
Subject: pdp-11

Date: Fri, 15 Jun 90 17:25:04 EST
From: "Robert E. Seastrom" <rs@eddie.mit.edu>
To: jb3o+@andrew.cmu.edu
Cc: PDP8-LOVERS@mc.lcs.mit.edu
In-Reply-To: Jon Allen Boone's message of Thu, 14 Jun 90 17:16:06 -0400 (EDT) <gaRzuKu00WB34OIUkb@andrew.cmu.edu>
Subject: pdp-11


   From: Jon Allen Boone <jb3o+@andrew.cmu.edu>

   is there a pdp-11 mailing list out there anywhere in netville?

There certainly is.  Send mail to info-pdp11-request@transarc.com.

                                        ---Rob


Received: from ELI.CS.YALE.EDU by BUGS.SYSTEMSY.CS.YALE.EDU; Sat, 23 Jun 90 04:46:05 EDT
Received: from life.ai.mit.edu by ELI.CS.YALE.EDU; Sat, 23 Jun 90 04:44:24 EDT
Received: from mc.lcs.mit.edu by life.ai.mit.edu (4.1/AI-4.10) id AA15548; Sat, 23 Jun 90 04:22:45 EDT
Received: from uxc.cso.uiuc.edu by mc.lcs.mit.edu id aa04399; 23 Jun 90 4:22 EDT
Received: from convex.UUCP by uxc.cso.uiuc.edu with UUCP id AA25626
  (5.64+/IDA-1.3.1 for ); Sat, 23 Jun 90 02:57:42 -0500
Received: by convex.COM (5.51/4.7)
	id AA23803; Fri, 22 Jun 90 23:18:41 CDT
Received: by concave (5.51/7.0)
	id AA20925; Fri, 22 Jun 90 23:18:36 CDT
Date: Fri, 22 Jun 90 23:18:36 CDT
From: "Anthony A. Datri" <convex!datri@uxc.cso.uiuc.edu>
Message-Id: <9006230418.AA20925@concave>
To: pdp8-lovers@mc.lcs.mit.edu
Subject: free to first response
Cc: info-pdp11@transarc.com

Date: Fri, 22 Jun 90 23:18:36 CDT
From: "Anthony A. Datri" <convex!datri@uxc.cso.uiuc.edu>
To: pdp8-lovers@mc.lcs.mit.edu
Subject: free to first response
Cc: info-pdp11@transarc.com


rx8/rx11 manual

pdp8/e (8/f 8/m) internal bus options maintenance manual volume 2

talk about ke8-e, km8-e, mr8-e, mi8-e, mp8-e, kp8-e, db8-e, pos bus
interface, kd8-e, etc. 

tu56 maintenance manual

tu55 instruction manual

decsystem10 operationg system command manual (5.07 and 6.01) only if you can
  convince me that you're actually running one

silent 700 model 745 operating instructions

z29 manual

fox manual

vt105 manual 

comtex-11 DC11 interrupt service routine


The following are older and more precious -- I wouldn't mind getting
somethign crufty in return for them:

pdp-8 floating-point system programming manual (1968)

pal-d disk assembler (1969)

pal-3 symbolic assembler pdp-8 programming manual (1969)

pdp-8 programmer's manual-- symbolic editor (1970)

!! (1968)

pdp-11 paper tape software programming handbook (1971)

pdp-8 dectape programming manual (1967!)

I guess all of the 8 stuff above is under the front page 
 "system user's guide" -- there's some stuff in here that goes back
 as far as 1963 -- printed bootstrap loaders, diag leaflets, etc.

Much papertape -- a roll and a box of folded blank (only take this
if you'll really use it, please:

"parfix"

dec-d8-esab-pb disk editor (68)

maindec 825 680 static test binary (whoops -- this is dated 10/22/65,
  my birthday.  Can't let that go...)

8-127 xddt (decus)

pdp8 high speed reader test pc01 (copy)

"xddt" copy

dec-d8-pdab-pb disk pip (68)

maindec-08-d71a-pb 5/15/67 680 dcs expanded static test

maindec-08-d-23b-pb 11/8/66 pdp-8 high speed reader test (pc01)

dec-d8-cdd2-pb 12/67/67 disc system ddt

ims.v9 11/19/73 (with patches) (oops - sorry -- this could be historical.
 gotta save)

dec-d8-asaa-pb 4/25/68 pal d disk assembler (pd403a)

dec-d8-afa6-pb 3/20/68 fortran d (illegible)
use with fortan d opsys + symbolprint

maindec-08-d1l1-pm 2/27/68 basic pdp8, 8i basic memory checkerboard (low)

dec-d8-afa1-pb 3/21/68 fortan d compiler loader

maindec-08-d2qd-pb 6/4/68 family of 8 asr33/35 teletype tests part 2

"bakdir - tested" 12/6/73

dec-d8-afa5-pb 3/20/68

fortra d symbl print (stbl) use with fortran d compiler

maindec-08-d5cc-pb 4/4/68 df32 disk data mini disk, interface, address,
data test (on a friden-produced tape, no less)

dec-d8-afa1-pb 3/21/68 fortran d compilerloader

"dtbuild"

maindec-08-d5db-pb 3/22/68 df32 multi disk

"stdutl"

dec-d8-afa3-pb 3/23/68 fortran d operating system loader (fosl)

dec-d8-afa4-pb 3/23/68 fortran d operating system (.os.)





decsystem10 fortran programmer's manual (fortran-10, v5)


Received: from ELI.CS.YALE.EDU by BUGS.SYSTEMSY.CS.YALE.EDU; Sat, 23 Jun 90 21:21:15 EDT
Received: from life.ai.mit.edu ([128.52.32.80]) by ELI.CS.YALE.EDU; Sat, 23 Jun 90 20:24:39 EDT
Received: from mc.lcs.mit.edu by life.ai.mit.edu (4.1/AI-4.10) id AA19831; Sat, 23 Jun 90 20:08:53 EDT
Received: from ux1.cso.uiuc.edu by mc.lcs.mit.edu id aa05113;
          23 Jun 90 20:08 EDT
Received: by ux1.cso.uiuc.edu id AA17846
  (5.61+/IDA-1.3.1 for pdp8-lovers@mc.lcs.mit.edu); Sat, 23 Jun 90 19:08:24 -0500
Date: Sat, 23 Jun 90 19:08:24 -0500
From: Loren Heal <heal@ux1.cso.uiuc.edu>
Message-Id: <9006240008.AA17846@ux1.cso.uiuc.edu>
To: convex!datri@uxc.cso.uiuc.edu, pdp8-lovers@mc.lcs.mit.edu
Subject: Re: free to first response

Date: Sat, 23 Jun 90 19:08:24 -0500
From: Loren Heal <heal@ux1.cso.uiuc.edu>
To: convex!datri@uxc.cso.uiuc.edu, pdp8-lovers@mc.lcs.mit.edu
Subject: Re: free to first response

I want all of the PDP8/e stuff you have, though I have nothing of value to 
trade.  


Summary-line: 27-Jun  BILLQUIST@carmen.docs.uu.  #Subfile directory driver...
Received: from ELI.CS.YALE.EDU by BUGS.SYSTEMSY.CS.YALE.EDU; Wed, 27 Jun 90 18:53:42 EDT
Received: from life.ai.mit.edu ([128.52.32.80]) by ELI.CS.YALE.EDU; Wed, 27 Jun 90 18:48:54 EDT
Received: from mc.lcs.mit.edu by life.ai.mit.edu (4.1/AI-4.10) id AA19093; Wed, 27 Jun 90 17:11:00 EDT
Received: from sunic.sunet.se by mc.lcs.mit.edu id aa12502; 27 Jun 90 16:26 EDT
Received: from AIDA.CSD.UU.SE by sunic.sunet.se (5.61+IDA/KTH/LTH/1.144)
	id AAsunic05469; Wed, 27 Jun 90 21:52:33 +0200
Received: from CARMEN.DOCS.UU.SE by AIDA.CSD.UU.SE with TCP; Wed 27 Jun 90 21:50:09
Date: Wed 27 Jun 90 21:51:44
From: Johnny Billquist <D89.JOHNNY-BILLQUIST@carmen.docs.uu.se>
Subject: Subfile directory driver...
To: pdp8-lovers@mc.lcs.mit.edu
Message-Id: <900627215144.12.D89.JOHNNY-BILLQUIST@CARMEN.DOCS.UU.SE>

Date: Wed 27 Jun 90 21:51:44
From: Johnny Billquist <D89.JOHNNY-BILLQUIST@carmen.docs.uu.se>
Subject: Subfile directory driver...
To: pdp8-lovers@mc.lcs.mit.edu

Ok, all you weirdos. Here is my sobfile device driver plus "selector".

This is pretty simple. You compile DEV.PA into DEV.BN, and load it
with BUILD. You compile and load SFD.PA to SFD.SV. Nice to place in
SYS:, but can be anywhere.

The you create big files. Pehaps a few hundred blocks, on SYS: or
co-resident device!!! (Important!!!)
You can create as many of these files as you care for.
Default extension is .SD for my programs (.SD = Sub Directory)

Then you run SFD, and answer with one of your .SD files at the
USR prompt. When you have come this far, the SFD: device references
to the selected directory.

Note! SFD modifies PIP and RESORC. The proper versions of these programs
are; PIP V12B and RESORC V3A. Other versions might work as well, but
I don't know. The only file which MUST be modified is PIP, since
ZERO can't be used otherwise.

When you first connect to an sfd, you must ZERO it, to get a directory
on it. If you squish the device on which your currently selected
sfd is, you might have to run sfd, and reselect the sfd, since the
sfd might have moved.

I have noticed a strange problem a few times with my own programs
together with this device driver, but I don't know what it is.
FOTP, and PIP works fine, though (these are the programs I use most
with SFD:)

The reson that SFD: must be on a device co-resident with SYS: is that
I cannot load a device driver during a call to the device driver,
so the "master" device must already be in core.

Disclaimer: I accept no responsibility for any problems that might
arise from the use of this program.

	File: DEV.PA
/	SFDDRV X1.0
/
/	SUBFILEDIRECTORY DRIVER. X1.0
/
/	(c) 1988 by Johnny Billquist
/	For use with OS/8.
/	Internal use only!
/
/	NULL.BN	X1.0
/
/	(c) 1987 by Johnny Billquist
/	All rights reserved.
/
/	Null device driver.
/
	*0
/
	-2
	DEVICE SFD;DEVICE SFD;4400;START&177;0;0
	DEVICE SFD;DEVICE NULL;0240;NUL&177;0;0
/
	PAGE
/
BLKOFF,	0		/OFFSET INTO MASTER DEVICE.
SFDEND,	-6260		/END OF SFD.
SFDENT,	7607		/ENTRY OF MFD.
/
START,	4		/VERSION "D"
	CLA
	TAD	.-1
	DCA	END

	RDF
	TAD	(CDF CIF
	DCA	RET

	TAD I	START	/GET ARG1.
	DCA	S1
	ISZ	START

	TAD I	START	/GET ARG2.
	DCA	S2
	ISZ	START

	TAD I	START	/GET ARG3.
	TAD	BLKOFF	/ADD OFFSET FOR SFD
	DCA	S3
	ISZ	START

	CDF

	TAD	S1	/GET ARG1.
	AND	(3700	/MASK RECORD COUNT
	BSW
	CLL IAC RAR	/CONVERT TO BLOCK COUNT
	DCA	CNT
	TAD	CNT
	TAD	S3	/ADD START BLOCK.
	DCA	TMP	/SAVE END BLOCK.

	CLL CLA
	TAD	SFDEND	/GET END OF SFD.
	TAD	TMP	/GET END BLOCK.
	SNL		/NON-ZERO LINK=OVERFLOW SFD.
	JMP	OK
	CIA		/AC=HOW MUCH OVERFLOW. SUBSTRACT THIS
	TAD	CNT	/FROM BLOCK COUNT
	SPA		/BLOCK COUNT STILL POSITIVE?
	JMP	END	/NO. DO NOT DO ANYTHING. RETURN
	CLL RAL;BSW	/YES. CAN DO SHORTER OP. MOVE BLOCK SIZE TO
	DCA	TMP	/CORRECT PLACE.
	TAD	S1	/GET OP.
	AND	(4077	/MASK AWAY RECORD COUNT.
	TAD	TMP	/GET NEW RECORD COUNT.
	DCA	S1	/SAVE.
	TAD	(CLA SKP
	DCA	END

OK,	JMS I	SFDENT	/NO. CALL REAL DEVICE DRIVER.
S1,	0		/ARG1.
S2,	0		/ARG2.
S3,	0		/ARG3.
	JMP	RET	/ERROR RETURN.

END,	CLA		/FINISHED.
	ISZ	START	/BUMP RETURN TO SUCCESS.
RET,	HLT		/REPLACED BY CDF CIF N
	JMP I	START	/RETURN
/
CNT,	0
TMP,	0
/
/
NUL,	01		/VERSION A.
	CLA
	RDF
	TAD	(CDF CIF)
	DCA	RFLD
	TAD I	START
	ISZ	START
	ISZ	START
	ISZ	START
	SPA CLA
	ISZ	START
RFLD,	0
	JMP I	START
/
$

	File: SFD.PA
/	SFD	X1.0
/
/	SET SFD.
/	(c) 1988 by Johnny Billquist
/	For use with SFDDRV driver in OS/8.
/	Internal use only!
/
	FIELD	1
	*2000
/
	ARG2=A2+1
	DCODE=40
/
START,	CLA
	JMS	200	/INQUIRE.
	12
A2,	DEVICE SFD
	0
	JMP	ERR4

	JMS	200	/DECODE
	5
	5200		/SPECIAL MODE

	CMA
	TAD	37	/GET DEVICE TABLE OFFSET
	TAD	7605	/ADD SPECIFIED DEVICE NUMBER.
	DCA	TMP
	TAD I	TMP	/GET DEV.H INFO ENTRY.
	SZA		/NOT ZERO. NOT CO-RESIDENT WITH SYS.
	JMP	ERR2	/NOT. USER ERROR 2

OKSFD,	TAD	7611	/GET EXTENSION
	SNA		/WAS IT NULL?
	JMS	DFIND	/YES. CHECK IF DEFAULT EXTENSION EXIST.
	CLA
	TAD	7605	/CHECK IF SPECIFIED EXTENSION EXIST
	JMS	200	/CALL USR
	2		/FUNCTION=LOOKUP
AR1,	7606		/POINTER TO FILENAME.
AR2,	0		/ARG2
	JMP	ERR3	/ERROR. NO FILE FOUND

FOUND,	CMA
	TAD	37	/GET PTR TO DEVICE TABLE
	TAD	ARG2	/ADD DEV.NUM
	DCA	TMP	/SAVE.
	TAD I	TMP	/GET INFO ABOUT DEV.
	AND	(3600	/MASK RELATIVE BLOCK LOCATION
	CLL RAR;BSW	/MOVE TO AC8-11
	TAD	(15	/ADD OFFSET TO DEVICE AREA.
	DCA	BLK	/SAVE AS BLOCK TO R/W

	CIF		/READ BLOCK BY CALLING SYS:
	JMS	7607
	210		/2 RECORDS INTO FIELD 1.
	BUFF
BLK,	0
	JMP	ERR5

	TAD	AR1	/GET STARTING BLOCK OF FILE.
	DCA	BUFF	/SAVE
	TAD	AR2	/GET SIZE.
	CIA		/NEG.
	TAD	AR1	/ADD START
	CIA		/NEG.
	DCA	BUFF+1	/SAVE AS END OF SFD.
	TAD	7605	/GET DEVICE NUMBER
	TAD	(7646	/DEV.H RESIDENCY TABLE
	DCA	TMP
	TAD I	TMP	/ENTRY POINT TO DEV.H
	DCA	BUFF+2	/SAVE
	TAD	BLK	/MOVE DEVICE BLOCK TO WRITE OP.
	DCA	BLK2

	CIF		/WRITE DEVICE DRIVER BACK.
	JMS	7607
	4210
	BUFF
BLK2,	0
	JMP	ERR5

	JMS	SETPIP

	CLA IAC
	JMS	200
	2
SBLK2,	FNAM2
	0
	JMP	ERR6

	TAD	(11
	TAD	SBLK2
	DCA	PBLK1

	CIF
	JMS	7607
	210
	BUFF
PBLK1,	0
	JMP	ERR5

	TAD	AR2
	DCA	DCODE^4+BUFF+2

	TAD	PBLK1
	DCA	PBLK22

	CIF
	JMS	7607
	4210
	BUFF
PBLK22,	0
	JMP	ERR5

END,	CDF CIF
	JMP	7600

ERR6,	ISZ	E
ERR5,	ISZ	E
ERR4,	ISZ	E
ERR3,	ISZ	E
ERR2,	JMS	200
	7
E,	2

TMP,	0
FNAM,	FILENAME PIP.SV
FNAM2,	FILENAME RESORC.SV
/
	PAGE
/
SETPIP,	0
	CLA IAC
	JMS	200
	2
SBLK,	FNAM
	0
	JMP	ERR6

	CLA CLL IAC RTL
	TAD	SBLK
	DCA	PBLK

	CIF
	JMS	7607
	210
	BUFF
PBLK,	0
	JMP	ERR5

	TAD	AR2
	DCA	BUFF+200+DCODE

	TAD	PBLK
	DCA	PBLK2

	CIF
	JMS	7607
	4210
	BUFF
PBLK2,	0
	JMP	ERR5

	JMP I	SETPIP
/
DFIND,	0		/FIND FILE WITH DEFAULT EXTENSION
	TAD	7606	/COPY FILENAME
	DCA	BUFF
	TAD	7607
	DCA	BUFF+1
	TAD	7610
	DCA	BUFF+2
	TAD	(2304	/DEFAULT EXTENSION IS ".SD"
	DCA	BUFF+3
	TAD	7605	/GET DEVICE NO.
	JMS	200	/CALL USR
	2		/FUNCTION=LOOKUP
AR3,	BUFF
AR4,	0
	JMP I	DFIND	/NOT FOUND. RETRY WITH NULL.
	TAD	AR3	/FOUND. COPY RESULTS
	DCA	AR1
	TAD	AR4
	DCA	AR2
	JMP	FOUND	/CONTINUE
/
	PAGE
/
BUFF,
/
$


