File DQSF.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 GDS7F"J7C*JCC* B * B 6 WP3R?PS7E*JCC* B * B * B 2 ?T2 ?C7MWP+TCE3TWH2 WV3C?T3R> 3F& 3NWT3GGR7LZ 7AWL+ECS7FKO* CA7G[IE7N*JC
* B * B * B 6 GE3USI7ISS7ASN2 GT3BWL2 [O6 WF7NSC3I;O2 GV3LWUS6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 GD+SCF*(3H7Y*,2,SN+I	M2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 " * B * B 2-R 3OKU+LCE3PWR7COI3I;O2 ;I3CWR3M;E3T> 
FF 7RWG3M;E7TZ 7AWL+E;S2MNJ* B * B * B 6 & * B * B 2-R 3OKU+LCE3PWR7COI3I;O2 ;I7PSU2 WV3C?T3R> 3FZ 3UON3T?I7NZ 7AWL+E;S2MNJ* B * B * B 6 * * B * B 6-J 7EWS3L	T+NCG7DWO3BWL6 KP3E	C3S?I7NZ 7ESC+OCR+OCF7ISN7EKGA7L*JCC* B * B * B * B * B * B 2 GV3LWU+SB.3Z6 +
CY+BCE3IWD3N	T3C3A2 	W+TCHY6.*JCC* B * B * B 2 SN+ICM* 6 2 T3ER 3IWM3N	S+OCN+OCF3VOE7TKO7S& 2 ;A7D* ".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B +NCO7ASC3I;O2 ;I2 GC+SCE3N	D3M2 7EOS2 T+ACN"36."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 2 J 3E	G3N	N+NCG7WSI7H* *(&1*=206 [E7AWL3A	T+OCN+OCF3VOE7TKO* CZ+ICS3D;O3EJ Y*M+CB * B * B * B 3MGE+NCS+OCF3S7I3P?S+NCS3R3U7ER 3OWG3TWH7R^ 3IT2 WN3W?T+NCS.3"/6 WR+LCE+OCRA*M
CB * B * B * B 3C7O3B;I3A	T+OCN+OCF3TWH+SCE3T?W6 WR7LOE6.R 3R;U7CSA3I;O6 KE7RKO6 OI2 [O2MNJ* B * B * B 2 > 3RWD3R" .*V*2 &(*.;E2 ?F7USR3H> 3RWD3R6 3ET+O	D2.> 7N	L2 ;I2 GC+SCE3N	D/MN=2MNJ* B * B * B 6 R 3R;U7CSA3I;O6 KE7RKO2 [O* Z*2B)+ICS+OCF3OSR+ECR+H**"4
.*JCC* B * B * B 2 ?F7RJ 3EWF3R;E+C3E2 WSE*M+CB * B * B * B *(&1* ;F3B".3ISL7EKB3ASN2,& 7NKT7OWD3C	T+OCN+TCO3N7U3E	R3C3A2 ;A7A	L7SOI",*M+CB * B * B * B * B 2 OM3GGR3W"-3I3L2,: +ECW7YKO7KR/3O?R3N?T2/?L3N?D+NB,.1V9*6B,+P;P*761*7:62MNJ* B * B * B * " *2B)7R*
3U7R3UE+LB,3PGR3K	T3SC3E6 3AT3EGM3T/I6 WF+ECR3I
N3E	N7EKU7EV N7D*JCC* B * B * B * B 6 B 7HOY3IWK+RB,7SKP3I
N+E3R2 WB3R	L3N^/7OSE3T;I3G;E2/WH3IWD3LWB+R3G. &1*6232MNJ* B * B * B * B * B +P;P.2R1.-J2"16."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3Q[S*(3H7Y*,2,SN+I	M2MNJ2MNJ*MB
* B 2 R 3IWM3N	S+OCN/YF(6)*,*(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3Y3Z",6,SH6,WS+M213S7U22F,+U3X7AU21F,/UKX2MNJ*MBJ* B 2 " +T:=.3N3.3N3.3N3.3N3.3N323R320"**MBJ* B 2 & 3F:(3D7I*-&5.7",",61"J7C*JCC* B 2 SN+ICM+ICS3GWR3AWT7RR 3H;A* :56 KP3EGP7RSA3I;O3S> 3F& 
NWT3GGR3T?I3N2 7OCO*MBJ* B 61N /UGM*=Y*2.)/YJ(")*M* B * B 3S7U61N=/UGM6+WSM61*JB * B 6 WS/M61+H+T*(Y*1.)3S7U61&+*(&3")*M* B * B 7AU61&=*(&4*+Y"46)*JB * B 6 WA/X617AU21F+/UGX*MBJ* B 2 F /UGX6=WS+M.1+H+T*(Y*3.)7AU61&+*(&5")*M* B * B 7AU22"=+T"*/YF(.)N+..^8.
CD6*&(*(&2*+Y*5&)*+:2.6V2+D*0*(Y*3.)/YR(*).)/YZ(")6)*JB * B 6 WS/M62/YV(6)&+*(&5*MBJ* B 6 N /UKM6=WS+M.23S7U"2*M* B * B 3S7U22F=/UKX6-SH6*&(*(&46+WS+M.2/YZ(")6)*JB * B * Z.16)20R."0*M* B * B 7AU*=Y*3.)/YN(")*M* B * B 7AU6=WA3XF+U7X*JB * B * Z.26)3S7U22"-+
"*/YJ(2)F++U/X/YR(")6)*JB * B * Z.36)3S7U"1*M* B * B /ZR(6)N=/UKM*MBJ* B 2 & 3F:(3D7I*-&6.5V,",62"J7C*JCC* B 2 ;I3T
E7RSA3I;O2 ?LO7P*JB . J 2 ?D* B4/I^=2,SN+I3M"2*M* B * B 3S7U21F=/UGX*MBJ* B 6 N /UKM6=WAX62*JB * B 6 WA/X613Y&(*-&1*+Y/IF-")*M* B * B 7AU21F=/UGX6+WAX61*JB * B 6 WA/X613S7U21"++T"*3Y&(*-&26+WA+X.13Y&(")6)*JB * B * Z/IJ-6)N=/UGM*MBJ* B 2 & 3F&(2-SN+I	M.3Z,
,66*JB . N 6 WA/X623Y&(6)&+*(	I*MBJ* B 2 F /UKX6=WA+X.27AU"2*M* B * B 7AU62N=/UKM6+SH6*&(*(7I*1.)7AU62&+*(/I*1&)*MBJ* B 64* *(7I.16)3S7U"2*M* B * B53Z:(3D7I*-&16=WAX61*JB * B * Z3N	D/M6)7AU"2*M* B * B 7RSE3U;R*MBJ* B 66* 2(SN+I7M.16)3S7U"2*M* B * B 3Z:(3D
I2)F=/UGX*MBJ* B 6 J 7EWTR7N*JCC* B 2 ;E3D> 3F& 3NWT3GGR3T?I3N2 7OCO2MNJ*MBJ* B 27& 3F:(3D7I*-&3*122*121"8*MC*M+CB * B 3N	D3M& 3SV 3QGU7LR /OR 6 KO" 65*JB . " 6 WS/M62.1F.22R520"*+T"*/YF(6)&+*(&2*+Y*2.)/YJ(6)&+*(&3*+Y*3.)/YN(6)&+*(&4")*M* B * B 3S7U61&=*(
2*+Y"26)*JB * B 6 WS/M613S7U61N+/UGM*MBJ* B 6 N /UGM6=SH6*&(*(&16+WS+M.1/YN(")6)*JB * B * Z.16)20R."0*M* B * B 7AU61&=*(&3*+Y"36)*JB * B 6 WA/X617AU21F+/UGX*MBJ* B 6 * *(&26=WS+M62+H+T*(Y*2.)7AU61&+*(&4")*M* B * B +IF3N	D/MV-.)B1*,29"9*M* B * B97AU61&=*(&
*+Y"46)*JB * B 6 WA/X617AU21F+/UGX*MBJ* B 6 * *(&56=WS+M.1+H+T*(Y*3.)7AU61&+*(&5")*M* B *1B0/ZN(6)N=/UGM*MBJ* B 6 * *(&46=WSM62*JB * B 2 WR7TKUN*MC*M+CB * B 3N	D3M& 3SV 3QGU7LR /ON *MBJ. F 61N /UGM6=SH.*F(..V2+D*0/YF(6)&+*(&2*+Y*26)..V2+D*0/YN(")6)*JB * B
6 WS/M62/YJ(6)&+*(&2*MBJ* B 6 N /UKM6=WS+M.23S7U"2*M* B * B /ZN(2)"=+T"*/YF(6)N+/UKM*+Y*3&)*MBJ* B 6 * *(&1*=:0D60*JB * B * Z.26)3S7U"1*M* B *1B27RSE3U;R*MBJ* B 2 V N7D"JBZ"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