File DQL24.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/LR22MNJ2MNJ* 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 /QKL*4" 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> /FJ 64B-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/ER "76.*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 /QKL24Z(+C3TY6)"J7C"J7C*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7X&,2,OFT*MC*M* B * B +X:=.8R1.9J8.7J9.3&3.4"8.9KD*MBJ* B 6 & .=V..5V7.3V4.7"8.3"2.3Z5*87D*3*47FSC*(	X*MBJ* B 6 
 .=Z..9Z9.2R2.0N0.5B1.5N0.0KD*MBJ* B 6 & *=/Y..B4.8N8.0V1.9Z3.8Z0.5"7/DJ-29Z*+CTX6)*JB * B . 7X..F6.0"5.5F3.4^4.2"1.7J6D62*JB * B . 7Y+Y:+.2V4.1F8.8R8.5^8.8B422R7.-V22*OF7T"(")*M* B * B +X:=.5Z3.0V8.7V4.4Z4.9B527R0"2*M* B * B 7Y&=.+N..6V0.7V6.8R6.5J5.9&5*
7D*2*27FSC*(	X*MBJ* B 6 " .=R..7V1.3B1.6R4.5V1.6J3.3KD*MBJ* B 6 & *=/Y..B2.1V0.1R7.6V4.5V5.0V3/DF-29Z*+CTX6)*JB * B . 7X..F4.4F5.7B2.4R8.8B7.7^6D62*JB * B . 7Y+Y:+.5V3.0"1.8F8.3F0.0N027R6.-^12*OF7T"(")*M* B * B +X:=.3N6.5R8.0"5.0Z1.5Z122R2"2*M* B * B 7Y&=
+^..8&1.8B0.3J8.4&5.4"4/DF-25Z*+CTX6)*JB * B . 7X..F3.7Z7.0F4.3J5.3R7.7N2D62*JB * B . 7Y+Y:+.6&8.4"1.1V0.2V9.8"025R7.-N12*OF7T"(")*M* B * B +X:=.2Z7.3&5.3F7.7N4.3^221R7"2*M* B * B 7Y&=.+N..9^1.7Z3.5V1.0"5.4F5*47D*1*17FSC*(	X*MBJ* B 6 " .=J..3"8.7J3.9R8.8Z
.9N7.3KD*MBJ* B 6 & *=/Y..V1.0B7.0J8.2J6.9V2.8&4/D&-2*OF7T"(")*M* B * B +X:=.2R0.9R1.6B0.8Z2.1R622R5"2*M* B * B 7Y&=.+R..0J7.8"5.9^8.5&4.9&9*77D28Z*+CTX6)*JB * B . 7X..^1.4^1.9J9.6Z4.5"0.9&7D62*JB * B . 7Y+Y:+.7Z9.0F8.2V9.9N1.3N6*07D27Z*+CTX6)*JB * B . 7X
.R1.6J4.7J3.2&8.5Z9.6R7D62*JB * B . 7Y+Y:+.1V1.1F3.5F8.2N7.7^229R9*-*57FSC*(	X*MBJ* B 6 " .=F..2R1.6B1.2F7.1J7.9Z7.6KD*MBJ* B 6 & *=/Y..J1.5R4.7F2.9^7.9N9.3N3/DR-2*OF7T"(")*M* B * B +X:=.9F9.2&0.8F0.5^0.7B7.6GD*MBJ* B 6 & *=/Y..B1.4Z4.1F2.4V6.9^2.5"1/DN-2
OF7T"(")*M* B * B +X:=.7J9.7N5.9R2.7^1.2V1.2GD*MBJ* B 6 & *=/Y..^6.2Z1.2Z5.4&0.3R5.7&8/DN-2*OF7T"(")*M* B * B +X:=.6"1.1N5.5F1.8N7.6Z725R4"1*M* B * B 7Y&=.+N..3&6.3&4.0"5.4"7.3N0*67D22Z*+CTX6)*JB * B . 7X..Z4.6B5.8^3.0R3.6F7.7"0D61*JB * B . 7Y+Y:+.1J3.2B6
1R9.0F5.2F025R7*-*17FSC*(	X*MBJ* B 6 " .=N..3B7.7R7.2R6.2"0.9^9.7GD*MBJ* B 6 & *=/Y..B4.7J3.4"7.1F5.4"0.6Z4/DF-2*OF7T"(")*M* B * B +X:=.2&2.2Z5.2V0.8N6.2&120R3"1*M* B * B 7Y&=.+&..8Z1.6^2.2J6.9F9.8&8/DF-2*OF7T"(")*M* B * B +X:=.1J4.5&5.7&5.0B8.3F623R1"1*M
 B * B 7Y&=.+F..8N3.2Z2.8&8.7^7.7B8.2CD2*OF7T"(")*M* B * B +X:=.7Z6.0Z9.9V0.5V4.9Z3.6CD*MBJ* B 6 & *=/Y..V2.8B8.6B7.7^2.2Z8.9B8+D*07FSC*(	X*MBJ* B 6 " .=N..1J1.3F9.4F6.9R8.8^3.3CD*MBJ* B 6 & *=/Y..V2.8^7.4B1.7F5.7J4.3B9+D*07FSC*(	X*MBJ* B 6 " .=V..9F0.9V8
2"1.1B5.7^9*77D"1*M* B * B 7Y&=.+F..4"2.1&1.7N3.3^4.8"1.5CD2*OF7T"(")*M* B * B 7RSE3U;R*MBJ* B 2 V N7D"JBZ"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