File DQL32.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/LJ32MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 6 R 3ON 7OCM3UWT2 ;I3T
E3R3A6(E+P6(+X*)7FSC*(	X6,N 3U7M+ECD3OWV7R" 2MNJ* B * B * B * B * B * B * B * B * B * B 6 KF+OCM60R 3O& 3N	F7NSI+Y:)2MNJ2MNJ* B * B 6 V 3S
AE*M+CB * B * B * B 3C3A3LR /QOL*2" 7FSC*,	Y2MNJ* B * B * B 6 B 3AGR7MSE+ECR7FSC2 WR3Q	U7ROE2 ;A6 E7TKE3N3A6 SS3AWT3M;ET*MC*M+CB * B * B 7DOE3C	R3P	T+OCN+OCF7PKA3AWM7TKES*M+CB * B * B * B 7FSC* B * B-3TWH2 GN+MCE+OCF+ACN7ESX3E;R+ACL7DWO3BWL6 KP3E	C3S?I3NZ
3UON3T?IN*M+CB * B * B * B * B * B * B 3SKU3P?R3GGR7MV 3SSE".*M+CB * B * B * B +YB * B * B-3TWH2 WR3S3U3T;I3GR 3OKU+LCE3PWR7COI3I;O2 ;I3T
E3R3A2 GV3LWU".*MC*M+CB * B * B 3R7E3A/RS*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 3SKU7RWO3T;I+ECS3ASN6 WF7NSC3I;O6 WS7BKP7OKG7AOM2 WR3Q	U3RSE2MNJ* B * B * B 6 R +HCE7ESX3E;R+ACL7DWO3BWL6 KP3E	C3S?I3NZ 3UON3T?I7NN 7UCB3R
O3R7A2 OF7T"(")*M+CB * B * B * B 7MOU3TJ 3EZ 3U;R3IS+ECD+BCY3TWH6 OU+E;R2MNJ2MNJ* B * B 2 6 3ETO7D*JCC* B * B * B 6 [E7AWL3A	T+OCN+ICS3D;O3EJ 3Y6 3E;A3S> /FN 62B-3O;I3T^ 7AOU3SGI3N2-7AWG7EKRE*M+CB * B * B * B 3QGU3DGR7TKU3EZ 3O7R3UGL6,^ 3HOI3H& 3NWT3GGR7T
E6 E7ASC+L3Y2MNJ* B * B * B 6 ^ 3H;E3EWV3RZ +CT+XB)+ICS7AB 7O	L3N7O3I3A6 CU2 ?T2 WD3GWR/EZ "36.*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+IC
7AOS3O	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..4J-"56."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER /QOL22Z(+C3TY6)"J7C"J7C*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7X&,2,OFT*MC*M* B * B +X:=.1F1.7F5.3"9.0^9.9^327R0"3*M* B * B +Y:=.4F5.0N5.6&1.3&8.8^924R2.-^22*OF7T"(")*M* B * 
 +X:=.9"8.2V9.4"2.6J8.8&3.7KD*MBJ* B 6 & *=/Y..N1.3Z8.1&6.4F2.0J6.5N6/DJ-21Z*+CTX6)*JB * B . 7X.."8.7V3.3B4.4^1.8J924R0"2*M* B * B 7Y&=.+J..6F7.5F1.2&1.2B4.1^3*07D*1*77FSC*(	X*MBJ* B 6 " .="..0"1.7R4.6^9.7F9.3J5D62*JB * B . 7Y+Y:+.1&1.2R2.8Z7.0&0.8J222R4.
N12*OF7T"(")*M* B * B +X:=.7Z2.8Z7.2B8.9Z0.6^2.1KD*MBJ* B 6 & *=/Y..&1.1N3.7R5.9R4.5J4.2N4/DF-20Z*+CTX6)*JB * B . 7X..V6.9V7.3^7.2^8.9V3.0N5D62*JB * B . 7Y+Y:+.1F4.8Z5.0R5.5Z4.3N026R9*-*77FSC*(	X*MBJ* B 6 " .=V..9&8.2B5.9Z1.2N1.4F0.8KD*MBJ* B 6 & *=/Y..Z5
6J1.9F4.3N0.9N7.5R9/DV-2*OF7T"(")*M* B * B +X:=.5N4.3^3.2N1.3N3.9&620R7"2*M* B * B 7Y&=.+F..3Z4.9J8.5Z8.6^3.3V9*27D22Z*+CTX6)*JB * B . 7X..&4.2R2.3R9.9^8.3"0.6&3D62*JB * B . 7Y+Y:+.2V0.4J4.9^6.3"7.8R025R420Z*+CTX6)*JB * B . 7X..R4.5&0.2^0.9V9.7R5.9"3D62*J
 * B . 7Y+Y:+.2F1.9&7.2&2.0Z1.3F628R622Z*+CTX6)*JB * B . 7X..B4.1V4.7&1.7F7.5&3.4J4D62*JB * B . 7Y+Y:+.1R5.2N1.3N8.3&3.3J823R424Z*+CTX6)*JB * B . 7X..Z3.1B0.4R9.8V0.7F5.9R7D62*JB * B . 7Y+Y:+.8^1.1J8.3R4.3J4.0F7.9WD2*OF7T"(")*M* B * B +X:=.3N2.4Z6.2F9.5&3
