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+LCL7ESN+ER3IWD+N3T
0B,*,&0"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* 
 2 ;E3D[I"M&J* B 2 ;I/KCI6=+K3E
I+E7R"1*M*IB 2 N 3A3L6 	T3P;E3D/E7LKA3A	TO7N*JBI* B 7KSI+UM3I/N+I20.26)23BI7TCYE*M*IB 2 & +F" 3S7Y6.GE..N22)N 3A3L2 WG7T	SM&I/."""*M*IB 3ESN3W	HL7E2JVI3N	DF*M2I[I6 N(+Y;M+E;Q*7&8*IK7VKA""*M*IB 3C3A3L^ 7EOTY7M*JBI2 GC+LCL3E;I3K3E7LKE/NB(*,&62IBI7ZSEA*M*IB 
W	H+LCE6(	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*,25.0B,2)BI7VKA"M&J* B 2 GC+LCL3A[U3ASD7IKE+EN.1Z,")*M*IB 2 N 3A3L2 WG7T	SM*M*IB 2 & 7FN(+Y;M+E;Q"7&)+2"""*M*IB * B 2 GC+LCL7GSE3S7Y"M
J* B * B +IF3S7Y2.WN*.&12 GC+LCL7FSA+AL"26)*JBI* B 7EOLE*M*IB * B 2 [I6 N(+Y;M+E;Q*2&4*IK":6"*JBI* B * B 2 GC+LCL7GSE3S7Y"M&J* B * B 7EOLE*M*IB * B * B +ICF6(	S3MV./QF."6&)/6"""*M*IB * B * B 2 N 3A3L2 WF+HL"56)*JBI* B * B * B 3C3A3L^ 7EOTY7M*JBI* B * B 2 
ES7E"J&I2 N 3A3L2 GF3T3A*(&5"M&J* B * B 2 V 3N	DF*M*IB * B 2 ;E3D[I"M&J* B * B 3I/N/I7V3KWZ3IWGR*M*IB * B 2 GC+LCL7TCY3ESN3E3K3AGR3T?IN*M*IB * B . 7M7KSI+UM3I/N+I7V.1N,")*M*IB * B . 7K3P;U+KT"6&)3WZT7A*JBI* B 2 N 3A3L6 KE7SSE3Z;E*(20"66)*JBI* B 2 R /OF *1
1/IF=",7K"J&I3I/N/I7V3I/N+I7V"1*M.1F1*IB * B 2 	K3T7U2(;I7K[I*,&3"=7M*JBI* B 2 & 7FN(+Y;M+E;Q*2&32 GC+LCL7GSE3S7Y2IBI*"J;"M&J* B 2 ;E3D[I"M&J2 V 7N
D3H3IE*M*IB 3C3A3LF 3U/S3E3L3E;R*(&6"M&J3ESNI7F.JB123JI6=	S3MV./QZ.22>.7RN.+Y;M+E;Q"7602J&I+F" +BB)7GSO/OF "0&47KP+OCC3OWD3RZ 7USN"M&J+ICF6(	S3MV./QV."3&)3WB3G;I"M&J2 N 3A3L6 KE7SSE3Z;E*(21"16)2JVI3LWS"M&J2 N 3A3L2 GF3T3A.(^1")*M2I;E3D[I"M&J7GSO/OF "969.J
124&I+F" 3S7Y6.GE..J62)BI3F;U3C	TO7N*JBI2 GC+LCL7GSE3S7Y"M&J2 & +F" 3S7Y2.WN*.&12 GC+LCL7FSA+AL"2&)3SI7ESN"M&J2 J 2=SD2(SI7ESN")*M*IB +ICF*(	B2 N 3A3L2 GF3T3A.(B1"16)*JBI2 ;I/KCI6=+K3E
IE7R*JBI2 GC+LCL7ESN+ER3IWD+N3T.7B,*,&0"M&J2 N 3A3L2 WG7T	SM*M*IB 3C3A7LB 3AGR7MSE3E3R7ISSE*M*IB +ICF6(	S3M:./EJ.*4B)3C3A3LZ 3AGT/LV(2)BI*"J:"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3M:./EF.2)N 3A3L2 GF3T3A*(&22I	3D;ET*M*IB 3I/N3I&=3N	K3T7U2(SI7ESN")*M*IB +ICF2
;I+KCI6.GE*.&02 GC+LCL7FSA+AL.1R0")*M*IB 3B.=7IWT3M&(3N	K*,&22.WN".63*JBI2 [I2 J(2)N 3A3L2 GF3T3A.(B1"36)*JBI2 	K3T7U2(;I/KCI*,&32=	K3T7U2(;I+K3I"36)*JBI2 GC+LCL7GSE3S7Y"M&J2 & +F" 3S7Y6.GE..N22)BI*"J;"M&J* B 2 GC+LCL7GSE3S7Y"M&J2 V 3LWS"M&J* B 2 GC+LCL3F
/LF("46)*JBI* B +ICF6(	S3MV./Q^.2)N 3A3L2 WG7T	SM*M*IB 3ESNI7F2JVI3LWS6IC3ROO7EWDR7E*JBI2 GC+LCL7GSE3S7Y"M&J2 & +F" 3S7Y2.WN*.&12 GC+LCL7FSA+AL"2&)3SI7ESN"M&J2 J 2=SD2(SI7ESN")*M*IB +ICF*(	B2 GC+LCL7FSA+AL.1F0")*M*IB 3C3A3LV 3NWT3R&(3D;E/TZ,*,20"06)*JBI2 
C+LCL7GSE3S7Y"M&J2 N 3A3L2 GP3R7A3EWT3R	L3SWT"M&J2 & +F" 3S7Y6.GE..N22)BI*"J;"M&J* B 2 GC+LCL7GSE3S7Y"M&J2 V 3LWS"M&J* B 2 GC+LCL3FE/LF("46)*JBI2 ;E3D[I"M&J3ESNI7F2JNI3A3L2 WN3WWL3V3E"M&J3C3A3LV 3RWS3TWZ/NV(*,&1"M&J3C3A3LV 3I/N3E3L3E;R*(22"16)2J^I3O?T. &1
9*M.1V02I[I6 N(+Y;M+E;Q*2&3"M&J2 N 3A3L2 WG7T	SM*M2I3ES7E*JBI2 GC+LCL3FE/LF("46)2JVI3N	DF*M2IGC+LCL7EOR7E+T+EN.3F,")*M.1&92I?C3N	T3NWU"M&J3ESN3W	HL7E"J&L+ICF6(	S3M:./EJ.*1B)3C3A3LZ 3E3H.(J22)BI3P;U+KCT7E
R7ASRE7T2JNI3A3L2 OO7LOOE*M2I[I2 :(7EKR6.GE*.&0" *M*IB 3W	R+TE.1^,")*M*IB 3C3A3LZ 3AGT+L6("16)2JVI3LWS"M&J2 N 3A3L2 C3A;I2(V	3R?R+R
M")*M2I;E3D[I"M&J3ESN"M2JBZ

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