File TDAXIS.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

$GPH^ <B,F>>G2A<<?4JF2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[GE2J%LI,)X)2LIJYC2C-EBZITB(?1= H?YIKKS?UJ=F?4ZK	?0DD?:F ?<=VGPUF-LAKLB0 B>">&F;"?M/G	<%E[DDGD)=?<!N2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2A2AHG.[L+XKKML4KU1[J>0K())-*
$H"X&%^N",C&6$;^E&S"<[
2	^*(F*Q*21!?X)N-X7L7XGLG

2LH]Z**)X)N.X7L7XG2LH\ZV2ILG8

2L2I*IX)N/X7L7X-L-Z(2LH]Z*P-L-

8P78H),72-7X)2LH\X-OIKH-\7P7H[8A\7*HX)OJKL7K9Z*P7L7X7**A?[ X[L[BKNZ(J(KGZ*2CN([[N*<(+]X7/K2J	HGAX%K!!E2J	HH2J	NA+<[:K,,%\OK&/[HY>(2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBJ?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"J)CR3WS3S&*-)C*;+S+PJF8
8FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<X -OM98 [A [BB2AI?2AH] [AC2AH [AC2AHC [AC2I**(	FILE:	,A6,/	SIZE:	,I4) [ED2AI?2AH2AHD2AHE2AHFJF>(+M [BE2AI?2AID [AC2I+L(	TAPE ERROR	)*J [DF2AI?2AH2AHC2AHFJF>(*J*9 [G
&S&S	+
2A/%B%>	^*DPT+AIQ+IYPT+3IQ$6XTHU$6/.K\MI?XNLN<(+	$6A<BN?ZIR?N?ZR?<BN.A"A9H>XK?8AZ+"AZ.RNZ/RNZ0J-Z%Z*.LJ+2J2A&,R*2A.
?J.DA;"A:J%^"A:J&8!^.2;EZ$J>ZB"L"
"2"A:J*^  HKMZ>KNZ?K?+AKUZ>KVZ?;GZ$J>ZB"L"AZ&"
+GH<6/]HUSHVSHWSHX>(/	H;535%L=/PO?W?TAHAP>F2=VC2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AI2AL2*-L8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"2A
<"[]"[V:AZ3
;KU
:  EOOJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%+9K0$YK2[2/.?XT2OAT1FM\=XS	?	>N+?QN ?RO&?TN]?WOB?XN-?YN? NANT2A
=	<8 Z
O=C;K:>(	9*	9	8*	9	?K7<(*K6	5*$	4*ASA: K+[+2AO3
ASA	<8!
A;VK+?H*O3[)OA[**	9WA+^;$KA[AS+*	2K)
3K*8!XS: 2AO3>(+\SA:A
ASA: 
A8 [+*-: KA[%2AO%
3*	<[%*?>GCYCSB+CLTYL3]WTO	?YT
Z?8?/Z]L)X*MW	?	>O=
?
=: Z[K<*	K;	:O??(;$K9	:O?=H8! [AJ2AL*K8	: [KK8	:*:	?	>Z[O==: 2AO78!I=SO==+O8!	6K5	:O==(+H8 Z\I=8 
>*>K8	:R\<H+D2AW>*<2AO=8!<H:I== 	6R[* *I:K8	:*12AO4=/3Z\>H	:K2R\+Z:O4>(/SK9	:/SC8AXJIOF0BXJION0A\JJMP [%WO.YEO%0-TOE?;WPVX %<HO?8 [N[K [L8 [L8 2A
>:SN<H*7	=	<R ?RR2? RM?URM?SRK?;R6LO[M [AM2AM/ [AN2AM,KM [O [AP2AM,SK*MSL.
[K*M: [MSL*<I=<HKK8 	;2IO:<(+H2AW>K92I
:SM+]/88 2AW>+\[K+Y [AM2AM/SK+U+]	; [AQ2AA>/7SPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPP \E P[ZX*T8WOO%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [R.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4;Z2AO8 [RC3K2<(*3K19K:<P*9*40CWRITE,B\16CD,A^BCL0CWCLOS0BEXIT,Q[0C]6RMAINBGPBOPEN[7+0H]	8%<>-?3A???J?MXL!B A? MW L2ZW	?/> [AS2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AM2AM/SP*RQ [AN2AM,K:2I
=2AO9K8>(KP8!I==8 	7 [AP2AM,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+R[/K-9F8F8FAMKW[WKW9PK5>0+6	3.>H/ZGH?<RQ[Z?:L)PD/4 PRZ [LR)*HRL  CI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 7XKDG9F8TZ(;(DG8!RL*P[DKDK?9K><X*>R*:2AN*R*<(*?KD>(*>R**3[D2AN*Z*KD.*8![D*2IO=XUO<XTO;C:XSHS
;**2IO=HU
=8DO<HT
<8DO;HS
;O;9H8JC:K9	8SD+H/E2IO=9D
=O<8D
<O;8D
;2A/*?/TO0OPQRJ?FHSY=2AO?<(.	>LR?(T?7\&?8TK?:P"?;PA??Z-LR2AW=.W
?.HS<(:A2A.]"WI?>(	<O;> R.	:I=8![Y"*>OLG<X*98J8J8JC9	8SY*2*,	7[ZOKZ<X+I8A8F8F8F<HLGK6\GSY*>*,I>[WI=KY9HI?XG8/O[Y+! [AT2AM/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*C2C/(B*O%? T8TO?XL2TYN
X*L)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<\Y? \J?U\J?S\GLMW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AJ2AL*XS [KM*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W[T+JS%/80&0!+(I
> /&IU+	I[&[	[)TO0QSDO%?<ZXSOX*T8WOSN 5	N !F&JEZNJFZO;X*P^NZEJNZS8NOROXG: NOROXHJM2A
?2IO>>(+W&B+UHXJEXXHW<(*;8!HY=*;ZEHS9HXSHT8HXTHU8HXURE*/+C8 ZEHYXW+A&ARE+HV?+H;&&DHX?H&D&HP?+R;&&D;XXV2A
=&C+%HG[/.< JEC-2I
>.2I
<.2I
;: [-ZE;VJN[+8.O??8LH/.K2ZNK3ZO;([-*PRQ!EP	(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5	N	)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*CC3AWG. B1?8GC?RQPJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*JXZ\8NYRYZ7: NYXH2IO?"62I
?O>"62I
>O="62I
=RY;VJXZ48.Y8\H.6&IX 2IO?	<XP2IO>XQHWK;=++K:XT	9PT+KHV8DHQ<X8!XV2I
?
>
=HV  WK[[K\[$ [AS2IK[Z<;VK\Z=*> [AI2A":;(+S3B3O/C" 62BJ0	N?==4 \RQP

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