File DRUFA.FT (FORTRAN source file)

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

2MNJ"I&I"I&I3S	E+TCE"1*M3CRI3R[UA*MC*M+CB * B 2 F 3USS3ROU3KR +ECR3FOA3HWB3L
E3U
N3S	L3SWTN*MC*M6IWS3B?R3U	T+NCE7DWR+FA3FOA3H&,"36)2JNI3O7M+OCN3I?F+R3M3IGH+L3B7ISS3A&,3SKT6,OI+T3D7ISS3E&,3S[T6,OI+T3G7ISS3L&,3S7T"M&J3C7O3M;O2 GL+N3F3I;A3F&,.,KI6,+I+F3E3I[Z3A:,"M&J3D7I7EON3I;O* I*121.1"42)&,.2F(*4&8.,OI*(24.1"42)&,+KN.1"42)Z,3AC*(22*4&2
M&J3D7I7EON3I;O* N*6&7*MBJ* B * B 6 KW3IWT. F(.,^5"06).JB1*0B * B 7FKO7MSA2 F("26)*JCC* B * B 3B
E3I;N2 OS3HWL3IWF2:R 3ROU3KR +ECR7LOI3T;E.M&J29RI/ON *0B03IGF*=23"667*JB * B * B +ICF*(N3IGF.)J+.0Z1.)J1.0N,*020.1B2.MFJ*2B0* B 2 [I/A612([I/AF/.0F-.)^*2+&(+F7A*1*02([I/AF/*0&)2MNJ* B * B 6 WS3CWH3NR +ECR3SC3U3E+ECR3FWU3RV +ICN3FOAH*M* B * B 2 R /OF *3B0/
61.1F,"4682J&I+KN+K&1"=60.JN1*0B * B +I"2+K&1"=60*JB * B * B /K60"1*M* B * B 2 R /OF *8B0/K613I;A/FF,"468*JB * B * B +DCO.1B8. KK*=22"4*M* B * B 2 & +F" +I"321.,*1&).1B8.,"1.0F,"460.JR1*0B * B +ICF.(OI.(KK.,GK.)F/20&-+F	A.1B8.,V1.0F,"860.JV1*0B * B +I"2+K
1.=OI*(21+K&1"M&J3I;K.(GK2).="2*M* B * B 2 . 20.=.0F+.MFJ*8B0* B 2 ?C3N	T3NWU*MBJ* B * B 2 [I2 .(.0F-.)B3.0N,*020.2V02MNJ2IWB3ROE3HWN3NR +ECR7KKU3S;U7TKE3N7U7MKEN*M.2V02I?D. F220. 21&=3A[N.,R1"8*M2I[I.(KI.(GK*)B).2B1.,F2.0J,"360.JN220&I+KN+K&1.=OI2(/I3N.(
12)+K&1"M&J3I;K.(GK2)&=+KN+K&12-&(+KN+K&1./B1.)F*"0*M.2B12I?C3N	T3NWU"M&J/K60+K60"1*M2I?D. V3206 *=21"4*M6I+I/A61"0*M2I?D. ^420. 21&=3A[N.,R1"8*M2I[I2(/I3N.(*16)+MB).4B7.,"4.0R,"760.J"420&I/ZGA6=+I+A.1"1*M.4B72I?C3N	T3NWU"M&J+IF3IGZ*1B).3B5.,V3.0N,"760*JC
* B * B 7AOU7DWR+CCK7KCO3FWTX7T.J^360^I7RSI/EF(.,V420&)7FKO3M&,3H3AB*M.4B5* B 2 Z 3O7R+AT*/>/2	3K7AOS7EON3T[U+EB:2	F,*2^,2 " 3AKL3JA+RB:2	F,"16)6J^I7RSI+E" .1R,*2&02(GF+CH+K213IGF*12)/K61.1J,2)6,",*M.4B2* B 2 Z 3O7R+ACT*(>/2	GF/C+H* ^ 2,F2.6J,3X&,"16)"J7C
J	C"I&I6INI7ESI/EJ 2MNJ.MRJ"2&93W	R+TCE*(21.4N36)+IA61.JN4*3B * B 7FKO7MSA. J(+X^,3SC3R[I3T	L3CWH+S" *3&.3FOA+H2	*33X*	^(+I^42 OS3HWU7LKE*)2	*/>/")*M+CB * B 2 R 3ROU3KR +ECR3N7AE7N2J&I/ZKA"=60.JB521RI/OV *0B0/K613I;A/FF,"468*JB * B * B +ICF.(KI.(GK.)V)*02
.5B0.,B5"5*M.5V0* B 2 R /OV *1B5/K623L;A/FF,"468*JB * B * B +ICF*(I21.,*26)+I"2+K&1.)F5.5V,*220.5V1.MVJ*1B5* B 2 ?C3N	T3NWU.MVJ"2&0+ICF2(/I3N.(*16)/MV)*020.5Z2.,B5"0*M.5Z2* B 6 ^ 7RSI+E" .1V,*2&5*(I+K23+K&2.,OK*=21*1&1.MVJ*2B5* B 2 ?F3RGM+T" +I23*23X21F0"
6)2J&I/ZKA6=+I+A.2"1*M2I[I6(+I+A623IGZ*1B).5B0.,B5.0V,"160.JB5*0B * B 3C;O3T;IU7E.JF560^I7RSI+E" .1V,*7&0.MVJ*7B0* B 2 ?F3RGM+T" */>/./"/*0^(*-&	*/>/*/&/.MNJ"5&03C;O3T;IU7E.JB320NI7OSN7IWNE*M+CB * B 2 V 3NWD2 OS3HWL3IWF2:R 3ROU3KR +ECR7LOI3T;E"M&J7RSE3U;R
MBJ* B * B 2 ;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