File PFMPR.LD

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

@
 +/n3.7@?  GN K((@&&U-WU4&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&UK!
	CALL TRANSAN2 AIN2)
	BLNO=JBMAX
	CALL TRANS
	P2V 0  2	
	P1VC=(SVC-(P1VC-VMIN)*SF)/SVC*100.
	P2VC=(SVC-(P2VC-VMIN)*SF)/SVC*100.
	WRITE(4,400P@@@PP 	l`@	|p@z.c^Q0"( 1F9.2,F13.2///)
	GO TO 1
601	FORMAT(' POSITIVE OVERFLOW.'///)
701	FORMAT(' NEGATIVE OVERFLOW.'///)
	STOP
	END

/#/SBJ2A0
HAHAHAHAHAHA@@@@@@@@%
@	 5@
@PIA@@@ya@s'M`    (S   i@y	AHvKI}@
5i\@`y !`@	#!'(N`	), di@@ 
y>3@3	:!X @
@!	),@`y N!`@Y!'(A8C:dI@@ y&`@,@`y {!@'*AC:TF.)@P*q4K@@ y*&@y&`@8"'(`5	U A0I@ ^d@@+@+@@+@@+@

@
6@Yz@@@! @@  ,@!9Q2r9!Q<@"9Q2} @@#9QS"

@$9Q29!Q<@%&D["

$DN"@&*QBO*QBO:"`y ?#`@'

@(
6@)Yz@*@@+!
@,9Q	2j@ -@@.

@@/9Q<@0&DK"

$D>"@1*)#`y .#`@2@@3
@4`y "#``@5:#1/&o2;'K A 6    NBo22Kqn/@Z@66@7Yz@8 @9Q@@96Y@:Yz)@; 9Q<@<&)@=&)@>`y #``@?&#2,'T0A  h   NBo'%TL PCTzlin,1An/Lo@:@@U!@A;#'(ST2V`!VR

W'o;i@0BL':GTV`VRW';oi;@CX @DX (@`B@PCD?R.!AD@R.!"z@pD!@PE(3U@F%@GDA"B@ %A B@INASG"0MN@MN@@I03I13MX@MX@@A06A16	@DM"LGLGp@XX3ICO@SICODSICOHSQDSNCSTNMDO1FXFX"IN%AP@E@5S
ED0X
PCE@EI G0N@@X@@NLADN"PDGGp@NS0@@RPLE@N@G@L@GLM`ARPWPESRPLGSNCSER EC ECL@IA@O
@CDCBCCQCLCCCED X	2E	EEEIERHR@@HRGTPTNI4NB4PUE@RPYCLC@ C	0	ESD@
TCTC@L0CL@@DS@20TN@HEF0APC0L@PDpRITE(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
.OR.VMIN.LE.-511.)WRITE(4,701)
	IF(PMAX.GE.511.)WRITE(4,601)
	PMIN=PMIN*PSF
	PMAX=PMAX*PSF
	WRITE(4,800)PMAX,PMIN
800	FORMAT(1X///,20X,'   PMAX         PMIN'/,20X,2E13.4/)
	BLNO=JBMIN
	CALL TRANS
	P1VC=A(JMIN-2)
	BLNO=JBMAX
	CALL TRANS
	P2VC=A(JMAX-2)
	P1VC=(SVC-(P1VC-VMIN)*SF)/SVC*100.
	P2VC=(SVC-(P2VC-VMIN)*SF)/SVC*100.
	WRITE(4,400)P2VC,P1VC
400	FORMAT(20X,'AT PMAH"@PI(2B9@J(Bc@ K3U@LE?U)(%XZG'%3@PMEU?W3]*@PN@POEU?W*]3@PP@PQ(0U@R@S`@#&`DP`@TDHB)@ UDF2*@VDBB@WD:^(@XD="B AP@Y "@`Z @P[@P\@P]`@^`@#C(`DP`V`V 
W[`9
 EW20@_K
,6Q14;63@@ `!"V@a@b @c%@d@e@2fDff
ff `A]Z09` ,Z[)`@f""@`g@Ph @Pi@Pj A]]@0k A]`@0l'&2]9M~P ,`[7) E]2/@m A]c@0n A]f@0o'&2M9=_` ,f[c) Ec2[@p A]i@0q A]l@0r'&29M@p ,l[) Ei2@sGI":)`
#H)t<)9);CItC)tO	LN)tYVX)tc1`b)tm)jl)`	2
 A@W*%A B@EA2I"" MN@MN@@I03I13MX@MX@ @* 1	@DM"LG` P	l"(Q2/ / A*I*j@@@@U@ U$SNCSTNMD@n#.*b`@/b'$b(&b)+b))t@(c))t))t('D,"0%T0@l+EI NP@AB4I"E"FX @@NLADN"PD
G 
* S0@@@P@P P	l
4PQ0"(a*aZA4I"E @@@@`{*++i*@36
@`{*i*`9"XDF+`@Y*@	+@
+CLCCCED X	2E	EEEIERHR@@HRGTPTNI4NB4PUE@RPYCLC@ C	0	ESD@
TCTC@L0CL@@DS@20TN@HEF0APC0L@PDp

Note: Lines longer than 256 characters were wrapped


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