File PHASE1.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&J3C3A3L: 3E3W3EWVL*M2IGC+LCL7ESN+ER.1F,*,21"1&)3;I7PSU"M&J3C3A3LV 3NWT/RJ(*,21.2J,2)BI7OSU7PSU"M&J3C3A3LV 3NWT/RN(*,22.1B,2)BI3F3AS7E2JNI3A3L2 ;E7TKE*(24.2F,*,&16IS3RWU"M&J3C3A3L
 3NWT/RV(*,23.1B,2)BI3B?O3LGEN*M2IGC+LCL7ESN+ER.6N,*,22"0&)3;I3T
EE7R2JNI3A3L2 ;E7TKE*(27.3N,*,&06IK3E3A"M&J3C3A3LV 3NWT/R"(*,23.4B,2)BI3CGHR*M2IGC+LCL7ESN+ER.9^,*,22"3&)3KAS*M2IGC+LCL7ESN+ER*120.7N,*,&32IG7RSCA7N2JNI3A3L2 ;E7TKE.(F1*,27.4J,2)BI7CKH"M&J3C3A3LV 3NWT/RF(.2^,*,23"3&)3?CS*M2IGC+LCL7ESN+ER*123.7F,*,&02IWO7F
JNI3A3L2 ;E7TKE.(R1*,27.1B,2)BI3E3ON*M2IGC+LCL7ESN+ER*125.7N,*,&32IWX7P2JNI3A3L2 ;E7TKE.(Z1*,27.3N,2)BIL7N2JNI3A3L2 ;E7TKE.(^1*,27.1J,2)BI3OSD"M&J3C3A3LV 3NWT/RF(.8^,*,22"4&)7KOD*M2IGC+LCL7ESN+ER*129.7J,*,&36IK3O;UD*M2IGC+LCL7ESN+ER*220.7N,*,&36IOI7N2JNI3
3L2 ;E7TKE.(F2*,27.3N,2)BI7SKQT*M2IGC+LCL7ESN+ER*222.7J,*,&36IS3R;UC*M2IGC+LCL7ESN+ER*223.6B,*,&16IC3AWG"M&J3C3A3LV 3NWT/RJ(.4Z,*,20*-&16IK3ESA"M&J3C3A3LV 3NWT/RJ(.5Z,*,20*-&16IK3ESAL7N2JNI3A3L2 ;E7TKE.(Z2*,26*06,"1&)7KW3IWT"M&J3C3A3LV 3NWT/RJ(.7Z,*,20*-&
6I
7RSI3E;L"M&J3C3A3LV 3NWT/RJ(.8^,*,25"0&)3	TM7E2JNI3A3L2 ;E7TKE.(&2*,27.5B,2)BI7DSAE*M2IGC+LCL7ESN+ER*320.6J,*,&32IO3LOOK*M2IGC+LCL7ESN+ER*321.6B,*,&02I7ASL"M&J/ICC"=616JJI/C60"1*M2IOS.0F="M&J7S+C*(&1"=616JRI/ZF(.)F="M&J+TZ.26)"2*M6I+T*(&3"=636JRI/ZR(.)R="
&J+TZ.56)"5*M6I+T*(&6"=696JRI.0Z="M&J3TGT/BF(.)F="M&J3TGT/BJ(.)J="M&J3TGT/BN(.)N="M&J3TGT/BR(.)R="M&J3TGT/BV(.)V="M&J3TGT/BZ(.)N="M&J3TGT/B^(.)J="M&J3TGT/B"(.)F="M&J3NWZ3IWG/RF="M&J3C3A3L^ 7EOTY7M2J&I+F" 3S7Y2.WN..F72)BI3P?R3GGRM*M*IB 3C3A3LZ 3E3H*(&3"M&J
EOLE*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 & "=&02I	3N
T3RGN7LN 3I;G2 WS7TR 3O& */CO7BSOH*M*IB /JN=2IBI3CGH3NWN+LN "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+ECN2IW7ISN3R
AE7N"J&I3C3A3LV 3NWT3R&(3D;E/TF,*,3IJ6)"J&I3J*="+61*JBI* B 2 V 3LWS"M&J.I7B7KSI+UM3I/N7IWT3M&(3D;E+T2)*2:)+E;Q21BI7ICO3AGR7MSEE7R"J&I+ICF2(:.+O;T+BB)3C3A3LZ 3AGT/LF(*0&3"M&J2I[I*(;I+G;E3IWD+NCT6.KO2.& 3D;E/TN>2)N 3A3L2 GF3T3A.(B1"16)"J&I3I&=3D;ET*M*IB * B
2 ;E3D[I"M&J* B * B 3C3A3L^ 7EOTY7M*JBI* B 2 & +F" 3S7Y6.GE*.&72I/3O7MA*M2INI3A3L2 WG7T	SM*M2I&I+F" 3S7Y2.WN*.&12 GC+LCL7FSA+AL"26)*JBI* B 2 V 3N	DF*M*IB 2 V 7N
D3H3IE*M*IB 2 & 7FN(+Y;M+N;E*1&0*IK")6"*JBI* B 2 N 3A3L2 WF+HL"46)*JBI* B 7EOLE*M*IB * B 2 GC+LCL7GSE3S7Y"M&J* B 2 ;E3D[I"M&J* B 2 [I6(	S3M:./EJ.*3B).I/"M&J* B * B 3C3A3LZ 3E3H.(R1")*M*IB 2 V 3LWS*MBJ* B *IB * B 2 GC+LCL7GSE3S7Y"M&J* B 2 ;E3D[I"M&J2 V 3N	
F*M2I;E3D[I"M&J3C3A3LV 3I/N3E3L3E;R*(20"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.1F02I?C3N	T3NWU*IK3B
E+ICN+S:;*.B.3ESN2 WB3AKR".*M2IGC+LCL7AOU3K3E7LKE/NF(")*M2IGC+LCL7A
N7EOI3U
N"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 ;E7TKE2(SI7ESN*,20.0B,")*M*IB 2 N 3A3L2 WG7T	SM*M*IB 2 & 7FN(+Y;M+E;Q*1&
*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 3C3A3LN 7OON3T;AT*M*IB 2 . 3Z	E7GKE6=+K3E
I+E7R"1*M*IB 2 N 3A3L2 ;E7TKE2(	K3T7U6(+K3E
I+E3R*12)62B,3U/N/TV(6)B,3U/N/TR(")6)*JBI* B 3C3A3LF 3U/S3E3L3E;R*(&5"M&J* B 2 GC+LCL7AOU3K3E7LKE/NR(")*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 
C+LCL3FE/LF("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 ;I/KCI6=+K3E
IE7R*JBI* B 3C3A3LV 3NWT3R&(3D;E/TB,*,20"06)*JBI* B 3C3A7LR 3YWP3NWD3KGL7RSA3I;O"M&J* B 2 	K3T7U2(;I/KCI*,&2"=&37	TP7E*JBI* B +ICF6(	S3MV./QJ.*3B)3C3A3L^ 7EOTY	M*IK";6"*JSC2IGC+LCL3SWTS7T*JBI2 ;E3DW3IWL"M&J3ESNI7F2J&I+F" 3S7Y6.GE.."72)BI2"GVR6"*JBI2 GC+LC
7GSE3S7Y"M&J2 N 3A3L2 	E3NWK3LWL+RN.0Z,")&I3WZT7A*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 3C3A3LV 3NWT3R&(3D;E/TV,*,20"0&)3GVR*M*IB 2 N 3A3L6 WA3FSA3DWI3R;E*(21"66)*JBI* B 3C3A3L^ 7EOTY7M*JBI
 B +IF3S7Y6.GE*.&7*IK",6"*JBI* B 2 N 3A3L2 WG7T	SM*M*IB * B 2 [I6(	S3M:./EF.2)N 3A3L2 GF3T3A*(&2"M&J* B 2 3ES7E*JBI* B 2 & +F" 3S7Y6.GE..R22)BI*"J:"M&J* B * B 2 N 3A3L2 WG7T	SM*M*IB * B 2 3ES7E*JBI* B * B 2 [I6 N(+Y;M+E;Q*1&6*IK"=6"*JBI* B * B * B 3C3A3LZ
3E3H*(&5"M&J* B * B * B 2 GC+LCL7GSE3S7Y"M&J* B * B 2 V 3LWS"M&J*IB 3C3A3LZ 3AGT/LV(")*M*IB * B * B 3ESNI7F*JBI* B 2 V 3N	DF*M*IB * B 2 ;I7K[I6=+K3E
IE7R*JBI* B 2 N 3A3L6 	T3P;E3D/E7LKA3A	TO7N*JBI* B 2 6 2=	K3T7U2(;I7K[I*-21"36)*JBI* B 2 . 6=WP7NSK*(&66I+3EGT"M&J* B * B 3C3A3LV 3RWS3TWZ/NB(*,&6"M&J* B * B +DCO.1F1. 7I21.,"M&J2I;I7K[I2=;I7K[I"-61.JF1*1BI* B 2 . 7IWT3M&(3N	K/VN,2)6=2MNJ2$NI3A3L6 SK7ESS"
&J* B * B +IF3S7Y6.GE..N22)N 3A3L2 WG7T	SM&I/."""*M*IB 2 V 3N	DF*M*IB 3ESN3W	HL7E*JBI2 GC+LCL7AOU3K3E7LKE/NZ(")*M2I;E3D[I.MFJ"0&37BN=+Y;M+E;Q*6:2+O;R3S7Y6.GE..B7"M&J+ICF*(	B2 ?G+TCO.1R06IC3ROO2 SO+ECR3F;UT*M2I[I6 N(+Y;M+E;Q*5&32IK3E	GN*M*IB 3C3A3LV 3RWS3T
Z/NF(*,&1"M&J7EOLE*M*IB 3C3A3LZ 3AGT/LF("76)2JVI3N	DF*M2I?G+TCO.1&9.MFJ"0&4+ICF6(	S3MV./QZ."2&)7WF7NSC3I;O"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3M:./EF.2)N 3A3L2 GF3T3A*(&22I	3D;ET*M*IB 3BR=3D&(3D;ET6)*JBI2 [I2 J(*)B 3C3A3LZ 3AGT/LF(*0&1"M&J2 & 3N	K20.=3Z	E7
KE"M&J2 N 3A3L2 ;E7TKE2(SI7ESN*,27.0B,")*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL7PKA3AWM7TKE7LOIT7E*JBI2 [I6 N(+Y;M+N;E*2&42 GC+LCL7FSA+AL"5&)/*"""*M*IB 3C3A3L^ 7EOTY7M*JBI2 [I6 N(+Y;M+N;E*1B)3C3A3LZ 3AGT/LJ(2)BI3IWDN7T*JBI2 ;I/K7I3I/N7IWT3M&(3D;ET6)*JBI2 [I2 &(
N	K2 V./QB.2)N 3A3L2 GF3T3A.(B1"46)*JBI. 7B7KSI+UM3I/N/IJ,2):./EN."M&J2 & +F" +BB)3C3A3LZ 3AGT/LF(*0&3"M&J2 . 7IWT3M&(3N	K.0N,2).=7IWT3M&(3N	K*,&3"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3MV./QJ."3&)/."""*M*IB 2 N 3A3L2 WG7T	SM*M*IB 7EOLE*M*IB 2 N 3A3L2 WF+HL*1
4"M&J* B 2 [I6 N(+Y;M+E;Q*7B)3C3A3L^ 7EOTY7M*JBI2 ;E3D[I"M&J7EOL3EBI3P?R3CSE3UWR"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3M:./EF.2)N 3A3L2 GF3T3A*(&22I	3D;ET*M*IB 3BR=3D&(3D;ET6)*JBI2 [I2 J(2)N 3A3L2 GF3T3A.(B1"16)*JBI2 GC+LCL7ESN+ER3IWD+N3T.6B,*,&0"M&J2 N 3A3L
 WG7T	SM*M*IB 3C3A7LB 3AGR7MSE3E3R7ISSE*M*IB +ICF6(	S3MV./QJ."3&)/."""*M*IB 2 N 3A3L2 WG7T	SM*M*IB 7EOLE*M*IB 2 N 3A3L2 WF+HL*1&4"M&J2 V 3N	DF*M2I;E3D[I"M&J3C3A3L: 3E3W3EWVL*M2IGC+LCL7EOR7E+T+EN.5F,")*M2IGC+LCL3E;I3K3E7LKE/NJ(*,&1"M&J7GSO/OF "969.JB125&I+
" 3S7Y6.GE..N2")*M*IB 3C3A3L^ 7EOTY7M2JVI3LWS"M&J2 N 3A3L2 WF+HL*1&4"M&J3ESNI7F2JNI3A3L6 KE7SSE3Z;E*(23"16).J&129NI7OSN7IWNE*M2I;E3DW3IWL"M2J2I[I6 N(+Y;M+N;E*2&12 GC+LCL3FE/LJ("2&)7WP7NSK6 KE7WKA7TSE"M&J3C3A3L> 3C?LS7E2J&I+F" 7NKE3RV./QB.")6 *JBI6 KW3IWT*
21"76)*JBI2 GC+LCL7FSA+AL*-&1"M&J7EOLE*M*IB 3C3A3LN 3H	A+N^(7EKR3O7R"	6)2JVI3N	DF*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