File KUWA2C.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"27C"J7C*JCC* B * B 7KKU3SGW+HCL6-^ 3A3H3A[U3L
A+ECN3UKE7ECR3RWU3F;E2MNJ*MBJ* B * B 2 ?C3M?M3N& 7FKO3M&,3H3A3B&,3SGT6,OI+T3B7ISS3D&,3SWT6,OI+T3F7ISS3G&,3S3T6,OIT7M*JB * B * B 3C7O3M;O2 GL+N3F3I;A3F&,.,KI6,+I+F3E3I[Z3A:,*MBJ* B * B 2 	D3M;E3S?I3N& .(F1.,R1*82)+I"2.1"42):,.(^62).,3AKK/EV(2).,3SKK/EV(*,&
2,?N3N/L.(V1")*M* B * B 2 R 3IWM3N	S+OCN7KWA+FG.3F,*52)7KWA+FL.1Z0")*M+CB * B 2 V 3I3N3EWS7N^ 3A3H3A[U3L
AE7N*JB * B * B 3C3A7LJ 7TCA/EF(6,OI+T3B.1Z02,GK3U3F")*M* B * B 2 R /OF 20& /ZF=",65.JB1* B * B 3K/A+BE+I	Z2=GK3U3F6(+I")*M2II"=65*JB * B * B +DCO*2B0/IGZ*=21"5*M* B * B 2 R /OJ 20& /ZF=",682J&I3H&=/HF+.MJJ*0B * B 6 OK3KWB6(+I21&,/Z6)7KWA+FL+I	H*MBJ* B * 
 2 ?D. B36 +I.1F=",63*JB * B * B +DCO*3B0/I7Z.1F,"5*M2II2=I"+61.JB3* B * B 7KWA+FG/IGZ6,+I2).=3A[U3L&(H6)*JB * B * B +DCO*4B0/I7Z.1F,"5*M2II2=I"+61.JB4* B * B 3N;O+LK+I	Z2=GK3U3F2(I")*M* B * B 2 & 7KKU3A.=3A[U/LF(*0&6.MRJ*0B0* B 2 ?F3RGM+T" +A&2*MBJ* B * 
 2 ?D. B820. 21&=3A[N.,R1"8*M+CB * B 2 & 7KKU7AV 3EWB7RKP3U[E3U
N*MBJ* B * B 6 +I"=60*JB * B * B +DCO.1B0. KK*=22"161*JB * B * B +ICF*(I+K22+K&1*-&1.1B0.,B1.0F,"160.JF1*0B * B /I7Z+I/Z"1*M.1B0* B 2 N 7OSN7IWNE*M* B * B 2 & +F" 7IWK+R7A+I	Z.1B3.,N1.0F,"260.JJ1*0B * B +I"2+K&1.=KI.(GK.)"+2MNJ* B * B 2 ?N3N/L2 WU7BKE7PWR
EWFN7G.JN1*0B * B +DCO.1B4. OK*=21"165*JB * B * B +ICF2(?N3N/L.(OK.)F)*620.1B6.,R1"5*M.1V4* B 2 R /OF *4B0/K62.2N,*MBJ* B * B 2 [I2 :(3O3N3K.(*36)3I.(22.,*1&).1B4.,V1.0F,"460.JV1*0B * B +I"2+K&1.=KI.(GK.)F+"6*M* B * B 2 ^ 3O?T. Z1"0*M.1B4* B 2 N 7OSN7IWNE
M+CB * B 2 R 7OCP7ESL+ECS3A	B7TKU3FOAH*M.1B6* B 2 R /OJ *0B0/K63.2R,*MBJ* B * B . WK.=OK"+61"J7C"J	C"I&I6INI7ESI/EJ 2MNJ*MBJ* B * B 2 ?D. B220. 22.=.5V,*MBJ* B * B 2 [I2 &(.(OK.,GK2)&-.(KK.,GK.)J)*020.2B2.,B2"0*M.2B2* B 2 & 22.(.16)+I"2+K&1.+J3*MBJ* B * B
2 ?G+TCO.3V0.MJJ*0B0* B 2 ?C3N	T3NWU2MNJ* B * B 2 KA3DOE3K;U3GR +ECR3A[U3GKA3E[N3ESLE7R.JB3*5B * B +ICF2([I3O7R.+F9.1N)*026.4B4.,B3"6*M.3Z0* B 2 R /ON *2B0/K63.1N,*MBJ* B * B 2 [I2 .(3A[U3G.(.3F,.)N)*220.3B2.,B3"7*M.3^0* B 2 R /ON *0B0/K65.1F,"5*M* B * B 
 & +F" 7KWA+FG+K23+K&5.)J3.1N,*221.3J0.MNJ*0B2* B 2 ?D. B320. .2J=",65*JB * B * B +ICF*(I+K22+K&12-GK3U
F.(OK.,WK.)N)*020.3B2.,B3"0*M.3B0* B 2 N 7OSN7IWNE*M.3F2* B 2 & 22.(.16)+I"2+K&1.+R6*MBJ* B * B 2 ?G+TCO.4B4.MNJ*2B0* B 2 ?C3N	T3NWU2MNJ* B * B 2 KA3S3O3UWT2 GF3CKH3EWL3G;UG*M.4B4* B 2 R /OR *2B0/K63.1V,*MBJ* B * B 2 [I2 .(3AKK3E.(*3&).5B0.,B5.0R,"065.JB4
5B * B +DCO.4B1. KK*=22"161*JB * B * B +ICF*(I+K22+K&12-GK3KWB.(OK.)R)*120.4B2.,F4"0*M.4B1* B 2 N 7OSN7IWNE*M* B * B 2 & 22.(.16)+I"2+K&1.+J1"8*M* B * B 2 ^ 3O?T. B5"0*M.4B2* B 2 N 7OSN7IWNE*M+CB * B 6 N 7UOB7TSI3UWI3RGB+RCE3FOA7HKG7UCPE7N.JB520RI/OV *1B0
K64.1V,"M&J+IF3K/S+BE+K24*1&).5B1.,F5.0V,"365.JN525RI/OV *2B0/K63.1","M&J+IF3K/S+BE+K24+K&3.)J5.5V,*225.5V1.MVJ"1&5+DCO.5B3. KK*=22"1612J&I3F&(.(KK.,GK2).-3SKK3E.(24.,*3&).5B3.,F5.0V,"360.JN520NI7OSN7IWNE*M.5B22I?C3N	T3NWU.MVJ"2&5+I"2+K&1.=KI.(GK.)J+"5662
^I3O?T. B8"0*M.5B12I?C3N	T3NWU.M"J"0&03C;O3T;IU7E2JNI3A3L2 C3A;I* ^(7K
U3AR2"	6)2JVIN7D&J*L

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