File DBAR.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 KDA7R"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?L3SSE2 ;I7TKE3V3A" 6-*JCC* B * B 2 T7EN +ECT+OCF3TJ 7E
T3E;E* CX3ASN* /X+H" 7HB 3O	S7T[I3E> 3R: 3EGG7T[I+EB)6-V 3S;IG*M+CB * B * B 3F;U3C	T+OCN3V3A7UOE2 ;O+LCY+OCN3TGH3T& 3NWT3RGVL6."J7C*JCC* B 6 V 3S
AE*M+CB * B * B 3C3A3LR 7BKA*(3X3H&,3HZ,+C3TZ6)*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+BCE3C7O7PSU
7D*JCC* B * B * CH* 6 2 T3E: 3UKM+ECR3TGH3TR 3E	F7NOE2 T3EN 7LOO+ECD7ISN7E[R+ACL3W?H+SCE3ESN"-*M+CB * B * B * B * B 3P	O7NOT6 KA7E" 2 ;A7D" *+CH2(WS7EB 7UCR3OWS")*M+CB * B * B +ICH* B-7ICN+UCT7PKA3AWM7TKE6 N(+ECE3R7E3A/R3SF +NCD7MSE3HSO")*M+CB * B * B * B
* B +ICH3N;O2-WZ+RCO6-R +HCE3SKU7RWO3T;I3E^ 3EWN7RSA+ECS3TWH2 ;I7TKE3N3A2MNJ* B * B * B * B * B * B * B * B * B 2 GV3LWU2 H2MNJ* B * B * B * B 2 & +HB . 6 * B *06 2 T3E& 3NWT3RGN7LZ 7AWL3E" 3H& 7SN +ECT+TCOH*M+CB * B * B 7FSC* B-3TWH2 GN+MCE+OCF3TWH6 E7TK
3N3A6 WF7NSC3I;O6 WS7BKP7OKG+ACM3TGH7T^ 3I3L2MNJ* B * B * B * B 2 ^ 3EWN7RSA7ER +HCE3NOE7EOS7A	R6 WF7NSC3I;O2 GV3LWUS*M+CB * B * B +ZB * B-7ROE7USL3I
N2 WD7R[I3A	T+VCE3V3AU7E"J7C*JCC* B 2 WR7MKAK7S*JCC* B * B . F(*)B +ICF/H6 * 202 T+ECN3TWH+RCE+ICS+NCO3C7O7PSU3A	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 7SKE".*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+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 KD+AR3X",2,I2,OF7T*,")*MC*MC*M* B * B 3D7I7EON3I;O6 WA/XF("06)"J7C*JCC* B * B 2 ?N2 O
3T?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*JB * B . 7DX*M* B * B 3DZ=+CTD6)*JB * B 2 [I2(I*)22.9J,*MBJ* B 22" +H
="5*M* B * B +IF3C"-/HN)*,24"4*M* B * B3/H7HB*M* B * B4/H7H3S
I3N"(3HJ,")*M* B * B 3ZF=+BS2(OF7T"(2+H2)R-2)"/H6)*JB * B . 7A7AOB*(	D*MBJ* B 2 " /HF=".*M* B * B +IF/AF-..Z)*,26"5*M* B * B5/H7H+H+HA*M* B * B6+IF/ZF-..")*,28"7*M* B * B7/H7H+H?HZ*M* B * B8+IF+H7H/CF).0F,.0&,*MBJ* B 29" 3HJ=*MBJ. F 20" 7HN=3I;G2(H*,	B2MN
2MNJ* B * B 2 & 7NSI3I3A3IWZ2 	D3FWF3R;E3TGI3T?I3N2 7OCO*MBJ* B 6 * 2=Z(+CT3X"++H6)+D>)H7H*JB * B . 7J"160*JB * B 2 +J*=7J"1*M* B * B 7AU*(	J"=7Z*JB * B 2 D2=H2/3F7OSA*(	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 "0*M* B * B /BB=".*M* B * B /AF=2.N/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&(*+
12)J/*MBJ* B 2 F +UX/IF+2)F=+UX+I.)H7H"J7C*JCC* B * B 2 WT+SCT+OCN3OOS3I3L3A	T+NCG3ION3R7E7ESNS*M* B * B /D627AOB2(H")*M* B * B +IF+D62+D&1*122*123"163*JB . J12 ?C3N	T3NWU2MNJ* B * B 2 V +NCD+OCF7ESX7RCA3OGL3T?I3N2 7OCO2MNJ2MNJ* B * B 6 V 3PGD+TCE7ROE7USL
 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[F3EWR3N	T3A	T+OCN3L?OP*MC*M* B *1B77RSE3U;R
MBJ* B 2 V N7D"JBZ"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