File DQH64.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 GD/HR62MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3ON 7OCM3UWT2 ;I3T
E3R3A6(E+P6(7X"*2)Z*+CT+X2)6 WS3MWM3D> 7VKE* CX3F?RM*M+CB * B * B * B * B * B * B * B * B * B * 6 3I[N3I	N+TCY+TCO2+;I3F;I7I	T")6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 GD/HR62 Z(+C3TY6)*JCC* B * B * B 2 GP3R7A3EWT3RZ +CCT7RGE7UKI+ECS+ACN7ESX3E
R+ACL3SGT3T7E7ESN2MNJ2MNJ* B * B 2 R 3EOS7RCI3T?I3N> 7FB 3AGR7MSE7EOR2MNJ* B * B * B 2 Z +CCT* B 6-R +HCE3N7A3E> 3FF 3NV 3XWT3RGN3LR 3OKU+LCE3PWR7COI3I;O6 WF7NSC3I;O2MNJ* B * B * B * B * B * B 6 N 7UCB3R
O3R7A6 OU+E;D2MNJ* B * B * B 6 & * B * B 6-R +HCE7ROE7USL3I
N2 ?D3U3B7EB 3ROE3I	S+OCN7ISN7EKG+ACL3V3A+U;E2MNJ2MNJ* B * B 6 J 3EGM7ROK2MNJ* B * B * B 2 : 3OWN2MNJ2MNJ* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 2 T3EV 3XWT3RGN3LR 3OKU+LCE3PWR7COI3I;O6 WF7NSC3I;O6 WS7BKP7OKG
ACM7FSC*(	X2MNJ* B * B * B 2 6 7USS2 WB6 WF3R	N3SWH3DJ 7YR +HCE3UWSR6."J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3EGV3LGU3T?I3N& 3SR 3OWN6 	B2 WM7AON2 [O. R62-?P7ISN2 GG7UOS3I;A2-WH3R	MT7E*JCC* B * B * B 6 WQ7AKD7AWT+RCE7FKO3M3U+AB,3W	H+CCH7ISN7EKG3AWT3SV
3XOA7T	L2 W3EWN7VKE2MNJ* B * B * B 2 Z +CT+XB)+ICS7AB 7O	L3N7O3I3A6 CU2 ?T2 WD3GWR/EF *2:72MNJ* B * B * B 2 Z +OCR3R[E3EWR3NWC6,N E7E*JCC* B * B * B 2 S+A?O3CWH3NZ/3R;A+KB,3TKA7LOE2 [O2 WZ7ROO2 ;A3D^ 7AOU3SGI7N^ 3E
I7HOT2 [O2MNJ* B * B * B 2 N 7ESR3A;I6 OA3SOO7ISA+ECD3L
A7UKE+RCE3P3O3Y?N3MGI+LCS3ASN2 T7EJ 3EGL3TSE2MNJ* B * B * B 2 ^ 3EWN3R3A3IWZ3D" 3E7R3IWT2 ?P3L;Y3O	M7AOL2,& +BCM3TOE3H	N3C3A2 WR7PKOT*M+CB * B * B * B /TCR.0F..1B02 6(3AOR/HF .9R6*)B,+P;P.2N1.-F2"46."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.
.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER /Q[H24Z(+C3TY6)"J7C"J7C*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7X&,*,3Z7FSC2MNJ*MBJ* B 6 " .=F..0J5.6J1.3Z1.7Z9.0R5.6KD*MBJ* B 6 * 6="-*MBJ* B 6 & .=V..5V3.7Z0.5V3.8Z5.9J4*87D*2*82(OF7T"(2)
++CT+Z&)*MBJ* B 6 " .=&..8V9.2^8.5Z8.8&2.5&3D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1^6.9R7.7&9.0B1.8V129R2.-J22*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.9^3.3V1.9R5.9R6.6J7.1KD"1*M* B * B +Z6=X*M* B * B 7Y&=.+N..4F2.1"3.0F1.2V5.7B4*57D*1*82(OF7T"(2)Z++CT+Z&)*MBJ* B
6 " .="..9^0.2&4.0&9.9R6.7B7D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1V5.7&3.0J6.4J6.9Z723R8.-R12*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.8^4.7J5.9"0.3^3.9Z8.3GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..V2.4Z9.6"0.9F9.1&2.9N9/DF-*1"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..B8.7Z3.
J7.8B5.1J022R5"1*M* B * B +Z6=X*M* B * B 7Y&=.+F..9&2.1N0.5V9.4R6.9Z6*97D*8"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..Z7.8V9.4F0.6B4.4R029R7"1*M* B * B +Z6=X*M* B * B 7Y&=.+^..8F6.7^9.7"8.9V2.9B1/DZ-2*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.7J3.1F0.3N0.2"7.0R9.9GD*MBJ
 B 6 * 6="-*MBJ* B 6 & *=/Y..&1.1^1.0"6.8N3.0Z0.4"2/DN-2*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.6Z9.5R2.1J1.0V5.1B127R5"1*M* B * B +Z6=X*M* B * B 7Y&=.+J..9J8.8J6.7R8.2&7.8F5*27D*1"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..Z6.2F0.1J2.6Z2.3B6.2R7D61*JB * B . 7Z"-7X*JB
* B . 7Y+Y:+.3V1.2V2.4Z5.6B5.3"721R4*1"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..J6.8B4.1J1.2^8.7"4.2J8D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.2V3.1"8.4F7.0^6.5F829R1*3"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..&5.5Z5.6N6.2^6.9R9.8B6D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1"2.
&0.3&3.1J3.2N428R0*5"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..Z5.3B4.5F2.6N4.4&9.7F2D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.5F2.8J6.3J7.6&5.0R827R5*6"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..N5.1N8.2J5.2Z4.3J3.7&0D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1J6.8R3.0N7.0B7.9J720R
*8"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..B5.0^7.7Z9.0F2.9^8.6J8D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.3V9.9^1.7Z7.6R9.7J723R9*9"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..^4.0"1.1Z5.4R7.0R7.9"9D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.7F6.5F2.7V2.0R1.5V4.1GD*0"*7FSC*(	X2+OF7
*(")6)*JB * B . 7X..N4.9&9.1F7.6J8.2F8.3Z7D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1^1.3F6.6R7.2J3.1R529R3*1*22(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=R..1F0.6R3.4R7.5Z6.6Z5.7GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..R1.6F5.2N5.1R6.7F6.0R9/DN12*Z(+CT+X.)7FSC*(	Z")*M* B * B 
X:=.3B8.6^5.1F5.3R9.5Z320R5"1*M* B * B +Z6=X*M* B * B 7Y&=.+F..4V9.5J3.9Z3.7^2.2^4.1GD*4"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..V3.1N4.7&5.3^5.4&0.0J6D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1V2.8R3.0V2.1N0.1"124R6*1*52(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=N..2R2.7F3.2F
.9J9.0V3.7GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..^8.8R8.9J9.3"0.5N025R9*1*52(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=J..9^3.3B5.8N2.0R0.6F2.8GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..F5.2&5.2F9.3^5.8J6.7^4/DZ12*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.2V6.1^9.2N4.5N4.0N625R0"1*M*
B * B +Z6=X*M* B * B 7Y&=.+J..5&0.8Z3.9V8.1B3.6R2.9GD*7"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..N2.6N8.5V4.8Z8.3R2.0R1D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1N0.6J3.9&0.9B5.7^527R7*1*82(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=J..0Z8.2J7.8&7.8F8.7J6.0GD*MBJ* B 6 * 6="-*MBJ
 B 6 & *=/Y..Z3.2V2.8&6.7V8.3R4.5"8/D"12*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.1B8.5F5.7^1.1Z4.5R524R9"1*M* B * B +Z6=X*M* B * B 7Y&=.+F..0V7.6R0.0B5.9^8.9N1.7GD*9"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..V1.2"5.8F9.4J0.0"9.6^3D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.2J
.0F3.2&8.5Z3.8&821R8*1*92(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=F..2^4.2B0.1Z5.9N4.1^1.9GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y.."5.7&3.9F8.9R6.0&9.4V3/D&12*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.9&6.2&6.4N2.0F7.1"7.0CD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..B1.8&4.8R3.9B3.6"1.
R8/DB22*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.6F9.9J2.3V0.8B1.0R425R8"0*M* B * B +Z6=X*M* B * B 7Y&=.+F..7Z1.8"5.4N2.4B9.8^3.0KD*0"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..F4.4"9.8J8.4J1.1^0.8"6D60*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.2J3.9R9.7Z8.0J6.6"720R5*2*02(OF7T"(
)Z++CT+Z&)*MBJ* B 6 " .=F..3N8.0J2.4&4.8B7.0^9.2CD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..^2.1^3.7J4.4R9.1B3.3"9/DB22*Z(+CT+X.)7FSC*(	Z")*M.I7Y/YF**.7D"260*JB * B 2 WR7TKUN*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

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