File P1TEST.FT (FORTRAN source file)

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

2I?C3M?M3N: 7EKR2,WI7ROR2,OL2,OC2,	D3NZ,I7N2JNI3O7M+OCN3S7Y2,SI7ESN2,;I+U3M7RWN7MN,3L;E3GN,7HN,3T	RN7G2JNI3O7M+OCN3SGT+C3K7BSO3T7O2,?T3P.,7IWT3M.,3Z	E7GKE2,	N3D/E6,+N3E
IE7R2JNI3O7M+OCN/ICC2,OR60N,+C20+P20+I20+T207GWP7NSK"M&J3C7O3M;O2 OI3Z	E7GKE2,OR3Z	E7GKE6,+P3E
I+E3R3IWZ3IWG7RR,3Z	E7GKE2,OS3Z	E7GKE"M&J3C7O3M;O2 OI3TKA2,OR3TKA2,OS3TKA2,OS7ZB,3TKA6,+P6,SI+A3B+I3Z3TGT7BR,Z*M2I;I3T
E+ECR3P;U+K3T7GWP7NSK6,CN3U/N3T&,3N	K3T7U2,;I+K3I3I/N+I203I/NI612J&I3NWT7GKE2 WN+R3R7IKE+RS*621*32)+L3CC7C2J&I3NWT7GKE6 	S3M&,3D;E3T&,3N7U2,3S3E
N2,C6,SS3R;I/G"("06)2J&I3NWT7GKE6 SS3A/C.(B2*02)7BSO3T7O.(B16)R,+OP*1&02,	K3T7U.(B2.0R,")*M2I;I3T
E+ECR3NSI+EK.1B0*,&26,+N3E
I+E3R/ICC2,OR60N,+C20+P20+I20T602J&I3NWT7GKE2 OI3Z	E7GKE2,OR3Z	E7GKE6,+P3E
I+E3R3IWZ3IWG7RR,3Z	E7GKE2,OS3Z	E7GKE"M&J7ISN3EWG3R& 3CGT/BJ(*0&02,OS3TKA.(B2*02)7S+C.(B56)B,3TKA.(B1*02)+PZ*5&0"M&J7ISN3EWG3R& 3TKA.(B1*02)+IZ*5&06,ST+AB.4B06)R,/ZV("06)6JJI3E3A2 ;R+U3M7RSC+AB*5&0"M&J3L
O3IGC3L2 7EKE2,SD",7B"J&17FKO7MSA.(KA2)BI7ISN3E;R2 ;I3T
EE7R"J&27FKO7MSA.([I2)BI7ESX3E;R2 ;I3T
EE7R"J&37FKO7MSA.([A2)BI7ISN3E;R2 WRA7L"J&47FKO7MSA.(GE.5^.2)BI7ESX3E;R2 WRA7L"J&57FKO7MSA.(GA2)BI3CGH3ROA7TKE.MZJ2I?F3RGM/T"(.0GA2)BI3L;IE*M27ZI3O7R+AT2	P3AWS* B13O;H3EZ 3E3H+E
R")*M2IGC+LCL7ICO+EN6		S3SC+2	6	OP3FCT+&	"M&J3C3A3L> 3OWP+N^(7SOY3C*	^,3P[S3TB1"	6)2J:I7EKR"=606JRI+OP.16)"0*M2I?T/PJ(.)"="0*M2I?T/PN(.)F="0606JRI+OP.46).1V1"M&J7TCO*(&5.=N1"0*M2I?T/PZ(.)F="4656JRI+OP.76).1B6"M&J7TCO*(&8.=^1"0*M2I?T/P&(.)F="8606JRI+OP*1&0
=&1"0*M2I?D. V525& * B=*1B,"160.JV525JI7OST+OM/I6)7TCO*(	I"M&J3KWZ3IWG/RF="M&J3C3A3LV 3NWT/RF(*,21.1F,")*M2IGC+LCL7ESN+ER.2F,*,22"26)2JNI3A3L2 ;E7TKE*(23.2F,*,&0"M&J3C3A3LV 3NWT/RR(*,22.1F,")*M2IGC+LCL7ESN+ER.5N,*,21"06)2JNI3A3L2 ;E7TKE*(26.3J,*,&0"M&J3C3
3LV 3NWT/R^(*,23.3B,")*M2IGC+LCL7ESN+ER.8N,*,24"06)2JNI3A3L2 ;E7TKE*(29.7J,*,&3"M&J3C3A3LV 3NWT/RF(.0^,*,23"36)2JNI3A3L2 ;E7TKE.(F1*,27.4J,")*M2IGC+LCL7ESN+ER*122.7N,*,&3"M&J3C3A3LV 3NWT/RF(.3^,*,21"06)2JNI3A3L2 ;E7TKE.(R1*,27.1B,")*M2IGC+LCL7ESN+ER*125.7
,*,&3"M&J3C3A3LV 3NWT/RF(.6^,*,23"36)2JNI3A3L2 ;E7TKE.(^1*,27.1J,")*M2IGC+LCL7ESN+ER*128.7J,*,&4"M&J3C3A3LV 3NWT/RF(.9^,*,22"36)2JNI3A3L2 ;E7TKE.(B2*,27.3N,")*M2IGC+LCL7ESN+ER*221.7N,*,&3"M&J3C3A3LV 3NWT/RJ(.2^,*,22"36)2JNI3A3L2 ;E7TKE.(N2*,26.0F,")*M2IGC
LCL7ESN+ER*224.6B,.,F-")*M2IGC+LCL7ESN+ER*225.6B,.,F-")*M2IGC+LCL7ESN+ER*226.6B,.,F-")*M2IGC+LCL7ESN+ER*227.6B,.,F-")*M2IGC+LCL7ESN+ER*228.7V,*,&0"M&J3C3A3LV 3NWT/RJ(.9^,*,25"06)2JNI3A3L2 ;E7TKE.(B3*,26.2N,")*M2IGC+LCL7ESN+ER*321.6B,*,&0"M&J/ICC"=616JJI/C
0"1*M2IOS.0F="M&J/I60"1*M2IOS/ZF(.)F="M&J+PZ.16)"1*M6I+P*(&2"=626JBI3TKA*(&1"=602J&I/ZF(.)F="M&J+TZ.16)"1*M6I+T*(&2"=626JRI/ZN(.)N="M&J+TZ.46)"4*M6I+T*(&5"=656JRI/ZZ(.)&="M&J/T60"6*M6IST+AB.56)"5*M6IST+AB.66)"3*M6IST+AB.76)"2*M6IST+AB.86)"1*M.ICP"=622J:I3
	E7GKE"=612J&I/ZF(.)F="M&J3C3A3L^ 7EOTY7M2J&I+F" 3S7Y2.WN..F72)BI3P?R3GGRM*M*IB 3C3A3LZ 3E3H*(&3"M&J7EOLE*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6 N(+Y;M+N;E"1&)3SI7ESN3I	FE7R*JBI* B 3C3A3LZ 3E3H*(&2"M&J2 V 3LWS"M&J* B 2 GC+LCL7GSE3S7Y"M&J2 V 3N	DF*M*IB +ICF6(	S3M:.
EF."1&)+""""*M*IB 2 N 3A3L2 WF+HL"96)*JBI2 3ES7E*JBI* B 3C3A3L^ 7EOTY7M*JBI2 ;E3D[I"M&J2 & +F" 3S7Y2.WN*.&12 BI3IWDN7T*JBI* B 3C3A3LZ 3E3H*(&2"M&J2 V 3LWS"M&J* B 2 W3IWL6 N(+Y;M+E;Q"1&)3SI7ESN"M&J* B * B 3BR=3D&(3D;ET6)*JBI* B 2 & +F:(7NSO*.	B2 T+ECN2IW7I
N3R
AE7N*JBI* B * B 2 	K3T7U6(+K3E
I+E3R.16)3IWDN7T*JBI* B * B 2 	K3T7U6(+K3E
I+E3R.26)"1*M2I.I7IWT3M.(3Z	E7GKE*,&3"=60"J&I7KSI+UM3KWZ3IWG/RR,.)B="M&J6I+K3E
I/E7R3KWZ3IWG/RF+"M&J* B * B 7EOLE*M2IJI2=	K3T7U2(;I7KSI+UM3IWD+N	T*,&26.GE".&13?I7PKA3AWM7TKE"M&J2I[I* :(7NSO*.	B2 TE7N"J&I2 N 3A3L2 GF3T3A.(B1"36)"J&I3ESNI7F*JBI* B 2 V 3N	DF*M*IB * B 2 GC+LCL7GSE3S7Y"M&J* B * B +ICF6(	S3MV./Q^.2)BI3K7OM7A"J&I3C3A3L^ 7E
TY7M"J&I+ICF6(	S3M:./EF.2)N 3A3L2 GF3T3A*(&2"M&J* B * B 3ESNI7F*JBI* B 3ESN3W	HL7E*JBI* B +IF3S7Y2.WN..B12)BI*"J)"M&J* B * B 3C3A3LZ 3E3H*(&4"M&J* B 2 3ES7E*JBI* B 2 N 3A3L2 WG7T	SM*M*IB 2 V 3N	DF*M*IB 2 & 7FN(+Y;M+N;E*2&32 BI";*M*IB * B 2 GC+LCL3FE/LF("4
)*JBI* B 7EOLE*M* B * BI* B 2 N 3A3L2 WG7T	SM*M*IB 2 V 3N	DF*M*IB 3ESNI7F2JVI3N	DF*M2IGC+LCL3E;I3K3E7LKE/NB(*,&1"M&J3C3A3LV 3I/N3E3L3E;R*(21"16)2JNI3A3L2 	E3NWK3LWL+RN.2F,")*M6L^I3H3I+E" 7GWP7NSK2.WN*.&0"M&J7GSO+O" .1F0.,B1.2F,*023.1R0.,B1*52)6 CG3U/NT*M.
F02I?C3N	T3NWU*IK3B
E+ICN+S:;*.B.3ESN2 WB3AKR".*M2IGC+LCL7AOU3K3E7LKE/NF(")*M2IGC+LCL3S3B3O/C"M&J7GSO/OF "969.JB122NI7OSN7IWN3EBI3B
E+ICN+OCF3DOE7LKA3A	TO7N2J&I7FN(+Y;M+E;Q*5&52IO7OONT*M*IB 3C3A3L^ 7EOTY7M*JBI2 W3IWL6(	S3MV./QF.2)BI3IWDN7T*JBI* B 3BR=3D&(3D;ET6)*JBI* B +ICF*(	B2 GC+LCL7FSA+AL.1F0")*M*IB 2 N 3A3L2 WG7T	SM*M*IB 2 & 7FN(+Y;M+E;Q*1&6*IK"=6"*JBI* B 2 N 3A3L2 WG7T	SM*M*IB 2
V 3LWS"M&J* B * B +IF3S7Y6.GE..R22)BI*"J:"M&J2IGC+LCL3FE/LF("66)"J&I3C3A3L^ 7EOTY7M*JBI* B 2 V 3LWS"M&J2IGC+LCL7FSA+AL*1&6"M&J* B * B 3ESNI7F*JBI* B 3ESNI7F*JBI* B +B"=3S7Y*<:2+O;R3S7Y*>&52.;A7DN.+Y;M+N;E26F.+N;D3S7Y2.WN".68*JBI* B +ICF*(	B2 GC+LCL7FSA+AL
1N8")*M*IB 2 . 7IWT3M.(3Z	E7GKE*,&12=SI7ESN"M&J* B 2 	K3T7U6(+K3E
I+E3R.26)"-61*JBI* B 3C3A3LN 7OON3T;AT*M*IB 2 . 7IWT3M.(3Z	E7GKE*,&2"=62*JBI* B 7KSI+UM3KWZ3IWG/RN,6)B=3U/N/TV(2)BI7TWA"M&J* B 2 	K3T7U6(+K3E
I+E3R.46)"0*M*IB 2 . 3Z	E7GKE6=+K3E
I+E/R"1*M*IB 2 & +F" 3KWZ3IWG3R^./EJ.*0&02 GC+LCL7FSA+AL.5B22)BI3KGMX*M*IB 2 N 3A3L2 WG7T	SM*M*IB 2 & 7FN(+YCM6.GE..J "3&)/."""*M*IB * B 2 GC+LCL7GSE3S7Y"M&J* B 2 3ES7E*JBI* B 2 & 7FN(+Y;M+E;Q"7&)+2"""*M*IB * B * B 3C3A3L^ 7EOTY7M*JBI* B * B 2 GC+LCL3FE/L
("46)*JBI* B 2 V 3N	DF*M*IB 2 V 3N	DF*M*IB 3ESN3W	HL7E2JVI3N	DF*M2I[I6 N(+Y;M+E;Q*7&6*IK7TCYE6"*JBI2 GC+LCL7GSE3S7Y"M&J6 ^ 3H3I+E" 3S7Y6.GE*.&12I	3D;ET*M*IB 2 J 2=SD2(SI7ESN")*M*IB 2 & +F" +BB)3C3A3LZ 3AGT/LF(*0&1"M&J* B 2 GC+LCL7GSE3S7Y"M&J* B 2 [I6 N(+Y
M+E;Q*1&6*IK3GWL3IC""*M*IB * B 2 GC+LCL7GSE3S7Y"M&J* B 2 3ES7E*JBI* B 2 & +F" 3S7Y6.GE..R2*)BI/*"""*M2INI3A3L2 WF+HL*1&6"M&J2IGC+LCL7GSE3S7Y"M&J* B * B 7EOLE*M2INI3A3L2 GF3T3A.(Z1")*M*IB * B 2 ;E3D[I"M&J* B 2 ;E3D[I"M&J* B 2 	K3T7U6(+K3E
I+E3R.16)3IWDN7T*JBI* B 7KSI+UM3KWZ3IWG/RJ,*)6="1*M*IB 2 . 3Z	E7GKE6=+K3E
I+E/R"1*M*IB 2 & 3F.(3Z	E7GKE2.WG..B2*0B)3C3A3LZ 3AGT/LV(*2&02I/7MA"M&J3C3A7LR 7KSI"M&J3C3A7LR 3SGTC7K*JBI* B 3C3A7LR 3YWP3NWD3KGL7RSA3I;O"M&J3C3A7LR 7KSI"M&J3C3A7LR 3SGTC7K*JBI* B 7KSI+UM3I/N+I20.26)23BI7TCYE*M*IB 3ESN3W	HL7E2JVI3N	DF*M2I[I6 N(+Y;M+E;Q*7
8*IK7VKA""*M*IB 3C3A3L^ 7EOTY7M*JBI2 W3IWL6 N(+Y;M+E;Q"1&)3SI7ESN"M&J* B . 7B+DD3IWD+N	T"M&J* B 2 [I2 J(2)N 3A3L2 GF3T3A.(B1"16)*JBI* B 7KSI+UM3KWZ3IWG/RF,2)&=3D;ET*M*IB 2 . 7IWT3M.(3Z	E7GKE*,&2"=&57Z"+AKR"M&J* B 6 +K3E
I/E7R3KWZ3IWG/RF+"M&J* B 2 [I2 .(3Z	E7GKE6.GE..B2*0B)3C3A3LZ 3AGT/LV(*2&02I/7MA"M&J* B 2 GC+LCL7GSE3S7Y"M&J* B 2 [I6 N(+Y;M+E;Q*2&4*IK":6"*JBI* B 2 N 3A3L2 WG7T	SM*M*IB 2 V 3LWS"M&J* B * B +ICF6(	S3MV./QF."6&)/6"""*M*IB * B * B 3C3A3LZ 3E3H*(&5"M&J* B * B
2 N 3A3L2 WG7T	SM*M*IB * B 2 3ES7E"J&I3C3A3LZ 3AGT/LV(")*M*IB * B 2 ;E3D[I"M&J* B 2 ;E3D[I"M&J* B 2 GC+LCL7TCY3ESN3E3K3AGR3T?IN*M*IB 3ESN3W	HL7E2JVI3N	DF*M.1N0.I7B3S7Y6.GE..J66.KO6.	S3MV./Q^."0*M2I[I2 J(2)^ 3O?T. B124BI3P?R3C> 7DKE6 WFN7T2J&I+F" 3S7Y6.GE.
N52)BI3B
EI7N*JBI2 GC+LCL7EOR7E+T+EN.1F,")*M2I3ES7E*JBI2 GC+LCL7FSA+AL*1&7"M&J3ESNI7F2J^I3O?T. &1"9*M.1R02I[I6 N(+Y;M+E;Q*6&22I[3UON3T?IN*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6 N(+Y;M+N;E*1B)3C3A3LZ 3AGT/LJ(2)BI3IWDN7T*JBI. 7B+DD3IWD+N	T"M&J2 & +F" +BB)2 GC+LCL7FSA+AL.1F0"
*M*IB 3I/N/I603KWZ3IWGR*M*IB 7KSI+UM3KWZ3IWG/RF,2)&=3D;ET*M*IB 7KSI+UM3KWZ3IWG/RJ,.)^="M&J2 . 3Z	E7GKE6=+K3E
I+E/R"1*M*IB +ICF6(+K3E
I+E;R+G;E.2B02)N 3A3L2 GF3T3A.(J5"0&)37KA7X*JBI2 GC+LCL7GSE3S7Y"M&J2 N 3A3L2 GP3R7A3EWT3R	L3SWT"M&J2 & +F" 3S7Y2.WN..R22)N 3A3L2 GF3T3A*(&5*IK":6"*JBI2 GC+LCL7GSE3S7Y"M&J2 & +F" 3S7Y2.WN*.&12 GC+LCL7FSA+AL"2&)3SI7ESN"M&J2 & 3N	K2=;I7KSI+UM3IWD+N	T"M&J2 & 
F" 3I/N+I: +E;Q*0B)3C3A3LZ 3AGT/LF(*0&4"M&J2 J 2=	K3T7U2(;I+K3I*2:)+N;E"3*M*IB +ICF*(	B2 GC+LCL7FSA+AL.1N0")*M*IB 7KSI+UM3I/N+I20.36)7KSI+UM3I/N/IN,")*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6 N(+Y;M+E;Q*2&3*IK";6"*JBI* B 3C3A3L^ 7EOTY7M*JBI2 3ES7E*JBI* B 3C3A3LZ 3E3
.(R1")*M*IB 2 & +F" 3S7Y6.GE*.&72 GC+LCL7GSE3S7Y"M&J2 V 3N	DF*M2I3ES	E7KP3OWC7DKUE*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6 N(+Y;M+N;E*1B)3C3A3LZ 3AGT/LJ(2)BI3IWDN7T*JBI. 7B+DD3IWD+N	T"M&J2 & +F" +BB)3C3A3LZ 3AGT/LF(*0&1"M&J2 . 7IWT3M.(3Z	E7GKE*,&12=SI7ESN"M&J2 . 7I
T3M.(3Z	E7GKE*,&2"=66*JBI6 +K3E
I/E7R3KWZ3IWG/RF+"M&J2 & +F" 3KWZ3IWG3RV./QJ.*0&02 GC+LCL7FSA+AL.5B22)BI3KGMX*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7PKA3AWM7TKE7LOIT7E*JBI2 [I6 N(+Y;M+E;Q*2&3*IK";6"*JBI* B 3C3A3L^ 7EOTY7M*JBI2 3ES7E*JBI* B 3C3A3LZ 3E3H.(R1")*M*IB 3ESNI7F2JVI3N	DF*M2IGC+LCL7N
E7L[EE7L2JNI3A3L6 KE7SSE3Z;E*(25"16)2JNI3A3L2 	E3NWK3LWL+RN.1F,")*M2I?G+TCO.1&9.MFJ"0&5+ICF6(	S3MV./QJ."36)*JBI2 GC+LCL7GSE3S7Y"M&J7EOLE*M*IB 3C3A3LZ 3E3H.(R1")*M2I;E3D[I"M&J3C3A3LV 3RWS3TWZ/NN(*,&1"M&J7GSO/OF "063.J&129NI7OSN7IWNE*M2I;E3DW3IWL"M2J2I[I6 N
+Y;M+N;E*2&12 GC+LCL3FE/LJ("2&)7WP7NSK6 KE7WKA7TSE"M&J+ICF2(WN+R;R+E;Q*0B)"M&J6 ^ 7RSI/EF(*,&7"M&J2 N 3A3L2 C3A;I6(B	7HOA+E^2")*M2I3ES7E*JBI2 GC+LCL3CGH+IN6	KE7RKO+M&	"M&J3ESNI7F2JNI3A3L2 OO7LOOE*M6ISSO7P2JVIN7D&J*L

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