File DQL12.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/LJ12MNJ2MNJ* 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*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> /FF 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/EJ "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 /QGL22Z(+C3TY6)"J7C"J7C*JB * B 2 ?D3U3B7EB 3ROE3I	S+OCN7X&,2,OFT*MC*M* B * B +X:=.3B7.9F9.2B1.4R4.6&622R0"2*M* B * B +Y:=.8R1.8^0.7Z4.7J4.6R2*27D*1*57FSC*(	X*MBJ* B 6 
 .=J..8"4.7Z9.7V2.0"9.4B0.0KD*MBJ* B 6 & *=/Y..B3.6Z1.0Z1.3B5.3B5.2"0/DF-21Z*+CTX6)*JB * B . 7X..J2.1F5.0B9.3&7.3^9.0Z0D62*JB * B . 7Y+Y:+.1R3.2&3.1N0.0F5.5B024R1*-*87FSC*(	X*MBJ* B 6 " .=F..7F1.6V8.5"1.7Z4.2V2.6KD*MBJ* B 6 & *=/Y..Z1.6R8.9"3.7V6.4&0.1N0/
Z-2*OF7T"(")*M* B * B +X:=.1B3.0B6.5&4.9N3.0N624R8"2*M* B * B 7Y&=.+"..3V6.0V5.8Z5.8&1.7&9/DV-2*OF7T"(")*M* B * B +X:=.9J6.1F3.6R8.2V4.6Z8.7GD*MBJ* B 6 & *=/Y..B2.3N2.1&5.2Z6.2&9.9&3/DN-2*OF7T"(")*M* B * B +X:=.6R8.4J5.5V4.3F1.5^127R3"1*M* B * B 7Y&=.+J..
N6.9N7.5F4.8V6.3V1*97D22Z*+CTX6)*JB * B . 7X..V4.9J9.2Z7.3R9.1N8.4V8D61*JB * B . 7Y+Y:+.2F0.0N2.8F1.5Z4.3B429R7*-*17FSC*(	X*MBJ* B 6 " .=J..8N3.7F5.3^3.7N4.5^0.2GD*MBJ* B 6 & *=/Y..B9.4&4.2J2.2F1.6B829R3*-*17FSC*(	X*MBJ* B 6 " .=F..5J1.6B1.2&6.7Z7.4"1.8GD
MBJ* B 6 & *=/Y..R2.4"0.2F0.1F3.9^8.7Z5+D*07FSC*(	X*MBJ* B 6 " .=Z..1^1.5R7.8V4.1F5.3Z0.7CD*MBJ* B 6 & *=/Y..^3.7V7.9^2.5^8.3N1.7"9+D*07FSC*(	X*MBJ* B 6 " .=F..1^5.2F2.1N7.5B8.2Z0.8CD*MBJ* B 6 & *=/Y..Z2.4N7.1^3.1V0.5R4.3&1+D*07FSC*(	X*MBJ* B 6 J 7EWTR7N*
B * B 2 ;ED*M"ZB"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