File ARAT.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN6 KAA7T"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 GC7LWC7LSA3EJ 7ESS2 GR3T?I3N3A6 CA3P?R3X7I3A	T+OCN+OCF3AR 3IOS7RSEE*M+CB
* B * B * B 3F;U3C	T+OCN+ICN3TWH2 WL7ASS6 GS7UKA+ECS3S;ES7E"J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 KA+AT7DSA3I:,2,?W+R3K3P&,3P&,3Q&,+E	R2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 R 3A	T* 6 6 
T3O	D3M;E3S?I3N3A6 KA7R	A2 	W+TCH23N 7OWL7MON2 ;A3D: 2 ?RW7S*JCC* B * B * B * B * B * B 3TWH2 	F7RSS2 ?C3L7U3N6 7USS2 ?C3NGT+ICN3TWH2 	G3V;E6 KA3G7U7ESNS6,*JCC* B * B * B * B * B * B 3TWH2 WS3C;O3DN 7OWL+MCN3TWH2 	G3V;E6 WF7NSC3I;O2 GV3LWU3SF N7D*JCC* B *
B * B * B * B * B 3TWH2 T3ISR2 ?C3L7U7NR +HCE7G[I+ECN3W	E7GSH3S& 3FF +N;Y2MNJ* B * B * B * B * B * B 2 [I2 ?N2 WW3IG+TCS3AWR2 ?T2 WB6 OU+ECD3TWH7NR +HCE3T	HR7D*JCC* B * B * B * B * B * B 3C3O3U;M2 GM3YJ 3ER 7RCO3PSE* B,3EOX7ESP2 T3EZ 7IOR3TV 3L7E7ESN2MNJ*
B * B * B * B * B * B 2 W3IC6 WM+SCT3C;O3T	A3NF 2 ?N3N?P7SSI3IWV2 GV3LWU2MNJ* B * B * B 2 : * B * 6 6 WN3MWB3R> 3F: 3OWD3S> 7FR +HCE7G[I+ECN7DOI3CWR+TCE3F;U3C	TO7N*JCC* B * B * B 2 ?W+RCK* B-7WKO3K;I7GN 7TKO3AWG2 W3IC6 OI2 [O2 	D3M;E3S?IN*M+CB * B * B * B
* B * B * " +I/P+I	Q2*&(3P&+/QF+.)R+**/N21F 3T2 7EOAT6.*JCC* B * B * B * B * B * B +OCN7RSE3U;R2 T7EZ 7AWL+ECS+OCF3TWH6 WN7MKE3A?T3RF +RCE3C;O3T	A3NSE2MNJ* B * B * B * B * B * B 2 ;I2 ?W+RK/NF+6)V 7PR 7O^ 3O/R*(*2+N2)2 W3IWL2 T7EZ 7AWL+ECSO7F*JCC* B * B *
B * B * B * B 3TWH2 WD3N7O3IGN7TKO6 KA7EN 7TKO+ECD+ICN7WKO/KJ(**/N*1B)+UCPT7O*JCC* B * B * B * B * B * B 7WKO/KN(**	N2MNJ* B * B * B 6 B * B * 6 2 WR3S3U3T;A3TN 3O[E3FOI3I;E7TZ 7ESC+OCR+OCF3D;E3O	M7NSA+OCR3ASN2MNJ* B * B * B * B * B * B 6 WN7MKE3A?T+RB.3T
H2 WD3N7O3IGN7TKO6 OI6 SS3OWR3D& 3NZ 7IOR3T& Q*M+CB * B * B * B * B * B 2 2 3OGC3T?I+N3S2 T3E: 3UWM7RSA+OCR+ICN3TWH2 ?F3L?L3W;I3G& P*M+CB * B * B * B * B * B 2 2 3OGC3T?I+N;S2MNJ* B * B * B * B * B * B 2 ?C3E[F3I	C7ESN3SF +RCE3OSR3EWR3DZ 3R7O2 ?L7WR 3O" 3
G".*M+CB * B * B * B +ICP* B 2-R 3IWM3N	S+OCN+OCF3TWH6 WN7MKE3A?T+RB 2 &(7NWP7TZ 7AWLE6)*JCC* B * B * B 6 GI* B * B-3D7I7EON3I;O2 [O2 T3ER 3E?N3M;I3A?T+R" 7ICN+UCT3V3A+U	E2MNJ* B * B * B 2 & +ECR* 6 2 WR3S3U3T;A3TV 3R?R7RB 3AGR7MSEE7R*JCC* B * B * B * B *
B * B 7IKE* 6=216 3E;A3SZ 3O7R+ACL7EKR7OOR2MNJ* B * B * B * B * B * B 2 WI/R6 * B03MGE+NCS+NCO7EKR7OOR2MNJ* B * B * B * B * B * B 2 WI/R6 * 21226 3E;A7SB 7OKO2 ?C3NWV3RWG3NWC2 [O6 SI3EGR3T?IN*M+CB * B * B * B * B * B 2 & +ECR+ICS7AOL7OV 3SSE6 OA2 ;I7PSU2 
V3LWU2MNJ* B * B * B * B * B * B * CA3N;O7ZKE3O& 7NWP7TZ 7AWL3E& 3N	D7CSA+ECS3AGV3IGL3B3I7I	T2 [O2 ;A2MNJ* B * B * B * B * B * B 2 ;I3I	T+ACL7ACP7RO3IGM3T?I7NN 7TKO+ECD+ICNP*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3TWH2 ?C3E[F3I	C7ESN2 WV3C?T+RCS+OCF3T
H2 WD3N7O3IGN7TKO2 ;A3D: 3UWM7RSAO7R*JCC* B * B * B 2 [O2 T7EJ 3A	T3OGN3LF 7PKP3O	X7MSA3I;O6 KA3EJ 3OT6 SS3OWR3D& 7NB 2MNJ* B * B * B 6 N 7TKA3T;I7G^ 3IT2 ?L7WB 3OWW+RCS2(WD3N7O3IGN7TKO2 	F7RSS")6.*JCC* B * B * B 6 CI6+GI6 WM+SCT7NSO6 E3CWE3D: 2,F +LCL7TK
+ECE3V3A7UOE6 WM+SCT+BCE7POO3I	T+V;E2MNJ* B * B * B 6 N 3ION3EN 3HKE3YS+ECV3P3O3Y?N3MGI+LCS3AWR6 OU+ECD+ACS3F;U3D7A7ESNA7L*JCC* B * B * B 6 WF7NSC3I;O+SB,3TWH6 KA3G7U7ESN7SN 7HWO+LCD+BCE3RSE3UWC7DR 7OR +HCE7ISN7E[RA7L*JCC* B * B * B * 6(.1F,*)B.3T	H3SN +A
N7A
L7AOY2 WB2 OA3C7O3P	L3SWH3DJ 3Y6 3E;A3S> 3FF 2 	L3NGER*M+CB * B * B * B 3TGR3N[S3O7R3A	T+OCN+OCF3TWH6 KO3I	G3N3A+LCY7G[I+ECN3A
R3UWM7NOT".*M+CB * B * B * B +ICF3AZ +ICT+ICN3OT+ECR3F;U3C	T7OON6 OI2 WR3Q	U3RSE2,N +NCP3ASN2 ;C+PCS7MOUT*M+CB * B * B * B +BCE7RCE3LOA+ECD+BCY3SKU7RWO3T;I+ECS3W	H+CCH3AWR2 [O2 ;A3A?L7GWO3SR 3E	S+G;N2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU
P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 6 CA+L3L6 CA+F3S6 KF+A3T2 ;C+P3S2 ;CP*M+CB * B * B * B 7CCN6 OI2 WR3Q	U3RSE2 	W3T	H3NZ 7RSA2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 T3E& 7TKE3A	T+VCE3SC3EWM6 OU+ECD7FKO2 GC7LWC7LSA3I;O2 [O2 TE*M+CB * B * B * B 7ACP
RO3IGM3T?I3N& 7SJ 3EWP3AWT7DN 7OWL3T?I3N> 7FR +HCE7NKO3M3A6 GE7USA3I;OS*M+CB * B * B * B 3W	H+CCH3AWR2 KO3T	A3NSE6 	B2 	L3NGE7R+I3A	T+O;N2MNJ* B * B * B 2 F 2 WR3F;I+ECD3TOE3H	N3QWU2 [O2 T+ICS3L;I7EKA2 WL7ASS6 GS7UKA+ECS7ACP3RGOC7H*JCC* B * B * B 6 OI6 OU
ECD3W	H+CCH3GGU3R;A3TWE7SR 7HSA2 T3ER 3E?N3M;I3A?T3R& 3SZ 3RWE2 [O2MNJ* B * B * B 6 * 3E?R+ECS7WSI3H;I2 T3EF 7PKP3O	X7MSA3I;O2 ;I7TKE3V3A".*M+CB * B * B * B 7FKO2 WR7FKE3EON7EN E7E*JCC* B * B * B * ;D3BGR7EOS6,V 3EWB3RR 3A7E7PWF+NCG3B	E2 	M3N7I3A	L3SWI3R;
7G[S3E[R7AKH+E3N2MNJ* B * B * B 2 N 7OCM3U	T+NG.1Z9*62)2 ?V/LF.2,V /DN.6,B /PJ.*664.2J7".*M+CB * B * B * B 7D^.2.GM7RWQ3ASR+TB,+ACN3A
L3O	R3T7H2 ?F3R2 7EOA7TN-3QGU7ROE6 OE3T7I3A	TO7N*JCC* B * B * B 2 [O2 ?N3N	L3NGE7RB 3AGR7MSE7EOR",*M+CB * B * B * B 3J	S+AM.1Z9*32)2 ?V/LF.*1B,+E;D*2B,+P;P.4F3.-R4"16."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.
.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3EF 7RSA2(GD+T3I7N^,3O/R*,3P+I3P+I3Q7IKE")*MC*MC*M* B * B 7ESX3E;R+ACL3FGRT*MC*M+CB * B * B 3D7I7EON3I;O+ECD3LOO+ACL7VKA3IKAL7E*JB * B 2 	D3M;E3S?I3N& 7E[R*(&32MNJ2MNJ* B * B 2 R 3IWM3N	S3OWN3DR 3U7M7YZ 3A	R3A3BE7S*JB
* B 2 	D3M;E3S?I3NR 3A	T*(&12,?W+RK*12)/PF(")*MC*M+CB * B * B 3I	N3TGI7L+I7ER 7ESS3V3A7UOE*MBJ* B 2 2 3I	M/TJ="0*M* B * B 3EGT. F=*.7E"161*JB * B 6 CE/SF=*.7E"5*MC*M+CB * B * B 3CWH+CCK7FKO2 ?F3RGM3LV 3R?RR7S*JB * B 2 [I*(	N.4R,",61*JB . F 2 [I6(CI*)24.4J
*MBJ* B 22& 3F&(/QR)*,24"3*M* B * B37IGP6=CI6+GI*MBJ* B 2 & 3F:(6-CI/QR)*,25"5*MC*M+CB * B * B 7EKR+OCR7RSE3U;R2 ;I2 GC+SCE+OCF7FKO3M3A6 KE7RKOS*M* B * B47IKE.=F-*MBJ* B 6 J 7EWTR7N"J7C*JCC* B * B 2 ;I3I	T3A	L+ZCE3IWT7RSA3I;O6 KP3OWCS7S*JB . V 2 ?K7USN"=6
*JB * B 2 WI+RV.26)I7P*JB * B 2 WI+RV.36)I7Q*JB * B 2 SN3P:=*+/N"1*M* B * B 3NWN2=SN3P:+D7P*JB * B 6 I6=CI/QF-*MBJ* B 2 & /QGP6=GI"+61*JB * B 6 KI/H7S3NWN6+CI3Q&*/XJ/*MBJ* B 2 & 3ESN6=KI+H/SI7X"J7C*JCC* B * B 2 WT+SCT7FKO6 [A3A3I3A	B7LSI3Y> 3FF 3N& 7NSI3I
A6 CA3P?R3X7I3A	TO7N*JB * B 2 [I2(WI/R")*,26"8*MC*M+CB * B * B 3I	N3TGI7L+I3E: 3UWM7RSA+OCR3ASN2 WD3N7O3IGN7TKO*MBJ* B 26R /O^ . 7I22&,P7Q*JB . ^ * P/I6)"06.*JB * B * P.16)"16."J7C*JCC* B * B 2 GC7LWC7LSA7EZ 7AWL+ECS+OCF3N7U3EGR7TKO2 ;A3DR 3E?N3M;I3A?T3RZ
+OCR3I	N3TGIL*M+CB * B * B 7ACP7RO3IGM3T?IN*M* B * B8+DCO29* *=21N*M* B * B 3TR=3A	T*(	J*MBJ* B 2 & *=/JN*M* B * B 3C3A3LN 7NOP2(?W+RK+I2)7TB,6(GI+P&16,CI")*M* B * B 3K&="+7N*JB . & 2 GC+LCL7CCN7S^(3O/R*(	K*,3T3P&,Q6)"J7C*JCC* B * B 2 WS7TV 3P: 3O7R+ACL7E
Q3A	T7OON2 6(3A;I2 ?L+OCP+OCF3IWT7RSA3I;O")*M* B *1B03C3A3LF 3P3L6(KF+A3T3N&,7X^,3O/R2,?W+RK3I;E/DF+2)R,3A	T2,WI+R	V2MNJ2MNJ* B * B 2 N 3HOE3KZ +OCR7ZKE3OR 3E?N3M;I3A?TR*M* B * B +IF7IKE/VF(.)R).,F1",64*JB . F12 ;I/C7R"0*M* B * B 3R3E/A7X"26."J7C*JCC* B *
B 2 WR3S?T+RCE7MSA7RI2 ;I2 ?W3R	K+NCG3S?T3R
AE*M* B *1B23J&=3ESN*MBJ* B 2 R /OF 23& 2=;N3E&,3ESN*MBJ* B 2 * *=/J"1*M* B *1B37WKO3K&(6)^=3O/R*(	J*MBJ* B 2 & 3F.(3O;U/TF).4F,.4F,"5*MC*M+CB * B * B 7S[A7EN 3QGU+RCE3S7U2 [O6 KE7RKOS*M* B *1B47OWS7M^=3O/R2(WI+N	D*MBJ* B 2 R 3I
A6=OO+U+M7EOP*MBJ* B 2 . 6=GI2MNJ2MNJ* B * B 2 F +DCD3C;O3SGT+NCT+TCO3DGI3G;OA7L*JB * B 2 [I2(?W+RK3NWN.)F).7F,.7F,"9*M* B *1B5+IF3ION/RF).9F,.9F,"6*M* B *1B63K&=P7Q*JB . ^1. 7J3NWN"-61*JB * B 2 ?D. "1. 7I21.,*MBJ* B 6 ^ 3O/R*(	J2=?W+RK+J.)3DGIG*M* B *1B8
J*="+7I"J7C*JCC* B * B 2 ?S3LWV2 ?N3RGM3LV 3QGU3T?IN7S*JB . &12 GC+LCL3A[P7S^(3O/R2(;N+E2)+I3X3IWR/SF,6,CE3SV,+T3A7IKE")*MC*M+CB * B * B 3CWH+CCK7FKO2 GF7IWL+RCE+OCF7EWQ3A	T+OCN3S3O7VKE*MBJ* B 2 & 3F&(7ROE*)24.4J,"0*MC*M+CB * B * B 7TOE3TZ +OCR3D[E7ESC3IW
2 ?N3RGM7LGE7USA3I;OS*M* B *2B0+IF3IWR3S&-/XJ).1J,.4J,"4*M* B *2B1+IF3ION/RJ).2J,.2J,"3*M* B *2B23DGI3GR=3I
A**:0.1V2*MBJ. J 23R 3I
A2=	D+A/G3DGIG*M* B * B 3ION3R&=7NKC"+61"J7C*JCC* B * B 6 SS7ASR2 	W+TCH3OWV7RJ 3EGL7XSA3I;O*MBJ* B 6 J 3EGL/X"=".*M* B * B +IF3ION3R2-3I	M/TF).2R,.5R,"5*MC*M+CB * B * B 3C3A3C3U3AWT2 GV3LWU3S> 3FN 3H;A+GCE+OCF3N7U3EGR7TKO2 ;A3DR 3E?N3M;I3A?TR*M* B *2B43L
=D7P*JB * B . 7J3NWN6+KI+E+S6(KI+E7S*1>).2F-*MBJ* B 2 . *=/JI7Q*JB * B 2 ?W+RK/J6)"06.*JB * B 6 KI3Q&=Q*M* B * B 7ICR6=KI+E7S+I/Q"1*M* B * B +IF7ICR.)V2.,Z2.,Z2*MBJ. J 25& /R7Q3IWR/SF+*MBJ. J 26R /OJ 29& *=21N*M* B * B 3TR=3A	T*(	I*MBJ* B 6 ^ 3O/R*(	I*=:0
MBJ* B 2 N 3A3L2 ;C+PS7WKO3K&(6)R,2,?W+RK+K2)7ICR")*M* B * B 3M2="+7N*JB * B 2 GC+LCL7CCN7S^(3O/R*(	M*,3T7WKO3K*(2)&,+R	Q*MBJ* B 2 & 7F^(3O/R*(	M2*?W+RK+L&)*227*229"269*JB . ^26 WS7M^=3O/R*(	L2/?W+RKM6)*JB * B 2 [I2(WR7LA6+WS/MJ).9J,.9J,"8*M* B *2B83R3E/A
X6-WSM*M* B *2B93L2="+61"J7C*JCC* B * B 2 ?M3D[I7YJ 3EGL7XSA3I;O2 GF3C?T3R& 3F: 3EWC3SGSR7Y*JB * B 6 OS/O7E7OWSM*M* B * B 3IWT3R2=3I	MT*M* B *3B03S7U*=:0*MBJ* B 6 J 3EGL7XJ=3EGL/XB*".65*JB * B 2 ?D. J3. 7I21:,*MBJ* B 2 6 *=/IN*M* B * B 3K6="+7N*JB * B . 7
3K:+*MBJ* B 6 N 3AWV2=GD+TI+M6)2(?W+RK+M.)3R3E+A+X7WKO3K&(*)>)2(?W+RK+K.)3R3E+A+X7WKO3K2(")6)*JB * B 2 GS/V7E7S[A7EN*3AWV*MBJ* B 2 & 3FR(3A	T2(SN+P&)*322*322"361*JB . F32 GS/V7E7S[A3ER*3A	T*(	K*MBJ. N 62N /U7M3S7U2+GSV7E*JB * B 2 [I6(SI+E	R*425*323"363*JB
. N36 SI/E7R3IWT/RF-*MBJ* B 2 & 7FN(+U7M7OWS/MN).4N,.7N,"5*M* B *3B47OWS7MN=U7M*JB * B 2 ?G+TCO"360"J7C*JCC* B * B 2 WT+SCT7FKO2 7I3P?R3V7E7ESN*MBJ. N 25& 3F>(3S7U6-OS+O	E*326*320"360*JB . Z32 WR7LA2=WR7LA2+WR7LA*MBJ. N 67R *=:0*MBJ* B 6 N 3AWV*=:0*MBJ* B
2 . 6=KI+E/S"1*M* B * B +DCO*3B8/IJ=",7K*JB * B . 7J/JF+*MBJ* B 6 R *=/T7AOB*(P+I&)*MBJ* B 6 B *(	I*=P+I.)3R3E+A+X7WKO3K*(")*M* B *3B87S[A7EN=3AWV2+KA7SB(*(	I")*MC*M+CB * B * B 3USP3AWT6 WC3RWR+NCT3V3A7UOE2 [O6 WN7MKE3A?T3RF +NCD3D;E3O	M7NSAO7R*JB * B 2 ?
. &3. 7I21:,*MBJ* B 2 * *=/IN*M* B * B 3K*="+7N*JB * B . 7L3K:+*MBJ* B 6 ^ 3O/R*(	J2=?W+RK+J.)3R3E+A+X7WKO3K&(")*M* B *3B97WKO3K.(6)^=3O/R*(	K2+WR7LA2*?W+RKL6)"J7C*JCC* B * B 2 WT+SCT7FKO2 ?C3NWV3RWG3NWC*MBJ* B 2 & 3F&(7NKC.)B4.,B4.,J4*MBJ. R 20& 7FN(3SWO
-OO+U7M3R3E+A+X7EOP6*OO+U	M*426*426"461*JB . F42 [I2(KA7SR(2-GS+V	E2-WR7LA6*CE7SN*3AWV.)Z4.,Z4.,J4*MBJ. R 22& 3F>(3S7U6-SE7AN*3AWV.)Z4.,Z4.,N4*MBJ. R 23. 3O;U3T.=3O;U/TF+*MBJ* B 2 & 3F.(3O;U3T2-3I	M/TF).0R,.4R,"4*MC*M+CB * B * B 7EKR+OCR7RSE3U;R2 ;I2 GC+S
E+OCF3P?O3RN 7O[N3E
R3EONE*M* B *4B47IKE"=62*JB * B 2 WR7TKUN*M* B *4B57IKE"=61*JB * B 2 WR7TKUN*MC*M+CB * B * B 7NKO3M3A2 WR7TKUN*M* B *4B67IKE"=60*JB * B 2 WR7TKUN*M* B * B 3ESN&M*J"B"B"B"B"B"B"B"B

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