File DQHSE.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 GD3HWS2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3ON 7OCM3UWT2 T7EZ 7ESC+OCR+OCF7ISN7EKG+ACL3V3A7UOE2 ?F3RF 2 	G3V;E2
NJ* B * B * B 2 V 3Q	U7DOI3T;A7TR 3A3B3E> 3FZ 3UON3T?I+NB,7FKI+SCT7DKE3IGV7T[IE6,*JCC* B * B * B 2 ;A7DN 3E?C+NCD7DKE3IGV7T[I7EZ 7AWL+E;S2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR 7QOH+E" 7H&,2,SF7YN,+D3Y3Z:,3D7I")*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B +HB * B * B-7DWO3BWL6 KP3E	C3S?I3N& 7NKC3EWM+NCT+OCF3A
R3UWM+NCT3V3A7UOE".*M+CB * B * B * B +YB * B * B-7DWO3BWL6 KP3E	C3S?I3N& 7NWP7TZ 7ESC+OCR+OCF3F;U3C	T+OCN3V3A7UOE".*M+CB * B * B * B 7F	D* B * B-7DWO3BWL6 KP3E	C3S?I3N& 7NWP7TZ 7ESC+OCR+OCF7FKI+SCT7DKE3IGV7T[IE6.*JCC* B * B * B 2 SS+YB * 6 2 ?D3U3B7EB 3RO
3I	S+OCN7ICN+UCT3VOE7TKO2 [O2 WS3C;O3DR 3E	R7VSA3IWV".*M+CB * B * B * B +ZB * B * B-7ROE7USL3I
N2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2 [O2 ;I3T
E3R3A2MNJ* B * B * B * B * B * B 6 Z 7AWL+E;S* CZ7M	A2 WB2 SI7ESN3IGC7L^ 3IT* 3Y2 SF3Y> 7RN +D;Y2MNJ* B * B * B 2 : 3D7I* B 6-R +HCE3D7I7EON3I;O2 [O2 WV3C?T+RCS3YZ,+D3Y7S	D*,;Z2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 3OF 3C	T+OCN+ICN7COA3E: 3D7I2 W
+SCS3TGH/NF ".*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 2 WB3G;I3N;I7G^ 3IT* Z.16)*0B,3EGV3LGU3T?I3N> 7FZ 7ESC+OCR3Z& 3SR 3OWN6 	B2MNJ* B * B * B 2 6 3E;A
S> 3F" 3E7R3IWT+ACN7SI+TCH3OSR+ECR7ISN7EKG3A	T+OCN7FKO3M3UA6.*JCC* B * B * B 2 ?F7RJ 3EWF3R;E+C3E2 WSE*M+CB * B * B * B 7R*.3U7R3UE+LB,3PGR3K	T3SC3E6 3AT3EGM3T/I6 WF+ECR3I
N3E	N7EKU7EV N7D*JCC* B * B * B 2 P3Y	S7KKE6,N 3P	R3NWG+RB,7BKE3L;I2/?G7EST3I
N+E?N3H	E3D3E7BKE+GB,.1Z9"36,*JCC* B * B * B 6 CP..J2.7J-*3:02MNJ2MNJ* B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB * B 6 WS3B?R3U	T+NCE3DQ+SE7H&,2,SF7YN,+D3Y3Z:,3D7I")*MC*MC*M* B * B 3D7I7EON3I;O* 
*12)7F	D*(&12,SS/YF(6)*,*(&1*MBJ* B 2 R 3OKU+LCE3PWR7COI3I;O* 3Y7F	D2,SS7Y*,*,3H+H3H+H3F+H3T3S7U61N,/UKM2MNJ*MBJ* B 6 N /UKM*=:0D60*JB * B 2 [I2(SN+I7M.1R)*,23"1*M* B * B1/H7H2.R520"**MBJ* B 2 " +F:=.2CD"*7H*JB * B 6 SH.=B..8N3.3N3.3N3.3N3.3N3.3CD"*7H"J7C
JCC* B 2 ;I3T
E7RSA3I;O2 ?LO7P*JB * B 2 ?D* B2/IJ=2,SNI7M*JB * B 6 WS/M613S7U"2*M6IWS/M623S7U22"++H"**(Y/IF-6)&+*(	I2)"++F"*2(SF3Y&(*-&12-SF3Y&(*).)*MBJ* B * B1* B * B * B * B 6 SH6*N(+DY/IF-6)N++DY+I&)")6)*JB . J * Z/IF-6)N=/UGM*MBJ* B 63* 2(SN+I	M6=WSM62*JB . R 2 WR7
KUN*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"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