File CAWA3C.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"37C"J7C"J	C7KKU3SGW+HCL6-N 3P	E3CWH+RCN7DKE2 OS3H	R3F3T3IC+ECN3FWA3CWHR*M3CZI7UKE2 GD/SN 2.F 7BSI3U[R3AC2MNJ"M&J3C7O3M;O2 [I3O7R2,I3AKL6,OI+T3A7ISS3B&,3SST6,OI+T3E7ISS3F&,3S
T6,OI+T3L7ISSM*M2I?C3M?M3N2 3A[N2,GI+N3F3I&,22&,3ZWF6,+I+F3AN*M2I	D3M;E3S?I3N& .(N1.,R1*82)+I"2.1"42)&,.3R(.,R1*82)/NZ(*72)7NWK*(&62,/I/NF(*4&8"M&J3D7I7EON3I;O2 GF+CH.2R,*22)3IWF.(J2"76)2J&I3SGP+C6=.2F0"6*M6IOI3T;F6=OIT7A2J&I3SOT.=V122&+3SGT"M&J7ISS/SF=*6
47ISSA*M2I?D* B1/K61.1F,"4682J&I*(21+K&1"=602J&I22.(.16)"0*M.IOI*(21+K&1"=602J&I.3J(.,GK.)N="M&J+I"323.,.16)"4*M21&I.3R(.,GK*)6="1*M2IGC+LCL3RGT+PE21&,3S[T/NJ,*5223FOAH6)6J^I7RSI/EF(.,B820&)7FKO3M&,3H3A3B&,3SGPC6,.JB820ZI3O7R+AT6/N	3ISN2 	D7EN 7CKH7ISF3LO
3H;E2 GF3EC+ECR3FWU+R^ .,KA*,:	2	F,"16,.JFI6	N 3C?H3N^ 7ECS3EOI7HKE/T> 2	F,"16)6JJI3ESA*(21*2&07IKF3AWG"M&J+IF7IKF3AWG.-^6*2B).8B3.,J8.0","360.JN820RI/O" *4B0/K61.1F,"468.JR820&I22.(.16)"1*M2I?G+TCO.8B1.M"J"2&03C3A7LJ 7TCA/EF(2,&-7SOT.,&522&,"36).JF820NI3
3L2 GD/TOF2([I3R
A3E&,"36).JV82IGC+LCL3RGT+PE21&,3S
T.,&1*224I6).JB22I?F3RGM3TF("26)2JNI3A3L6 WK7SKO.(OI")*M.4B02IGC+LCL3WGT+PE*16,7ISS/SV,*922+I&32MNJ6IWK7R
S3A3H* B-7AOU3GKA3ER +ECR3FWU3RR +ACS23F.7BSI3U[R3AC2MNJ2I?V3RWG3SE3EWN3N. 7UORE*M.3V16IKW3IWT*(21.2J46)OI3POA",*M.2J42I?F3RGM+T^(+ICN3WWI3VWI7LN 3P3A3T;E2 ?S+LCL3DWI2 	L3SWT2 WG7DWR7CSK2 WWR*M2IR1+ECN*(B13OWD/RJ .)> 2	F,"16)6JJI3ESA*(21.2N46)OI3P3AT*M.2N
2I?F3RGM3T&("16)2J&I3F&(3SGP+L7T.2N)*120.3B1.,F3"5*M.3B16IOI7CWH.=B26*OI3P3AT*M6IOI/C7H*1*07ICS7ASL"M&J3W	R+TE.1J,*4&1.MJJ"4&17FKO7MSA*(>/*8"0*	^-")6)"J7C"J	C"I&I6INI7ESI/EJ 2MNJ"M&J3IWS/IB="M&J3IWW/I7C"1*M2I?D. F120. 21&=3A[N.,R129&,3SCU*M6IOI/E7I3IWS/IF
"M&J7MA.=R1"8*M2I[I.(GK.-R129&+3SC/UF)*122.1R1.,F1"4*M.1J12IGM3X.=21&+3SC/UF-.MFJ"1&43W	R+TE.1F,*2&03I?F+R3M3IGH+L3B3IWSI*M6IKW3IWT*(21.1F2.)OI*(21+K&1.,OI*(217MA")*M.1B22I?F3RGM+T>(*/^/3KGL3SWS7NSS3UWF* 2	+A222	" 3AKL3JA+R^ .,KA.,J3+X^,3S	E+T
E.,OI")*M.1F22I?F3RGM+T>(6	N 7CWH3EWL7RWN3MWM+R^ .,OI*,B	7BOI* 2	+I>3*/&/"M&J+DCO.1B5. KK*=20*1293IOSH*M2I?D. Z120. .3B=",692J2I21.=21.+22.+"3*M2I[I.(GL.-R1*8B).1V1.,F1.5F,"160.JF125&I3F.(22.+.3F-*9B).1F5.,V1.1F,"560.JV121&I3T7E212="1*M6ISI/EKM.=GL.+B22*&
3SGP+L7T"16)2J&I3ESN"=602J&I3F&(3SGP+L7T.2^)*025.3B2.,B7"5*M.3B22I[I.(GL.-J1.8^)*025.7V0.,V7"5*M.7V56IKI7ESS.=R129.-"1*M2I[I6(KI7ESS*-*26(KI7ESS*/&2.)^ *120.7V2.,F7"0*M.7B12IWI/N7D3IWR+S?T.2F+"M&J7GSO/O^ "365.JJ725&I3ESN6=KI7ESS"/62.JN725&I3F2(21&+3ESN.-R
*8B).7V4.,R7.5^,"165.JR725&I3T7E222=21&+3ESN"M&J7GSO/O^ "065.JF725&I3T7E222="1*M6I
I3EOI"=62.JB725:I.161+I"322&,3T7E*1>)"1602J:I.162+I"322&,3T7E*2>)"1602J:I.261+I"323&,3T7E*1>)"1602J:I.262+I"323&,3T7E*2>)"1602J:I.361+I"324&,3T7E*1>)"1602J:I.362+I"324&,3T7E*2>)"1602J:I+KU.16)+I"322&,3T7E*16)*1*0/NF1"M&J7NWK*(&2.=OI*(233IWT+M&1.-B1.*KN"1*
2I/N/UN(2)&=.3R(6,SI/EGM.)F-20:*"3612J:I+KU.46)+I"322&,3T7E*26)*1*0/NJ1"M&J7NWK*(&5.=OI*(233IWT+M&2.-B1.*KN"2*M2I/N/UZ(2)&=.3R(6,SI/EKM.)F-20:*"3622JRI/OZ *0B5/JF=",662J:I/H7I7NWK*(	J"+612J^I3O?T.(F6.5Z,*225.6V3.,R6.5Z,*5&52,NI*M.6V16ISI/E7M.-B2"166"J7C"J
C"I&I6INI7ESI/EN 2MNJ"M&J7GSO/OZ "065.JJ625&I3T7E.=F-.9&9"M&J7GSO/OZ "065.JN625&I3T7E.=F-.9"9"M&J7GSO/OZ "065.JR625&I3T7E.=F-.9^9"M&J7GSO/OZ "065.JV625&I3T7E.=F-.9Z9.MZJ"0&57NWK*(	J6=SIE7M2J&I3F2(21&+3ESN.-R1.8Z)*625.6V6.,^6"5*M.6V72I?D. "625* *=24"6*M.6V
2I/N3U*(*)6=.2F0"6*M.6V62IGC+LCL3RGT+PE21&,3S7T.,&1*224I6)2J.I/KF="M&J+DCO.1B7. SK*=21.1"4"M&J+IF/IF(.,SK2)&-.3F(.,GL*)B).1V7.,&1.0F,"765.J&120.I.=SK"M&J/K7K+K/K"1*M2I?G+TO.1V7.,^1.5J,*6&52,/K.MFJ"7&5+IF/IF(.,SK2)&-.3F(6,SI/EKM*)B).1B7.,"1.5F,"760.J"125.I
K.=/KF+"M&J3L.="4*M2I?G+TO.1B7.,^1.0J,*6&52,/K.MFJ"7&03C;O3T;IU7E.JZ225^I3O?T.(^2.5J,*6&06,OI3P3AT*M.2B66IKW3IWT*(21.2B52)&(.(WK*,	K.,WK*=21*1&3*,N/NF12):,.(KN*12)3N:(*3&1",*M2I[I.(GL2+WI+N7D.1"4.)J7.0^,*220.7B3.M^J"3&03W	R+TE.1^,*4&07ICSA7C.JR720ZI3O7R+A
+A&1"M&J7GSO/O^ "560.JJ760^I7RSI/EF(.,V2*1")3I.(252,2).,.5F=.,N12):,.(GN*22)3N:(*2&2*,N/NJ3")*M.2B52I?F3RGM+T>(+I23*23X21F2.2N,6("2.,KA")6).JV221ZI3O7R+AT*63X+I23*23X21F2.2N,6("2.,KA")6).JV760^I7RSI/EF(.,B5*0")7NWK*(	J.,7J.1Z,")*M.5B02I?F3RGM/TJ(*53X.3J(3
F,*22)63"1*,"3*23X+A&2")*M2I?G+TO.1B6.,F1*02)3IWWI7C.J^265^I7RSI/EF(.,V2*0")3I.(25.,2).,.5F=.,N12):,.(GN*12)3N:(*2&1*,N/NF3")*M2I?D. "225* *=24"6*M.2V82I/N3U*(*)6=.2F0"6*M2I?G+TCO.7B5.MFJ"6&03C;O3T;IU7E6J^I7RSI/EF(.,^2"06).J^220ZI3O7R+AT*2	X.MFJ"5&03C;O3T
IU7E6J^I7RSI/EF(.,"2"06).J"220ZI3O7R+AT*8"0*	^-")6).JF120NI7OSN7IWNE*M2IGC+LCL7DWR+FA3FOA3H&,"36)2JNI3A3L6 SR3AWP*(216-OI+T3D.1J924&,")*M7CJI7ESS7AKU7IKE3U
N2 WD3SN 3O7M+O7N7BKE3EOIH7S2JNI3A3L6 SR3AWP*(216-OI+T3C.2^22,[IE6)2JRI/O" *8B0/K61.1F,"468.J"820&I22.(.16)3IWF.(GK.+J1")*M2IGC+LCL3CGH+ICN2(N	3AGW*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