File KUWA2F.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*M3C.I3UGW"27F"J7C*JCC* B * B 7KKU3SGW+HCL2-F 3USS3ROU3KR +ECR3E
R3E;B7IOSE*MC*M* B * B 2 N 3O7M+OCN3I?F+R3M3IGH+L3B7ISS3A&,3SKT6,OI+T3D7ISS3E&,3S[T6,OI+T3G7ISS3L&,3S7T*MBJ* B * B 2 ?C3M?M3N2 3A[N2,GI+N3F3I&,22&,3ZWF6,+I+F3AN*M* B * B 2 R 3IWM3N	S+OCN/IF(.1F,*4&8.,KI.(R1*82)/NZ("76)*JCC* B * B 7SSE3Z;E2 ;A3F;A7G
S7ESRE*M* B * B 2 . .161"0*M* B * B 2 . /KR=*MBJ* B * B 2 SK3ROU/KV=*MBJ* B * B 6 
K"=62*JB * B * B 7I+Z3AE"=60*JB * B * B 3W	R+TCE*(21.4F0")*M.4F0* B 2 Z 3O7R+ACT*(>/2/2	3KJ-3EWL3G;U3G;E*	&/*MBJ* B * B 2 ?D. B120. .3F=.1Z,"7*M* B * B 2 & +F" 3N.(*3.).2F0.6F)*121.1B0.,F1"1*M.1F1* B 2 6 "=60*JB * B * B +DCO.1B1. GK2=GI+N3F.1"4*MBJ* B * B
2 ?D. F120. .2J=",63*JB * B * B +ICF*(I+K22+K&1.-OK.)F1.0F,*220.1B1.MFJ*2B0* B . 7M/MF+.MFJ*1B0* B 2 ?C3N	T3NWU*MBJ* B * B 2 [I2 6(.)B1.0F,*020.1B3.MFJ*3B0* B 6 KW3IWT. F(.,Z420:).(OK2)6,",*M+SB * B 2 * +MCS7DWRC7K.JB1*0B * B 3C;O3T;IU7E*JB * B * B 7I+Z3A
"=60.JZ4*0B * B 7FKO7MSA. J(3XF,*2^,2=&	"36)*JB * B * B +ICF2([I3O7R.+F9.1F).0N,.0F,"0*M*1B0* B 6 ^ 7RSI+E" .1R,*1&0.MRJ*1B0* B 2 ?F3RGM+T" */>/*	:33A	B7TKU3FOA+H>	")*M* B * B 2 R /ON *0B0/K63*121"667*JB * B * B +ICF*(N+K&3.+B2*1&6.3F1.,B3.0N,"161.JF3*1B 
 B /MB=*MBJ* B * B 2 ?D. F320. 21&=3A[N.,R1"8*M* B * B 2 & +F" /IR(.,GK2).-.3N)*120.3B2.,F3"0*M.3B2* B 2 6 *=/M"1*M.3B1* B 2 N 7OSN7IWNE*M* B * B 2 & +F" /MN)*020.3B0.,N3"0*M.3B3* B 6 ^ 7RSI+E" .1R,*6&03N.(*32)M6,*JCS* B * B 7JOM6 KD3U/C.MNJ*0B0* B 2 ?C3N
T3NWU*MBJ* B * B 6 +I3ZWA/HB=*MBJ* B * B 6 KW3IWT. F(.,N4"06).JN4*0B * B 7FKO7MSA* >(*/^/24F.7BSI3U[R3AC*	&/*MBJ* B * B 2 ?D. B620. .3F=.1Z,"7*M* B * B 2 & +F" 3N.(*3.).2F0.6Z)*121.6B0.,F6"1*MC*MC&I"I&I2IWS3IWT" 62"J7C.JF6*1B * B /MB=*MBJ* B * B 2 ?D. F62
. 21&=3A[N.,R1"8*M* B * B 2 & +F" /IV(.,GK2).-.3Z)*120.6B2.,F6"0*M.6B2* B 2 6 *=/M"1*M.6B1* B 2 N 7OSN7IWNE*M* B * B 2 & +F" /MZ)*020.6B0.,N6"0*M.6B3* B 6 ^ 7RSI+E" .1R,*6&03N.(*32)M6,*JCS* B * B 7JOM6 KD3U/C.MZJ*0B0* B 2 ?C3N	T3NWU*MBJ* B * B 6 +I3ZWA/HB
.MNJ*0B * B 6 KW3IWT. F(.,J4"06).JJ4*0B * B 7FKO7MSA* >(*/^/+G7K3B3E7EWG3NWG+N>	")*M* B * B 2 R /O^ *0B0/K63*121"667*JB * B * B +ICF*(N+K&3.+B2*1&6.7F1.,B7.0^,"161.JF7*1B * B /MB=*MBJ* B * B 2 ?D. F720. 21&=3A[N.,R1"8*M* B * B 2 R /O^ *1B0/K62+K3K"161*JB 
 B * B +ICF*(I+K22+K&1.-OK.)F7.0^,*220.7B1.M^J*2B0* B . 7M/MF+.M^J*1B0* B 2 ?C3N	T3NWU*MBJ* B * B 2 [I2 6(.)B7.0^,*020.7B3.M^J*3B0* B 6 KW3IWT. F(.,Z420:).(OK2)6,",*M+SB * B 2 * +MCS7DWRC7K.JB7*0B * B 3C;O3T;IU7E*JB * B * B 7I+Z3AE"=60*JB * B * B 3W	R+TCE
(21.4V3")*M.4V3* B 2 Z 3O7R+ACT*(>/2/2	3K.-3OKM3IGN3T?I3N;E*	&/*MBJ* B * B 2 SK3ROU/KR="M&J3KWW"=63.JN1*5B * B +DCO.2B1. OK.=F1.,^6*MBJ* B * B 2 [I2 :(.(OK.)J+.0Z1.)J1.5J,*120.1V2.MFJ*2B5* B 2 ?D. F220. .4F=21.,"3*M* B * B 2 & +F" 3N.(*4.).2F0.6F)*226.2B1
,J1"6*M.1Z2* B 2 & +F" +K63+K&4.1Z3.,F2.0F,"366.JN1*6B * B /L7K"0*M* B * B 2 R /OJ *2B0/K613I;A/FF,"4682J.I/WGE6=
K/EF-"M&J+DCO.2B26 [K21.=3W.,/WGE"M&J/KGW6=[K.1F+"M&J+DCO.2B26 [K22.=+W213KWW*MBJ* B * B . WK*=I/KGV.,GK")*M* B * B 2 . 26&=6([K22.,"16)*JB * B * B +ICF.(WK.-[K.)V1.0F,*620.1B6.MFJ*5B0* B . KK.=WK*MBJ* B * B . WK.=[K*MBJ* B * B . [K.=KK2MNJ2MNJ"I&I"I&I3S	
+TCE"3*MC*M.1B6* B 2 & +F" +K65+K&3.2B2.,^1.0J,"260.J^1*0B * B +ICF.([K.-SK.)J2.0F,*920.2B2.MFJ*9B0* B 2 /L2=/L"+61.JJ2*0B * B 3C;O3T;IU7E*JB * B * B +ICF2(/L.)F2.0J,*120.2V0.MJJ*0B5* B 6 KW3IWT. F(.,R420:).(OK2):,.(SK2)2,K6,.JR4*0B * B 7FKO7MSA. J(3XF,*2
,*-2	+A22*	^=.,OI")*M+SB * B 2 * +MCS7DWRC7K.JF2*0B * B 3C;O3T;IU7E*JB * B * B +ICF.(GK.1F-.)R2.0V,*020.5B0.MJJ*4B0* B 2 [I2 &(7FKO/M&+*1&1.2B5.,B5.0J,"560.JV2*0B * B /K7W"4*M6I
K/EF="1*M* B * B 2 . .161"1*M* B * B 2 & 3ZGZ/E7H"0*M* B * B 6 ^ 7RSI+E" .1R,*5&0.MRJ*5B0* B 2 ?F3RGM+T" */>/2	/G2-?K3M	B7NSA3I;O+E
N"/6)*JB * B * B 7GSO/OF "3652JSS3ROU+KB,"0*M* B * B 2 & +F" 7I+Z3AE2-SK3ROU/K")*120.8B1.,J8"0*M.8B2* B 6 ^ 7RSI+E" .1R,*7&0.MRJ*7B0* B 2 ?F3RGM+T" "/6)*JB * B * B 7I+Z3AE.=F-.M"J*1B0* B 6 +I3ZWA3H&=3ZGZ+E/H"1*M+SB * B 2 * +MCP3IR 3ROUK*M.5B0* B 2 N 3A3L2
C3A;I* ^(7K
U7AN3"	6)*JB * 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