File DSG13.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/GN12MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3ON 7OCM3UWT* CA3VOE7TKO2 [O2 7S7OSO3HSE6 WF7NSC3I;O2 GV3LWU3S^ 3IWV
*M+CB * B * B * B 3VOE7TKO3S> 3FF 7RWG3M;E7TZ 7AWL+ECS3ASN2 ?C3RWR3S?P3N	D+NCG3F;U3C	TO7N*JCC* B * B * B 2 GV3LWUS6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 OD/GN1*(3X7Y*,2,SN+I3M7IKE")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B *
B * B +XB * B *-B 7G[I+ECN3VOE7TKO2 [O2 ?D3U3B7EB 3ROE3I	S+OCN3A
R3UWM+NCT3V3A7UOE2MNJ* B * B * B * B * B * B * " 3D7I7EON3I;O2 SN+I	M2MNJ* B * B * B 6 & * B * 6 2 ^ 3IWV7NZ 7ESC+OCR+OCF7DWO3BWL6 KP3E	C3S?I3NZ 3UON3T?I7NZ 7AWLE7S*JCC* B * B * B * B * B * B 2 ?C3RWR3S?P3N	D+NCG+TCO+X" 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" *,3Y3ASN" 7Z*JCC* B * B * B 2 WI+RB * B-2 WR3S3U3
;I3GV 3R?R7RB 3AGR7MSEE7R*JCC* B * B * B * B * B * B 2 WI/R6 . F-* 6 2 SN+ICM+ICS7LOE7SR 3H;A" 63*JCC* B * B * B * B * B * B 2 WI/R6 . B * 6 2 ?N6 KE7RKO2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B * " *1B)2 [I2 WI+R6=61R 7HKE3E" +ACS3BWE3N: 3ON 7OCM3UGT3T
IN6.*JCC* B * B * B . J(*)B * CZ3C;A2 GH+VCE3TWH2 GS+MCE3S?T3R
A3EF 3L?L7CSA3I;O6 OA* CX+OCR+YB.2 [I2MNJ* B * B * B * B * B 6 " 6 KO* CY+ICS7DOI3T;I+CCT3F?R7M* 6,R 3H;E6 SI6 OI2 ?N3TR 7ESS7R	O+E;D2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 ?NN7E"J7C*JCC* B * B 2 WM3T?HD*M+CB *
B * B * B 3EOX7ESP6 SA2 T3EV 7NCD3O;I+TCS/XF(2)F +NCD3X:(3D7I*)B,3EOA7HN 3M?O3TWHD*M+CB * B * B * B 3V3A+UCE3Z&(2)& 3S> 3BGT3IWN3DJ 3YV 3V3A7USA3I
N6 SA* X+IB)3TWH2 WL7ASS"-*M+CB * B * B * B 7SWQ3AWR7SB 7O	L3N7O3I3A2 [O2 WD3GWR/EF 2 WR7L[E7ASN2 ?T2 T/EN 6 WS3CWC3S	SV7E*JCC* B * B * B 2 ?P7ISN+S" 3X&(*+	K*,Y3I.+*)B)/K6 . F-*,20*1".3SWE2 	H3LWD3BGR+N3D* ;F+B2.2MNJ* B * B * B 2 & 7NKT7OWD3C	T+OCN2 ?T6 
N7MKE3IGC3LF 3N3A3Y	S+SB,+MCC3GGR3W"-3I3L2,: +ECW7YKOK6/*JCC* B * B * B 2 ?T3R;O+T?O3L;O3D;O.,F .9Z56,B /PJ.*568.3F1".6)"J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER /SGG
3"(*,3Y3Z:,3D7I2,WIR6)"J7C"J7C*JB * B 2 	D3M;E3S?I7N" *(&1*,Y*12)/ZF(")*M* B * B 7DWO3BWL6 KP3E	C3S?I7N" *,3Y7Z",7M&,7MR,61R,62R,23",2MNJ2MNJ* B * B 6 R 7ESS2 [O2 	D3M;E3S?IN*M* B * B +IF3N	D/MN-*)27.1F,2MNJ2MNJ* B * B 6 N 7TKA3T2 7OCO*MBJ* B 21R /OZ . 7I
3:,3D7I*MBJ* B 6 " +M:=.3N3.3N3.3N3.3N3.3N323R3*0"*3X&(*-&2*+X/IF-6)"+*(	I")*M* B * B /Y7M..N3.3N3.3N3.3N3.3N3.3N3+D*0*(Y/IJ-6)&+*(7I*1.)3Y&(")6)*JB * B . GT*=X/IJ-6)"-M*M* B * B /T623X&(*-&12-7X*MBJ* B 6 R 63"=*(	I2-7X*MBJ* B 6 " 7MR=61R*61R+62R*62R+63R*
3*M* B * B +IF+X	M.3N,",62*JB . J 2 7X6=R(*1"*3Y&(*-&22-7Y6)R+*2"*3Y&(*-&12-7Y6)R+*3"*3Y&(6)&-+M&)2/7X2MNJ2MNJ* B * B 2 N 3HOE3KZ 7IOR7TB 3O;IT*M* B * B3+IF/IN-*)24.4V,*MBJ* B 24" 2=7X.*GT2+7Y*MBJ* B 65* *(7I.26)H*M* B * B67H"=7MR*62&+M*M+CB * B * B 3ESN2
[O2 ?LO7P"J7C*JCC* B * B 6 CU7DSA3E2 7ASS6 
T3ON 7OCM3OWN7NOT*MBJ* B 6 * 2(SN+I7M.16)H*M* B * B 3Z:(3D7I6)"=7MR*63&+M*M* B * B 7IKE"=60*JB * B 2 WR7TKUN*MC*M+CB * B * B 7EKR+OCR3E	X3T& 3NN 3AWS2 SN+ICM+ICS7LOE7SR 3H;A" 63*JB . ^ 2 WI+R6="1*M* B * B 7RSE3U;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

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