File PHASE0.FT (FORTRAN source file)

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

+CB 7POA3C3A*-CS7PKA7SKE6 Z 7EOR3I;O2 ?V/MJ .0F..2"."0*M2I?C3M?M3N: 7EKR2,WI7ROR2,OL2,OI3CR,+I3N3F;I2,OI3H2,3L2,3IWN"M&J3C7O3M;O6 OI+Y3M3L;E6,
I3OSR6,CI3O;I3T&,3D&,A7L2JNI3O7M+OCN3N7A3E&,3RWZ+I3G3LWZ+I3G7MA2,3I6,OI3TKA"M&J3C7O3M;O2 GM+X3E3M;I3E.,7MA2,7N+A3X7IS2,3L3E
N6,OI3L;E3G&,3SGMX*M2I	D3M;E3S?I3N2 3IWN.(B82)2,3Z	E/GJ(*0&06,KI3Z	E/GJ(*0&02,GN+ME.2B0.,B1")*M2I	D3M;E3S?I3N& 7WKO/DJ(.9F,*02)3I?P7ISN.(Z2*,&22,SI.(B12)2,+EN*2&9"M&J3D7I7EON3I;O2 WI7ROR.(F6*,&36,OI3TKA.(B6*02)3IWZ+IL*4&0"M&J7I	S"=602J&I3RWZ+IG.16)"-612J2
3Z	E/GF(*)6="1*M2IGM/XB="M&J7NKE/RB="M&J3LWL/N7G"7622J&I3SGM/XZ="0602J6I3AWX.=&9"M&J3M;I+E6="9692J.I7MA"=642J:I7MA.=B2"466*JCC2 	E3NWL3S;E2 WD7RN 3C3H7UOE3S3E3WWO3RWTR*M2IGI/LF="0*M2IGC+LCL7ICO+EN6		S+S2	2	?W+R
D")*M2I?D* B5/IF=.,&2"M&J3RGE/DR(*,&66(
I3OSR*(3I+J2)/JF=.,B1")*M26ZI3O7R+AT21F0"16)*JCC2 GL3E
N3ER +ECR3SC3LWU3SWS3L?W7ESR+ECR7BOE3T7I3M;E"M&J/I7L3I3A.MRJ25&I3F&(7WKO3D&(2,3I.)J+.0Z1.)^4.,Z4.,^4.MRJ26&I3L&=/LF-"M&J7GSO/OR "5*M"4&73L;E*(	I2=3I.MVJ2I?C3N	T3NWU"M&J3RGE/DR(.,F12)&(3P	O+NT/IF,2)&,*=21*2&6"M&J3RGE/DR(.,F12)&(3P	O+NT/IJ,2)&,*=21*2&6.MFJ2
ZI3O7R+AT22&6"26)2JRI/OJ 20& *=21"3616JJI3ESA*(24*2&12(SI*(	J.,7J.1F,"06).JF22I?F3RGM/TF(.0GA")*M2IGC+LCL3N7AL7I.JB22I?C3N	T3NWU"M&J3W	R+TE.1F,*1&5.MFJ"1&57FKO7MSA6(B	3AOS+A7L7SB 7AOR+ECR7VKE3S?I7NZ +OCM*2:0*1:2*8^0")*M2IWR+AD.1F,*1&03D;I.MFJ"1&07FKO7MSA2
&	7NWP3TR 3E	V/C+E.	[A")*M2IWR+AD.1F,*1&13F;I.MFJ"1&17FKO7MSA2(&	7NWP3TZ 3IWL3N7A+E^:+A&6"M&J3C3A3L& 3OWP3NR(+I3N3F;I")*M2IGC+LCL7OCO+EN6		S+S2	6	OP+F
T")*M2IOL"=602J2I3IWN.(B8*)6=.2F0"6*M2IOI/C"="0*M2I3L.=B8"M&J3IC.=J-.0Z1.MFJ"2&07IOV/Y7M7I	SM*M6IOI/XF="M&J3C3A3L^ 7EOTY7M2J&I3F&(3S7Y*-&1.1N2.,J1.2F,"263.JJ162^I7RSI/ER(.,F221&)3S7Y"M&J3C3A3L: 3A3MI*M.1N22I[I6(OI/XJ)*122.2B0.,F2"2*M.2J16IKW3IWT*(24.2F16)
IY7M.JB220NI7OSN7IWNE*M.2F12I?F3RGM3T&(*4^,* &	"M&J+IF7I	S/MJ-.1F)*220.1B3.,J1"0*M.1B32I[I6([I3S7Y.-B6.)J1.0F,*325.1B2.MFJ"3&53C3A3L> 3C?LS7E2J&I+F" 7NKE+RB). B1*020.1B0.0F,.2B0.MFJ.0B06IKW3IWT*(21"16)"J&17FKO7MSA6(B	7HOA/EB 2 O+NCE3FE7LKE"	6)2JNI3A3L2 C3
;I6(B	7HOA+E^1")*M.1B220NI3A3L2 C3A;I2(V	3R?R+R
M")*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