File DQH48.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/H"42MNJ2MNJ* 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/H"42 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. "42-?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/E& "56.*JCC* B * B * B 2 ?F7RJ 3EWF3R;E+C3E2 WSE*M+CB * B * B * B 3SGH3ON/3H;E6/KF3A/N6,R 3A3B+ECS+OCF7ZKE+OCS3ASN2 GG7UOS3I;A2 WW3IG+TCSO7F*JCC* B * B * B 2 WC3RGT+ICN7AOS
O	C3AWT3D2 7AWG7EKR7EB 7O	L3N7O3I3A3SF +NCD3TWH2 WR7LSAE7D*JCC* B * B * B 2 WG7NKE3A	L3ZSE2 WH3R	M+TCE3P3O3Y?N3MGI+L3S2 KI7MR 3EC3NOI+ACL7RCE7OSR2MNJ* B * B * B 6 R /RB0..F1*0B02(GM3RC. &1*6&46,B /PJ.*163.2R1".*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.
.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ*MBJ* B 6 N 7UKB7OSU3IWN6 GD/H"42(OF7T&,")*MC*MC*M* B * B 7DWO3BWL6 KP3E	C3S?I7N" *,3Y3ZZ,C7T"J7C*JB * B . 7X..&8.7N5.1B5.8&1.3Z128R7"1*M* B * B +Z6=X*M* B * B +Y:=.7N9.5V5.1Z4.0^7.3&9*77D*3*52(OF
T"(2)Z++CT+Z&)*MBJ* B 6 " .="..3B1.7J5.1B9.7R0.7R8D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.5"9.4F6.2&6.3F3.3^828R4.-B32*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.7V7.9&2.5F5.9Z7.5^7.5GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..Z3.8B5.3B6.8F0.5Z0.6&9/DJ-*6"*7FSC*(	X2+OF7T*(")6
*JB * B . 7X..J7.6B6.4V6.5F4.6N425R0"1*M* B * B +Z6=X*M* B * B 7Y&=.+V..5R6.5^7.4"6.9J0.2R8*87D*2*32(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=Z..8B1.0R6.5"7.0R7.1F4.4GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..F3.8N8.8N7.2V3.0F5.3R8/DJ-*0"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X.
N6.8V0.6B4.9F6.8R6.1Z0D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.8N7.0V1.9B6.1"1.6^6*77D*1*82(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=V..9F7.0J7.2V2.0N1.5V4.4GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..N1.1F5.5Z9.2Z2.5R8.0V8/DF-*5"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..V5.7N7.1&6.8J
.2^3.2Z8D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1&1.7"5.9Z8.5^4.9^129R4.-N12*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.5&1.6"2.7F7.8&7.2Z324R5"1*M* B * B +Z6=X*M* B * B 7Y&=.+^..0Z4.9J3.5F8.5V4.8&8*17D*1*22(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=R..8V2.7^5.2"2.1N3.2&0.5GD*MB
* B 6 * 6="-*MBJ* B 6 & *=/Y.."2.1J5.9V6.3"7.3F8.6F9/DF-*0"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..R4.6B4.1V4.4&6.3R4.5&8D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.7N9.0Z4.7&4.5Z1.5"3*27D*9"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..F4.0^9.0Z4.0V3.6V0.9J0D61*JB * B . 7Z"-7X*
B * B . 7Y+Y:+.1J6.2F5.4N1.5&8.5Z729R8*-*72(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=N..7F6.7Z2.4B9.2"2.3^5.8GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..R2.6Z8.5&8.9Z3.6^9.5V0/DZ-2*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.3F4.9Z1.5Z9.9Z3.3"824R6"1*M* B * B +Z6=X*M* B * B 7Y&=.+J.
8^4.2"5.6F9.7R3.8"4*17D*5"*7FSC*(	X2+OF7T*(")6)*JB * B . 7X..B3.8J1.4&8.8Z8.4F5.0"5D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.2J5.8&5.9J0.7R7.8"428R9*-*42(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=J..7^4.3"0.6R2.8J2.3N8.2GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..^1.5V1.0N4.1B8.1
1.2N8/DN-2*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.2F4.6Z7.0B9.4^8.3F226R5"1*M* B * B +Z6=X*M* B * B 7Y&=.+&..5N6.9N2.1"9.1R9.1N5/DN-2*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.2"0.9"0.6Z6.0R9.4^226R4"1*M* B * B +Z6=X*M* B * B 7Y&=.+R..1N5.0R0.9F1.9^7.5J5*57D*2"*7FSC*(
X2+OF7T*(")6)*JB * B . 7X..^1.6"3.1V7.7"9.9N5.0B0D61*JB * B . 7Z"-7X*JB * B . 7Y+Y:+.1R4.4&4.6V1.7&4.8B129R9*-*12(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=F..4B4.5V2.2B2.1^3.5V6.2GD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..B4.4&7.6Z7.9R8.6N0.8&4/DF-2*Z(+CT+X.)7FSC*(	Z")*M*
B * B +X:=.1F1.8F8.2V1.2B4.2V126R6"1*M* B * B +Z6=X*M* B * B 7Y&=.+&..1J8.2&2.7^0.9"2.5"1/DF-2*Z(+CT+X.)7FSC*(	Z")*M* B * B +X:=.7"9.3R0.6^2.7"7.5J6.2CD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..Z1.9B2.4^4.1R9.5R6.1F1+D*02(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=R..7Z8.4N6
3V7.9R4.9F6.0CD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..V2.3Z9.1R5.2Z6.4V7.9B1+D*02(OF7T"(2)Z++CT+Z&)*MBJ* B 6 " .=F..5R9.9&2.3"5.4"8.6R2.7CD*MBJ* B 6 * 6="-*MBJ* B 6 & *=/Y..F3.1B0.1N0.0^3.7Z9.3"0+D*02(OF7T"(2)Z++CT+Z&)*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"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