File DDBAR.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 SD7BKA2MNJ2MNJ* 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 3C3OWS3D& 3NWT3RGV+L6 2MNJ* B * B 6 R +HCE7SSE2 [O* CT7BSE3WWE7N" 2 ;A7D" *+CH*(CH7POO3I	T+
CE+OCR3N
E3A	T+V	E* B-3U	SN7G*JCC* B * B 6 WF7NSC3I;O2 GV3LWU3S> 7N	L2 ;O2 T+ACT7ISN7E[R+A;L2MNJ2MNJ* B * B 3UGSG7E*JCC* B * B 2 GC+LCL3DKD+AR3X",2,I2,OF7T*,",6)*JCC* B * B 2 GP3R7A3EWT3RZ +CCT7RGE7UKI+ECS+ACN7ESX3E;R+ACL3SGT3T7E7ESN2MNJ2MNJ* B 2 R 3EOS7RCI3T?I3N>
7FB 3AGR7MSE7EOR2MNJ* 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?IN*M+CB * B * B +HB * B-3TWH6 WN3MWB7RR 7HSA2 WD3F;I+ECS3TWH2 3C3OWS3D& 3NWT3RGV7L^ 7HOO3EV +N7D2
NJ* B * B * B * B 6 B 3O;I+TCS3AWR* CX3ASN* /X+H" 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	T+NCE3
;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 ?T" 7H*JCC* B * B 2 OF+T6 2 T3E: 3AWM2 [O2 T3EV 3XWT3RGN3LR 3OKU+LCE3PWR7COI3I;O6 WF7NSC3I;O2MNJ* 
 * 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 T+E" 3M
A7NSI3UWD2 [O2 T+EB)7ISN3E;R+ACL3V3A+UCE+H3H2 W3IC6 OI2 WD7TKE"-*M+CB * B * B * B 2 6 3IWN3DF 3C?C3R	D+NCG+TCO+I3H6 OI2 T3E6 3A	X3M7U6 SS+E7P7S+I7EV 3SSE2 ;I2MNJ* B * B * B * B 2 T3EN 7OCM3UGT3T?I3N> 7FR +HCE3OWN2-	S3DSE2 	D3VSI+ECD3D[I7FKE3EON+ECS2(WSE*M
CB * B * B * B 2 6 3ET+O;D*)B +ICF+ICH+ICS3N;O2-WZ+R3O2 T+ECN3TWH6 WS3B?R3U	T+NCE3G;E3EGR7TOE2MNJ* B * B * B * B 2 H2 OA7CKO3D;I7GR 3ON 7RSI3E	R7AR 7HSA2 GB3L;A+CCE7RWO+N7D3O[F2 ;A7DR 3R;U"-*M+CB * B * B * B 2 N 3A	T+OCN7EKR+O;R2 " 3HF 3LGW+YCS7HOA2 T7EN 
AWM2 	S+GCN+ACS3HF +NCD+ICTI7S*JCC* B * B * B * B 7A
L7AOY2 WL+SCS3TGH3N> 3RV 3QGU7LR 7OR +HCE3M
A7NSI3UWD2 [O* CH+ICN+A7B2MNJ* B * B * B * B 2 ?S7LSU7EZ 7AWL+EB,+SCO3TGH3TF +LCL3C7O7PSU3A	T+OCN3OOC7UOR2 ;I2 T3EN 7LOOE7D*JCC* B * B * B * B 7ISN7E[R+ACL7DSE3E7R3IWN3DJ 3Y" ".*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 7SKE2.Z +CT+TB)+ICS+ICN7DWO3BWL6 KP3E	C3S?IN*MC*M+CB * B 7MSE3HSO2MNJ* B * B 6 R +HCE3C7O7PSU3A	T+OCN+OCF3Z& 3SJ 3AWS3D> 7NJ 3IC3ASR3S;O*	CS3ASN2 ?R3
WB+R
GS*M+CB * B * B 7ESX7RCA3OGL3T?I3N6 3ET+OCD+ACS7ACP3LWI7DR 7OR +HCE7SGE3U;E+CCE+OCF3OWN2-	S3DSE2MNJ* B * B 2 R 3I	V3DSE2 	D3FWF3R;E7COE6 OA3SOO7ISA+ECD7WSI7HR +HCE3P	O+NCT3P	AR7S*JCC* B * B 6 "(*,/X*(+K+H	H./B1.)7K*1:,*.2.*1:0* " 3SWE2 	F3L	L+P3I* ;S2 ;A3
V 3NWG+L3S* ;H",*M+CB * B * B 7ASL+ECS3USN2 WN7UOE6 WZ3R: 3UWM7ROI3CWH3NR 3I[F3EWR3N	T3A	T+O3N2 3E7ESC3R;O3IOSH7E*JCC* B * B 2 GD3T;E7VKE3AKR7ESI3U
N2,& +S;S* B2.(&1*6&66,B +PB.*567*6:5")*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 SD7BKA*(3X3H&,3HZ,+C3TZ6)"J7C"J7C*JB * B 2 	D3M;E3S?I3NF +UX*1&0*MBJ* B 2 R 3OKU+LCE3
WR7COI3I;O* 3X7FSC*,3Z7AU*,3A3BN,*,3D+D3HH7H"J7C*JCC* B * B 2 ?N2 OA3T?I3N& 3NN 3AWS2 [O2 WZ+RCO7ISN7E[R+ACL3L;E3GT*MBJ* B 2 & 3F"(*)21*127"1*MC*M+CB * B * B 3G;E3EGR+TCE3SWT3P	S+ZCE+HCH7FKO2 	D3VSI+ECD3D[I7FKE3EONE7S*JB . F . 7C7AOB*(	H*MBJ* B 2 J "=7H*J
 * B . 7DX*M* B * B 3DZ=+CTD6)*JB * B 2 [I2(I*)22.9J,*MBJ* B 22" +H:=*57D"2*M* B * B +IF3C"-/HN)*,24"4*M* B * B3/H7HB*M* B * B4/H7H3D	S+GN+H3HB6)*JB * B . 7Z3DKA+S"(7FSC*(/X+H	H*-	D2/H")*M* B * B 3AR=7AOB*(	D*MBJ* B 2 " /HF=*.7D"2*M* B * B +IF/AF-..CD*)26
6V,*MBJ* B 25" 3H"=3HF**MBJ* B 26& 7F*(*-:1+D&0.8",",67*JB . ^ 2 H2=H"/7Z*JB . " 2 [I2(H*-	C*120*120"9*M* B * B9/H7HB*M* B *1B0/H7H3D	S+GN+H3HB6)"J7C*JCC* B * B 2 ;I3I	T3A	L+ZCE3D[I7FKE7ESN7ISA3I;O2 ?LO7P*JB * B . 7Z2(OF7T"(2+H2)R-2)"/H*M* B * B /JF="0*M*
B * B /J7J/JF-*MBJ* B 2 F +UX/J6)Z*M* B * B /D7H+H?H3D3F7OSA*(	J*MBJ* B 2 R /ZF=2.V7*3B8* B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B " 60"J7C*JCC* B * B 6 SS7ASR2 	D3FWF3R;E3TGI3T?I3N2 7OCO*MBJ. F 21* *=7J"1*M* B * B
3C*=*MBJ* B 2 " 3HN=2*D*MBJ* B 2 F +UX/J6)2(OF7T"(2+H2)R-2)"/H*MC*M+CB * B * B 3I	N3TGI7L+I3EV 7XKT3A?P7LSA3I;O2 ?LO7P*JB * B . KD*=:1.7OE*8B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B "0*M* B * B /BB=..CD*MBJ* B 2
F *=:1+D>0C*MC*M+CB * B * B 3SGT+RCT7ESX7RCA3OGL3T?I3N2 7OCO*MBJ* B 2 R /OF 22& *=3JJ7J*JB * B . GD.=KD*MBJ* B 2 J *=/BA*M* B * B /H7H6(WA3X&(2)F-+UX/IF+*)>)B*M* B * B 7AU*(/I.16)7AU*(	I2+H2MNJ2MNJ* B * B 6 R 7ESS2 ;O6 OO3C3I7LSA3I
N2 ;I3CWR3M;ET7S*JB * B . KD2=GD+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 CU7DSA7EJ 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 67J 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"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