File CAWA2.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"2*MC*M+CB * B 2 . 7UOR3WA+L6 2 WD+FB.7DSA3EWI+N6 2 	E3NWL3S;E2 GD3T;E" *M+C6I2 ?K3RWR7KWT7RKP7OKG3A7M2 3A7SV 3P?R2MNJ*MBJ* B * B 2 ?C3M?M3N& 7FKO3M&,3H3A3B&,3SGT6,OI+T3B7ISS3D&,3SWT6,OI+T3F7ISS3G&,3S3T6,OIT7M*JB * B * B 3C
O3M;O2 GL+N3F3I;A3F&,.,KI*MBJ* B * B 2 	D3M;E3S?I3N& .(N1.,R1*82)+I"1.6F,*4&8.,KI.(R1"86)*JB * B * B 7ICS/A7C.-B2"166*JCC* B * B 3E;I7LOE/E+N2 3K7AOS7EON3T[U3E",3AKL3JAR*M* B * B 6 ^ 7RSI/EF(.,B720&)3SGPC6,.JB7*0B * B 7FKO7MSA*(^/3KGL3SWS7NSS3UWF*:2	+A&2*
BJ* B * B 2 WR+AD.1J,*1&03I?FR7M.JF2*0B * B 7FKO7MSA.(KA")*M.6B66IKW3IWT*(21.2B26)OI3POA",*M.2B2* B 2 Z 3O7R+AT2/"	3AKL3JA+RB:* B * ^ .,GA")*M* B * B 6 J 3ESA*(21.2B32)I3AKL.MJJ*3B0* B 2 ?F3RGM3TF("16)6J^I7RSI+E" .1J,*4&07ICS+A3C.MJJ"4&07FKO7MSA*(^/7BSI+T
E3GKE+ECN3SWI2 	D3EF +RCT7DOE6 KP7OKG3A7M7LWA+FCS/A+N"	*M*I>12	GK3RWT3NV 3I3N3EWS+NB:* B * B * B *12	"M&J*2^/3B
E3I;N2 WD3RF 7U
S7ESR3U
N*:B . J * ^?.,KA")*M2IWR+ACD*(21.2B52)[I3R
AE*M.2B52I?F3RGM3T&("16)*JCC* B * B 7BKE3EC3N;E2 WD3RR 3AWT3ISA7ROE3S;E"M&J+IF3I?F+R/M.9B1.)Z *220.6B1.,B6"0*M.6B06IOI/T7A"4*M2I?G+TCO.6B3.MZJ"1&07ISS/AJ="M&J7GSO/OZ "360.JJ620&I3SGT"=60.JN620&I3F&(3H3A/B&+*2&8. Z6.0Z,*520.6B4.MZJ"4&07ISS3A&=3SGT"+61.JV62
&I3SGT.=R225&*3SGT"M&J7ISS+BB=*1.27ISSA*M6IOI/T7D.1^26+OIT7A2J&I3SWT.=B122&+3SGT"M&J7ISS+FB=*6.07ISSA*M6IOI/T7G. ^76+OIT7A2J&I3S3T.=J 23&+3SGT"M&J7ISS+MB=*3.57ISSA*M2I?G+TO.1N,2)&,3FGRG7E"J	C3F3E7DKE2 ?L3EOS3H;E.MFJ2I?D. B1. GK*=21.1"4"M&J/IF(.,GK.)B=.MFJ
0&I.1F(.,GK.)B=2MNJ2MNJ"I&I"I&I3S	E+TCE"2*MC*M.I7N"1*M3C.I7ASR+ECN3E;I7LOEE7N"J&43RGE/DF(.,B52)/I7ASRE*M"5&07FKO7MSA2(.	7ASR3ESN3E/C2 ;I2 WD3N2 3EWS3RV 3I
N3EWL+GCT2?F	"16)"J&53RGE+D" .3F,*0&5/IF(*,	N.,GI*(22+N2)+I"123:,2)&,.1R(*,	N.,GI*(25+N2)+I"126:,")*M*I21/IJ(*,	N*,I23:,2)&,*(24+N2)/IV(*,	N*,I26:,2)&,*(27+N2)/I"(*,	N*,I29:,")*M*I22/IF(20:,2)&,.(F1*,	N*,I*122+N2)/IF(23:,")*M2I[I*(I21:,.)J).0N,.0J,"0*M*2B
* B 2 & .1F(*,	N*=I21:,")*M29:I*=/N"1*M2I?G+TCO"5*M*3B0* B 2 : /U7M/NF-*MBJ* B * B 6 KW3IWT. F(.,B46)WNM*M.1V0* B 2 Z 3O7R+ACT.(OI*,"2*	^*.,GI*)^,**2	+I22*2^(**2	+I&1.,B1*(*	2	&,*3&).MRJ*0B * B 2 ?F3RGM+T" ./OI*,B	7KKA3T;E2 	E3NWG7LOE+E
N"/6)6J^I7RSI/EF(.,&220&)3SGPC6,.J&220ZI3O7R+AT6/N	3ISN2 ?K3RWR7KWT3R;E2 ?N3TWW3N	D/G> 2	F,"26)6JJI3ESA*(21.2B12)[I3R
AE*M2I[I2([I3R
A/EZ-*7&2. B3.0N,*520.3B0.MNJ"5&03C3A3L. 3U?K3R&("16)2JRI/O^ 25. .1F=.,R1"8*M2I?D. V7. KK*=22"163.JV7*II+K22+K&1.=B1**I+K22+K&1.MNJ"0&03C3A7L^ 7TCA/EF(6,OI+T3G.1J924&,")*M2IGC+LCL3WGT+PE21&,3S[T.,"828&,"16)6J^I7RSI/EF(.,Z220&)3SGPC6,.JZ220ZI3O7R+AT2/&	+SC
3DWI2 	E3NGG+BCE7DKE6 WK7R
S3A3H+ECN3V3O7LSS3A;E3D
I* ^?.,KA")*M2IWR+AD.1J,*1&07IKF3AWG"M&J+IF7IKF3AWG.-^6*2B).2B7.,B4.0J,"760"J&3/K7K"1*M.2B82IGC+LCL3RGT+PE*16,7ISS/GF,.9R2*,	I"M&J7GSO/OR(*020.5B02).,K*M.4B02I?D. B6. GK*=21.1"4"M&J+DCO*6B0/K62.2F,"3*M"6&03I.(22.,.16)3I.(22.,*16)*(I+K22+K&1./B1.)F*"0*MC*M
&I"I&I2IWS3IWT" 63"J7C2JNI3A3L6 SW3AWP*(216-OI+T3E.1J924&,")*M2I/K"=622J&I3S
T2=&-3S
T"M&J7GSO/OJ "860.JB520RI/O^ 20. .1F=.,R1"8*M2I?D. B7. KK*=22"161.JB7*II+K22+K&1*=I+K22+K&1./B1"M&J7ISS+G6=7ISSG*M2IGC+LCL3CGH+IN2	GC/WKA+A&	.MJJ"7&03S?TP*M2I;ED*M6LJI3ESA. F(.,B526&)2([I3E?C6,OI+N	R.MVJ"0&67FKO7MSA.(OI")*M2I?G+TCO"460"J&23C3A3L> 3OWP+N" 
	SD+A^12,	F3L[E")*M2I?D. F620. .1F=.,R1"8*M2I?D. F620. .2F=",66.JF660^I7RSI+E" .4J,*1&0+I"1+K22+K&1"M&J3C3A3L> 3C?LS7E"J&43C3A3LN 3H	A+N" 2	/B/UKR*1&	"M&J3ESN"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