File DQL16.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/LZ12MNJ2MNJ* 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 /QGL*6" 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> /FF 66B-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/EN "16.*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 /QGL26Z(+C3TY6)"J7C"J7C*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7X&,2,OFT*MC*M* B * B +X:=.5^1.0F1.6N0.3V9.4N321R8"2*M* B * B +Y:=.4Z1.1Z4.2^3.0^3.2V825R2.-F22*OF7T"(")*M* B * 
 +X:=.4&1.4R0.5Z2.4Z7.8N823R3"2*M* B * B 7Y&=.+V..0B5.4N7.7B0.0V3.5J1*87D*1*77FSC*(	X*MBJ* B 6 " .=N..4"5.3&3.8B7.2"2.6J6.6KD*MBJ* B 6 & *=/Y..J6.9&7.6B7.0V2.1"7.6"7/DF-24Z*+CTX6)*JB * B . 7X.."2.5"7.7&2.7J4.8J8.1B4D62*JB * B . 7Y+Y:+.2J1.7^0.9N0.3J2.4B12
R0.-F12*OF7T"(")*M* B * B +X:=.2V3.1&5.0Z5.9&3.9&120R9"2*M* B * B 7Y&=.+J..8J6.3B5.2J4.9N7.8F8*67D29Z*+CTX6)*JB * B . 7X..&1.1B8.1Z5.8Z5.7N5.1V3D62*JB * B . 7Y+Y:+.1"8.1J0.4R8.1^0.9^623R2*-*77FSC*(	X*MBJ* B 6 " .=F..5R4.1J5.7Z3.8"7.1F6.7KD*MBJ* B 6 & *=/Y
."6.2N8.1N9.3"0.7F1.9Z9/DZ-2*OF7T"(")*M* B * B +X:=.1J2.1J4.2N3.6"8.6F625R9"2*M* B * B 7Y&=.+F..4R8.4"5.6^8.3"9.1&2*97D24Z*+CTX6)*JB * B . 7X..R9.3N8.1N4.3N6.9&123R9"1*M* B * B 7Y&=.+J..0J4.7&1.1N5.0J8.7R8*67D23Z*+CTX6)*JB * B . 7X..B7.7N0.3V8.3B5.4J8.3F4
61*JB * B . 7Y+Y:+.1R8.9^0.0R9.3J5.6F320R9*-*27FSC*(	X*MBJ* B 6 " .=V..0"7.0"1.6R1.5&4.7^6.9GD*MBJ* B 6 & *=/Y..F1.2&9.9B0.0B8.3&3.4N5/DF-2*OF7T"(")*M* B * B +X:=.3N4.7"0.6N6.3&8.3B226R6"1*M* B * B 7Y&=.+R..7J3.8J9.8&6.4J1.5F2*97D21Z*+CTX6)*JB * B . 7X..F
.2J9.8Z3.4B5.9N8.8Z0D61*JB * B . 7Y+Y:+.1Z3.2Z9.9R3.2Z9.3^725R420Z*+CTX6)*JB * B . 7X..F1.4B1.5^7.7"4.3J1.2&6D61*JB * B . 7Y+Y:+.2V6.7V9.7^7.6R4.2R121R520Z*+CTX6)*JB * B . 7X..Z4.2&6.6J3.8F9.5"0.0N8D60*JB * B . 7Y+Y:+.3F3.0^5.8R5.9B5.8R821R720Z*+CTX6)*JB 
 B . 7X..^8.6&4.4B1.4"7.9^228R4"-61*JB * B . 7Y+Y:+.2Z0.1F5.7R1.9^5.8B029R920Z*+CTX6)*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

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