File PSDIAL.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C	PSDIAL.FT, PAGE 1 OF 1.	(10/19/71 - C.M.MOORE, RICE U., HOUSTON)
C
C	COPIES FILES FROM PS/8 DEVICE SYS TO DIAL LINCTAPE 1.
C
	DIMENSION IBUFF(256),NAME(4),IDEV(2)
C
100	CALL CRLF
C	READ NAME OF FILE TO COPY FROM SYS:
	WRITE(1,110)
110	FORMAT('WHEN * APPEARS, TYPE NAME OF PS/8 FILE')
	CALL NAMES(IDEV,NAME,IDEV,NAME)
C	LOOK UP FILE TO GET STARTING BLOCK NUMBER AND LENGTH
	NB1=LSYS(NAME,NBLKS)
C	CHECK IF FILE EXISTS ON SYS:
	IF(NB1)120,120,150
120	WRITE(1,130)
130	FORMAT('FILE DOES NOT EXIST ON SYS')
	GO TO 100
C	READ STARTING OCTAL BLOCK NUMBER FOR FILE ON DIAL LINCTAPE 1
C	(A FILE AREA OF APPROPRIATE LENGTH SHOULD ALREADY EXIST)
150	WRITE(1,160)
160	FORMAT('NOW SELECT DIAL FILE:')
	CALL ALPHA('START')
	CALL ALPHA('ING B')
	CALL ALPHA('LOCK ')
	CALL ALPHA('=')
	IBLK1=INTIN(8)
C	COPY FILE BLOCKS
	DO 200 I=1,NBLKS
	CALL RSYS(2,NB1,IBUFF)
	CALL WLINC(1,IBLK1,1,IBUFF,256)
	NB1=NB1+1
200	IBLK1=IBLK1+1
	GO TO 100
	END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search