File DLH.SV (save files (Executable program)

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

}|XH@@s?I<??$A>
HBA(2	$0$,2-(S1        TAD  NEXT
00626  7010        RAR
00627  7012        RTR
00630  5600        JMP I LISTN   /RET@RN WITH NIMBER IN AC
00631  0000  PRINT, 0
00632  3260        DCA  NEXT
00633  1660 RA	

H?:,01;GP@0H|wBwK8*Tf
fjl=h,Fi,nnL	h,Gi,nnLY,^,Hb(/@I"(/HJ"(/VK"(/YL"(/\*"(zM"`zN"HzSOB&:>)?@`J_
_ +Eb>Z\O*_+Mb>e]@&Af*XB`j_
Yj<ZKjL[_0@*f+(/w/P&TA.{ziJQOHuzQ_wwQ/^|+Tf_@>+olQHQR;TTU&TF.UbTkc	c!f<	|J8(/K`f9C!N;$Ho&!.;!.l:<!<bFn="cP~d<A/8vK@VO@LT@SsPOINTSF	FROM     TO     0        TAD  (240
00655  4070        JMS TYPE   /TYPE CHAP
00656  2260        ISZ  NEXT
00657  5233        JMP  PRT
00660  0000  NEXT, 0


00770  0240
00771  0100
00772  7740
00773 83A-pM0.\G1">|p!}%?LU"L}!@F='0G=>{!n!9ty
)j;!)c|3(o&y'	0,hK@Qd sq`Xf^@t|I >LdIH.IHbHfLJI@.0Ic LfHD.HIbIfLJI$0@HoPnIHb@nHIbHP~!!KIHD.HIb0d00If9J69QBL@nH.HIbJz@JbIfLBJH.@HfI9+Hb{!rz~yA	NX
{xP>U  l <c0|t&yC	
Ni{}I&
i<}I &|+A6f7f8bHf bbJf!.9'9:7:;7}<'H.b!fdb5&!.f"bf.c!c+"!6!>+"'!6+9"c!c!+i"r5r!bhTzdb(j!.(/282(6t78fBHfN bn bD5bbf(/y .wbNr-/#c.$!c.#!%&.9$!.9#!!&&D.!bbf!6%!.+!6&!.+!
%+)s!&b+ b b!b Bz .(/F2!bEk DKigT bb-!.h/i"D5bbD5bc"c"rtC"c"rr(G{ bKjO	!O)!H$.P~!"p0@H1~HccHO1ffPMbMH/hn!~0./b!0f.H../b/f0$J/+Hfa.Z&HzZ!.NM4[&[!>$ZbR*ZN)M	4r[[c$bNM4[&[1;{7(/n{"O{!bO!Hb
nP~{!"HHbH!~@oy.8Hb\00 68(/67FfD. n9979:7:;75"5bf!>!5c+G!65+95w-)D5bbf!.-)D5bbf!639)c!!f39*c!c3'!>!c3(/)#f'.)$!(.)#!(b.$!'b.#!!b)b!b+*!&+))r!b!+i*r!!f+)r(/ 4" &,29?EKRX^dkqw~
#)06<BIOU[bhnt{ &-39?ELRX^dkqw}	"(.4;AGMSY_elrx~
""""(."4:"@F"LS"Y_"ek"pv"|""" &",2"8>"DJ"OU"[a"gm"sx"~#
33!'3-238>3DI3OU3[`3fl3qw3}333$3*/35:3@E3KP3V\3ag3lq3w|3DDD"(D-2D8=DBHDMRDX]DbgDmrDw|DD
DD &D+0D5:D?DDINDSXD]bDglDqvD{E	UUU"'U+0U5:U>CUHMUQVU[_UdiUmrUv{UU	UUU$(U-1U5:U>CUGKUPTUX\UaeUimUrvUz~Uffff#'f+/f37f;?fCGfKOfRVfZ^
befimfqtfx|ff
fff f#'f*.f15f8<f?BfFIfLPfSVfY]f`cffifmpfsvfy|fgwwww w"%w(+w.0w36w9;w>AwCFwIKwNPwSUwXZw]_wbdwfiwknwprwtwwy{w}www

wwwww w"$w&(w*+w-/w12w46w79w;<w>@wACwDFwGIwJKwMNwPQwRTwUVwWYwZ[w\]w_`wabwcdwefwghwijwklwmmwnowpqwqrwstwtuwvvwwwwxxwyywzzw{{w||w}}w}~w~~w~wwwwwwwxb~}b}c(|y}s( z{z2(Vn&(@?yC~t	J~&bxwbvu( 7f(
>

n8(8(7,J(0t srtsrq80(fpb&8bc(^z@(bQz(8dG.8"(\zo8(XfbFJ8Z
(o"8Anrq-r)qb;Ovp0j] P?(I6OwopE`V~f}&Cb@|b{y	cd6C(Uz4c5c6c=cb bc(Jz!f	CabIzfzi=(yrxw)z|  Hzv) /u)t&J(/j"sr#!f	B&q (Izpz)Ps_wvHBo|pb(	A8.r(O@\
dp	~}|){O(zG /{)OG"(z& z(/6
"x( " z )hSG "z )h @wyHvrx&u)t40)+sr' )h
.
q`p&`?a(/K&SFJ:S(ut&)(otn0u)t{9\&S+@mym	H mySvbTCjKPO'HdOWO]U8;@``
tYt`@gov
>

n	)(#(~2}|H.){(/.(z{Hyrx})w2}v}((6utYF.nsr	qt)
.p`rqtonr uu7(0Jmi
SJrE~?~px~~~~

9,"*,8*HW*er*
L* F/A8U
@@aOQz
#?8O`3 U5TXL@!	3O
N`NL_R A	58L@!N$ RQ,DL_A' PSNTT 	Q0	E` 5`	T@R`6	EMATR`N FLlL_!LA1 	04	T [	@p 	T@R`6N8VC_	TR`RaD'&!|Jzk\~}w|{wzyxw2[c(x{vBu	Jntsc;hbbrqsLh{p<op>n
wm)l kjwi:h(?t`!;kg#fec@dyB$T"[Gcb'a`'LK_ahc_V;^j$({{Oo&C{!>c>=of4G?;]d@Kt\G&~}`|~7{6z	&	(?Y'[&y	b(Uz`b/S" ~xx7!.(/(/w!bb!bb!bv"@MzuuStgts2@r{qpogrwrun#(m{l"k [&/	#0#-R`O`eUD@7
!.(/fc9];:e[y?![ue]n?@0r(/	' cs zXh~!H4}~x4|	
{&@
P@&z2yxwIvy)@ /@u3t(sr;05p,onrmlw	4K@OD``k	8R1DO#m`R1 DN(-N	5N2@O`N2-N	SN@!+/@*< $B4<ZYO8Ov]pri~&}3&|#&{_&b(?bzYb9bs(yx2 `zw ?vu3%ltu3 syr%_N&q(?X)pyon3I1tmC	lBHky	j%ibhgI`tNf"N
dGe"hgdcL#&f_&  kv4:]'N|Owxq+c[_#\Ho)O <B >LZp&~	&}&	Ct	,0 YTMAA|({{zy2zzsxwv0ruvt6Isrq(p{4U3TUR0aoc4fff4J>

nn m]4$FJa /l43(l{kj)a NE .4cJ-	ctca+[z. ?[5#HVOp|pZ|v
s~c}g|{w~z7;fyix!>@/
&x ?y
J
6 /y	
	&0wC	vB u{#0t@sr"(t+0+qc(p{+(/o56&n&	tI@LzImlck(/U"r /Wj">kdS@@as)s	
S
?)
S8H;@oyO;`\alDjD3Ly3q	p0{sT@LvsT@LsT@vu0rsT@p{`VApRpFVAs	pPPVA{AtVAhsDRVAtRtCMVA{pT0VA{uOV@tPqC VArtODVAvqTVAyuTVAwApP0VAxqOVA{uOVAytIV@]pL!V@_pPVLq
pA1VLytEV@~tFTVAzqPztR

Y@N{Eq@F|tB@<tB@<~sE0xtB0wtB=wtB@<|u0~qPzu0V@r*~?Dn9@z6r!e#ntB@<~sE0xtB0wtB=wprtB@<|u0~pcqPzu0V@rpv	p0{pvsT@LvsT@LsT@vu0rsT@p`tVAyuCV|A_tTcV@wpL!V@_Ss@lPNpPVLqpA1VLytEV@~tFT
VAzqPztRtB0V@tAtPsq
Y@N{Eq@F|tB@<*~?Dn9@z6r!e!e!e!e!e!e!e!e!e!e!e!e!e!e!e!e!e!e!e!e!e67FfD. n9979:7:;75"5bf!>!5c+G!65+95w-)D5bbf!.-)D5bbf!639)c!!f39*c!c3'!>!c3(/)#
'.)$!(.)#!(b.$!'b.#!!b)b!b+*!&+))r!b!+i*r!!f+)r(/ 4" iy b;/:"0/#!2E0@ 
jb5f1w/!9&,8k8~8>$
OnR]
]FRn]to5U`$U.i$$&@%b%f&.&$dZ&"U?0$|AIq1L20 `%`q,
@&lBe~bg}bf>hf|9{eefDg	Ju /z"y~p!.vsbnxw'v3BR1 APCz4AP3	R N2EzHN 3B3RAPC`4TRCD	 	1L:TR	8 SA	N>C	E TR@ Tz1!+8@MX.Hs{b lJ%A!ahzpplP&PPt@-F^nEmAZ~bHzrF-nnEA]@.@#zXXn%H.	lttstGtDv/J1B(@.	pB}|r{pr{e 8z
zIyIxq!OfwP&PHJvP&OHJB0U
nct6" ts4c5*2k(/v-*k&b
pIx{zl@.b/Fnu`}orhp3u@0l,&BHz~@/}"|0n0j0b
n000c{`({zH/yx"80{(z2Hyrx8(0J[[mE`C XQS%Z	}&Y&tD,X71W2(JzV(/V{"(YzUI+T9J#S(/JR"TY! (s{g"VnwbQFu`7 BP(/i Oy3 @`?pxX@p.!efZ&~[&	ZC$F
_Z	ZC$F_[m[>\@N%\\[BZeD
p"!ne~b[}bZi\ \N[>[ \b$BZ|ZeD3@.p.!efZ|"[l[Z7Z[B|[&ePJKS b$@B"?N"rJB6)b6mJA&(?y5DSPLAY.BN,NONEAE.BN('b'(b&)g*+'",b-UsHo$+?|g%C=!a /Ms9! /M|9vSdT/)C/A L9Q2(e{sS(`nLULLe@ Mz??b

n
_h_(U0e(_>2e>w_UUU(h{=_(U(hP2!ly&,<bxwkr0"1c!!bL~9!!&!J!F.(b
Iw
(
,w0"iw> Pocplho6XcnobXoWn"/ Wc( nbDobXoFn">V*n!&o!..X.nlhZofn- !!b@,rnlh1.Zr .	?G+0hcKrpc+	Aw
n~)pp&l@9AER0uH>@`1`RPS2 l(+2@i O	AEwnX/
<	?&A9@T8U3<why
I
-@9a8!V&r(ByK>]bWrmcLtEJ+M.qjU]"k!|QT+ois\idi[6m9e["u]]idM
,lr@rdJ`0*w) J
n
`(rHnu0
SAMPLE,   0000
MVOLT,    -314
TOP,      0000
BOTTOM,   0000
K44,      7741
KD,        -244
DTEMP,     000
RTEMP,     0
STORE,      0
M260,     7520
K215,      215
K212,      212
CTEMP,     0000
N240,      200
N340,      300
K1777,     1777
M4,        7774
COUNTR,    0000
K350,      350
WTEMP,     000
K253,       -253
ZERO,      000

*200
LINE1,  .
     TEXT /NUMBER OF SAMPLES : $/
*215
LINE2,  .
     TEXT /SAMPLE INTERVAL IN MS : $/
*234
LINE3,  .
     TEXT /CHANNEL NUMBER : $/
*253
LINE4,  .
     TEXT /SAMPLES STORED IN FIELD :$/
*272
LINE5,  .
     TEXT /STARTING AT LOCATION : $/
*311
LINE6,  .
     TEXT /POLARILY OF START PULSE : $/

/  SUBROUTINE TO PRINT 30 CHAR. LINES
*470
PRINT,    0000
          DCA L10
          TLS
WORD,     TAD I L10
          JMS CONVERT
          CLA
          TAD TOP
          TAD KD
          SNA CLA
          JMP I PRINT
          TAD TOP
          JMS TYPE
          CLA
          TAD BOTTOM
          TAD KD
          SNA CLA
          JMP I PRINT
          TAD BOTTOM
          JMS TYPE
          JMP WORD

L10=10

CONVERT,  0000
    Z|Ab..i;-.?,.iI0./.iH1v.
`nol.lt,h,.iB!bATO-.	<T	M-O0&A ~Xn*hn+lM6(C7H~1fH?bC@>*C(Tz*6@+bC[#+ddM,+!.*T)O-.GTM-O	3Qo f!.T)K0S	+b!l<TK3S	
fNGKA	fA
f.8i
JA
f
T)O-J3S+@+z
-)8(+
$.)Cv/	D..)6`f. =.) 
|;Jh.IiYr'H@M
$!TiO3.3TM3S	WbHG>,A
.i>,	@*1.~,I@+1.>,)@@*H/+bH~*.1.
T	M-S(n!-i*V*,)@.	
2b0@-,@.<("b,(TJ0S	"%b0@,)@*-)6,	S/R/C/F/I/L/O}?(\v]^f_Qo(?{!f.\c-iv V'MJ-
tJ?+\]^_bbb?E0i?.|.i_ ?{" (o@N(/-)0`.9 
|`bK@
b(z.-,C
f/?a8@4I
"I$&%!f.$Ri$06@6646;8;;4;?8?s;Qo;G?D?I8Is;Qo;CIDI 0       TAD N340
 RETURN,  JMP I CHECK

*600
/  SUBROUTINE TOoHIVID BY FOUR
DIV,      0000
          SNA
          JMP POSIT
NEG,      CIA          /MAKE IT POSITIVE
          RTR
          CIA          /CHANGE IT BACK TO NEG
          JMP I DIV
Pf?pX(r`[	''1=
/_1 pNOP
          JMP I DIV

/  SUBROUTINE TO CKECK WHAT S\	[d#(b@JzZ#)D.)(b(f!%b@WzY#'b@]>fnn)"ba%bt{@%fs!@pzH%f&.&$d%b%rkbe]`$f(&v%si&a.&o ejP2}FX<
		j:*5)C*67C3=83@2)192)@1)|2)@1)y2)=X(01+FnR^R]]Ont@{[
=@3	=9)$X&:5=F+%@Vz6]Pk] 6yX02F2	39=8)1;17=3@0=$N4@1C8X$$&]0B\1	n=sC%H/w)Cq)=n)=.3wi=u)n@p)r&p#p@r pp@rpo=3(//t)29P:X %h/xF>($r!n(&r Dz$&f%3k$&$ni=p),n9@w)=s),q9@n)=u)n@o5p2o@p/o=s8n@$&vp@o);3;RmRm
O^t_[F>zpHggU
w}/6Uy{t`HngE_Y,
`LD6A~oo\k9 C8ad7 !loC{ K`V(x E U1vJUKYXTD$`/G.VX"(Uz@Z{$@n%H/n%$dM%"$@kupxp$%&&Yb$ci[5>   KRB
          TLS
          DCA I RTEd`av. /b"0Qb/Ri[W'%(/<@/`)`$r`z_MaJF^	p$FZ%f&.b ar!0b@ ~YH/[bF2j]MF0J\pF$!DiEEa'&. /ca&[g*:/n$hF{]M abaGjk@nks}L>_LppyRmRm]`a@ ~X/"!]g0(/ ]c@T{FtjZP)FrJf`cPa@U{!Vi0(/d.kohzo >>0b rfk(>Or$o#!0b`>x.b 6zdE'`/Vdh+\
dn>'bH!~&%f@^i&k(](&%>$*k(-(/bd8d
b!r%b(&b)`ipf`ppf"aipbp`ip._XJ _fkrA>+veP/onS~;d!fJ&@Nd0d0ka;/ .rrd6zd*w.kc G ~>Hi*$f&`%CfP
*CDMBJZBc

GZKKDzC>dA >+bD(/P.
#F.#D.K&*#>$!!nCa.Hq~ CfEb>Cd>+M
;].p@;FyR]n
`P#e+~(/[" \z>eh+d"@IbKoPPKFpfJ	B+F+o&{+}"(z|(/, /{
ed<rU~($9]>Ujo(
$9&)&"&6$a.'$&'%b"(b%"b(%i
''(&'#B9)nn@RVPZf
%i	"&%(/)H?$H~$f$tod~Zn
(f)}b%%&%(/&(/xU*(H.()b)f)
a.&(/~#F(ba.%/t /i~$i ."%f#&&)D.

&(.&d~f"NJ%&
&&)</(|9$$&e"f%(/$#h()&#"&eb%%b@o!&#D{9 >$$&"/`}'&) /,!&#)2)f6z@"b&"&%be.e"b"f!f'+J#)6"/G@.&.")bdAa.&nQ]9(R|9!$b$(ba(fe&!~bIjR& %("{~"&u%"%f%("%v&b&f"mJe]>@tsy(W9~((z%(/$"a'b`z!h:'$oh:8
  (bn(.()b)f"f'N J0!D.!&b&f%.%/k  %bn%.%&b&f!f$N =J:@>}0(OsWfO&).~~10&a.&n%a.%]k)a)f(ba(ff0@"b!!&)b&&&(b%%&ou9n5n("
nhw6u61v6nv1urwr1{!5k/nk(yt)}+*]*3].K@[;

n
`""c'"d"(6""C))kv%(/&(/!(/~Z.% /C&" Hy*(F)8'$&)&&(%&FFK(RF6$F'F%BFFt&F'RRK!%f@(b%/k%& !b!@n%4+
#o&p&@>n(2top.$$&=$j7Bbb/ab1b(`'6'5 ('b!((&'F.d`,)&(/)8 8(/c(#((s9-:OnR]FRnPplx5~(K(&'  mz'J (6{'ZJpVN&(*(&'e (`{Z&((rHj	RO`
e'"j%b("j (b7
*0	$t|};~;EM>B.DSPLAY.BN,NONEAE.BN('b'(b&)g*+'",b-UsHo$+?|g%C=!a /Ms9! /M|9vSdT/)C/A L9Q2(e{sS(`nLULLe@ Mz??b

n
_h_(U0e(_>2e>w_UUU(h{=_(U(hP2!ly&,<bxwk

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