File INVAL.FT (FORTRAN source file)

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

"M&J3F;U3C	T+OCN7I[N+AL3I;U+I3T3L;E+T3H7TE7TZ,+A	L"M6J"J	C3RGE+DCS+UCP+TCO2	WL3NT2	N 7HKA7ASC7EOR6 KF+OCM7FKO3TGR7NV 7NSI2 &	3U	NT6	"J	C3ASN6 KT7IOE2 ?T2 ?C3NWV+RCT3TWH3M& 3N?T* CA3N7U7BKE".*MC*M3C&I3FF 2 ?G+OCD3N7U7BKE6 OI2 ?F3USN2 ;A7D^ +ACS7TKE3M;I3AWT
DJ 3YF 2MNJ6ICS3AWC2 ;I3SWT+ACD+OCF3TWH2 ;E3D>-3F2-3IWN2,: 3O6 3OWR2 C3AGR3CWTR7S"J	C3AWR2 WR+ACD+ICN3OSR+ECR+TCO3LGE+VCE3TWH2 WR3M	A3NWD3R> 7FR H7E"J	C3L;I3EF 3L;O3EZ +OCR3TWH2 WN+XCT3RGE7DN 7TSA3EWM+NCT+OCR3TWH2 WNX7T"J	C7I[N+ACL3C3AL6."J7C"J	C+ICN3A3L6
SO7HKE2 GC7SOE2,N 7HKA7ASC7EOR6 KA7EJ 3ESA2 ?T2 T3EV +N7D+O7F3L;IE6."J7C"J	C2	WT+X
T2IWG+TCS7SSE2 ?T2 T3EZ 7IOR+T^ 3L;E+T
H2 C7AOR2 WR+ACD3F?R7MR +HCE3U	NT*MC&I+ICN3POA3KSE6 OA3C	I2 V(*.;G2 F226> /RZ +AB27FKO7MSA")6,"J	C6ICS3AWC2 	F3LWL3D& 3F2 7EOS2 T+ACN2	WL3NT2	N 7HKA7ASC7EOR6 KO2MNJ2IVI+NCD+OCF3N7U7BKE2 ;E7CWO3NWT3RSE2 WB7FKO+E^ 3L;E+T
H2 C3AGR3CWT+R;S2MNJ2MNJ6IZ	+A
L2IWG+TCS7SSE2 ?T2 T3EN 7O[N7ESR+ECD3N7U3E	R7CZ 7AWLE6."J	C*IB(.0B.2 [I2 &	3NGV+LB	7NSO. F-")*MC*M+C^I7I[N+A
L6IOI. F-2 [I2 T3E& 3NGV7L^ +ACS3A: 3UKM+E3R2MNJ*IBI* B 20& 7FR 7HKE7E^ 3EWR2 ?N2 ?N3NJ-3L;A3KN 7HKA7ASC7EOR",*MC&I* B *+B1+ICF3TWH2 ;I3V3A2 GW3S: +OCT3A: 3UKM+E;R2MNJ2MNJ6IE7ACM+LCE7SKT3I
N2I&	3NGVL&	* B 2	GVL&	2	WT+X
T* ^(3L;E+T
H* B=*1&22MNJ*I6-*-6-*-6-*-6-*-6-*I6-*-6-*-BI* 6 *-6-*-6I*-6-"-6-"J	C"	&	*IB " &0* B * :0"0&I*	B * B * B * B " 6	"J	C*	B * B * B * B *	BI. B *IB . B ".&0*IB	* B * B * B * ^ 2MNJ2I*	3U/N"	&I* B *1BI* B .0B.*I^I3J;U+KB * B * B "	*M+C^I. J1"3&	*IB "-&1. F *2
3*I^I. J1*3B * B * B "	*M+C^I.3F..4V1.9Z2.8Z7"5&	* 6 *1BI* B .3F..4V1"9&2*	:3.1F4.5J9.6^8"66	"J	C*	:162"3"	&I* B *1BI* B .0B.*I^I.1J.*3CX* B * B "	*M+C^I. R ..&8*6. * :7"8&	* 6 *1BI* B .4"."9&6*	B .4".*9B6* B " 6	"J	C*	:1.7Z8..V4*6B * ^ *IB " &1* B * :0"0
I*	:1.7Z8..V4*6B " 6	"J	C*	B * B * B .1J.*3^4*IB "-&1* B * :1"2&3*	B * B * B .1J."36	"J	C*	6 .5^."8&	* 6 *1BI* 6 .5^.*8^I. V-.."7* B * B "	*M"M&J7ISN3EWG7RRI7ESX2,WD3C2,3FV,+O3L3E[O"M6J2JRI3IWM3N	S+OCN7TE/TF(*0&0"M6J2JRI3AGT2I[L2,?E3LV,+O?F.2J1/BJ,21J5.,N
*2?B"M&J7DSA3A:I+U3M3N3U3L*,3U/N./F-*,20"16/"J*M2I	L7MSI2=WL3NT"M&J/I7U6-WI7NSI"M&J3ISN/E7X"0*M2IOI/HB="M&J3V3A*=:0"0*M2IWN+G:=3F3A+S;E"M&J3DOE.=J-.0^4"M&J3IWT3M:=3U3L"M&J3W	H+LCE2(;I7DE2 2.+TB.3L7I+ICT6.KO*." 3IWT+M: +N;E6 WN+M: 3ASN2.& +CCH2.WN2.V +O	L"
*M*M*J:IWG;4: ?%S8: ;!G2;W4;2& ;&: +/C4+!C4;%S.: [): 	,+.C%+/C2;.75?"K%"M6J*JBI* B +ICF2(OI+H: +N;E2 ?E+LB)3C3A3LN 3H	R3O&(3U&,+C	H"M&J* B 2 [I2 &(+CCH6.GE2.2 +F& 2 GC+LCL7CKH+IO+I3U3IC")*M*IB 2 & +F" 3IC2 V.+QB.3E[O2)& +CCH2=V O7L"J*M6*BI+5C4;G(;2O!?4K%:
;): W4+8C4?3K4;)
."M6J*JBI* B +ICF2(;I7DE2 2.+TB.3L7I+I	T2 TE7N"J&I3I&=C7H"J&I+ICF*(CI6.GE2.V +O	L* CI*=J " 6""J&I3I&=2.;A/D^."77B"J&I3K&=3NWD/XJ/"+61"J&I+ICF2(;I7DE2 F.+N;D* &12 TE7N"J&I* B . 7I7TE3T.(2)&+"M&J2I3ES7E"J&I* B . 7I/IF*20J0"M&J2I;E3D[I"M&J2IWT+XT/K6)I*M*IB 2
V 3N	DF*M*M*J>IKP;/W+3C3;"G,+.C++/C2;%S.:-[/:-	,.7%"J*M*IB 2 & +F" 3IWT+M: +N;E6 WJ+N	K2 TE7N*JBI* B +ICF2(OI+H: +E;Q2 ?E+L: +O;R2 OI+H: +E;Q* B"*"B)3TWHN*M2I&I+F" 3IWT+M: +E;Q6 WN+MB)3IC2=?EL*M*IB 2 V 3LWS"M6J"J&*;P?2?O%?3V ?.K!+96 > K/: W0;2?);$> ;2R ;)
	4*M"M&J* B * B +ICF2(OI+H: +E;Q* 6"*"B)3TWHN*M*IBI2 [I2 &(3T7E2 V.+QB.3N7U2)& 3T7E6=WJN7K"J&I2 : /E7G6.KT+U;E"M&J* B * B 7EOLE*M2I&I3T7E6=WNM*M2I&I+F" 3IC2 V.+QB.*"J.6)R 3H;E"M&J*IB 2 & +F" 3DOE2 ^.+EB.*0B)3IWT3M*=3U/N2IBI2 ?T3O6 7A	N2 WP3R?ID7S"J&I* B 2
WD/CB="M&J2I3ES7E"J&I* B . 7I3IC.-B"""*M*IBI* B +ICF*(CI2.WG..B 2 F.+N;D* CI2.WL..& 6)R 3H;E"M&J2IRI/E7C3DOE"+61"J&I2IGV7LZ=+A+L*1:02+3F7OSA*(	I"M&J*IB 2 V 3LWS"M&J2I&I3T7E6=WJN7K"J&I* B 2 ;E3D[I"M&J2I;E3D[I"M&J* B * B 3ESNI7F*JBI* B 3ESNI7F*JBI* B 3ESNI7
*JBI* B 3ISN/E7X3ISN+E/X"1*M2I;E3DW3IWL"M6J"J&*;F;);)3> W.;-W"2*M"M&J+ICF6(SI+ECM6.GE2.: +U	M2 TE7N*JBI* B +ICF2(WD+C: +G;T* &02 TE7N"J&I+DCO2?& *=213DOE"M&J*IB 6 Z /A7L3V3A./B1".*M2IVI3NSDO*M*IB 2 V 3N	DF*M*IB 2 & +F" 3N
E6)Z /A7L2-GVL*M2I3ES7E*JBI* B 3V3A*=:0"0*M2I;E3D[I"M6J2J&I3NGV3L&=3T7E"M6J6JJI7EWTR7N"J*M2I;ED*MBLBZ

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