File DCAR.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 ODA7R"J7C*JCC* B 6 WP3R?PS7E*JCC* B * B 2 ?T2 ?C7MWP+T3E6 SA* CA7G[I+ECN3P	O+NCT+XB,+ACN7ACP7RO3IGM3T?I7N* 2 ?T2 TE*M+CB *
B * B 7DKE3IGV7T[I3E> 3FF 3NF 3N3A3Y	T3C3A+LCY7G[I+ECN3F;U3C	T+OCN7FSC2 T+ACT+ICS*1612MNJ* B * B 6 R 3IWM3SR 3I[F3EWR3N	T3A3B3E& 3NF 2 ?D3M	A3NN 7OSN3A;I3I
N* CA3C?L3SSE.,J 2-	S3DSE2MNJ* B * B 6 N 3Y7M7EKT+ICC7ISN7E[R+ACL+OCF3RSA7IOU2 KA3S3O3UWT* CH3A?B+UCT+XB,3U	S+NCG3F;U3C	TO7N*JCC* B * B 2 GV3LWU3S> 7N	L2 ;O2 T+ACT3C?L3SSE2 ;I7TKE3V3A".*MC*M+CB * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3DGC+R" 3X",2,I2,OF7T*,")*
+CB * B * B 7PKA3AWM7TKE2 OF7TJ 7EWQ3IWR3SF 3NV 3XWT3RGN7LN 7TSA3EWMN7T"J7C*JCC* B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * CX* 6 2 T7EB 3O;I3TF 7T^ 3HOI7HR +HCE7DKE3IGV7T[I3E& 7SR 3OJ 3EN 7OCM3UWTD*M+CB * B * B +HB * B-3TWH6 WN3MWB7R^ 7HOO3EF 3B?
7LSU7EZ 7AWL3ER 3E	F7NOE2 T3EN 7LOO+E3D2MNJ* B * B * B * B 6 N 3Y7M7EKT+ICC62N-3IWD3D& 3NWT3RGV3LF 7BWO7T" 6 N(+ECE7PKU7POOE6)*JCC* B * B 2 I* 6 2 ;I7PSU2 GP3R7A3EWT+R" 3SWE2 WR7MKA+KCS3ASN2 WM3T?HD6)*JCC* B * B * B * B 2 I2 ?N7N*-3E?R* B-3TWH6 WS3B?R3U	T
NCE3G;E3EGR7TOE2 T3E& 3NWT3RGNL*M+CB * B * B * B * B * B * B * B * B 6 Z 7AWL3E" H*M+CB * B * B * B * B +ICH* B *=B * B06-R +HCE7ISN3E;R+ACL3V3A+UCE+HCH+ICS7SSE2 ?T2 KA3S3O3UWT" 7H*JCC* B * B 2 OF+T6 2 T3E: 3AWM2 [O2 T3EV 3XWT3RGN3LZ 3UON3T?I7NN 7UCB3R
O3R7A2 T+ACT3W3IL*M+CB * B * B * B * B 3G;E3EGR+TCE3TWH2 WN7COE7SKA3YZ 3UON3T?I7NZ 7AWLE7S*JCC* B * B * CZ* 6 2 WR3S3U3T;I3GR 3E	R7VSA3IWV2 GV3LWU2MNJ2MNJ* B 6 J 3EGM7ROK2MNJ* B * B * " *1B)2 [I* CH.=B 6,R 3H;E2 T3EWR6 OI2 ?N2 ?C7MWP7TSA3I;O".*M+CB * B * 
 *(&26 R +HCE7ISN3E;R+ACL3V3A+UCE+H3H2 W3IC6 OI2 WD7TKE3M;I+ECD3AOC3OSR3I
N2 ?T2MNJ* B * B * B * B 2 I2,& 7SR +HCE7MA7IWM7MN 7TCE2-	S+ZCE3UWS3D& 7NR +HCE3C7O7PSU3A	T+OCNO7F*JCC* B * B * B * B 3TWH2 WC7NKT+ACL7D[I3IWD3DR 3I[F3EWR3NWC+S" 3SWE2 WM3T?H+D&.2 & 3F& 3H& S*M+CB * B * B * B 2 : +O7N7ZKE+OB,3TWH7NR +HCE3SKU7RWO3T;I3E^ 3E
N7RSA+ECS+HCH3AOC3OSR3I
N2 ?T2MNJ* B * B * B * B 6 KC3IWT3RGI2 T+ACT3B3A3AON7EJ 3O;U3D>-+FCF3ASN6 KT3UON3A	T+OCN7EKR+O;R2 " H*M+CB * B * B * B 2 & 3SF 3LGW+YCS7LOE7SR 3H;A6 KO6 GE3U3A2 ?T2 KA3S3O3UWT* CH+ICN7AOB7OWLT7E*JCC* B * B * B * B 3V3A+U3E2 ?S2 T+ACT3A3L2 ?C7MWP7TSA3I;O2 
O7CKU7S^ 3IT+ICN7AJ 3A	DU7S*JCC* B * B * B * B 7AOB7OWL+TCE3H> 7F" ".*MC*M+CB * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B 6 R +HCE7ESX3E;R+ACL3F;U3C	T+OCN3SKU3P?R3GGR3MZ +CT+TB)7MOU3TJ 3EZ 3U;R3IS+ECDB7Y*JCC* B * B 2 T7EV 7
KE".*MC*M+CB * B 7MSE3HSO2MNJ* B * B 6 R +HCE3C7O7PSU3A	T+OCN+OCF3Z& 3SJ 3AWS3D> 7NJ 3IC3ASR3S;O*	CS3ASN2 ?R3MWB+R
GS*M+CB * B * B 7ESX7RCA3OGL3T?I3N6 3ET+OCD+ACS7ACP3LWI7DR 7OR +HCE7SGE3U;E+CCE+OCF3C;E3TGRL*M+CB * B * B 7D[I3IWD3DR 3I[F3EWR3NWC3SF 3S?S3CGI3TSE2 	W+TCH3TWH2 ?P7ISN2 GP7IOR2MNJ* B * B * " +X"-3K"*+H>)65",2+.(2*H.)V/2). *=21*.:.*,:5* " 3SWE2 	F3L	L+P3I* 
S2 ;AD*M+CB * B * B 3E
N7EOL2," *.B,7ASL+ECS3USN2 WN7UOE6 WZ3R: 3UWM7ROI3CWH3NR 3I[F3EWR3N	T3A	T+O3N2MNJ* B * B 2 V 3LOE3T?R7NOI3CWH2 GD3T;E7VKE3AKR7ESI3U
N2,& +S;S* B2.(&1*6&66,B +PB.*567*6:5")*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 OD+AR3X",2,I2,OF7T*,")*MC*MC*M* B * B 3D7I7EON3I;O6 WA/XV(")*MC*M+CB * B * B +NCO7ASC
I;O2 ;I2 GC+SCE+OCF7ZKE3O& 3NWT3RGV3L2 3E
NT7H*JB * B 2 [I*(	H.1F,.7F,2MNJ2MNJ* B * B 2 ^ 3EWN7RSA7EN 7TCE7S+I3E" 3HZ +OCR7D[I3IWD3DR 3I[F3EWR3NWCS*M* B * B13CF=+BSH6)*JB * B 2 [I2(I*)22.9J,*MBJ* B 22" +H:="5*M* B * B +IF3C"-/HN)*,24"4*M* B * B3/H7HC*M* B * B43AZ=+CT3X"+H6)*JB * B . 7B7FSC*(7X+H	
*MBJ* B 6 * 2=KA+S"(3AJ-*)"/+H/H+H	H")*M* B * B +A:=25F*+BS3AJ+")*M* B * B /H7H".65*JB * B 2 [I*(7A*1&..6Z,",65*JB . V 2 H2=H"*7A*JB . Z 2 [I*(7Z*1&..8",",67*JB . ^ 2 H2=H"/7Z*JB . " 2 [I2(H*-	C*120*120"9*M* B * B9/H7HC*MC*M+CB * B * B 3I	N3TGI7L+I3ER 3I[
3EWR3N	T3A	T+OCN3L?OP*M* B *1B0+Z"=7FSC*(/X+H	H2-OF7T"(2-H*)>)2(H2+H")*M* B * B /JV=*MBJ* B 2 * 3J*="-61*JB * B 6 WA3X*(6)*=*MBJ* B 2 R 3H"=3HZ/3LGO3T*(")*M* B * B /D7Z.1^./E"3* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B
* B . B 2MNJ2MNJ* B * B 6 N 7TKA3TR 3I[F3EWR3N	T3A	T+OCN3L?OP*M* B *1B13J*="-61*JB * B . 7CJ*M* B * B /H7H3CR*H*M* B * B 7AU*(	J2=Z(+CT3X"++H6)7FSC*(7X+H	H*)"/+H/H+H	H2MNJ2MNJ* B * B 2 & 7NSI3I3A3IWZ6 E3TGR3P3O3A	T+OCN3L?OP*M* B * B /D62.1^./E"3* B * B * 
 * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B . B *MBJ* B 2 J *=:0*MBJ* B 2 F *=:1"/7C"J7C*JCC* B * B 6 SS7ASR6 E3TGR3P3O3A	T+OCN3L?OP*M* B * B +DCO*1B23I*=2,+J*MBJ* B 2 R 21R="2*M* B * B 3BJ="+7A*JB * B 2 H2=F(+UX+I6)7AU*(/I*1&
2/J(.*J(2.J+")6)*JB * B 6 WA3X&(*+&16=WA3X&(2)"+H*MC*M+CB * B * B 7TOE3T> 3N> 3S	C3LGL3T;I3G& 7NKC3EWM7NOT*MBJ* B 2 R 22F=+BS+H	H*MBJ* B 2 & 3FR(22R-.1F).2F,.3F,"3*M* B *1B23C;O3T;IU7E*JCC* B * B 2 ;E3D> 3FV 7XKT3A?P7LSA3I;O2 ?LO7P"J7C*JCC* B * B 6 CU7DSA
EJ 7EWS+LCT3V3A+UCEZ*M* B * B 3I*=/JF+*MBJ* B 2 ^ 7OR /OF "4*M* B *1B3/D62D61*JB * B 2 +J"=7I*JB . R12 [I.(KD6-+D.)V1.,Z1.,Z1*MBJ. F 25R 3ZR="2*M* B * B 3ZF=+UXI6)*JB . Z12 [I*(7J.1F).7F,.7F,"1*M+CB * B * B 3ESN2 [O2 	D3FWF3R;E3TGI3T?I3N2 7OCO2MNJ*MBJ. F 
7J 7EWTR7N*JB * B 2 ;ED*M"ZB"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"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"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