File BDTR.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 SBT7R"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?C7MWP7TOE* P+XB)6=B 3RKO3A	B7LSI7YR 7HSA2 T7EJ 3ASN+OCM7VKA3IKA+LCEU6,*
CC* B * B * B 2 	D7SKT7IWB3TSE2 OA7CKO3D;I7GR 7OR +HCE7BSE3AR 7ISS3RKI3U	T+OCN7WSIH*M+CB * B * B * B 7PKA3AWM7TKE3SF 2 ;A3DJ 2,& 3S2 7EOS2 T+ACN+OCR7EWQ+ACL+TCO+XB.* F3AJ,*,	X",*M+CB * B * B * B 3TWH6 KO3D;I3AWT2 [O2 T3EJ 3EGT2 WD3N	S+TCY+ACT+XB,+ICS7AOL3
N 7OCM3UWTD6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L2 SB+TR3XF,*,3B3PR,2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CX* 6 2 ;I7PSU2 OS3AGL3RZ +OCR3W	H+CCH7P"(2)& 3SN 7OCM3UWTD6.*JCC* B * B * B * CA* 6 2 WB+TCA7DOI3T
R7BSU3I;O2 GP3R7A3EWT+R" 3C;O3T;I7UWO+S:)2MNJ* B * B * B 2 J * B 2-J 3EGT2 	D7SKT7IWB3T?I7NB 3AGR7MSE+ECR2(?C3N	T3N?U+U	S".*M+CB * B * B * B +PB * B-7OSU7PSU6 KP3OGB3B3I7I	T".*M+CB * B * B * B +DB * B-7OSU7PSU2 WD3N	S+T;Y2MNJ* B * B * B 2 & +ECR6-J 7EWS3L
T+NCT7EKR+OCR3CSO7E^ 7HKEE*M+CB * B * B * B * B 2 WI+RB=*06 *-B-+NCO7EKRO7R*JCC* B * B * B * B 2 & /E7R*-21*+B12 SC+TCR7HOA2 WB+ECN3C3A3LSE2 ;A3DF 3NV 3R?R3R" A7S*JCC* B * B * B * B * B * B * B * B 2 OO7CKU3RSE*.B 3SWE2 SC+T;R2MNJ* B * B * B * B * B 7IKE.
J-* 6-2-F 3N& 7NWP7TB 3AGR7MSE+ECR+ICS7I[N3A	L+DB.* CX+ICS7LOES*M+CB * B * B * B * B * B * B * B * B 3TGH/NB *.B0+OCR3GWR3AWT7RR 3H;A* :1*0B,+OCR7ESI7HKE* CAO7R*JCC* B * B * B * B * B * B * B * B * CB+ICS7LOE7SR 3H;A* :025> 3R^ 3RGE7TKE2 T+ACN*1*0**.(*5:)
MNJ* B * B * B * B * B * B * B * B 6 B 2 ;A3DR 6 KA7EN +ECT+TCO*-:1.7OE*8B.* B * B * B * B * B * B * B * B " 60*JCC* B * B * B * B 2 & /E7R*+B2*-6-2 ;I3V3A+ICD7OSU7PSU*.B 3P& 3S2 7EOS2 T+ACN7ZKE3O> R*M+CB * B * B * B * B * B * B * B * B 3GWR3AWT7RR 3H;A2 
O+EB.* CP+ICS7SSE2 ?T* :1.7OE*8B.* B * B * B * B . B 2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 6 N +ECE7MSA3H7E3A	T3C3A2 WD7SKC7ISP3I;O".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 R 3LGGM*M+CB * B * B 
 B 7NSDR*M+CB * B * B * B 7CSDR*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 6 J 3EWF7RR 7OJ *.;E2 GB3R7G3A;N2 ;A7DN *.;P2 G3OS6,N 7TSA7ISS3IGCL*M+CB * B * B * B 7DOI3T	R7BSU3I;O6 KP7OKG7AOM2 ?F3RF 2 ?C7MWP7TKE2 GL7NWG3AWG",*M+CB * B * B * B 3I7B2 WR3SGE3RC2 W
7PKO7TJ /CF-.0R9.,F .9N6".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN2 SB+TR3XF,*,3B3PR,2,WIR6)*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN+X3X7DL3XR,7L"12,GA2,KB.,GG.,KG.,OG.,SG2,S
6,CP2,?X2,[F2,;F",*M* B . F +X3I+S3S+C3C+R3R3DKL3EGT2MNJ2MNJ* B * B 6 R 7ESS2 ?F7RZ 3A	L3D& 7NWP3TR 3AGT2MNJ*MBJ* B 2 & 3FF(*-:(.5F-*.7E*5&). R6.0F,.0F,"0*M* B *1B0+IF+B"-*.6521V.*-&5.)Z *420*220"260*JB . B22 [I*(7A21V.*+&5. B3.,B3.,R6"0*M* B *3B0+IF/BF-*
/E*5B)*420*420.6B4*MBJ. R 20& 7F"(.)Z *420*520"560*JB . B52 [I*(:1*-	X. R6.0Z,.0Z,"0*MC*M+CB * B * B 3C7O7PSU3E2 +OG7BSE3AF(*,	B")*MC*M* B *6B0/A7A3D3B3EF(")*M* B * B /B7B3D3B3EJ(")*M* B * B 3C3A3LR 3LGG3MF(3A^,21&,+O	K*MBJ* B 2 N 3A3L2 3D3G7A2(KB.,KG2,?I
6)*JB * B 2 GC+LCL3D
L+AM+A/A+B3B+G233I/O")*M* B * B 3DKL3EGT.=GG.+KG.-OG2MNJ2MNJ* B * B 6 R 7ESS2 ?F7R" 2 WN+ACR.0B.6 KO* :1"0*MC*M* B * B +IF/XF-*.7E*8B)*820*820"760*JB . B72 [I.(F(6."-.)F-*.7E*8B).1B3.,N1.0F,"460*JB . B8. 7P.0B.*MBJ* B 2 & 3FF(*-:1.)& .0F,*020.1B2*MBJ. & 2
R *=:1.7OE"8*M* B * B +GCO+TCO.6B6*MBJ. B120R +D6=3DKL3EGT*MBJ* B 2 & 3FR(/DF+.."6/DJ0*)B .1B2.,J1.0F,"160*JB .1B12 SD2=WD+XP+D	D*MBJ* B 2 R 2=;S+GL+D	D*MBJ* B 2 ^ 7OR /OZ "660*JB .1B2. 7D.0B.*MBJ* B 2 ^ 7OR /OZ "660*JB .1B3. 7P.1B.*MBJ* B 2 & 3FJ(*-:1.)&
.0F,*020.1B22MNJ2MNJ* B * B 6 N +ECT3P?R3GGR7MB 3AGR7MSE7EOR2MNJ*MBJ. R160" 3XR=3BWL*(	X*MBJ* B 2 R 7LX2=3D+OG+X	X*MBJ* B 2 R 7L"12=3D+OG21R.60"-X6)*JB * B 2 ?X6=X./F(..CD6-X")*M* B * B /I7D"0*MC*M+CB * B * B 3C7O7PSU3E> 3R	D7NSAE*MC*M* B * B /D7D2(GA*-:1
D&02*3D+X/X2(KB*-:1+D&02*3D*17X3DKL3EGT*MBJ* B 2 & 3FR(/DF-.."6/DJ0.)F *520.1B5.,Z1"0*M. F *5B0+IF+D/D.1Z..8CD*2B).1B7.,^1.0F,"860*JB .1B6. 7D.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 "0*M* B * B +GCO+
CO.1B9*MBJ. ^120R *=:0"0*M* B * B +GCO+TCO.1B9*MBJ. "120R 3DR=7ECX2(SD")*M* B * B 7DN=3N3G2(SD")*MC*M+CB * B * B 3A> 3RJ 6 KO2 ?B+TCH7WSI3H;I* :1/E"-2 [O* :1"0*MC*M. F *9B0+IF7AOB*(7A*1&.*-:1/E"-*)B .2B0.,B2.0J,"160*JB .2B02 [I2(KA3SJ(*-:1.)F-*.7E*8B). J2
0J,*220.2B3*MBJ. F220& 3FF(+BS/BF-*.6)21V.*-&8. J *620.2B6.,&2"0*M. J *2B07P"=*MBJ* B 2 ^ 7OR /OZ "660*JB .2B36 CP2=KB2*3D"17X*JB * B 2 [I6(CP*+:126R8*0&2. R2.0J,*420.2B5*MBJ. R260B *=:1"0*M* B * B +GCO+TCO.6B6*MBJ. V260B 3PR=7ECX6(CP")*M* B * B /P7P21R.6
B-P*M* B * B 7PN=3N3G6(CP")*M* B * B +GCO+TCO.6B0*MBJ. Z260B 3PF=3AR*7LX*MBJ* B 2 & 7FB(/PF+.."6/DJ0.)J *720.2B7.,"2"0*M. J *7B0/PB=".60*JB * B 2 ?G2 ?T. Z6"0*M. J *8B0/P7P7DE7PB(P6)*JB * B . 7P3S
N7LB(P6)*JB * B 2 ?G2 ?T. B6"0*MC*M+CB * B * B 7TOE3TZ +OCR3A> 3RJ 6 KG7ESA+ECR3TGH/NF .0B0".60"J7C*JB .2B92 [I*(7A.1B0*0&.. B3.0N,*020.3B1*MBJ. B320& 3FJ(.-B1*0:0.)N *320.3B3.,J3"0*M. N *1B0/X7X22R.20F*7A"/O*M* B * B /X7S3S
N7L"(X6)*JB * B 2 GA*=:2+D*0B7B*JB * B 2 [D2=;S+GL+A	A*MBJ* B 2 N 3A3L2 SC+TR+X3S+D3F3PR,3U7M3Y&,+E	R*MBJ* B 6 B *=:160B-*MBJ* B 2 ^ 7OR /OZ "760*JB .3B26 X*=:2+D*0+B+BX7O*JB * B 6 OX2=;S+GL+X	X*MBJ* B 2 F /AJ=..CD2*GA*MBJ* B 2 R 7FN=3N3G2(GA")*M* B * B 3
3A3LN 7DKT6(OX2,[D*,3P3D7U+M3Y7IKE")*M* B * B +GCO+TCO.6B72MNJ2MNJ* B * B 6 N 3EWL+CCT7PKA3AWM7TKE3SZ +OCR3C;O3T;I3USE6 KF7ASC3I;O2 ?C7MWP7TSA3I;O2MNJ*MBJ. N320& 7F"(.-V..)N *420.3B4.,"3"0*M. N *4B0+IF+A7A21R.*0B).3B5.,V3.0N,"660*JB .3B56 KR2=GA*+:1D60*JB
* B 2 ?G2 ?T. ^3"0*M. N *6B0/R7RA7A*JB .3B72 SD2=3D+X?X25R."0*M* B * B /D7D7DE3PR(D6)*JB * B 2 SD6=J(/RF-..CD*)"-+R/R+B7B21R.*0*)+X+X+DCD*+:2D60*JB * B 2 [I2(SD.)R *220.4B2.,N4"0*M. N *8B0+IF+B7B21R.*0B).3B9.,&3.0R,"060*JB .3B96 KR2=KB*+:1D60*JB * B 2 ?G2
?T. F4"0*M. R *0B0/R7RB7B*JB .4B12 SD2=3D*1?X25R."0*M* B * B /D7D7DE3PR(D6)*JB * B 2 SD6=J(/RF-..CD*)"-+A/A+R7R21R.*0*)*(:1+D60+X	X2*SD. J+..CD*MBJ* B 2 & 3FR(+DB).4B3.,N4.0R,"260*JB .4B22 SI"=61*JB * B 2 [F2=3D"17X*JB * B 2 3D.17X7DLX*M* B * B 7DL3XZ=F*M
 B * B /X7O21R.60"/O*M* B * B /F7FA7A*JB * B 2 GA2=KB*MBJ* B 2 J 3BZ=F*M* B * B /G62G61"J7C*JCC* B * B 2 WT+SCT7FKO* CA7LOE7SR 3H;A* :1"0*MC*M. R *3B0/F7F20R."0*M* B * B +IF+A7A21R.*0B).4B4.,R4.0R,"760*JB .4B42 GC+LCL3D
L+AM+A/A21R.20^,24&,+O	K*MBJ* B 2 R 3DF=3AR*7LX2+KB2*3D*1/X+G63+G62G64*JB * B 2 [I2(SD*+:126R8*0&2. Z4.0R,*620.4B5*MBJ. V420Z 3FZ=3FR+7ECX2(SD")*M. R *6B0/A7A+A/A21R."0*MC*M+CB * B * B 3C7O7PSU7EB 6 OU3I
N2 ?C3N	T3NWU3DZ 3ROA3T?I3NV 3XGP3N	SO7N"J7C*JB .4B72 ;F2=GA2+KB*-:1D60*JB * B 6 KR2=GA*-:1D60*JB * B 2 	I.=B8*MBJ* B 6 " 3IR=3F?L+AT+I	I*MBJ* B 6 N +S"=2(KB2-	X*)"*+R/R+X	I*)"/6(KR*+:2+D*0+X7I21R.*0*)6(KR*+:2+D*0+X	I")*M* B * B /S7S+S+SX7O*JB * B 2 ?D. "
20& *=21"769*JB * B 2 	I.=B8"-7I*JB * B 2 	X2=[D3LGO3T&(I6)*JB * B 2 SD6="(+I"*+F/N+X	I*)"/6(KR*+:2+D*0+X/I21R.*0*)6(KR*+:2+D*0+X	I")*M* B * B /D7D+D+DX7O*JB * B 2 OC*="(+B7B+X	I6*J(7R"++I&)*/"(+R/R22R.60"*/IF-..CD*)"*+R/R22R.60"*+I&)*MBJ* B 2 N 3CN=7C"*O
M* B * B /S7S+C?C*(:1+D.0+D?D*(:1+D60+S	S")*M. R *8B03C;O3T;IU7E*JB * B 6 OS*=:1+D>0*(:1+D60+S	S*MBJ* B 2 & 7FN(+SB).6B5.,V6.0R,"960*JB .4B92 GC+LCL3D
L+AM+A/A+B3B+G213I/O")*M* B * B 3C3A3LR 3LGG3MF(/AF+..CD.,SG2,?IK6)*JB * B 2 OC.=GG.-KG.-SG2+GA2*3D+X/X2(KB*-:1+D&02*3D"17X*JB * B 6 CP2=OC2+3D+OG+S	S*MBJ* B 2 & 7FB(/PF+.."6/DJ0.)V *020.5B0.,F5"0*M. V *0B0/P7PF7F*JB * B 2 ?G2 ?T. J5"0*M. V *1B0/P7P7DE7PB
+P.)F7F*JB .5B22 [I2(SI.)V *420.5B4.,N5"0*M. V *3B0/P7P21R.60B-P*M. V *4B07PN=3N3G6(CP")*MC*M+CB * B * B 7SSE6 KE7RKO2 ;I3DOI3A?TR*MC*M* B * B +IF+PB).5B5.,^5.0V,"760*JB .5B52 [I2(KA7SB(.)F-*.7E*7B).5B6.,Z5.0Z,"560*JB .5B6. 7P.0B.*MBJ* B 2 ^ 7OR /OZ "660*
B .5B72 [I*(:1*-	P. "5.0Z,*020.6B0*MBJ. "520& 3FF(+BS*16.+P6)21V.*-&7. &5.0V,*920.6B5*MBJ. &560B *=:1"0*M* B * B +GCO+TCO.6B6*MBJ. B620& 7FB(*-:1/E"-.)Z *120.6B1.,J6"0*M. Z *1B0/PB=".60*JB * B 2 ?G2 ?T. Z6"0*M. Z *2B0+IF*(:160B-.)F-*.7E*8B).6B3.,N6.0Z,"66
*JB .6B3. 7P.1B.*MBJ* B 2 ^ 7OR /OZ "660*JB .6B42 WI+R6="2*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 6 B .=F-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*JB * B 2 ?G2 ?T. ^6"0*M. Z *5B07IKE.=J+*MBJ* B 6 B .=F 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*JB * B 2 ?G2 ?T. ^6"0*M. Z *6B07IKE"=60*JB .6B72 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

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