File TDISP.LD

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

`(+/n3.7;N? C GN K((@&&U&ZV&lUaze-^U)0f&eU&&U&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U3
[@
9
,
3
@GEb0oK .P(jE6EO,E
aLoEd,xPJ	K0O0&,{FNDMbl2{:lD
20H@p@(Y]Ib7b,0lZ+d(#&0@3-Y2sIb2,mZ22{J60*,@)P RN  Ib#b/0lZ+(#&,@@**J(	@@@@ N MPAI"A HHHHQB$m!<
2!
B2
*!'EQEQEQ'M
 	,PQ$!!'(b)b
l5[	Q	0
	,M 	)F!QM!
	P	,
$AbW`MXFnX\"Z[&],[|`8!<!
B
!
BcQ"$(hQ"$(m!"M	
Q$!		"MM 	M	M $!	)>!BC	,>	QM	,P#	 
B$M
Hr 	W!	$^!FM!	,MhF 3MPAI"AHr 	M !!@@G}l}|0[}f}C{}9l0;6}}D}}C7&}$}|2&L~8|#0[}}C~}d}}C{;;V}d}}D}	2WlR&L~8|F0bFn|"[0&cKlh0&mK[z}&}Crk8 +3r!1b/1r)1r-5r7,r(G}
&IAfK('H @n&0@498;8


n
	hKbJn 	k	
0@-bn,F.+b'`	<<CE] $$ ((DT]IK]RK]QS]RS]IM]LM]Q4RL4R@hj"jngi"i@ni.dzHifRkRkipbjkk"EL2f@0<;-,Z
 FnG&c	F@b

n
D`" $KhCa.fF&EF.Gb/n	<&OH/"/d/@.	"~'" 0?DlD "
I0.(Zz}H/Z|"H_z{b"O2[ h/rz"@rzx@/uy"@rz"(aKCbow"o@ $
0pspH0 0f20	,>9/( :="?
l9;"@Ho,6I
?8788B!@b@@o'<"89dA:/*0k08 T8 .08 R0.4Y644B!@b@@oM<"4BmYb  VzYF-ZjY@/c.5(/56aK
LmQZZ 9H/o9&5NA .9Bmf0h9@/v="(@}sK xf
+D+G/+$+t+C-G-0 1+'-L.K&2l/B))t+)')&B)|J4C{	4K2
22*22*22*22*22*22*2 X
HH4jjrj0@1h$hktHT2IHkKI&/BfhrffGf&Bf|I n@u{OnKl
ll*ll*l z$w$wFnwj"pr&rC&kbrzbslbtybnF0bos9<rrtstD,0"&:|vk)xwF.wbpr&rGfvb`hzdwbJ
nmu&os&mt&sC9uGsuDt@J(BrrtVubmq"r|rr{ruBqr'ruBrrtfrgr&Brrtrrt'r'rrGK
8qU|r[SR576
BW nWF&` n,oLYp|Y|Yp
|Z[.
lZ]*a6&-
,Z\,Yp|Yp|6rt6 /O .Q7"!g.Bt`/?
n`9jbpE&M?0@h
pi@/~%%@M\
&Z&E&tu.z@tb

n
o`sKt*Mwqpb/\b1\b6Eb4`x0ot/u.Iz@/bo/t.n/ |!/2ytE q np\&rq npZ&suu.vr@ bo@nq npE&M?0@p
@oL@r(@AN2 AIbb`@`	0PP
 @& ;`?*U Y.\id{$:@P
B[a[LYblB{B:@P 4@P!4 Ro@nR"GNANANANANA@!AA @Q@`P@@@p@	0@
P
~p@@@@Y`@P @zu~?zN~fvfo@LtL@}'50>#B`'%p;'Y`{  /@BU*{r	Ar/@BU*E	rpl @lR)HR)@
 R"RR)'ABU(RR'ABU("T'R	'RR'L@'R{'l'%"\|R'#
$
D
@&(&@2"(C&+0003
	JSR	XYPLOT
	JA	.+0010
	JA	#LIT+0060
	JA	#TMP+0000
	JA	#TMP+0003
	LDX	0024,0

#5,	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	ITTY
	JA	#10+2
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0025,0

#10,	JA	.+0024
	5061
	3054
	4204
	1123
	2014
	0131
	4027
	1011
	0310
	4023
	1722
	2405
	0440
	0611
	1405
	4042
	5444
	5100
	LDX	0026,0
	EXTERN	#READO
	TRAP3	#READO
	JA	ITTY
	JA	#20+2
	LDX	-0003,1
#G0005,	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	FILE-27767,1
	JXN	#G0005,1+
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0027,0

#20,	JA	.+0005
	5063
	0166
	5100
	LDX	0030,0
	JSR	USR
	JA	.+0012
	JA	IDSK
	JA	FILE
	JA	#LIT+0006
	JA	ERR
	LDX	0031,0
	FLDA	ERR
	FSUB	#LIT+0000
	JNE	#5
	LDX	0032,0
	JSR	IRAN
	JA	.+0010
	JA	IDSK
	JA	#LIT+0041
	JA	#LIT+0014
	FSTA	TOTRUN
	LDX	0033,0
	FLDA	#LIT+0000
	FSTA	TOTTRI
	LDX	0034,0
	JSR	SCALE
	JA	.+0012
	JA	#LIT+0000
	JA	#LIT+0000
	JA	#LIT+0055
	JA	#LIT+0055
	LDX	0035,0
	FLDA	#LIT+0003
	FSTA	I
	FLDA	TOTRUN
	FSTA	#DOTMP+0000

#G0006,	LDX	0036,0
	FLDA	I
	ATX	7
	FLDA	I
	FMUL	#LIT+0011
	FADD	#LIT+0041
	FSTA	#TMP+0003
	JSR	IRAN
	JA	.+0010
	JA	IDSK
	JA	#TMP+0003
	JA	#LIT+0014
	FSTA	IRUNTB-0003,7
	LDX	0037,0

#100,	FLDA	I
	ATX	7
	FLDA	TOTTRI
	FADD	IRUNTB-0003,7
	FSTA	TOTTRI
	FLDA	I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#DOTMP+0000
	JLE	#G0006
	LDX	0040,0
	FLDA	#LIT+0000
	FSTA	I1
	LDX	0041,0
	FLDA	#LIT+0003
	FSTA	I01
	FLDA	TOTRUN
	FSTA	#DOTMP+0003

#G0007,	LDX	0042,0
	FLDA	#LIT+0003
	FSTA	I02
	FLDA	I01
	ATX	7
	FLDA	IRUNTB-0003,7
	FSTA	#DOTMP+0006

#G0010,	LDX	0043,0
	FLDA	I1
	FADD	#LIT+0003
	FSTA	I1
	LDX	0044,0
	FLDA	TOTRUN
	FADD	I1
	FMUL	#LIT+0011
	FADD	#LIT+0041
	FSTA	#TMP+0003
	JSR	IRAN
	JA	.+0010
	JA	IDSK
	JA	#TMP+0003
	JA	#LIT+0014
	FSTA	PTR
	LDX	0045,0
	JSR	CLRPLT
	JA	.+0006
	JA	#LIT+0052
	JA	BUFFER
	LDX	0046,0
	FLDA	PLTCNT
	FSUB	#LIT+0003
	JNE	#33
	LDX	0047,0
	FLDA	#LIT+0000
	FSTA	LINE

#G0011,	LDX	0050,0
	JSR	FLOAT
	JA	.+0004
	JA	LINE
	FSTA	#TMP+0003
	JSR	XYPLOT
	JA	.+0010
	JA	#LIT+0060
	JA	#TMP+0003
	JA	#LIT+0006
	LDX	0051,0
	JSR	FLOAT
	JA	.+0004
	JA	LINE
	FADD	#LIT+0063
	FSTA	#TMP+0003
	JSR	XYPLOT
	JA	.+0010
	JA	#LIT+0060
	JA	#TMP+0003
	JA	#LIT+0006
	LDX	0052,0
	JSR	FLOAT
	JA	.+0004
	JA	LINE
	FADD	#LIT+0003
	FSTA	#TMP+0003
	JSR	XYPLOT
	JA	.+0010
	JA	#LIT+0060
	JA	#TMP+0003
	JA	#LIT+0011
	LDX	0053,0

#44,	FLDA	LINE
	FADD	#LIT+0003
	FSTA	LINE
	FSUB	#LIT+0030
	JLE	#G0011
	LDX	0054,0
	FLDA	#LIT+0110
	FMUL	HT
	FNEG
	FADD	#LIT+0077
	FDIV	#LIT+0071
	FSTA	#TMP+0003
	JSR	SYMBOL
	JA	.+0016
	JA	#TMP+0003
	JA	#LIT+0102
	JA	HT
	JA	FILE
	JA	ANGH
	JA	#LIT+0033
	LDX	0055,0

#33,	LDX	0056,0
	JSR	IRAN
	JA	.+0010
	JA	IDSK
	JA	PTR
	JA	#LIT+0014
	FSTA	TOTCLS
	LDX	0057,0
	FLDA	TOTCLS
	FSUB	#LIT+0017
	JLE	#G0012
	FLDA	#LIT+0017
	FSTA	TOTCLS
#G0012,	LDX	0060,0
	FLDA	PLTCNT
	ATX	7
	FLDA	XPOS-0003,7
	FSUB	#LIT+0140
	FSTA	#TMP+0003
	FLDA	#LIT+0003
	FNEG
	FSTA	#TMPX+0000
	XTA	7
	FMUL	#LIT+0011
	ALN	0
	STARTD
	FADD	#LIT+0171
	FSTA	#G0013,PTR,4)
	IF(TOTCLS.GT.5)TOTCLS=5
C...	PUT OUT RUN /TRAIL ON LEFT OF EACH SECTION
	CALL NUMBER(XPOS(PLTCNT)-.3,YPOS(PLTCNT),HT,I01
     1  ,ANGV,-1)
	CALL WHERE(X,Y,Z)
	CALL SYMBOL(X,Y,HT,1H/,ANGV,1)
	CALL WHERE(X,Y,Z)
	CALL NUMBER(X,Y,HT,I02,ANGV,-1)
C...	LOOP FOR ALL THE CLASSES FOR THIS TRIAL
	IF((TOTCLS.EQ.0).OR.(PTR.EQ.0))GO TO 300
	DO 300 I2=1,TOTCLS
C...	ASSIGN THE POINTER FOR EACH CLASS
	CP=IRAN(IDSK,PTR+I2*3,4)
C...	NOW READ OUT THE TEMPLATE
	DO 400 I3=1,23
 400	SPIKE(I3)=IRAN(IDSK,CP+3+3*I3,4)
	YSCL=1.0/1024.0
C...	PLOT THIS SPIKE
	CALL XYPLOT(XPOS(PLTCNT),YPOS(PLTCNT)+SPIKE(1)*YSCL,3)
	DO 500 I3=1,23
	CALL XYPLOT(XPOS(PLTCNT)+(I3-1)/23.0,
     1  YPOS(PLTCNT)+SPIKE(I3)*YSCL,2)
 500	CALL PLOT(1,XOFF(I2)+I3*10,YOFF(I2)+SPIKE(I3)/3.0)
C...	WRITE OUT THE SPIKE NUMBER
	NUMSPK=IRAN(IDSK,CP+3,4)
	CALL NUMBER(XPOS(PLTCNT)+.2,YPOS(PLTCNT)-.25,HT,
     1  NUMSPK,ANGH,-1)
	PLTCNT=PLTCNT+1
 300	CONTINUE
C...	NOTE THE RESULT OF INTEGER ARITHMETIC
	PLTCNT=1+((PLTCNT+4)/5)*5
	IF(PLTCNT.LT.50)GO TO 200
	PLTCNT=1
C...	EJECT TO NEW PAGE
	CALL XYPLOT(8.5,0.0,-3)
 200	CONTINUE
	CALL PLEXIT
	STOP
	END
(I3JD	0
dT0YBCL0YBCPYSCPHRQ@TR0TC@@XAT YBCB3RXSSTSTTURA B@INASG"0MN@MN@@I03I13MX@MX@@A06A16	@DM"LGXX3ICO@SICODSICOHSQDSNCSTNMDO1FXFX"IN%AP@E@5S@ED0XPCE@EI G0N@
@X@@NLADN"PD
GGp@NS0@@RPLE@N@G@L@GLM`ARPWPESRPLGSNCSER EC ECL@IA@O
@CDCBCCQCLCCCED X	2E	EEEIERHR@@HRGTPTNI4NB4PUE@RPD@
TCTC@L0CL@@DS@TN@HEF0APC0L@PDLGp@20YCLC@ C	0	ESRN F#0p	@`
	@
`	@`
P@P`@@`P@P`@@`P@P`@@`P@P`@@`P@P`@@`
$
$`
$
0@
0
0@	0	0@	0@`PP@@@@@ppp``PPP@@```@@@@@I&A&@@@@@@@@	@
@@
)@,@?@5

@B@&@[c#,(V''@<"(@#[r!>(2'y&|&@`F&L(`@^(1,&SY@	HR5 	"8$@:@`F&t(A}`ASJhH`@w(3v @@ [!Cb82r:@`%"B@@YCb#r|@%@Z!/*)''/'/'@&!@0(0#YBCCb|b:}>@0:>3@&,![1)@ %@!&$@
"&@:>='@0#&,@$(0#YBCb|b|@%Z?+
),''@&&"q)@'%
@(ZT+)X&#[Br'2r|b@p)ZT2/X6b#[Br;2r|b@p*ZT2CX&b#[BrO2r|b@p+&,-B@,=:8&#ZBEro|bDr=b821b@p-@.Y}Cbab|@/***@0:%E#L&-[(M-  Zc+**|& *=&I&4&-+@1[D#6*m&p&v&@2ZE/H*m&p&=&}
4&'@3[D#T*m&p&v&@4&-[Zc+j*m&p&=&L&4&-+@5%S&-[%S&-;"Z+@6&
*@07(-[Y *C&-+'@@8&@@9(--(0-=-Y2/"Cb-2:}B`&,/B@ :7@ l@;&2B :Y}-0(KUZ[r["U"-2@p<&@@=&>F:%7-[2B :Y}0[2r}"-202@p>-:}0
2B9f:;73[Z3.+'0+3+&/D_*@?
(3[Y 0+C&3+'@@@:%Cr3[:YDM6&09Z2c2S23262=b[b1b9@0A&,@B&E*2@ C(*&S#*&@@D1*B@0E&@@F(9[2r2Ar2r9@0G&,'[i)&E$2_@H[@0IX@JX&?h8&_& v? 't$eCtxcP^?RBDpA
HAMF2T._[a;A@#e@xdEUcBR1Be+Jv+w+?&@HpVGx0P RN  >	)@6 g, p 05);)2)	@@
@@``P@@`_,HHHQB$m <
2 
B2
* 'EQEQEQ'M
	,PQ$! 'b@@Be+Jv+A
LHHHHHH@@@@@:_\@DE,@
@@	g\[VbiBgL@
S<@@@
"@SF#@d*-@@@w@@2B
@`ZT2RB
@L"SF<@@@*^@[h&8-&,:_\@:_"H@@,*^.-@@,@2
.@*A.@@@ :_@@*BA@`A--@`"
@@@[hbR&:M_@@ :_\@@!,-^}-@"!@@#*B@`$:_D*R.@%@2_:-_@@&@:_"BR@`'@ :_\"s-@(@@)
Bs@P*@:_@@+R@`,@2_B:_\@-@@."BG@P/@@0,@1
@20^@3 2_:M_@@4,0^.@5:_@@6R@`7!@8
.@9*.@:S?&@SB5b"
.@;x^z`|^`[r .x.z.|.b,.#,@<!,@=`2,.`@>&.'(MP FCGT`$ 5myLo@@?!,<CE] $h
dT 8	xxp 8`T.	 	xxpR/AHHBZ~NCT.R@A
e^%LJxbTbpT`J8.AG BRrApHAHAHA@A\


@llbBTSbtNANANANANA@!AA @S%L1
g/'A&
BLq"*BHq
u/'&@
"(%|
S{"/\"_"V"#$%Rre[rBrS'( [BBrS'(D@3z Y %}/Re/./A#C"BO%pB/*Rs/*,O./&*|/}RrWpB<.rWEpA/@@C(*BWreAr/@@C(*E@erspl @lSC"HSC"@ S"C,SC,SK"s/A0C"R./A0C"#0 Re/R
/L RW/H %#8
Rs/#
$
D
@&i &@3~ cC&+ 2CI2L#$"St!@G/CY"BS O CY"BS a  CY"<VA#SC"C"{NT'(	l< b	3S5 HC# K4 5 	GLL`E'8,A,'X@  . @@@S @`p@PPC# K4 AHAHAQHH@/Ce		@

 #&!C# @`hAq%bAPAB%dA#PC# `QjBQFw@$(C#n+Sp3S@BlBsBG
9_Uy_U,PASBIlS?&#"XSBIlS?&#"\[B@rF^
#B BEb],PbU
?!#,!#EL?!??![H'<!b%I ^ @,B#BL	`Av%y y y [!}8@$(	
"t!"
dTC2K"  {! zu0@@`p{wtP@`@{"90RCK"At!St!NNSbC,SC,SC"HSC"AB. SC"A("C"B< 0"bM"C"C"K LS"BZ  3d"

h"

AoI t"IyI B
3##

SC"A/$C 3##

f0A/$C(@&#+/#
L{"+50@B @BJ B,0)A@"St!NNPRS"t@`0BS"tNA@#~1s#(A=@A, C"@LL"St!sB"+200R2ApHAHAHA@BRq
@e`-MPK1CT.F#TM#
A@iqM@l#tT+B}0aLKXC+Bw1BF1GBF0tf#@L$I C C"KB@@HmpHmgHm p$;tOA^y4{M}?rZU

x@;TC"KBA@@3e$;$@;F@(D+w$@+B~@L3$;@;$H
H(
(((;D;BBO@` HC'$K$$ HmgR
	SETB	#BASE
	S  @@$@TC'KB$A@
,[$@$*$`#%y[!oXN%p%Xx?&8[yAcx 	&q8d @?i&C`"q?f?H&Hp!^i0#	H!^ix0 O%C`/H!DN%t?if? ?&?h8&_& v? 't$eCtxcP^?C?g"$8Ig	[&M\'?dL
A"fY
.8uvM%sYtepxdEUhIBHOcHB?&@HpVGx086 /N% Nq%y[!(`c`Hp!hD&!pbXhN!%F%PO[!(B`DN!%yHp!^i1doT582I?BT582	?BC$?cN%y8Xft$_CH!\taRuh q$`t?D"e$ A?d8h
?$Dd?DI[& xf@.x)"p$8`N$ A?T"?"$N8?dNxC$?dNxIfo	
P`&&bb%aP`&P+b(`*&P5b2`4&P?3b<`>&PI+bF`H&dVf6A@d`}V6A@+y`}`HR@C'K'	FSTA	IJK
	FSUB	# p$'&'$WCKrAp
HaHA@&'S&'$'S&'!b$O}
	TRAP3	#RSVO
	FSTA	ITYPE
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	J
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	K
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	L
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0027,0
	FLDA	#LIT+0003
	FSTA	IJK

#G0004,	LDX	0030,0
	FLDA	#LIT+0003
	FSTA	JK

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