File DTEAS.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 SD7EOA2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B 2 N 3AOL3UGL+TCE3TWH2 	L7MSI2 [O* CA7G[I+ECN7SGE3U;E+CCE+BCY3MGE+NCS+OCF
TWH2MNJ* B * B * B 2 V 3P	S3L;O2-3A7GKO3ITM6."J7C*JCC* B * B 6 OU3AWG2MNJ* B * B * B 2 N 3A3L6 SD7EOA*(3X3NZ,+I3N7EOP2,WIR6)"J7C*JCC* B * B 2 WD7SKC7ISP3I;O2 [O2 GP3R7A3EWTR7S*JCC* B * B * B * CX* B * 6 2 ?D3U3B7EB 3ROE3I	S+OCN3VOE7TKO2 W3OWS2 ?C3M?P3N;E+
CS3AWR2 WT7ROM2MNJ* B * B * B * B * B * B 2 > 7FR +HCE7G[I+ECN7SGE3U;E+C;E2 ;O2 WR7TKU7NR +HCE3C7O3P;O7ESN3S> F*M+CB * B * B * B * B * B * B 3VOE7TKO* CX3AWR2 WD7SKT3OWYD6.*JCC* B * B * B * CN* B * 6 2 	D3M;E3S?I3N> 3F& 7NWP7TZ 7ESC+OCRX6.*JCC* B * B * B 
 	F+NB * 6 2 WR3S3U3T;A7TN 3C3A+ACR+ICN7DWO3BWL6 KP3E	C3S?I3NN 7OSN3A;I3I
N2 ;O2MNJ* B * B * B * B * B * B 6 J 7EWT+RCN3TWH2 	L7MSI2 [O2 T3E^ 3IWV7NN 7EWQ3EONE6.*JCC* B * B * B 6 CE+SB * 6 2 	S3N3G7EB 3ROE3I	S+OCN7ICN+UCT3V3A+U3E2 W3IC6 CS3E	C3FWI7SR H7E*JCC* B * B * B * B * B * B 6 CU7PKE2 ?B3USN2 [O2 T7EJ 3EGL7T[I+E" 7AOB7OWL
T	E6 KE7RKO2 [I2 TE*M+CB * B * B * B * B * B * B 3C7O3P;O7ESN3S> 7F" 6 KA3EF 3B?S7LSU7E	L6 KG7ESA+ECR2(WL+S	S2 TA7N*JCC* B * B * B * B * B * B 2 ;OE6.*JCC* B * B * B * B * B * B 2 GC7LWC7LSA3I;O6 OI2 WT3R	M7NSA+ECD+ACS3S?O3NF 7SR 3HWR7ER 3IWM3S& N*M+CB * 
 * B * B * B * B * B 3SOU7COE3S?I7NR +HCE3R3E3A	T+VCE2(KA3S3O3UWT2)R 3I[F3EWR3NWC2MNJ* B * B * B * B * B * B 2 J 7E
T3E;E2 WN3IG7BWO3R;I7GR 3E7R3S& 3S: +OCT3GWR3AWT7RR 3H;A6 CES6.*JCC* B * B * B 2 WI+RB * 6 2 WR3S3U3T;A3TV 3R?R7RB 3AGR7MSE+ECR3CSO+ECD+ICN3TWH2 ?F3L?L3W;IG*M+CB * B * B * B * B * B * B 7FKOM*M+CB * B * B * B * B * B * B 2 WI/RB=* 6 2 ?N6 KE7RKO2MNJ* B * 
 * B * B * B * B * B 7IKE*=B1* B-7RGE7UKI+ECD3AOC3UGR+CCY7NSO2 WR3AC+ECD7WSIH*M+CB * B * B * B * B * B * B * B * B * B 2 GM3X7I+ACL3N7U7BKE2 [O6 SI3EGR3T?IN7S*JCC* B * B * B * B * B * B 2 & /E7R*-B12-& 3NWT7GKE* CN+ICS7LOE7SR 3H;A2 WTN6."J7C*JCC* B * B 2 
R7MKAK7S*JCC* B * B * B 2 ?N2 OA3T?I3NJ 3E	S7DOE6 KE7RKO2 WM3SGS+GCE+ICN7COA3E: 2 WL+SCS3TGH7NR +E;N2MNJ* B * B * B 6 R +HCE3CGH3ROA7TKE2 [O2 T3E^ 3IWV3N& 3N	F7NSI7EN 7EWQ3EON3E6 7USS2 WB2MNJ* B * B * B 6 J 3E?C3G	N3ZKA+LCE+BCY3T?H+SCE3NN 7OCM3OWN7NOT2 [O
 T3E& 7NWP7TZ 7ESC+OCRX6."J7C*JCC* B * B 6 WS3B?R3U	T7NOE2 ;A3DZ 3UON3T?I7NN 7UCB3R
O3R7A7SJ 7EWQ3IWRD*M+CB * B * B * B 3N;OE*MC*M+CB * B * B 7MSE3HSO2MNJ* B * B * B 6 R +HCE3C;O7VKE3G;E+CCE+OCF3TWH2 	G3V;E2 WS3QWU3NWC6 OI2 OA3C3E3EGR3TSE6 	B2MNJ* B * B * B 2 6 3E;A3S> 7FR +HCE/EJ(6)R-3R;A3S?F3RGM3T?I+NB,3UWS3D& 3NF 3N& 7TKE3A	T+VCE7W	A"
*M+CB * B * B * B 7FKO2 WR7FKE3EON+EB,3SWE2MNJ* B * B * B 2 F 3L?G7RSI+HCM.2V12,S3A/N+SB,3COA/MF .9N62,: +OB.*1216 CP..Z *6:22 ;AD*M+CB * B * B * B +PB.3W;Y+NB,3S;I3G3U+ACR3R3U+ECS7FKO2 WC3RGT+ICN3N;O2-	L3NGE3RF 3L?G7RSI7HOM2MNJ* B * B * B 2 J +ICT3V3O..N
.,F .9N66,B +PB..1V7.-&1"56."J7C*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M* B * B 3SKU7RWO3T;I3ER 3TGE7S"(*,3N3F;I6,CE3S&,+E	R2MNJ*MBJ* B 2 R 3IWM3N	S+OCN/XF(")*M* B * B 7DWO3BWL6 KP3E	C3S?I7N" 
,	F7N^,61^,62^,63^,64^,65^,66^,67R,2MNJ2MNJ* B * B 6 R 7ESS2 ;O6 KW3O
N2 ;I7PSU2 GP3R7A3EWT3R: 2MNJ*MBJ* B 2 : /E7WN*M* B * B +IF7N
E.-B1*)21.2J,*MBJ* B 21& /E7R"-61*JB * B 2 WR7TKUN*MC*M+CB * B * B 3C3A3C3U3AWT2 ;I3I	T+ACL3V3A7UOE2 ?F7RR +HCE7EOP3I?L3NF 3RGRY*MC*M* B * B27I
S.1B=*MBJ* B 2 & /SKW"=60*JB * B . GW*=:1/D"3*MBJ* B 6 ^ 67"=*(&4*-X"36)*JB * B 2 [I.(
W*)23.4N,*MBJ* B 63^ .1F=..CD./
W2MNJ*MBJ* B 64^ .5F=..OD"8*M* B * B /W67/XJ(6)"-*(&1*MBJ* B 2 & 7F^(.7V)*,26"5*M* B * B5/W6521R.60^/"7*MC*M* B * B6/W64/XN(6)"-*(&2*MBJ* B 2 & 7F^(.4&)*,27"9*M* B * B7/W6421R."368*JB * B . 7T/XJ(")*M* B * B /W62/XN(")*M* B * B8/W6321R."368*JB * B 2 ?G2 ?
. ^12MNJ*MBJ* B 69^ .4F=..CD./SW2MNJ*MBJ* B 6 R *=:1/D"3*MBJ* B 6 ^ 67^=64^-"5*M* B * B +IF+W&7*120*121"160*JB . B1. 7T/XJ(.)F+..CD./
W2MNJ*MBJ. F 61^ 62^=61^-"4*M* B * B +IF+W&2*125*122"165*JB . J1. KW*=:1/D"3*MBJ* B 2 & 7FR(*-:1/D"3.)N1.,R1.,R1*MBJ. F 23& /SKW"=61*JB . R1. OW.=SW*MBJ* B 2 ^ 7OR /OF "7*MC*M* B *1B5/W62/XN(.)F+..CD./KW*MBJ* B 6 ^ 67^=62R-*MBJ* B 2 & 7F^(.7F).6",.,Z1*MBJ
 F 66^ 63^=.4F+..CD./
W2MNJ*MBJ. F 27& /SGW6=OIW62*JB * B 6 OI/W62"0*M* B * B 3I	M/NR=2MNJ2MNJ* B * B 2 N 3AOL3UGL+TCE3DGI3G;O7AOL2 [O2 T3EV 3P	S3L;O6 KA7R	A2 ;I* CA+D7O3L?OP*MC*M* B * B +DCO*4B0/IV=2,WNW*M* B * B 7IWA3S&=2-7II7N*JB * B . SW*=:1/D"3*MBJ* B 6 ^ 65"=*(7I"16)*JB 
 B . 
W*=X+I6)3X&(*-&1*MBJ* B 2 & 7F^(.7F).8J,.4F,"8*M* B *1B8/W6421R.60^/"7*MC*M* B * B +IF+W6121R.*3&8*129*225"265*JB . &1. [W.=SW.-GW2MNJ2MNJ* B * B 6 R 7ESS2 ?F3R: 3EWC3S	S+TCY+OCF7AN 3I
N3UGL7RJ 3UWL2MNJ*MBJ* B 2 & 3FR(7AOB.([W2)R-7AOB.(SW.)F**.7D*1&2*220*220"262*JB . B26 OI/W62"1*M* B * B +IF+W&6*222*221"262*JB . F2. WW*=:1/D"3*MBJ* B 6 ^ 66^="1*M* B * B +IF+W6221R.*3&8*228*226"266*JB . J2. WW*=X/IF-.)F+..CD./[W2MNJ2MNJ* B * B 2 Z 7IOR7
R 7ESS2 ?F3R2 7OOS2 [O2 	S3G	N3FOI3AONE*MC*M* B * B +IF3DKA7S^(*56)3DKA7S"(*(7I*1&)**:1/DF-.0J).3J,.4J,"4*M* B *2B3+IF+W&5*326*224"366"J7C*JB . R2. 
W.=WW.-KW*MBJ* B 2 & 7F^(.7J).7J,.5J,"7*M* B *2B5/W6621R."368*JB . Z26 OI/W62"0*M* B * B 3X&(7AOU6)^="2*M* B * B +GCO+TCO"367*JB . ^2. [W.=GW*+:1+D>0W67*JB . "22 [I6(OI+W61.1N).3J,.9J,"9*MC*M+CB * B * B 3C3A3C3U3AWT* X7IWA+SB)7WSI3H" 7ECL2 [O2 	S7NWG7LKA6
WRL7E"J7C*JB . &22 [I.(KW*-:1/D"3.)B3.,J3.,J3*MBJ. N 60^ 67^=*5"/+W62+W&5*+?T.(KW*-	T*+X/IJ-*)"/3X&(*-&2.-KW")*M* B * B +IF21R.60^+.7N).1N,.8N,"1*M* B *3B13X&(7AOU6)^=67^**2"/21R.60^+"76)*JB * B 2 ?G2 ?T. &32MNJ*MBJ. N 62" 2(GI+U	S.=WW*+7T3X&(*-&2*MBJ* B 
 ^ 7OR /ON "9*MC*M* B *3B3/W67+W66W63*JB * B 2 [I.(
W.)R3.,"3.,R3*MBJ. N 64" 2(GI+U	S.=KW*+:1+D>0W67"J7C*JCC* B * B 2 WS3C;O7DR 7ESS2 ?F3R2 7OOS2 [O2 	S3G	N3FOI3AONE*MC*M* B * B +IF3DKA7S"(2(GI+U	S2)R-7AOB.(KW.)F**.7D*1&0*325*327"367*JB . V32 [I*(X7IWA+S&)*326*327"366"J7C*JB . Z32 WN3W&=7AOU"-61*JB * B 6 O
/W62"0*M* B * B +GCO+TCO"461"J7C*JB . ^32 [I.(KW*-:1/D"3.)&3.,"3.,"3*MBJ. N 68" 2(GI+U	S*=:1/D"3*MBJ* B 2 & 3M;I"=7I"J7C*JB . &3. GW.=SW*MBJ* B 6 R .=KW*MBJ* B 6 ^ 62^="5*M* B * B /W63W66*JB * B 6 OI/W617I
S"2*M* B *4B07I
S.2B=2MNJ*MBJ* B 2 : /E7W7N
E2-7II7N"J7C*JCC* B * B 2 WT+SCT7FKO2 OA7CKU7A	C2MNJ*MBJ. R 21& 3ESN2=WN/WF-*MBJ* B 2 R /OR 27& *=213I;ED*M* B * B /HGE2=GD+BS3X&(6)"-*(/I*1&)*MBJ* B 2 " /E623DKA7S"(*(/I*1&)*MBJ* B 2 & 3F"(+E617EOP.)R4.,R4.,J4*MBJ. R 22& 3F"(+E62*1&.*426*426"463*JB . N42
[I2(WH21V-+P+S/HKE.)R4.,R4.,Z4*MBJ. R 24& /SKW6=OI+W.2"1*M* B * B +IF23&-/SKW.)V4.,V4.,^4*MBJ. R 25Z /I7N3X&(")*M* B * B 7IKE"=60*JB * B 2 WR7TKUN*MC*M* B *4B67I
S.2B=*MBJ. R 27N 7OSN7IWNE*MC*M* B * B +IF7N
E*-&6*428.2J,*MBJ. R 28Z /I7N3X:(+E	W*MBJ* B 2 & /E7R"1*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"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