6^423R7"2*M* B * B 7Y&=.+N..2^3.8F0.6^5.7&2.2Z6.5
D2*OF7T"(")*M* B * B +X:=.2"8.6F2.0"1.1N6.2R327R5"2*M* B * B 7Y&=.+&..7&9.3&7.2"8.7^2.0R9+D*87FSC*(	X*MBJ* B 6 " .=J..5J6.8N6.6J0.2V4.9R2.8KD*MBJ* B 6 & *=/Y..N2.0"5.9R9.9"1.9N1.3F6/DB12*OF7T"(")*M* B * B +X:=.2Z2.3"0.8B9.1F3.9^627R4"2*M* B * B 7Y&=.+R..2
8.3J8.9F7.0B4.9"2.9GD21Z*+CTX6)*JB * B . 7X..&1.8V5.8B6.9B4.3Z3.0V5D62*JB * B . 7Y+Y:+.6V3.0B6.2J2.6J6.5B826R7*1*27FSC*(	X*MBJ* B 6 " .=F..7&2.2V4.4N3.6F7.5F3.5KD*MBJ* B 6 & *=/Y..Z7.0V4.6"7.7F9.2^028R1*1*37FSC*(	X*MBJ* B 6 " .=F..4N9.1N1.9V7.5J5.2V5.7KD*
BJ* B 6 & *=/Y..R7.1R6.0V4.7Z8.6V725R2*1*47FSC*(	X*MBJ* B 6 " .=F..2Z7.3&6.7"9.6R7.2J7.5KD*MBJ* B 6 & *=/Y..&5.3V4.4Z1.1"2.6Z8.3&2/DV12*OF7T"(")*M* B * B +X:=.1^0.8B3.1Z8.3V2.3&927R2"2*M* B * B 7Y&=.+N..9B2.3F4.9^6.9^8.9^4.2GD26Z*+CTX6)*JB * B . 7X..&8.8&
.4&0.2J4.1V229R6"1*M* B * B 7Y&=.+J..1"4.6&4.1"8.0N1.6F4.9GD27Z*+CTX6)*JB * B . 7X..N7.5F8.2^6.3F3.8J624R1"1*M* B * B 7Y&=.+&..8"0.0N3.0Z6.1&4.5F5/D^12*OF7T"(")*M* B * B +X:=.5B9.3V9.8B5.4^1.4R223R9"1*M* B * B 7Y&=.+N..7"3.8Z1.2R9.6F1.5R2.8GD28Z*+CTX6)*JB
* B . 7X..Z4.1R6.5^6.6^9.4^9.6R7D61*JB * B . 7Y+Y:+.1&1.1J8.1"4.3"4.3V825R7*1*97FSC*(	X*MBJ* B 6 " .=N..4J9.2N1.2N7.0F2.9R9.5GD*MBJ* B 6 & *=/Y..F3.7B6.9J1.5&0.1V7.0B7/D&12*OF7T"(")*M* B * B +X:=.2J5.8N3.6B7.6J4.5&724R9"1*M* B * B 7Y&=.+^..0^5.8J6.3Z8.5F7
7R4.2GD29Z*+CTX6)*JB * B . 7X..^1.2R2.0^8.7R6.4Z4.4R5D61*JB * B . 7Y+Y:+.1&2.9N8.7Z8.2Z8.0F727R6*2*07FSC*(	X*MBJ* B 6 " .=F..0J7.4"4.7N5.8^1.8^1.6GD*MBJ* B 6 & *=/Y..&1.5B9.3N3.5^9.2"8.1R0/DB22*OF7T"(")*M* B * B +X:=.5Z7.8R8.6&2.3F0.8Z824R3"0*M* B * B 7Y&
.+J..3J5.1J3.2Z9.6"9.4B8.1KD20Z*+CTX6)*JB * B . 7X..N2.4J5.6B1.9F5.9F6.8R5D60*JB * B . 7Y+Y:+.2B1.4N4.1^0.9"3.8N122R3*2*07FSC*(	X*MBJ* B 6 " .=R..4"4.9Z3.5N8.3Z2.7F0*87D"1*M* B * B 7Y&=.+F..0J9.1N8.4&1.5N2.8&4.7KD20Z*+CTX6)6J&I*=+Y21R..-B2*MBJ* B 6 J 7EWT
7N*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

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