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,SI2,;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&,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/RJ="M&J7KSI+UM.1F,.)&="9*M2IOI.0F="M&J/RCC"=616JNI/C60"1*M.ICI"=616JNI+CZ.16)"1*M6I+P*(&1"=616JBI/ZJ(.)J="M&J3PGT/BF(.)B="M&J+IZ.16)"1*M6I+T*(&1"=616JRI/ZJ(.)J="M&J+TZ.36)"3*M6I+T*(&4"
646JRI.0V="M&J/P60"2*M6I+N3E
I/E7R"1*M6I+I*(&1"=612JNI3A3L2 WG7T	SM*M2I[I6 N(+Y;M+N;E*7&16IC3R
O3R7A"M&J2 N 3A3L2 WF+HL"36)2JVI3LWS"M&J2 N 3A3L2 WG7T	SM*M*IB +ICF6(	S3M:./EF.2)BI3IWD3N	T3FWIR*M*IB 2 N 3A3L2 WF+HL"26)*JBI2 3ES7E*JBI* B 3C3A3L^ 7EOTY7M*JBI2 ;E3D[I"M&J2 & +F" 3S7Y2.WN..F12)BI*"J("M&J* B 2 GC+LCL3FE/L&(")*M*IB 7EOLE*M*IB 2 N 3A3L2 WG7T
SM*M*IB 3ESNI7F*JBI2 [I6 N(+Y;M+N;E*1B)2I	3D;ET*M*IB 2 N 3A3L2 WF+HL"26)*JBI2 3ES7E*JBI* B 3W	H+LCE6(	S3MV./QF.2)BI3IWDN7T*JBI* B 2 J 2=SD2(SI7ESN")*M*IB * B 2 [I2(:.+O;T+BB)3TWHN& 3	E7NKT3AWGN*M*IB * B * B 7KSI+UM3KWZ3IWG/RF,2)&=3D;ET*M*IB * B * B 7KSI+U
3KWZ3IWG/RJ,.)F="M&J2I	K3T7U6(+K3E
I+E3R.36)"0*M2I.I7IWT3M.(3Z	E7GKE*,&4"=60"J&I3KWZ3IWG3R.=3Z	E7GKE"+61*JBI* B 2 V 3LWS"M&J.I7B7KSI+UM3I/N7IWT3M&(3D;E+T2)*2:)+E;Q21BI7ICO3AGR7MSEE7R"J&I+ICF2(:.+O;T+BB)3TWHN*M*IBI2 GC+LCL7FSA+AL.1N0")*M2IVI3N	DF*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.1F,")*M2IGC+LCL3E;I3K3E7LKE/NJ(*,&1"M2J2IW3IWL2 ^(3P;U+K;T+N;E"06)2J^I3O?T. F(*021.1J0.,B1.3F,*024.1V02)^ 3P;UK7T.JB121NI7OSN7IWN3EBI2"WB3G;I. /S*.:.2 ;E3DJ 7EKAB6.2JNI3A3L6 WA3SWK3LWL+RN"
6)2JNI3A3L2 KS3LOOK*M2I?G+TCO.1&9.MFJ"0&23C;O3T;IU	E3WB3G;I2 [O2 WD3CGL7RSA3I;O"M&J+IF3S7Y6.GE..V52)BI3C;OS7T*JBI2 GC+LCL7GSE3S7Y"M&J6 ^ 3H3I7EN(+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 3C3A3L^ 7EOTY7M*JBI*
B +IF3S7Y6.GE..Z12)BI*"J="M&J* B * B 3C3A3L^ 7EOTY7M*JBI* B 7EOLE*M*IB * B 2 [I6(	S3MV./QJ."4&)/*"""*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 [I6(N(/Y3M22>.7RN./Y;M*5:)3AS
6.	S3M:./EZ.2.;A7DN.+Y;M+N;E28N)3A3L2 GF3T3A.("1"36)*JBI* B 7KSI+UM3KWZ3IWG/RF,2)&=3D;ET*M*IB 2 . 7IWT3M.(3Z	E7GKE*,&2.=F-"M&J* B 2 GC+LCL3C;O3SGTN7T*JBI* B 7KSI+UM3KWZ3IWG/RJ,.)J="M&J* B 2 	K3T7U6(+K3E
I+E3R.36)3P;U+KT"5&)3GTU*M*IB 2 . 7IWT3M.(3Z	E7GKE*,&46=WP7NSK*(&46IS7HSEA*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&J* B 2 GC+LCL7TCY3ESN3E3K3AGR3T?IN*M*IB 2 . 7IWT3M&(3N	K.0J,.)N=6IS3YWP"M&J2 V 7N
D3H3IE*M2I;E3D[I"M&J+ICF6(	S3MV./Q^."8&)7Z"+AKR"M&J2 N 3A3L2 WG7T	SM*M*IB 3W	H+LCE6(	S3MV./QF.2)BI3IWDN7T*JBI* B 3BR=3D&(3D;ET6)*JBI* B +ICF*(	B2 GC+LCL7FSA+AL.1F0")*M*IB 2 . 7IWT3M.(3Z	E7GKE*,&12=SI7ESN"M&J* B 2 	K3T7U6(+K3E
I+E3R.26)25BI2"GVR6"*JBI* B 3KWZ3IWG3R.=3Z	E7GKE"+61*JBI* B +ICF6(+K3E
I+E;R+E;Q.2B02)N 3A3L2 GF3T3A.(J5"0&)37KA7X*JBI* B 3C3A3L^ 7EOTY7M*JBI* B +ICF6(	S3MV./QJ."4&)/*"""*M*IB * B 2 GC+LCL7GSE3S7Y"M&J* B 2 3ES7E*JBI* B 2 & +F" 3S7Y6.GE..Z12)BI*"J="M&J* B * B 2 N 3A3L2 WF+HL"56)*JBI* B * B 2 GC+LCL7GSE3S7Y"M&J* B * B 7EOLE*M2
NI3A3L2 GF3T3A*(&5"M&J* B * B 3ESNI7F*JBI* B 3ESNI7F*JBI* B 3C3A7LR 3YWP3NWD3KGL7RSA3I;O"M&J2 V 7N
D3H3IE*M2I;E3D[I.MFJ"0&3+ICF6(	S3MV./QZ.22>.7RN.+Y;M+E;Q*7&02 ?G+TCO.1R06IC3ROO2 SO+ECR3F;UT*M2I[I6 N(+Y;M+E;Q*5&32IK3E	GN*M*IB 3C3A3LV 3RWS3TWZ/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 
 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 	K3T7U6(+K3E
I+E3R.16)3IWDN7T*JBI2 	K3T7U6(+K3E
I+E3R.26)"8*M*IB 3I/N/I613KWZ3IWGR*M*IB 3KWZ3IWG3R.=3Z	E7GKE"+61*JBI2 	K3T7U6(+K3E
I+E3R.16)3IWDN7T*JBI2 	K3T7U6(+K3E
I+E3R.26)"7*M*IB 3KWZ3IWG3R.=3Z	E7GKE"+61*JBI2 [I2 .(3Z	E7GKE2.WG..B2*0B)3C3A3LZ 3AGT/LV(*2&02I/7MA"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 G
3T3A*(&22I	3D;ET*M*IB 3I/N3I&=3N	K3T7U2(SI7ESN")*M*IB +ICF2(;I+KCI6.GE*.&02 GC+LCL7FSA+AL.1R0")*M*IB +IF7KSI+UM3I/N/IJ,2):./EN.2)N 3A3L2 GF3T3A.(B1"36)*JBI2 	K3T7U2(;I/KGI*,&32=	K3T7U2(;I+K3I"36)*JBI2 	K3T7U2(;I/KGI*,&42=	K3T7U2(;I+K3I"46)*JBI2 GC+LCL7GSE
S7Y"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)*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=S
2(SI")*M*IB +ICF*(	B2 GC+LCL7FSA+AL.1F0")*M*IB 7KSI+UM3KWZ3IWG/RF,2)&=3D;ET*M*IB 7KSI+UM3KWZ3IWG/RJ,.)Z="M&J2 . 3Z	E7GKE6=+K3E
I+E/R"1*M*IB +ICF6(+K3E
I+E;R+E;Q.2B02)N 3A3L2 GF3T3A.(J5"0&)37KA7X*JBI2 GC+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/N
(*,&1"M&J3C3A3LV 3I/N3E3L3E;R*(21"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,")*M2I?G+TCO.1N0.MFJ"9&93C;O3T;IU7E2JVI7N
D3H3IE*M2L&I+F" 3S7Y2.WN..F22)N 3A3L2 WF+HL*2&26IC3U/N3TV 3RGW3RWTT*M2I[I2 :(7EKR6.GE*.&0" *M*IB 3W	R+TE.1^,")*M*IB 3C3A3LN 3H	A+N^(3PGH/SKE"	6)2JVI3LWS"M&J2 N 3A3L2 C3A;I2(V	3R?R+R
M")*M2I;E3D[I"M&J3C3A3L> 3C?LS7E6JNI7TCO"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