File KUR3A2.FT (FORTRAN source file)

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

3CFI3USS3ROU3KR +ECR3WA3L	L3SWTN*M2I?C3M?M3N& 7FKO3M&,3H3A3BZ,3IWL3BZ,3IWL3DZ,3IWL3EZ,3IWL3FZ,3IWL3LZ,3IWL3MZ,3IWLN*M2I?C3M?M3N2 3A[N2,GI+N3F3I&,3ZWF6,+I+F3AN*M2I	D3M;E3S?I3N& .(J1.,&2*62)/NZ("76)2J&I7S[A3E&=3ZGF"M&J3I[Z+A6=.2F0"6*M6IOI/E7I"0*M6I
I3EOI"=612J.I.0B="M&J3IGZ/E7H"2652J&I+F" 3I;A/FF-*4&9*320*320"260.JB22I?D. V2. GK*=21.1"4"M&J+DCO*2B5/K62.1F,"1*M"2&53I.(22.,.16)3I.(22.,.1F+*4&8"M&J/K60.1"4.MNJ20RI/ON 25. .1F=*429.2Z9.MNJ25&I*(21+K&1"=602J&I+F" 3L;A/FF-*4&8*420*420"660.JB42IGC+LCL7ICO+E
N2(R	/TGA2	Z,3IWLN6)2JRI/OR 25. .1F=*429.2Z9"M&J+DCO*4B5/K62.1F,"1*M"4&53RGE+D" .4V,20&).(KK.,GK")*M"5&07FKO7MSA2 F("26).JB62I?D. B120. 23&=3A[N.,&2"6*M2I[I2 .(.3F-*4&9.1B1.,B1.5F,"160.JB125NI3A3L2 ?I3P;E* ^(3DGT*12	3F3I+E	E"M&J+DCO.1Z0. GK*=21.1"4"M&J+DC
.1Z0. KK*=21"161.JB166JI3ESA. R(.,B5*)I+K22+K&1"M&J/K60.1"4.MFJ"1&03ISN/E7X+K63K602J&I+F" 3IGZ+E7H*2&5.1B4.,J1.0F,"260.JJ120&I3ZWA/HB="M&J3W	R+TCE*(23.1F2")*M.1F22I?F3RGM+T" .1GH")*M2IGM/XF="4682J&I+F" 3ISN+E7X.1R2.)J1.5F,*320.1B3.MFJ"2&57MA2=;I7DE.+R2.MF
"3&03IWS3I&=3S	E"+616J^I7RSI+E" .3F,*3&13I?F+R3M3IGH+L3B3IWS3I&,*(213ISN+E	X*,I216,+A	X.MFJ"3&17FKO7MSA. F(+H20*/^/2 3K7AOS7EON3T[U+E^ +A^22 " 3AKL3JA+R^ +A2163"22	WS3IWT.	OI"M&J*1>,*/B	3SC3U3E3E;R3U7M+ECR.	OI*	B 7BOI2 &	*3>/"/6).JR120&I+F" 3IKA3S&(3ZWA/H
-*56).5F)*520.1V4.,V1"0*M.1V46IKW3IWT. N(.,R1"66).JR126ZI3O7R+ACT2("1" 6).JV120:I21&=*(223ISN+E	X"M&J/N62/IN(2,;I7DE")*M.ION*=I24&,3NWDX6)2J:I24&=*(253ISN+E	X"M&J/N65/IZ(2,;I7DE")*M.I[N*=I27&,3NWDX6)2J:I27&=*(283ISN+E	X"M&J/N68/I&(2,;I7DE")*M.I	N*=I*1203I
N+E	X"M&J/NB1*=I*1213ISN+E	X"M&J3IWT/S7T.-B2"1662J&I+F" /IF(22.,*3&).1V5.,Z1.0F,"565.JV125&I7TOE+T6=.1^3"6*M.1B62I?D. Z121. .4F=*429.2Z9"M&J+ICF*(I21&,3NWD+X6)/IF(.,SK.)F)*621.1B7.,Z1"1*M.1F62I?C3N	T3NWU"M&J+ICF6(
I3EOI*-&2.1V6.,Z1.5F,"663.JZ163BI7AOUE*M.1V62IGC+LCL7ICO+ECN2(R	/TGA2	Z,3IWLM6)2JRI/OF *6B6/K61.1&4.,&2"6*M2I?D. Z126. .2F=.,F1.MFJ"6&63RGE+D" .4V,20&).(KK.,GK")*M6I
I3EOI"=622J^I3O?T. Z1"0*M.1B76IKW3IWT. N(.,^121&)7TOE+T",3I.(22.,*42)/K62.1F,*12)3N:(*12)3N:(*22)3N:("36).JFI*,N+N&4*,N+N&5*,N+N&6*,N+N&7*,N+N&8*,N+N&9*,N/NB12):,*(&1",*M.1F72I?F3RGM+T" *1CH.,GA.,OI6,"1.,B1+A22*1"0*13X+A22*1	X.,GA")*M6ISI/E7M/IF(22.,"36)2
RI/OF *8B53IWF/H7L.1&,"M&J+ICF6(SI+E7M*2***(693IWF+H	L.)"1.5F,*820.1V8.MFJ"8&03W	R+TCE*(23.1F82)[I3E3H",*M.1F82I?F3RGM+T" +I&1"M&J3IWT3M&=3T7E*-*2.*&(2-[I3E3H")*M.1V82I?C3N	T3NWU"M&J3W	R+TCE*(23.1Z8")*M.1Z82I?F3RGM+T" "/6)2J&I3ZWA3H&=3ZWA/HF+.MFJ"0&03C;O3
;IU7E6J^I7RSI+E" .3F,*2&1"M&J+DCO.2B0. GK*=21.1"4"M&J+DCO.2B0. KK*=21"1612J&I.(KK.,GK.+R1.86)3I.(22.,"16).JB220&I.(KK.,GK.)B="M&J+ICF2(GI+N7F.1"4.)F2.0J,*120.2B2.MJJ"1&03C3A3L& 3OWP+N" 6	SD+A^12,	F3LSE")*M2I?D. F225. .1F=.,R1"8*M2I?D. F225. .2F=.,F1.MJJ"1
53RGE+D" .4V,20&).(KK.,GK")*M.2B26I+I/F7A3IGSV7E2JNI3A3L2 C3A;I* ^(7KKU*3
S")*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