File DSE13.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 7UKB7OSU3IWN6 OD/EN12MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3ON 7OCM3UWT* CA3VOE7TKO2 [O2 7S7OSO3HSE6 WF7NSC3I;O2 GV3LWU3S^ 3IWV
NF 2MNJ* B * B * B 6 Z 7ESC+OCR+OCF3F;U3C	T+OCN3V3A7UOE2 W3OWS2 ;E3T	R+ECS7CKO7ROE3P;O7DR O*M+CB * B * B * B 7EWQ3I	D3SGT3N3T7YN 3POA+ECD3A
R3UWM+NCT3V3A7UOE".*MC*M+CB * B * B 3UGSG7E*JCC* B * B * B 2 GC+LCL3DWS*1"37Y*,2,SN+I3M7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +YB * B *-B 7G[I+ECN3VOE7TKO2 [O2 ?D3U3B7EB 3ROE3I	S+OCN3F;U3C	T+OCN3V3A7UOE2MNJ* B * B * B * 
 * B * B * " 3D7I7EON3I;O2 SN+I	M2MNJ* B * B * B 6 * * B * 6 6 J 7EWS3L	T+NCG3VOE7TKO2 [O2 ?D3U3B7EB 3ROE3I	S+OCN3S?M3OTE7D*JCC* B * B * B * B * B * B 6 WF7NSC3I;O2 GV3LWU+S" 3D7I7EON3I;O2 SN+I	M2MNJ* B * B * B 2 : 3D7I* 6 2 R 3IWM3N	S+OCN+OCF3VOE7TKO7S& 
 ;A7D* 2MNJ* B * B * B 2 & +ECR* 6 6 J 7EWS3L	T+NCG7EKR+OCR7PKA3AWM7TKE2MNJ* B * B * B * B * B * B 2 & +ECR*=6 *1B 2-: 3D7I6 OI2 WL+SCS3TGH/NN 2MNJ* B * B * B * B * B * B 2 & +ECR*=B *0B 2-: 3OV 3R?RR*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B *(&12 & 3F&
/E7R*-B13TWH+RCE7HOA2 WB+ECN+NCO3C7O7PSU3A	T+O;N2MNJ* B * B * B * " *2B)6 * 2 GC3N" 3AWV2 T7EN 3AWM6 SS3OGR+GCE3A3L3OGC3T?I3NF 7S& *.B +ICFY*M+CB * B * B * B * B * B +ICS7DOI3T;I+CCT3F?R7M* 6,R 3H;E6 SI6 OI2 ?N3TR 7ESS7R	O+E;D2MNJ2MNJ* B * B 6 N 7UKB7OSU3
WN3SF +NCD3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B +ICF3X& 7SR +HCE6(WS7PKP7EOS+E	D2 WV3C?T3R> 3FF 7RWG3M;E7TZ 7AWL+E3S2 TE7N*JCC* B * B * B 6 E7CCE3TF 7TR +HCE3ESN3P	O7NOT* X*1B)3ASN* X3N	D+M2)2 GE+CCH3
?M3OTE7D*JCC* B * B * B 2 GV3LWU* Z+IB)+ICS7OSB3A;I+ECD+BCY3EGV3LGU3T;I3GF 7T" *(	I2 T3E2 7EOAT6-*JCC* B * B * B 6 GS7UKA+ECS3P3O3Y?N3MGI3L> 3FR 7EKG+ECE61J 3EWL3V;A7TR 7OR +HCE63N 3UOC7EOS3IWV2MNJ* B * B * B 6 B 3O;I+TCS*(X3I.+6)&,*(/I+K&)* CK*=6 .1B,*,:
* " 3SWE2 	H3LWD3BGR+N3D* ;F+B2.2MNJ* B * B * B 2 & 7NKT7OWD3C	T+OCN+TCO3N7U3E	R3C3A2 ;A7A	L7SOI2,6 3C^ 7R
A2-	H+L3L2 WN7W& 3O/R"/*M+CB * B * B * B 7TKO7OSN3O2/3OSN+O3N. &1*5266 CP..J *965.3J0".6)"J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER /SGE63&(*,3Z3N	D3M&,+E	R2MNJ*MBJ* B
2 R 3IWM3N	S+OCN/YF(6)*,*(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3Y3ZF,*,3BC*MC*M+CB * B * B 7TOE3T> 3FR 3IWM3N	SO7N*JB * B 2 [I2(SN+I7M.3N)*,21"1*MC*M+CB * B * B 3PWR7PKA3E2 7OCO*MBJ* B 21J .=F..6Z6.6Z6.6Z6.6Z6.6Z6.7CD.*V(..CD**Y*1.)/YJ(6)&+*(&2*-Y*3&)*MBJ*
B 2 N .=F..6Z6.6Z6.6Z6.6Z6.6Z6*7"*25R.60&*2(SN+I	M*+Y3N	D/MF-6)&+2(SN+I7M*16)3Y:(3D7I*-&2")*MC*M+CB * B * B 3SGT+RCT3L?OP*M* B * B +DCO22& *=233N	DM*M* B * B 3AJ=*MBJ* B 2 J .=N..3N3.3N3.3N3.3N3.3N3.3CD6*&(*(7I*2.)3Y&(*-&1*+Y+I&)*MBJ* B 62* *(7I.26)A*M+CB
* B * B 3ESN2 [O2 ?LO7P"J7C*JCC* B * B 6 CU7DSA3E2 7ASS6 
T3ON 7OCM3OWN7NOT*MBJ* B 6 * 2(SN+I7M.16)B*M* B * B 3Z:(3D7I2)N=*MBJ* B 2 & /E7R"0*M* B * B 7RSE3U;R2MNJ2MNJ* B * B 2 V 3R?R3RV 7XSI2 ;I2 GC+SCE3N	D3M& 3S2 7EOS2 T+ACN"3*M* B * B37IKE.=F-*MBJ* B 6 J 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"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