File DSE15.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/EV12MNJ2MNJ* 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"57Y*,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/NV 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 +ICF3Y& S*M+CB * B * B * B * B * B 7DOI3T;I+CCT3F?R7M* 6,R 3H;E6 SI6 OI2 ?N3TR 7ESS7R	O+E;D2MNJ2MNJ* B * B 6 N 7UKB7OSU3
WN2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 & 7F" 6 OI2 T+E" 7SCU3PWR3SWS+DB)3VOE7TKO2 [O6 KA3G7U7ESN2 GV3LWU+SB,3TWHN*M+CB * B * B * B 3EOX7ESP6 SA2 T7EB 3O;I+TCS/XF(6)",*(&2*,X3N	D/MF-2)F +NCD3X:(3D7I*)B,3EOAH*M+C
 * B * B * B 3S?M3OT+ECD3V3A+UCE3Z&(2)& 3S> 3BGT3IWN3DJ 3YV 3V3A7USA3I
N6 SA* X+IB)3TWH2MNJ* B * B * B 2 2 7EOA7TN-3QGU7ROE2 ?P3L;Y3O	M+ACL+OCF3D
E3RWE* B13R3E3EGV+NCT+TCO3TWH" 65*JCC* B * B * B 6 WS3CWC3S	S+VCE3P	O7NOT6 "(*(/I+K2)3Y&(*+	K2). * B=*-22*-21*.:.*,:2* " 3SWE2MNJ* B * B * B 2 " 3ISL7EKB3ASN2,Z *.;B2,& 7NKT7OWD3C	T+OCN+TCO3N7U3E	R3C3A2 ;A7A	L7SOI",*M+CB * B * B * B +MCC3GGR3W"-3I3L2,: +E
W7YKO7KR/3O?R3N?T2/?L3N?D+NB,.1V9*6B,+P;P. &2.5N-*0:2")*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 OD/EV1*(3Y3Z:,3D7I2,WIR6)"J7C"J7C*JB * B 2 	D3M;E3S?I7N& *(&1*,Z"16)*
B * B 2 ?D3U3B7EB 3ROE3I	S+OCN7Y*,*,3A3BN,2MNJ2MNJ* B * B 6 R 7ESS2 [O2 	D3M;E3S?IN*M* B * B +IF3N	D/MV-*)23.1F,2MNJ2MNJ* B * B 6 B 7RCE3AWR2 ?LO7P*JB . F . 7A/YF(6)&+*(&1*MBJ* B 2 N *=Y*2.)/YJ(")*M* B * B +B:=.2CD2*F(*+Y*1.)7C&+*(&3*-Y*5&)*MBJ* B 2 N .=F
+D*0*(/A3AN+*+Y*2.)/YN(6)&+*(&3*+Y*4&)2MNJ2MNJ* B * B 6 N 7TKA3T2 7OCO*MBJ* B 2 R /OJ . 7I25:,3D7I*MBJ* B 2 F "=7B*JB * B . 7BC*M* B * B +C:=.2CD6*&(*(7I*4.)3Y&(*-&3*+Y/IJ-6)&+*(7I*1.)3Y&(")6)*JB . J * Z/IR-2)F=2MNJ* B * B 2 V +NCD+OCF3L?OP*MC*M+CB * B * 
 3USP3AWT2 GL+SCT7FWO3RN 7OCM3OWN7NOT*MBJ* B 2 F *=Y3N	D+M.)3Y:(3D7I")*M.I7A2.R1*0"*3AF+*+Y3N	D/MF-6)&+2(SN+I7M*1.)3Y:(3D7I*-&1*+Y3N	D/MJ-6)&+2(SN+I7M"26)*JB * B *1B * B 6 &+2(SN+I7M*3&)*MBJ* B 6 * 2(SN+I7M.36)B*M* B * B 3Z:(3D7I*-&2"=7C*JB * B * Z3N	D/MF
2)F=*MBJ* B 6 * 2(SN+I	M*=/A3AN-*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"5*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

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