File DARAT.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 7UKB7OSU3IWN2 GD7RSA2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 3AOL3UGL+TCE7BOE7TJ 3A	T3OGN3LF 7PKP3O	X7MSA3I;O2 [O* CA7DOI3CWRT7E*
CC* B * B * B 6 WF7NSC3I;O2 ;I2 T3E2 7EOA7TN 3QGU7ROE2 WS3NWS2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR 3AGR3TR(3A	T*,3N7WKO7KB,6,CI6,GI2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B 2 GD+TCI* B-3T?W3D7I7EON3I;O+ACL7AKR+ACY7WSI/HN 2 ?C3L7U+NCS3ASN* CN7R
OS*M+CB * B * B * B * B * B 6 R +HCE7FKI+SCT3C3O3U;M6 WM+SCT3C;O3T	A7NR +HCE7G[I+ECN3A
R3UWM7NOT",*M+CB * B * B * B * B * B 6 R +HCE3SOE3OSN2 ?C3L7U7NR +HCE7G[I+ECN3F;U3C	T+OCN3V3A7UOE2 ;AD*M+CB * B * B * B * B * B 6 R +HCE3T	H+RCD3C3O3U;M2 T3E^ 3IWV7N^ 3E
I7HOT2 [I2 ;AY6.*JCC* B * B * B * B * B * B +ICF+NCO3W	E7GSH3SF +RCE+TCO+BCE3UWS7DR 3H;E2 T7ER 7HKID*M+CB * B * B * B * B * B 2 N 7OWL+MCN7M	A2 WB6 KD7OCP+ECD2,V 3XWC+PCT3TWH2 	F7RSS2 3E3EWMN7T*JCC* B * B * B * B * B * B 3W	H+CCH7MOU3TN 7OSN3A;I* CA3N;O7P
O3I	T+VCE3V3AU7E*JCC* B * B * B * B * B * B 7DSA3I6 7USS2 WB2 [O2 ?D3U3B7EB 3ROE3I	SO7N*JCC* B * B * B * CN* B * B-3N7U7BKE2 [O2 ?N7DOE2 [O2 T3E^ 3IWV3NR 3IOS7RSE3EZ 3UON3T?IN*M+CB * B * B * B 7WKO+KB 6-^ 3O/R3I
N6 SS3OGR+GCE3W	H+CCH+ICS+OCF3D7I7EON3I;O2MNJ* B * B * B * B * B * B 2 &(3P&++Q*)6(CI6+GI*+&1*+*4/NF+6 SA2 WL7ASS".*M+CB * B * B * B * B * B 2 > 7NJ 7EWT+RCN3TWH2 GV3LWU3S> 7FR +HCE3N7U3EGR7TKO6 KA3EN 7OSN3A;IE7D*JCC* B * B * B * B * B * B +ICN7WKO3K:(*+&
6 CU2 ?T2 ?W+RK22:**)B,3W	H+LCE3TWH2 GV3LWU3S> F*M+CB * B * B * B * B * B 6 R +HCE3D;E3O	M7NSA+OCR3AWR6 SS3OWR3D& 7N^ 3O/R*(*2/NF+6)V 7PR O*M+CB * B * B * B * B * B 6 ^ 3O/R*(*3N6)*JCC* B * B * B * B * B * B 7WKO3K6 7USS2 WB2 [O2 ?D3U3B7EB 3ROE3I	SO7N*JCC
 B * B * B * CP* B * B-7ROE7USL7ASN2 ?C3E[F3I	C7ESN2 WV3C?T3R> 3FR 3E?N3M;I3A?T3RF N7D*JCC* B * B * B * B * B * B 3N7U3EGR7TKO6.R +HCE3D;E3O	M7NSA+OCR+ICS3S?T3RSE2 ;I2 	F7RSS6 GI2MNJ* B * B * B * B * B * B 2 ?L7CSA3I;O+SB,3TWH6 WN7MKE3A?T3R& 7NR +HCE3F3O7

O3I
N6 CI2MNJ* B * B * B * B * B * B 2 ?L7CSA3I;OS6.*JCC* B * B * B * B * B * B 3CWO3F	F3CWI7NOT6 KA3E> 3RWD3RSE6 KF+OCM7L
O2 ?T2 	H+G;H2MNJ* B * B * B * B * B * B * CP7MOU3TJ 3E> 3FR 3OKU+LCE3PWR7COI3I;O2MNJ* B * B * B 2 & +PB * 6 2 	D3M;E3S?I3N> 7FR +HCE3N7U3EGR7TKO* B 2(;I7PSU2 GV3LWU")*M+CB * B * B * B +ICQ* B 2-R 3IWM3N	S+OCN+OCF3TWH2 WD3N7O3IGN7TKO2 &(7NWP7TZ 7AWLE6)*JC
* B * B * B 2 WI+RB * B-7ROE7USL7ASN6 KE7RKO2 GP3R7A3EWTR*M+CB * B * B * B * B * B 2 & +ECR.=F-2 WM7AON2 ?F3RGM3LV 3R?RR7S*JCC* B * B * B * B * B * B 7IKE* B=206 3E;A3S: 3OV 3R?RR7S*JCC* B * B * B * B * B * B 7IKE* B=.1J,2 WM7AON2 ?P+OCR3C;O7VKE3G;E+CCE+O
F3IWT7RSA3I;O2MNJ* B * B * B * B * B * B 2 WI3R& 3SF 3L?S6 OU+ECD+ACS7ICN+UCT3V3AU7E*JCC* B * B * B * B * B * B 3A: 7O+N3E?R2 ;I7PSU2 GV3LWU2 ;I3DOI3AWT3SF 3V	A3LKA3I	L+TCY+OCFA7N*JCC* B * B * B * B * B * B 3I	N3TGI3LF 7PKP3O	X7MSA3I;O6 SS3OWR3D& 7NB 2MNJ
MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 R +HCE3CWO3F	F3CWI+NCT3VOE7TKO3S> 7FR +HCE3D;E3O	M7NSA+OCR3ASN6 WN7MKE3A?TR*M+CB * B * B * B +OCF3TWH2 GR3T?I3N3A6 CA3P?R3X7I3A	T+OCN3AWR2 ?B+TCH3S?T3RSE2 ;I" 7P*JCC* B * B * B 6 SS7ASR3I
N2 	W+TCH7L
O2 ?P7WKE+S" 3D;E3O	M7NSA+OCR7FKI+S	T".*M+CB * B * B * B +I/P+ICQ7MOU3T: +OCT3EOX3ESE* 3N2 3A7LR 3HWR7EZ 7AWL+ECS7MOU3TJ 7EB 3O	S7T[IE6.*JCC* B * B * B 2 	S3NWC2 C7E	B3SWH7VB 7O	L3N7O3I3A3SF +RCE3UWS3DF 3SZ 3USN3AWM3NGTL*M+CB * B * B * B 3F;U3C	T7OON6,R +
CE3A
R3UWM7NOT2 S3O3U3DJ 7EJ 7EWD3CSE2 ?T2 T3E& 3NWT3RGVL*M+CB * B * B * B .(F-*,&16.R 7HOI2 GC3NF 3LGW+YCS+BCE3AOC7OCM7LOI3HSE6 	B2 WM7AON2 [O* CA3L;I7EKA2MNJ* B * B * B 6 R 3R;A3S?F3RGM3T?I3N> 7FR +HCE3O	R3G;I3A3L3Y^ 3IWV3NF 7RWG3M;E+T;S2MNJ* B * B * B 2 & 3
F 2 	F3T& 3N> 3TWH3RZ 3UON3T?I+NCS+ICS7RGE7UKI+E3D2 OD+NCP3ASN2 OD7NOP6 WMS7T*JCC* B * B * B 2 WB2 WR3PGL3CSE6 	B6 WS3B?R3U	T7NOE2 W3IC6 KA3E> 3FF 3N3A3O?G+UCS7DOE3I;G".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B *
B * B 2 R 3A3P+LB,7DCA+F3S2 [D7RSA2,R 7CCN+SB,3D;CP*M+CB * B * B * B 3D;C3P& 7SJ 7EWQ3IWR7D^ 3IT+ICN7DKFA7T"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3TWH6 SI3EGR7T[I7EN 3CWH+MCE3UWS3DZ +OCR3C3A3C3U3A	T+OCN+OCF3TWH2MNJ* B * B * B 2 F 7PKP3O	X7MSA3I;O6 OI2
WR3PGE3TSE2 ?S7LSU3I;O2 [O2 T3E: 3O7R+ACL7EWQ3A	T7OON2MNJ* B * B * B 6 ^ 3HOI3HF +RCE7OSB3A;I+ECD+BCY3L;I7EKA3IGZ3T?IN6.*JCC* B * B * B * CA3R[E3IWN7DR 3EC7NGI+UCE+OCF3T	H3S2 3IWN+ACR3LGE+SCT7SWQ3AWR3SF 7PKP3OOAH*M+CB * B * B * B +ICS3UWS7D^ 3HOI3H^ 7UKA7
SN7EOE2 T+ACT3TWH2 WD3N7O3IGN7TKO6 OI6 KF+ECEO7F*JCC* B * B * B 2 WZ3RWO7S^ 3IT+ICN3TWH6 CA3P?R3X7I3A	T+OCN7ISN7E[R+A;L2MNJ* B * B * B 2 Z +OCR3R[E3EWR3NWC2 WSE*M+CB * B * B * B 3DJ.3RWA+S3S2 WU7BKE2 GD7ECM3F;U3GJ +ECI3M;I3IGM7LOI7IKE3U
N3SWV3RGF3HWRN6,*JCC* B * B * B 2 ?C7MWP3T;I/GF(.9Z6*)B,3V3O*.212 SE*.236 CP..Z2.4J-*7:22MNJ* B * B * B 2 R *.;W7MKA3QGU7RSD2,F 3NF 3L?G7RSI+HCM7FKO2 WL7ASS6-GS7UKA+ECS7ESS3IGM3T?IN*M+CB * B * B * B +OCF3N;O3L;I7EKA2 GP3R7A3EWT+R3S2MNJ* B * B * B 2 * 3SGI
MF(.9N6*)B,3V3O..F12,V /DJ.6,B /PR.*361.4F4".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 GD7RSA2(GD+T3I7N^,3O/R*,3P+I3P+I3Q7IKE")*MC*MC*M* B * B 7ESX3E;R+ACL7DKFA7T"J7C
JCC* B * B 2 	D3M;E3S?I3NSE2 ?L3C3A2 GV3RGI3BWL*MBJ* B 2 R 3IWM3N	S+OCN7IKE/VN(")*MC*M+CB * B * B 3D7I7EON3I;O+ECD3D7U+MCY7VKA3IKA7LOE*MBJ* B 2 R 3IWM3N	S+OCN7DSA/IF(6)^,3O/R*(&1*,P"16)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7DSA7I^,3O/R*,3P3T>,3S7U2,	D+A3G3R3E+A
X3S7U6,OS+O3E7S[AE*MC*M+CB * B * B 3I	N3TGI7L+I7ER 7ESS3V3A7UOE*MBJ* B 2 2 3I	M/TJ="0*M* B * B 3EGT*=:1/EJ-"9*M* B * B 7EOP*=:1/EF-"4*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"=60*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& 7NSI3I3A6 CA3P?R3X7I3A	TO7N*JB * 
 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)20R."0*M* B * B /PF(.)F=..CD2MNJ2MNJ* B * B 2 N 3AOL3UGL+TCE3V3A7UOE2 [O6 WN7MKE3A?T3RF +NCD3D;E3O	M7NSA+OCR7FKO2 ;I3I	TA7L*JCC* 
 * B 6 CA3P?R3X7I3A	TO7N*JB . " 2 ?D* B9/JF=",7N*JB * B . 7T7DSA3I*(")*M* B * B 3I*="+7N*JB * B 2 GC+LCL3D;C+PS7WKO3K&(6)R,*,P7ICQ*12)+I	P*MBJ* B 2 . *=/IN*M* B * B93C3A3LR 7CCN7S^(3O/R*(	K*,3T3P&,Q6)"J7C*JCC* B * B 2 WS7TV 3P: 3O7R+ACL7EWQ3A	T7OON2 6(3A;
2 ?L+OCP+OCF3IWT7RSA3I;O")*M* B *1B03C3A3LR 3A3P3LR(3FGR3T:,6,I2,?W+R3K7WKO3K&(3ESN*+&12,GD+T3I7IKEV6)"J7C*JCC* B * B 2 C3E/C2 ?F7R* 3E?R2 WD3N7O3IGN7TKO*MBJ* B 2 & 3F&(7E[R*(&1*)24*121"4*M* B *1B13ION/RB=*MBJ* B 6 J 3EGL/XJ=..CD2MNJ2MNJ* B * B 6 J 7ESS3O
R2 GM3T	R3X& 7N^ 3O/R3I
N6 SS3OGRG7E*JB . J1. 7J3I;ED*M* B * B +DCO*1B33I:=+N3E3I;ED*M* B * B 3J*="+61*JB . N12 ?W+RK/I6)7WKO3K*(")*M* B * B +IF7KWO+N	T*124*124"165"J7C*JCC* B * B 2 GS+VCE7SWQ3AWR6 WS3M> 3FV 3R?RR7S*JB . R16 OO/U7M7WKO3K&(3ESN")*M* B * B 3DGI3G>=3S7U6*CES*M* B *
B 3K&=Q*MC*M+CB * B * B 3ASD2 ?C7NSS7ASN2 ?T2 	D3A?G3N3A*MBJ* B 2 & 7F^(3O/R2(;N+E&)*127*127"169*JB . V12 [I2(;I+C	R*129*129"166*JB . Z1. 7K7IGP*MBJ. F 27* 2=;N/EF-*MBJ* B 2 R /OF 28& *=21K*M* B * B 7WKO3K*(6)^=3O/R*(	J2+	DA7G*JB . "1. 7J3J&+2MNJ2MNJ* B *
B 6 N 7O[L3E: 3O7R+ACL7EWQ3A	T7OON*MBJ. F 29N 3A3L2 GD7POF2(?W+RK3NWN2)&,3X&,7ROE*,217EOP6,SE3A&,+E	R2MNJ2MNJ* B * B 2 N 3HOE3KZ +OCR3F	A7LKU3E> 3FV 3QGU3T?I7NN 7O[LE7R*JB * B 2 [I6(KI+E	S.4R,.,B22MNJ2MNJ* B * B 6 R 7ESS2 ?F3RR 3EWF3C	T+VCE7NKO3M3A7EWQ3A	
7OON*MBJ. J 20& 3F&(7ROE6-I.)F2.,R2.,R2*MBJ. J 21& 3F&(7NKC.)J2.,J2.,N2*MBJ. J 22R 3I
A2=	D+A+G.0F.22R5"0*M* B *2B33DGI3GR=3I
A2+	DA7G*JB * B 2 ;I/C7R3ION/RF+2MNJ2MNJ* B * B 6 N 7TKA7T^ 3IT6 [O+ECR3R3E3AGX3T?IN*M* B * B 3R3E/A7X28R."0*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*
B * B . 7J3NWN6+KI+E+S6(KI+E7S*1>).2F-*MBJ* B 2 . *=/JI7Q*JB * B 2 ?W+RK/J6)20R."0*M* B * B 7IGR6=GI*MBJ* B 2 & /R7P3IWR3S&-/QF+*MBJ* B 2 & 3F&(+R	P*225*226"266*JB . V26 KI3Q&=7ROE"+61*JB . Z22 ?D. &2. 7I21:,*MBJ* B 6 R 2=GD+TII6)*JB * B 2 ?W+RK/I6)20R."0
M* B * B 3C3A3LR 7CCN7S^(3O/R*(	I*,3T7WKO3K.(2)&,+R	P*MBJ* B 2 6 *=/LN*M* B * B 3C3A3LR 7CCN7S^(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 *2B83R3
/A7X6-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*=:0D60*JB * B 2 WR7LA2=WR7LA**:0.5CD*MBJ* B 2 R /ON 22& *=21N*M* B * B 3M&="+7N*JB * B . 7K3M:+*MBJ* B
2 2 *=/KN*M* B * B 7S[A3ER=3A	T*(	M6-^(3O/R*(	M2+WR7LA2*?W+RK+I&)6/^(3O/R*(	K2+WR7LA2*?W+RK+L&)*MBJ* B 6 N 3AWV2=GS+V+E7S[AE*M* B * B +IF7DSA3I:(+D	P.)J3.,J3.,F3*MBJ. N 61N 3AWV2=GS+V+E7DSA3I.(")*M* B *3B23S7U6=WS7MN+3AWV*MBJ* B 2 & 3F&(7TKE.)V4.,N3.,N3*M
J. N 23& 7TKE6=SI+E7R"1*M* B * B +IF3S7U6-OO+U	M*324*327"365*JB . R36 OO/U7M3S7U*MBJ* B 2 ^ 3O?T. B32MNJ2MNJ* B * B 6 R 7ESS2 ?F3R& 7MKP3OWV3M;ET*M* B *3B5+IF7OWS7MN-3SWO.)Z3.,B3.,B3*MBJ. N 66J 3EGL7XJ=3EGL7XJ+3EGLX*M* B *3B7/TB=".*M* B * B 7S[A/EB=..CD*M
J* B 2 . 6=KI+E/S"1*M* B * B +DCO*3B8/IJ=",7K*JB * B . 7J/JF+*MBJ* B 6 R *=/T3DKA7SB(*(	I")*M* B * B 3P&(6)B=*(	I2+WR7LA2*?W+RKJ6)*JB . "32 GS/V7E7S[A3ER+7AOB*(P+I&)2MNJ2MNJ* B * B 6 V 3PGD+TCE7CKU3R;E7TZ 7AWL+ECS+OCF3N7U3EGR7TKO2 ;A3DR 3E?N3M;I3A?TR*M* B
* B +DCO*3B9/IF=",7N*JB * B . 7J3I:+*MBJ* B 2 . *=/JN*M* B * B 3L.="+7N*JB * B 2 ?W+RK/J6)7WKO3K*(6)J+3EGL7X^*3O/R*(	I*MBJ. N 69^ 3O/R*(	K2=?W+RK+K.)3R3E+A+X7WKO3K2(")*MC*M+CB * B * B 7TOE3TZ +OCR3C;O7VKE3G;EC7E*JB * B 2 [I2(;I+C	R*420*420"462*JB . B42 [I
(OS+O7E7OWS7MJ-3EGL3X>*3S7U2*KD+LE7EOP.)R).6R,.6R,"1*M* B *4B1+IF3DKA7SR(2-GS+V	E2-WR7LA2*GS+V+E3D3B3EV(+P	S.)Z4.,Z4.,J4*MBJ. R 22& 3F>(3S7U2-GS+V+E3D3B3EV(+T	A.)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+SCE+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"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"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