File TKDASH.FT (FORTRAN source file)

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

* B * B 3SKU7RWO3T;I7ER 3KGD+SH+I3X+I	Y*MBJ* B 2 R 3IWM3N	S+OCN3DGT+BL*1&06,V *(&96,^ 3O/R.(B12)&,3S7I+HD"46)*JB * B 2 ?C3M?M+N> 7TSK7RN6/R 3M;I+V3X3T	M7N	V2,7T7A[X7XR,7MA+V3Y3TWR7AL6,KT3E3AY6,*JB * B 61R 3IGM+G3X3T7I7A	G6,KT7COO7FR,3R	S+N3F7TOR3C3A6,KT3F
A7XR,3RGF+C3Y*MBJ* B * B27TCR/AGR6,KT7PKA62R,3RGP+R237TCR/ASR6,KT7PKA65R,3RGP+R263K?M3F
L*(&86,CK/AKD",*M* B . N 2 KK3ASU3R.,3G[N+L3G7KKG3A3F2,K3OWM3Y.,3K?M+D3E3K?H7R+S6,[K7EOR3Z.,3T3B+S3Z*MBJ* B * B43K	S3Z[E2,3K3M
R3N.,7RKM+G3N3KGF7CKT6,SK3E7R2,3K3IWN6,+K3A	X3S.,3BGE+M3X3KWB7A	M",*M* B . V 2 7K3OWV3F.,3PC+AR*52)3KGD7SSH2,7K7ION3X.,3M;I+S3Y3KGM7XS2,7K7AOX3Y.,3EOY+O3N*MBJ* B * B63K;I7LSF2,?K3T[L3T.,3U	NT*M* B * B 7DSA3A& 3S7I+HD*1&)6,OI3IM/DJ(2)&,3S7I+HD*32)3I	S3MSH*
&4./J1.,F3.2J1.,J3.,J5"/*M* B * B 7DSA3A& 7D	T+P?E*->1*MBJ* B 2 R 3AGT* U*12)/UJ(6)V,*(&3*,U*42)/UV(.)V/*.6,*52.*1:0.,F-*02.*2:5"/*M* B * B 7DSA7AV *(&6*,U*72)/U"(6)V,*(&9./J-*52.*5:0.,V-*02.*0>.*MBJ* B 2 R 3AGT2 GL7ST2,GL7S	T./F-.,F-"/*M* B * B +IF3KGD7S
H2 2.+TB.20^)7OR /ON "260*JCC6*N +ECT7TKE3M;I+ACL7FKO2 GH7R
D3AWR2 GD3SWH3D2 3IWNS*M+C* 2 T+ICS3SOE3T?I3N& 3SZ +OCR.4F024V 3NGH3NWCD*M* B * B +IF3KGD7SSH2 ^.+TB.24^)7OR /OF "061*JB * B 2 [I6(SK3E7R2 ^.+EB.23^)7OR /OF "063*JB * B 2 [I2(SK3AS+T: +E;Q* &0+GCO+TCO.3B32MNJ* B*7HKA3DGW+RCE7DOA7HN 7IWM7LSA3I;O2 ?F7RR 3YW
* B1.&J 2 WT3R	M3N3AS*M* B * B 3KGD7SSH6=OI3IM3D.(7DOA+H	T.MFJ*0B12 & 3F.(3L;I+E: +E;Q* &0+GCO+TCO.1R0*MBJ* B 2 . 3L;I/EB=*MBJ* B 2 N 3A3L6 
C3S;ED*M* B * B +GCO+TCO.1R02MNJ* B*7SSE2 ;A7DR 3R;A3S	M3T" 3ASR7WKA3ER 3AS2 ?CD7E.JB1*3B 2 [I2(3K3IWN2 V.+QB.3KGD7SSH2)?G2 ?T. N3"0*M* B * B 3K	L/N7E3KGD7SSH*MBJ* B 2 N 3A3L6 
C3S;ED*M* B * B +GCO+TCO.3B3.MFJ*0B42 N 7OSN7IWNE*M* B * B +IF3KGD7SSH2 V.+QB.20^)7OR /ON "360*JB * B 2 [I2(SK3AS+T: +E;Q2 SI7TCY3E^)7OR /OF "760*JCC2*J 3U3I3D: +ECW7DOA7HR 3A3BE*M* B * B 3IC/A7R3KGD7SSH*MBJ* B 2 R /OF *4B0/N7O.1F,"0*M.1B2* B +IF3IC+A	R.1
3.,V1.0F,"360.JN1*0B . 7I3IC+A7R2(&(3CGH/RF/*0*)*1&0*MBJ* B 2 & 3CGH3R&=3CGH/RF/"0*M* B * B +IF/IF)*420.1B2.,R1"0*M.1B4* B 7WKO3K:(/O6)3U&(")*M* B * B /N7O"161.JV1*0B 2 ?N2=?N"-61*JCC2*& 3NWV+RCT3TKA+LCE3ASN6 SS3OWR2 ;I6 SD3A3BE*M* B * B +DCO.1B6. 7I21:,O
M* B * B 7IWS3B:=/OF+"-7I.JZ1*0B 6 SD3A3B*(	I2=?W+RK7IWSB6)*JCC2*6 3O	D7F	I2 GT3BWL2 ?T2 ?C3MWP3NGS+TCE7FKO2 3F3AWR*MBJ* B 2 R 21R=3TKA/LF(")*M* B * B 3N7U2=?N"-61*JB * B 2 ?D. Z125. *=213N7U*MBJ* B 2 R 7CKU6=SD3A3B*(	K*MBJ* B 2 & 3FR(7CKU6*SD3A3B*(/K*1:)
G;T*0B.6.KO2.R 7CKU.*GD2 2./TB.2.^)7OR /OF "665*JB * B 6 SD3A3B*(	K6=SD3A3B*(	K*-:1"M2J* B * B 3DGT+BL/KF+2)R=3TKA3L.(*+&1*-:1.MFJ*6B52 N 7OSN7IWNE*M* B * B 7ISD3YWP2=SK3AST*M* B * B /IB=*MBJ* B 6 N 3E3G/E7N"0*M+C* 6 KB3AON3HZ +OCR7ASL3E;R3A	T+NCG3ASN2 ?S
LSI.MFJ*7B02 & 3F:(/OF-.)J3.0N,*320.1B8.MFJ*8B02 & 3F2(7ASS3X.-3BGE+M	X.2B0.,&1.0J,"060.J&1*0B 2 [I2(GL7S	T2-KK3E7A/YJ)*020.2B1.,B2"0*M+C* 2 WS7TN 7TKA3T> 7FN 7EWQ3EON3E& 3F: +OCT7ISN7EKR7USP+ECD+BCY3A6 3OWV.MJJ*0B06 N 3E3G/E7N"0*M* B * B /IB=2MNJ* B*3C7O
PSU3E: 7ESX2 WS3GWM+NCT3L;E3GT.MJJ*1B06 " 2=3F7OSA2(KK3E7AX6)*JB * B . 7Y3F?L+AT3KWB7A	M")*M* B * B /D7X3F?L+AT+I7X3KWB7AM")*M* B * B /D7Y3F?L+AT+I7Y3KWB7A	M")*M* B * B 3DGI7GN=7QSR6(D6*D6+	D6*	D")*M* B * B 7DOI3TR=3I
A*MBJ* B 2 & +F" 3S
E3L;E*-:1.5J)*220.2B2.,N2"0*M.2B2* B 3I6=+OD3I:,+O.)"1*M* B * B 3S
E3L;E2=KA3SR(3TKA3L&(")6).JN2*0B 2 [I2(WS3GWL3NR-7ISS.)R2.0J,*720.2B7.MJJ*4B02 Z 2=WS3GWL3NR/3I
A*MBJ* B 6 " *=/X+D+XF*M* B * B 7Y&=6+	D"*7F*JB * B 2 [I2 R(3TKA3L&(.)J)*520.2B5.,Z2"0*M+C* 6 WO7TWP3TF 6 OG2 ?F3RF 2 GD+RCK3VOE7TKO.MJJ*5B02 N 3A3L2 ?T7UCT/TJ("96)*JB * B 2 7K3OWV/FF=.MJJ*6B02 N 3A3L6 	X7C[N3T&(7FI*(	X2,[I+IX+Y&)2MNJ* B*3C3A3C3U3AWT2 WR3
	A3N;I3GR 7ISS3AON7ER 7OB 3O;IT*M* B * B 7DOI3TR=7ISS2-WS3GWLN*M* B * B 3S
E3L;E"=60*JB * B 2 ?G2 ?T. J2"0*M.2B7* B +IF3DGT+BL+I&).2B8.,"2.0J,"960.J"2*0B 2 GC+LCL7TWO7TSP.(&2")*M* B * B 3K?M3V[E"=61*JCC6*R 7HSA2 GW3SF 6 OG2 ?F3RF 3N& 3N	V3SKI+LCE3L;IE*M.2B9* B 3C3A7L" 3Y;C+VT+I3X+I	Y*MBJ* B 2 2 7ASS3X&=X*M* B * B 7LOA/T7YI7Y*JCC
*N 3AOL3UGL+TCE3S
E3M;E3TZ 3R
A3M;E7TV 7NOUE7D*JB * B 2 WS3GWL7NN=3E3G+E7N7DOIT*M* B * B +GCO+TCO.3B4.MNJ*2B02 N 3A3L2 ?T7UCT/TJ("96)*JB * B 2 7K3OWV/FF=.MNJ*3B02 N 3A3L6 	X7C[N3T&(3X&,Y6)*JB * B 2 ?N*=61N7O*JB * B 2 SI7TCY3E.=7DOAH7T.JR3*0B 2 WR7TKUN*M* B * B 3ESN"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