File DDCAR.FT (FORTRAN source file)

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

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B 6 N 7UKB7OSU3IWN2 SD7CKA2MNJ2MNJ* B 6 B 7UCR3OWS2MNJ* B * B 6 R 3ON 7OCM3UWT2,F 3TF 2 	G3V;E2 ?P7ISN* 3X2 ;A6 CA3P?R3X7I3A	T+OCN7ZR 7OR H7E*JCC*
B * B 2 WD7R[I3A	T+VCE+OCF+ACN3AGN7LSY3IGC7L	L2 	G3V;E6 WF7NSC3I;O2 OF7TR 7HSA6 OI. F1"-*M+CB * B * B 3T7I+ECS3D[I7FKE7ESN3IKA+LCE+ICN3AR 3OGM+ICN3C;O3T	A3N;I3GF 2 3C3OWS+DB,62N-3IWDD*M+CB * B * B 3S7Y7MSE3ROI2 ;I7TKE3V3A2 [O2 GR7DWI3SF 3B?S7LSU3E" 2 KA7O
U* 3X6 OU3I
N6 WF7NSC3I;O2MNJ* B * B 6 Z 7AWL+ECS3O3N3Y> 7NR 7HSA2 3C3OWS3D& 3NWT3RGVL6."J7C*JCC* B 6 OU3AWG2MNJ* B * B 2 N 3A3L2 SD7CKA*(3X3H&,3HZ,+C3TZ6)*JCC* B * B 2 GP3R7A3EWT3RZ +CCT7RGE7UKI+ECS+ACN7ESX3E;R+ACL3SGT3T7E7ESN2MNJ2MNJ* B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR
MSE7EOR2MNJ* B * B 6 " * B 6-R +HCE3P	O+NCT+ACT3W	H+CCH3TWH2 WD7R[I3A	T+VCE+ICS+TCO+BCE3C7O7PSUE7D*JCC* B * B * B * B * CX+ICS+ICN7DWO3BWL6 KP3E	C3S?IN6.*JCC* B * B * CH* 6 2 T3E: 3UKM+ECR3W?H+SCE7AOB7OWL+TCE3V3A+UCE3D[E3IWN7SR +HCE3C?L3SSE",*M+CB * B * B
* B * B 3S7Y7MSE3ROI* 623SSI+ECD7ISN7E[R+ACL3A?B+UCT+X" 3SWE6 WP3R?P+S	E2MNJ* B * B * B * B 2 " 6 OI2 ;I2 	S3N3G7EB 3ROE3I	SO7N*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	
+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 3XWT3RGN3LR 3OKU+LCE3PWR7COI3I;O
 WF7NSC3I;O2MNJ* B * B * B * B 6 N 7UCB3R
O3R7A2 T+ACT3W3I3L^ 3EWN7RSA7ER +HCE3NOE7EOS7A	R6 WF7NSC3I;O2MNJ* B * B * B * B 6 Z 7AWL+E;S2MNJ* B * B 6 * * B 6-J 7EWS3L	T+NCG7DKE3IGV7T[I7EZ 7AWL+E6 2 ?D3U3B7EB 3ROE3I	SO7N"J7C*JCC* B 2 WR7MKAK7S*JCC* B * B . F(*)B +ICF/H6 * 202 T+ECN3TWH+RCE+ICS+NCO3C
O7PSU3A	T+O;N2MNJ* B * B * " *2B)2 T3E& 3NWT3RGN7LZ 7AWL3E" +HB,3W	H+CCH+ICS7DSE3E7R3IWN3DF 3C?C3R	D+NCGT7O*JCC* B * B * B * B +I3H6 OI2 T3E6 3A	X3M7U6 SS+E7P7S+I7EV 3SSE2 ;I2 T3EN 7OCM3UGT3T?I3N> F*M+CB * B * B * B 6 R +HCE3C;E3TGR3LR 3I	V3DSE2 	D3FWF3R;
7COE6 N(+ECE7MSE3HSO*.B)2 [I2 I6 OI2MNJ* B * B * B * B 2 ?N7N*-3E?R6,R 3H;E2 T7EN 7UKB7OSU3IWN2 WG7NKE3AWT3S" 3HF 3C?C3R	D+NCGT7O*JCC* B * B * B * B 3C	R7TKE+ICA3TGH3TJ 3AGL3NWC2 ?R3USN2-[O3FF +NCD7TWR3NGC3T?I3NV 3R?R+RB.2 H2MNJ* B * B * B * B 6 OI2 3A7W	
3S2 7EOS2 T+ACN+OCR7EWQ+ACL+TCO7AOB7OWL+TCE3H& 3NF 3B?S7LSUE*M+CB * B * B * B 6 Z 7AWL+EB,+SCO3TGH3TF +LCL3C7O7PSU3A	T+OCN3OOC7UOR2 	W3T	H3NF 2 GR7DWIS*M+CB * B * B * B 2 F 3B?S7LSU3E" 2 [O* ;X2MNJ2MNJ* B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+M
S7RGE7UKIE7D*JCC* B * B 2 T3EV 3XWT3RGN3LZ 3UON3T?I7NN 7UCB3R
O3R7A2 OF7TR(2)6 7USS2 WB6 WF3R	N3SWH3DJ Y*M+CB * B * B 3TWH6 OU+E;R2 OF7TR(2)& 3S& 3NR 3OKU+LCE3PWR7COI3I;O2MNJ2MNJ* B 2 6 3ETO7D*JCC* B * B 2 T3EN 7OCM3UGT3T?I3N> 7F* 6 OI2 GB3SSE2 ;O2 	R3CGH7ROD+O
N3SF +NCD3R7O7BKE7GN	2MNJ* B * B 2 V 7XKT3A?P7LSA3I;O2 WM3T?H3DF 3SF 3P3P3ISE2 ?T2 T7EN 7EWQ3EON3E> 3FN 7ESN3R3A2MNJ* B * B 2 R 3I	V3DSE2 	D3FWF3R;E7COE6 OA3SOO7ISA+ECD7WSI7HR +HCE3P	O+NCT3P	AR7S*JCC* B * B 6 "(2-.(2*H.)V/*,/X*(+K+H	H*/&5. 7K*1:,*.2.*5B.6
N(+ECE3F3I7LCI+IB,+SB.3ASN2MNJ* B * B 2 V 3NWG+L3S* ;H2,F 3LWT7SV +NCD7NWE+ECS7ZKU6 WN7MKE3IOS3H;E2 	D3FWF3R;E3TGI3T?IN6,*JCC* B * B 2 3E7ESC3R;O3IOS+HCE7DSA7E[N3EGR3RWB7IWT+N3G6 OI+SB.*2" .1Z9*62)6 CP..V .7Z-*5&.2MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3DOD+AR3X",2,I2,OF7T*,")*MC*MC*M* B * B 3D7I7EON3I;O6 WA/XV(")*M* B * B 7DWO3BWL6 KP3E	C3S?I7N" 2,OF7T*,6,WA3XF,*,3B3CR,3H",H*MC*M+CB * B * B +NCO7ASC3I;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:=*57D"2*M* B * B +IF3C"-/HN)*,24"4*M* B * B3/H7HC*M* B * B43AZ=+CT3X"+H6)*JB * B . 7B7FSC*(7
+H	H*MBJ* B 6 * 2=GD+BS*(7A+B>)2(H2+H")6)*JB * B . 7A2.R520R*7AOB*(/AB6)*JB * B 2 H.=V./DJ-*MBJ* B 2 & 3FF(*-:1+D&0.6Z,",65*JB . V 2 H2=H"*7A*JB . Z 2 [I*(7Z21R..0")*,28"7*M* B * B7/H7H+H?HZ*M* B * B8+IF+H7H/CF).0F,.0&,*MBJ* B 29" 3HN=2MNJ2MNJ* B * B 2 & 
NSI3I3A3IWZ2 	D3FWF3R;E3TGI3T?I3N2 7OCO*MBJ. F 60* 2=Z(+CT3X"++H6)7FSC*(7X+H	H*)"/+H/H+H	H*MBJ* B 2 * "=65*JB * B 2 +J*=7J"1*M* B * B 7AU*(	J"=7Z*JB * B 2 D2=H2/[D3LGO3T*(")*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 /D6
.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 *MBJ* B 2 J *=:0D60*JB * B . 7A21R.20N/2MNJ2MNJ* B * B 6 N 7TKA3TV 7XKT3A?P7LSA3I;O2 ?LO7P*JB * B 2 ?D. J1. 7I3J*,J*M* B * B /D61D62*JB * B . 7B3BF+*MBJ* B 2 "
+H"=7AU*(	I6-WA3X&(*+&1*)"/+B"*22R.20J+")6)*JB * B 6 WA3X&(*+&16=WA3X&(2)"+H*MC*M+CB * B * B 7TOE3T> 3N> 3S	C3LGL3T;I3G& 7NKC3EWM7NOT*MBJ* B 2 R 22R=7AOB2(H")*M* B * B +IF+D62+D&1*122*123"163*JB . J12 ?C3N	T3NWU2MNJ* B * B 2 V +NCD+OCF7ESX7RCA3OGL3T?I3N2 
OCO2MNJ2MNJ* B * B 6 V 3PGD+TCE7ROE7USL2 GV3LWU" 7Z*JB * B . 7I+J/J"1*M* B * B +GCO+TCO"164*JB . N1. KD.=GD*MBJ* B 2 * 3J&=*MBJ. F 24& 3FR(22R-/ZF).5F,.6F,"6*M* B *1B5/D7ZD62*JB * B . 7Z7AU*(	I*MBJ. F 26& 3F*(*-&1*127*127"161*JCC* B * B 2 ;E3D> 3FR 3I[F3E
R3N	T3A	T+OCN3L?OP*MC*M* B *1B77RSE3U;R*MBJ* B 2 V N7D"JBZ"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