File PFSVC.AS

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

C  *** PROGRAM TO SEARCH FOR ABSOLUTE MAXIMUM &
C	ABSOLUTE MINIMUM POINTS ON THE VOLUME DATA
C	TO CALCULATE SLOW VITAL CAPACITY.
C
C	BLOCK DATA IN FILE RKB0:PF6605.DT
C	CALLS SUBROUTINES MCTRNS.RL,AND PFTRNS.RA
C
C	FIRST 260 WORDS OF THE COMMON BLOCK: 
C	VOLUME,FLOW,PRESSURE,V,Q,P.....1365 PARAMETERS.
C
C	FILE NAME* PFSVC.AS
	COMMON A(411),D(90),MANU,BLNO
1	WRITE(4,100)
100	FORMAT(' MANU: '$)
	READ(4,101)MANU
	IF(MANU.LT.0)STOP
101	FORMAT(I8)
	WRITE(4,200)
200	FORMAT(' SCALE FACTOR:'$)
201	FORMAT(E11.4)
	READ(4,201)SF
	VMAX=-99999.
	VMIN=99999.
	DO 1000 IB=1,16
	BLNO=IB
	CALL TRANS
	DO 1000 J=1,85
	JJ=3*J-2
	IF(VMAX.LT.A(JJ))VMAX=A(JJ)
	IF(VMIN.GT.A(JJ))VMIN=A(JJ)
1000	CONTINUE
	IF(VMAX.GE.511.)WRITE(4,500)
	IF(VMIN.LT.-511.)WRITE(4,600)
	SVC=SF*(VMAX-VMIN)
	WRITE(4,400)SVC
400	FORMAT(' SLOW VITAL CAPACITY:',E13.4)
500	FORMAT(' POSITIVE OVERFLOW.'///)
600	FORMAT(' NEGATIVE OVERFLOW.'///)
	GO TO 1
	STOP
	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