Octrooïraad
n o i A Ï e r i n z a g e l e g g i n g nu
Nederland
[19]
7706740 NL
154)
Met hoogfrequente impulsen bekrachtigde spectrometer met verbeterde impulsduursturing.
[51]
Int.CI*.: G01N27/78.
[71]
Aanvrager: Varian Associates Inc. te Palo Alto, Californië, Ver. St. v. Am.
[74]
Gem.: Ir. G.H. Boelsma c.s, Octrooibureau Polak & Charlouis Laan Copes van Cattenburch 80 ,'s-Gravenhage,
[21]
Aanvrage Nr. 7706740.
|22]
Ingediend 17 juni 1977.
[32]
Voorrang vanaf 21 juni 1976.
|33]
Land van voorrang; Ver. St. v. Am, (US).
[31]
Nummer van de voorrangsaanvrage: 698245.
[23]
--
[611 -|62| --
|43|
Ter inzage gelegd 23 december 1977.
Do aan dit blad gehechte afdruk van de beschrijving met conclusie(s) en eventuele Uikunnuj(en) bevat afwijkingen ten opzichte van de oorspronkelijk ingediende stukken; dtwe laatste kunnen bij de Octrooiraad op verzoek worden ingezien.
E 16Q!M33 p &c
i Varian Associates(te Palo Alto, California, Verenigde Staten van Amerika Met hoogfrequente impulsen bekrachtigde spectrometer met verbeterde impulsduursturing.
De uitvinding heeft betrekking op eer. spectrometer met hoogfrequente bekrachtiging en in het bijzonder op een merkwijze en inrichting voor het opwekken van de hoogfrequente bekrac]- ;iging door impulsduurmodulatie van een hoogfrequente draaggolf, Tot dusverre is breedbandige hoogfrequente bekrachtiging toegepast • voor het bekrachtigen van de hoogfrequer-:e resonantie van een aantal spectraallijnen gelijktijdig. De gelijktijdig bekrachtigde resonerende
r
spectraallijnen worden gedecteerd ter verkrijging van een samengesteld resonantiesignaal. Het samengestelde rewonantiesignaal wordt bemonsterd met tussenpozen/ omgezet in numerieke gegevens, bewaard in een meerkanaalsgeheugen en in de tijd gemiddeld ter verbetering van de signaal/ ruis-verhouding. De in de tijd gemiddelde gegevens worden uit het geheugen afgelezen, en onderworpen aan een fourier transformatie uit het tijddomein naar het frequentiedomein, teneinde opnieuw een resonantiespectrum van het onderzochte monster te verkrijgen. Het opnieuw samengestelde resonantiespectrum wordt dan weergegeven. Zulk een hoogfrequente spectrometer is beschreven in het Amerikaanse octrooischrift 3.475.680. Het is bij zulke breedbandige hoogfrequente spectrometers ook bekend, de breedbandige hoogfrequente bekrachtiging te verkrijgen door impulsduunaodulatie van een hoogfrequente draaggolf met een modulatiesignaal in het tijd-üomein dat is gesynthetiseerd uit een tabel gegevens die wordt bewaard in een rekentuig. Het impulsduur-modulatiesignaal in het tijddozcein, afgeleid uit het rekentuig, wordt verkregen door keuze van een gewenst hoogfrquent bekrachtigingsspectrum in het frequentiedomein, invoer van deze spectraal gegevens in een tabel in het geheugen van het rekentuig, fouriertransformatie van het gewenste bekrachtigingsspectrum uit de tabel naar het tijddomein ter verkrijging van een overeenkomstige tabel '/ati tijddoiftfciii-gegev&ns en aflezing van de tijddomeiri-gegevfens uit
* >•/(,< ! •/',',! 1m;rii r,'7-, if ty,
' " - M'U&mï wordt i o^/fcyoft/rd tfef
i'jtfitj 'fat, fkSf,lt»(,\i a //«
Zulk '-n «pectr&?/if?tör ïü Umcht&V&ii in de Amerifcaarjss octrooiaanvrage 494802, die een voortzetting is van de Amerikaanse octrooiaanvrage 350457.
Een van de moeilijkheden die optraden bij de bekende hoogfrequente ;1 ; spectrometers waarbij gebruik wordt genaakt'van gesynthetiseerde breed- ; , handige hoogfrequente bekrachtiging opgewekt door middel van impulsduur~ modulatie is dat bij betrekkelijk korts impulsen,roeteen duur in de orde van grootte van 65 ns a 65 ps, welke impulsen stapsgewijs veranderen in stappen van 65 ns, de eindige stijgtijden en daaltijden, van de orde van grootte van 1 jus, bepaalde ongewenste niet-lineairiteiten veroorzaken in de aangelegde bekrachtiging, waardoor bepaalde ongewenste zijbandresonantielijnen optreden voor elke resonantielijn van het spectrum.
;
i Deze ongewenste zijbanden van dè afzonderlijke resonantielijnen kunnen , f
niet worden ongedrukt door middeling in de tijd en compliceren de
'
verkregen spectraal gegevens op ongewenste wijze. Het is derhalve wenselijk, te kunnen beschikken over een werkwijze voor impulsduur-modulatie van de hoogfrequente draaggolf die het opwekken van de ongewenste zijbanden; behorende bij de afzonderlijke resonantielijnen vermijdt. Hoofdopmerk van de uitvinding is het verschaffen van een werkwijze en inrichting voor het verkrijgen van de hoogfrequente bekrachtiging voor een hoogfrequente spectrometer van de bedoelde soort, waarbij de
,
toegevoerde hoogfrequente energie in impulsduur is gemoduleerd voor het ! verkrijgen van het gewenste bekrachtigingsspectrum.
;
Volgens een facet van de uitvinding wordt de hoogfrequente bejrach~i ;tiging in impulsduur gemoduleerd ter verkrijging van een reeks samengestelde hoogfrequente impulsen. De afzonderlijke samengestelde impulsen omvatten een primaire komponent met een eerste hoogfrequente fase en een compenserende secundaire impulskomponent in tegenfase, waardoor de eindige stijgtijden en daaltijden van de primaire impulskomponent worden gecompenseerd voor het voorkomen van de bekrachtiging van ongewenste zijbanden behorende bij afzonderlijke resonantielijnen van het onderzochte monster. Volgens een and^r facet van de uitvinding wordt de primaire impulskomponent verlengd met een bedrag gelijk aan de lengte van de secundaire impulskomponent, zodat het resonantieëffect van de secundaire impulskoraponerit wordt opgeheven door het verlengde deel van de primaire Impuls
V'jl'jt-t,'-, fi'ii nh'lKf fnt-vt vfl/f signaal in hat. ttWlomsi a mtlftwri am
ui » '/itiMuy Wh/M bef iffi["i Iz'liu tabel <.ffqf*vt*n§ dia tooriït
bewaard in het geheugen van een rekentuig. Volgens een ander facet van de uitvinding worden de compenserende
77 0 6 7 4 0
impulskomponenten afgeleid door een circuit dat reageert op een impuls-
*
duur-modulatiesignaal, waarbij de compenserende secundaire impulskomponent en de overeenkomstige verlengde primaire impulskomponent door het compensatiecircuit worden opgeteld bij het ingang-modulatiesignaal ter verkrijging van het samengestelde impulsduur-modulatiesignaal voor bet moduleren van de draaggolf die wordt toegevoerd aan het onderzochte monster. De uitvinding wordt hieronder nader toegelicht aan de hand van de tekening, die betrekking heeft op een uitvoeringsvoorbeeld van een inrichting volgens de uitvinding. Pig. 1 is een blokschema van een gyromagnetische resonantie-spectrometer volgens de uitvinding. Fig. 2 is een functioneel blokschema van de spectrometer 'uit fig. 1, waarin de bijbehorende golfvormen op verschillende plaatsen in de spectrometer zijn aangegeven. Fig. 3 is een diagram van verschillende golfvormen uit de spectrometer van fig. 1, waarin de opwekking van de samengestelde, in irapulsduurgemoduleerde hoogfrequente bekrachtiging is aangegeven. Fig. 4 is een diagram van verschillende golfvormen optredende in de delen van de inrichting uit fig. 1 voor het vormen van correctieimpulsen, in fig. 1 aangegeven met de lijn 4-4. Fig. 5 is een diagram van eenhoogfrequent spectrum verkregen van een onderzocht monster, waarin de bekende ongewenste zijbandresonanties behorende bij de verschillende resonantielijnen zichtbaar zijn. Fig. 6 is een soortgelijk diagram als fig. 5, verkregen met een inrichting volgens de uitvinding. Figuren 7a en 7b zijn werkschema's van het synthetiseren en bekrachtigen volgens de uitvinding. Fig. 8 is een werkschema van de analyse van het spinstelsel. Fig. 9 is een blokschema van het deel van de inrichting uit fig. 1 'W 'l-inr j Ï A h d ^ l t
dé } i jït
ifi n ';», 1 li; !•( li UüA l'ins 1 (•/ I / itlltif I>illiatl £5 rosorjanUj,—spectrometer 11 Volgas de uitvinding
J^fif'Jfc tj-/f (i?mlj
bt? spectro-
meter 11 omvat een sonde 12 voor het opnemen van een te analyseren monster en voor het onderwerpen van het monster aan een homogeen polariserend magnetisch veld HQ. De sonde 12 bevat een gebruikelijke afgestemde hoogfrequente zendspoel- en ontvangspoel-inrichting voor het
I
« },•••
i
' toevoeren van een hoogfrequent magnetisch veld aan het monster, waarbij i si „i ï i.
i
s
\ de vector van het hoogfrequente magnetische veld een belangrijke
j
1
komponent loodrecht op de richting vai; de vector van het polariserende 1
p
maqnetische veld H^ bevat, voor het bekrachtigen van gyromagnetische resonantie van het onderzochte monsterf,
;
j-
De hoogfrequente energie voor het bekrachtigen van de spoelen en voor het bekrachtigen van resonantie van he- monster wordt verkregen door modulatie in een modulator 13 van een hoogfrequent draaggolfsignaal af- , komstig uit een hoogfrequente oscillator 14 met een in de tijd varierende impulsduur-modulatiefunctie f(t) ontleend aan een reekspen 15, zoals een numeriek rekentuig van het type 620 f 'dat verkrijgbaar is bij Varian Associates, Palo Alto, Californië, Verenigde Staten van Amerika. Impulsduur-modulatie van de hoogfrequente draaggolf veroorzaakt zijbanden van de draaggolf. De modulatiefunctie f(t) wordt zo gekozen dat de zijband, energie de gewenste spectrale vermogensdichtheid heeft voor het bekrachtigen van esn resonantie van een aantal spectraallijnen van het monster gelijktijdig. Hoewel de gewenste spectrale vermogendichtheid aanzienlijk kan varieren, afhankelijk van het onderzochte monster-en de gewenste bedrijfswijze van de spectrometer, is een typerend voorbeeld van een type:> vermogenspectrum IP(v)1 voor de hoogfrequente energie die resonantie bekrachtigd afgebeeld in fig. 2a. Volgens de figuur 2a heeft'het gewenste bekrachtigende hoogfrequente spectrum over het algemeen een gelijkmatige spectrale dichtheid over een betrekkelijk grote bandbreedte van bijvoorbeeld 1000 Hz aan weerszijden van een draaggolffrequentie f0 van 60 Hz a 100 Hz. Spectraalgegeven worden in het rekentuig ingevoerd in de vorm van een tabel die aan het rekentuig de amplitude van de reëele en imaginaire komponenten van elke frequentie van een gewenst en gekozen frequentiespectrum voor de bekrachtiging aangeeft. Het rekentuig 15 krijgt het gewenste spectrum voor het bekrachtigen van resonantie geleverd in het frequentiedomein, dat wil zeggen de golfvorm 2(a), door het opstellen van een tabel I als hieronder aangegeven die bestaat uit 2N punten, waarbij N het aantal discrete frequenties in het bekrachtigende spectrum is. De gegevens kunnen worden ingevoerd via een spectrale ingangsaansluiting 8 of kunnen in tabel I worden uitgewerkt door aflezing uit een numerieke ingangsaansluiting zoals een kaartlezer, een telex of een 7 7 0 6 7 4 8of uit een analoge ingangsinrichting, zoals een inrichting schrijfmachine,
waarin gebruik wordt gemaakt van een kombin^ie van een elektronenstraalbuis en een lichtpen, een tableau of een stmrknuppel. Voorbeelden van zulke inrichtingen zijn verkrijgbaar bij IML!C Corporation, Waltham, Massachusetts, Verenigde Staten van Amerika, dan wel de gegevens uit de tabel I kunnen automatisch worden berekend of samengesteld uit de gegevens die reeds in het rekentuig aanwezig zrjn. Als men er van uitgaat dat N gelijk is aan 1024, bevat tabel X
,
2048 rijen, twee voor elke frequentiekomponent van de bandbreedte van 1024 (behalve voor k=0 en k=N) die twee loodrechte komponenten van de vector voor elke frequentiekomponent voorstellen. De ene rij van elk paar is voor een numerieke waarde die overeenkomt met [a^ cos f^] en de andere is voor een numerieke waarde die overeenkomt met [a^ sin f^j, * waarin A^ de amplitude voorstelt van de frequentiekomponent en f^ zijn fasewaarde bij t=0 voorstelt. Voor het spectrum volgens fig. 2a zijn alle waarden van A^ aan elkaar gelijk.
N
0
TABEL I
TABEL III
Amplitude van
Amplitude van
cos/sin (f)
cos/sin (f) A q COS (Pq)
A q Cos (fQ)
1 2
A
1024 C o S (f1024} A 1 Cos ( f ^ )
3
N * ' Aj Cos (fj) Aj Cos (fj)
Ax Sin (f^fy)
4
a 2 cos (f2)
A 2 Cos (f2+^2)
5
A 2 COS (f2)
A 2 Sin (f2+4>2)
6
?M(,
A
2047
h
irm
r;ofi i f
xm]
h
wn
c m
^ w / i* w/ i1
Cos (f. A 1023) 1023 S i n (£1Q23+ IO23' Voor een breedbandige bekrachtiging met coherente fase wordên alle
1023
waarden f gelijk aan elkaar gekozen en de gegevens uit tabel I worden door het rekentuig onderworpen aan een fouriertransformatie baar het tijddomein, door middel van een gebruikelijk afzonderlijk fouriertransformatie-programma waarin bijvoorbeeld gebruik wordt gemaakt van de algoritmen die zijn ber;chrf;vf:n in "noorrinni cati on", of t-ho Af;;:oei at i on for
77 0 8 7 4 0
l'l i Computing Machinery", Vol, U , no, 10, October 1968, biz 703 en volgende, ;in het bijzonder de vergelijking 1-7, De se fourier-transformatie resulteert 'in N paren uitgangssignalen,'waarbij de• transformatiewaarden G(t) in tabelvorm worden vastgelegd in het rekentuig, zoals volgens de onderstaande tabel II, waarbij G(t)n de amplitude voorstelt van de bekrachtigingsfunctie in het tijddomein op het tijdstip t^. TABEL II
i m fc
o
s
m G
—
~
-
-
fc
=
n-i
2 PN 1
o
G
1
°2
t =tn+nAt G n 0 n De waarden van G(t) worden uit tabel II afgelezen met de tussenpozen
i
als aangegeven in de tijdkolom, ter verkrijging van een modulatie-uitgangsfunctie f (t) in het tijddomein die bij toepassing voor het moduleren van het draaggolf signaal in de modulator 13 het gewenste zijbandvermogendichtheidspectrum levert dat eerder is geprogrammeerd in tabel I. Een typerende modulatie-iiitgangs functie f(t) voor het leveren van het gewogen dichtheidspectrum uit fig. 2a is aangegeven met de golfvorm uit j fig. 2c en bestaat in weze uit een impulsreeks van kortstondige hoog-
!
frequente impulsen met betrekkelijk grote tussenpozen. Volgens een voorkeurswerkwij ze moduleert de modulator 13 het draaggolfsignaal in impulsduur met een reeks impulsen met een herhalingsfrequentie van 1/500 ps (een impulstussenruimte, van 500 ps) en een impulsduur van minder dan ongeveer 1/10 deel van-de impulstussenruimte of minder dan ongeveer 50 ps, De impulsduur wordt gemoduleerd overeenkomstig het modulatie-uitgangssignaal G(t) uit tabel II. Daar de waarde van G(t) uit tabel II zowel een positief als een
negatief tckffi kan h^blwi
aan fin uUcjnnq van (\i*. [i^dulnl of I) san
gepöorte faseomkeertrap 16 aanwezig voor het veranderen van het teken, namelijk het omkeren van de fase van de gemoduleerde draaggolfenergie die aan de sonde 12 wordt toegevoerd overeenkomstig het teken van de modulatiekomponent G(t) afgelezen uit tabel II, Kruiselingse koppeling van golffrequente energie uit de zender 17 naar het oritvónqdcf.-l 1 Fj v,>n dn np^t rom<-t «r 11, nrclnrs '1 mi vl a ('In .*./"W"/imI n 7 7 0 6 7 4 0
resonantie van het monster, wordt vermeien door het aanbrengen van een
:
poort 19 tussen de sonde 12 en een hoocfrequente versterker 21 die wordt toegepast voor het versterken van hoogfrequente resonantiesignalen die worden opgenomen door de gebruikelijke ontvangspoel in de sonde 12. De poort 19 wordt door het rekentuig 15 gesynchroniseerd met het optreden van de zendimpulsen, teneinde tijdmultiplex mogelijk te maken. Het uitgangssignaal van de hoogfrequente versterker wordt toegevoerd aan de ene ingang van een hoogfrequente fasedetector 22 voor fasedetectie met een referentiefase-signaal dat via de faseverschuiver. 23 is afgeleid uit de hoogfrequente oscillator 14. Het uitgangssignaal van de fasedetector is een audiofrequent samengesteld resonantiesignaal dat bestaat uit de gelijktijdig bekrachtigde resonantie-spectraallijnsignalen die afkomstig zijn van het onderzochte monster. Het samengestelde audiofrequente, resonantiesignaal wordt versterkt in een audioversterker 24 en wordt van daaruit toegevoerd aan een analoog-naar-numeriek-omzetter 25 die het samengestelde resonantiesignaal eenmaal voor elke zendimpuls bemonsterd waarbij het einde van de periode gedurende welke de ontvanger is ingeschakeld. Het samengestelde resonantiesignaal wordt bemonsterd nabij het einde van de inschakeltijd van de ontvanger opdat ongewenste spanningsignalen behorende bij het inschakelen en uitschakelen van de ontvanger zijn uitgestorven. Bij een niet afgebeelde andere uitvoering kan de modulator 13 ook reageren op het modulatie-uitgangssignaal G(t) voor het moduleren van de fase van de hoogfrequente bekrachtiging. De numeriek gemaakte monsters aan de uitgang van de analoognumeriek-omzetter 25 worden bewaard in opeenvolgende kanalen van een meerkanaals-geheugendeel en opteldeel 26 van een rekentuig 15, voor het middelen in de tijd van het samengestelde resonantiesignaal. De monsterfrequentie is gesynchroniseerd met de af lees tijdstippen t -t van het modulatieo n uitgangssignaal van het rekentuig 15 die worden gebruikt voor het opwekken van de breedbandige hoogfrequente bekrachtiging | F(i>)| . De jiionsterreeks herhaalt zich zij elke herhaling van de mcdulatie-uLtqangs!••'."••.I'fij.
l/f ifi i 1 j'i ije-lliUifU irli- fHBOtitmtlhiH-ifi^Miii Wililmi fjnft nC'JBlk/bi hot gc.h ougon 24 <-.n aan acn four Ier transformatie* onderworpen door het rekentuig 15, geprogrammeerd met een gebruikelijk fouriertransformatieprogramma voor het transformeren van gegevens in het tijddomein f(t), naar het frequentiedomein f(i>) ter verkrijging van een resonantiespectrum
7706740
! van het onderzochte monster. Het in tijd gemiddelde resonantiespectrum j van het monster wordt dan toegevoerd aan sen weergeefinrichting teneinde te worden weergegeven voor de gebruiker ef/of te worden opgetekend. Er kunnen resonantie-spectraalgegèvens me: zuiver absorptiebedrijf,
;
/
zuiver dispersiebedrijf of kombinaties '•m absorptiebedrijf en dispersie-
j
bedrijf worden verkregen na correctie voor instrument invloeden door aflezing van de cosinustermen van de acn fouriertransformatie onderworpen gegevens, sinustermen van de aan de fotriertransformatie onderworpen gegevens of aflezing van kombinaties vë?i cosinusgegevens en sinusgegevens. De aan fouriertransformatie onderworpen: gegevens worden door het rekentuig samengevat in een tabel soortgelijk aar, tabel I. Een nadeel van het gebruik van br^endbandige hoogfrequente bekrachtiging met coherente fase als aangegeven met de g&lfvorm uit fig. 2a, opgewekt door een impulsreeks van kortstondige impul&en van draaggolfenergie, is dat een betrekkelijk sterke hoogfrequente impuls nodig is, hoewel de
j
hoogfrequente bekrachtiging een betrekkelijk geringe gemiddelde spectrale vermogendichtheid heeft. Dit veroorzaakt tevens problemen van het dinamische bereik wegens de begrensde Nauwkeurigheid van het geheugen eri de modulator. Volgens een voorkeuruitvpering worden de fasen van de gewenste breedbandige hoogfrequente bekrachtiging versluiert volgens een pseudo onregelmatige reeks. Dit wordt bereikt door een pseudo onregelmatig tussen 0 en 2TT gekozen fase /erschuivingswaaröe op te tellen bij elk der: cosinuswaarde en sinuswaarde uit tabel I. Bij een voorkeursuitvoering wordt de pseudo onregelmatige cijferreeks geleverd door een geschikt programma 29 voor het opwekken van een pseudoonregelmatige cijferreeks, dat via een schakelaar 31 wordt toegevoerd aan het rekentuig 15. Zulk een programma voor het opwekken van een pseudo onregelmatige cijferreeks is beschreven in "Mathematics of Computations", Vol. 19, blz 201, 1965 ; en vol. '16, blz 368, 1962. Het programma 29 ontvangt
de tabel van
het gewenste spectrum in het frequentiedomein soortgelijk aan tabel I, , en voert de optelling van een pseudo onregelmatige fase uit ter verkrijging van een gewijzigde tabel als afgebeeld in tabel III naast
1
tabel I. Dit wordt bereikt door de waarden van de komponenten cos f
Jc
en sin f te nemen voor een bepaalde fourier-frequentiekomponent en de vectorvermenigvuldiging uit te voeren van A .exp(if ) .exp(i<* ) , waarin
ic
K
Jc
de pseudo onregelmatige faseverschuivingswaarde van de fasehoek is. De verkregen cosinustermen en sinustermen zijn samengevat in tabel III.
7706740
9
De reeks van waarden volgens tabel III wordt dan onderworpen aan een fouriertransformatie naar tabel II en Word-», evenals hiervoor beschreven afgelezen voor het opwekken van de modulat i i-uitgangsfunctie f(t) die wordt toegepast voor het opwekken van de ï < ogfreguente zijbandbekrachtiging. 5
De golfvorm volgens fig. 2c toont een typp.end modulatie-uitgangssignaal voor het verkrijgen van incoherente hoogf; cquente zijbandbekrachtiging. In fig, 2 is het blokschema aangegevsi van het spectrometerstelsel . als uit fig. 1 waarin gebruik wordt gs.-maai' t van in fase versluierde hoogfrequente bekrachtiging. De in tijd g'Vniddelde en aan fouriertransformatie
10
onderworpen spectraalgegevens worden ci»or het reekspen 15 samengevat tot een tabel soortgelijk aan tabel III vo;r G(»). Deze gegevens worden ontsluierd in fase door aftrekking van .te pseudo onregelmatige reeks van fasehoeken die eerder zijn opgeteld bij. de gegevens van tabel III. Het resultaat is een tabel van in tijd gemiddelde resonantie-spectraalgegevens
15
soortgelijk aan die van tabel I, die als eerder beschreven worden afgelezen voor het verkrijgen van resomïtie-spectraalgegevens voor zuiver absorptiebedrijf of zuiver dispersiebeditjf. Als uitsluitend een vermogen spectrum van het monster gewenst is, behoeven de aan fouriertransformatie onderworpen gegevens niet in fase te woiden ontsluierd en kunnen zij
20
eenvoudig worden afgelezen en weergegeven. Figuren 7a en 7b zijn werkschema's van een uitvoeringsvorm van een inrichting volgens de uitvinding, waarin de stappen zijn beschreven die het rekentuig neemt bij het omzetten van het door de gebruiker gekozen bekrachtigingsspectrum in het frequentiedomein in de gewenste modulatie
25
in het tijddomein, voor het besturen van de modulatie van hoogfrequente bekrachtigingsimpulsen in impulsduur en voor het bemonsteren en bewaren van de responsie
van het onderzochte spinstelsel. De gegevenstabel
uit blok 100 wordt door de gebruiker bepaald als hiervoor beschreven aan de hand van tabel, I en wordt op geschikte wij ze ingevoerd in het 3C
geheugen. Twee ortogonale waarden a , b, worden gedefinieerd voor k elk van N-f-1 frequenties, behalve voor a^ en a^, die worden gedefinieerd
met de £a§êhöek ö, zóêat b =0 ênfe=0. o n Aannemende dat de gebruiker in hét blok 102 heeft bepaald dat de fasen worden versluierd uit overwegingen aangaande het vermogen, wordt 35
elke ortcgonalevector aa , biC vertraaid over een pseudo onregelmatig gekozen f a s e h o e k e n in een nieuwe tabel 107 ingevoerd als a'k, b'^. De versluieringsbeslissing stelt het blok 101 in werking, waarbij a^, b^
7706740
'•worden gekozen uit de tabel van blok Wf|en een pseudo onregelmatige
,
I
|
ö
• generator 104 begint en een pseudo onregelmatig getal p, kiest (waarin ; K ' i - 0 p^ 1}, in het blok 105, wat in het b'iJc 106 wordt omgezet in een ! 1 fasehoek. In het blok 107 wordt de vector a., b11 geroteerd over de hoek 1
'
.
i
en de verkregen vector a^', b^' wo'to± opgenomen in het geheugenblok j 108. Vervolgens wordt de lopende inde* k ondervraagd in het blok 109 en als deze kleiner blijkt te zijn daii N-l wordt de volgende waarde
j
, a^, b^ uit de tabel 100 genomen door s;ap k=k+l in het blók 110 en de •'cyclus herhaalt zich voor elke waarde
i
op dit tijdstip zijn nu gegevens beschikbaar voor het op de juiste ' i ; wijze moduleren van de hoogfrequent? bekrachtiging. De beslissing over i het aantal cycli C in het blok 114 vordt opgemerkt en het modulatieproces begint in het blok 113 door het kicraen van da waarde G uit de tabel o n : in het blok 115, het opwekken van Je hoogfrequente impuls voor t^ waarvan de breedte afhankelijk is van G^ en het bemonsteren van de respondie in het blok 117 en het bewaren van de ontvangen gegeven in het blok 118» Als n op 0 is ingesteld in het blok 113, is de gegevenstabel
in het
blok 118 ingesteld op uitsluitend «uilen. Als minder dan 2N-1 impulsen zijn toegevoerd in het blok 119, wordt n voortgeschakeld in het blok 120 en de volgende waarde 2N wordt uit de tabel gehaald voor het sturen van de modulatie van de volgende impuls en het herhalen van de stappen van . de blokken 116, 117, 118 en 119 totdat n=2N-l. Als de waarde van n gelijk wordt aan 2N-1 is een controle op het aantal verlopen cycli gelijk aan 1
het aantal dat vooraf is gekozen in het blok 114. Als C^0 herhaalt ; zich het proces van de blokken 116, 117, 118 en 119 in het blok 123 totdat CjéO, op welk tijdstip de impulstóèvoer wordt beëindigd in het blok 124.
Volgens fig. 8 worden de gegevens D^ in tabel 118 aan een fourleryzantformtifs onderworpen in het blok 125 en de orfcogonaJe waarden i'y
'/•>>) lit 1 vertj'.jjj i jti/idn
hot
blok 126.
WifAhti
f,ht a^tul
Als de bekrachtiging niet is versluierd
bogirit '1<- or,UsluU.'.rL{vj door h«i. vurtraaip/t over dezelfde pseudo onregelmatige hoek
van
fn in
hef
hlok
VM
v&ctof o' , f' k' k
die overeenkomt met de
frequentie volgens blok 107, maar in tegengestelde richting, in het
7 7 0 6 7 4 0
;
11
blok 133. De ontsluierde vectoren e. ,
J£
worden bewaard in het blok
134 en als alle vectoren zijn teruggedaald in het blok 135 worden de termen e^ en e^ bewaard in het blok 13" en het ontsluierde spectrum wordt weergegeven in het blok 158. Zoals tot zover beschreven wordt hit hoogfrequente draaggolfsignaal fg in impulsduur gemoduleerd met een r«eks impulsen 149 waarvan de aard is aangegeven in fig. 3a. Slke impuls lestaat uit een salvo hoogfrequente draaggolfenergie van bijvoorbeeld 60 MBs a 100 MHz voor het bekrachtigen van nucleaire machtische resonantie van het monster, waarbij elke impuls een duur heeft die varieert tussen 65 e.s en 65 ps. De impulsduur wordt in stappen gewijzigd, waarbij de stappea bijvoorbeeld 65 ns bedragen. Bij zulk een voorbeeld wordt een betrekkelijk breedbandige hoogfrequente bekrachtiging toegevoerd aan het monster, welke bekrachtiging esi gelijkmatige amplitude heeft over de van belang zijnde band. Er bestaat echter een moeilijkheid bij deze bekende modulatiewijze van de impulsduur. Deze moeilijkheid bestaat uit het feit dat de hoogfrequente energie die wordt toegevoerd aan de afgestemde zendspoel- van de sonce 12 een eindige stijgtijd en daaltijd heeft, als aangegeven in de golfvorm 3d, waarbij de stijgtijd en daaltijd in het algemeen in de orde van grootte van 1 ps is. Als men werkt bij een betrekkelijk kleine impulsduur van bijvoorbeeld 65 ns, is het duidelijk dat de stijgtijd en daaltijd betrekkelijk groot is vergeleken met de impulsduur en in dat geval is de impulsduur die in fei~e wordt toegevoerd aan het monster voor het bekrachtigen van resonantie daarvan niet overeenkomstig de voorschriften van het impulsduur-modulatiesignaal ontleend aan het rekentuig. Daardoor ontstaan niet-lineairiteiten in de bekrachtigde resonantie, waardoor ongewenste zijbanden optreden voor elk der resonantielijnen, als aangegeven in het spectrum uit fig. 5. Volgens de uitvinding worden compenserende impulskoraponenten opgeteld bij de basisimpuls 149, op zodanige wijze dat een compensatie ontstaat • van de eindige stijgtijd en daaltijd van de impulsen hoogfrequente anergie öiQ warden toegevoerd voor het bokrachtigon van do resonantie van hot monster. ïn het bijzonder wordt een paar compenserende tmpulskomponenten opgeteld bijfltehasis-impu1scjolfvorn uit fig. 3a, als aangegeven in 'l<; rjoH -/orrfj y„fl
t>f,
1iftiMlfjfaMfs,/^,,)
„j f
Wl1{\(Ut
m GC-kor.DTT dat de forste hnpuJjikoriipomnt: 14H (W/A-. ] tr\n fm* höfcjrt het gewenste bekrachtigingssignaal 149 uit fig. 3a, als afgebeeld in
'fig, 3c, waardoor de eerste impul komponent wordt verlengd met een bedrag •overeenkomstig de eerste compensa.ieimpuls 148, De fase van de hoogfre- j 'quente energie in de tweede compe <satie-impuls 151 is tegengesteld aan ;
:
I
die in de eerste compensatie-impu„3 148, zodat de samengestelde impuls ; 'een primaire impulscomponent 150 hn een eerste hoogfrequente fase heeft;1, .gevolgd door een secundaire impulicomponent 151 van tegengestelde hoogfrequente fase. Op deze wijze worjlt het resonantiebekrachtigende effect ; van de eerste impulskomponent 14%als opgeteld bij de primaire .impuls j ƒ 149 juist gecompenseerd of opgehi'/en door het resonantiebekrachtigende j
i
effect van de secundaire impuls |51. Verder gaan de stijgtijden en daaltijden van de primaire impuls 150 gepaaid met gelijke stijgtijden en daaltijden van de tegengestelde fase in de secundaire impuls 151, zodat de eindige stijgtijden en daaltijden van de primaire impulskomponent worden gecompenseerd. In dat geval is he: gekombineerde resonantie bekrachtigende effekt van de samengestelde impuls 151 uit fig. 3c nauwkeurig gelijk aan dat van de gewenste bekrachtigging£|.mpuls 149 van de golfvorm uit fig. 3a, maar nu zijn de eindige stijgtijden'en daaltijden nauwkeurig bepaald, dat wil zeggen de ongewenste resonastieberkachtigende effekten daarvan worden opgeheven. De typerende sameiVjestelde impuls 152 volgens de golfvorm 3e wordt met een sturing 3d van de hoogfrequente faseverschuiving toegevoerd aan de faseomzettrap 16. De fateverschuiving aangegeven bij 153 in de golfvorm 3d treedt
op na de daaltijd van de primaire komponent 150
van de samengestelde 152. Bij een typerend voorbeeld hebben Ie opgetelde compenserende impulskomponenten 148 en 151 van de golEvorm 3b elklirnpulsduren liggende in het bereik van ongeveer 2 ps, met een tijd tussen de compensatie impulsen die ligt tussen 0 ps en 2 ps. De compensatie impulsen 148 en 151 van de golfvorm 3b behoeven niet op te treden aan de abhterflank van de. resonantiebekrachtigde komponent 149, maar kunnen evengoed voor de gewenste resonantiebekrachtigingsimpuls 149 optreden. Verder kan de vertraging tussen de beide compensatie- impulsen 148 en 151 van de golfvorm 3b worden teruggebracht tot 0, > zodat de amplitude van de samengestelde impuls niet behoeft te veranderen tussen de primaire komponent 150 en de secundaire komponent 151. Het is slechts noodzakelijk dat een faseverschuiving van 180° optreedt tussen de beide compensatie impulsen voor de zendspoel, waarbij een fasespoel van 180° tijdens de bekrachtiging van de afgestemde spoel noodzakelijker-
77 0 6 7 4 0
-13
wijs een daling veroorzaakt van de.iampllitude, gevolgd door een stijging van de amplitude van de hoogfrequente bekrachtiging in de afgestemde spoel» Een typerend resonantiespectrum vïrkregen van hetzelfde monsters dat is gebruikt voor het opwekken van jen spectrum, maar onder gebruikmaking van de compenserende samengestc-.de impuls 152 uit fig. 3e, is afgebeeld in fig. 6. Men merke op est de ongewenste zijbanden behorende bij afzonderlijke resonantielijnen van het spectrum zijn verdwenen, waardoor het verkregen resonantiespectrum sterk is vereenvoudigd ten opzichte van het spectrum volgens fig. 5. Er bestaan tenminste 2 werkwijzen raarmee de compenserende impulsen van de golfvorm 3b kunnen worden opgeteld bij de gewenste bekrachtigingsgolfvorm 3a ter verkrijging van de samengestelde impulsgolfvorm 3e. Volgens een eerste werkwijze wordt de ti jddornein-functie van de golfvorm 3b eenvoudig opgeteld bij elk der impulsduur-tijddomeinkomponenten uit tabel II, die kan worden afgelezen ait de tabel voor het verkrijgen van het impulsduur-modulatiesignaal f (t) in het tijddomein dat wordt toegevoerd aan de modulator 13. Verder wordt een bijbehorende fasevarschuivingskomponent 153 toegevoerd aan de faseomkeertrap 16. In plaats van de compensatie impulsen van de golfvorm 3b op te nemen in de gegevenstabel volgens tabel II, kunnen de gegevens uit tabel II rechtstreeks worden uitgelezen en via schakelaars 156 en 157 worden geschakeld naar een corrigerende impulsvorm 158 voor het optellen van de vaste compensatie impulsen van de golfvorm 3b bij elk van de impulsen 149. Zoals afgebeeld in de figuren 4 en 9 wekt het corrigerende impulsvormcircuit 158 de samengestelde impuls 152 van de golfvorm 3e op door de primaire bekrachtigingspuls 149 te ontvangen van de uitgang van het rekentuig 15 en tevens het fase-uitgangssignaal te ontvangen uit een rekentuig 15. Het met het rekentuig opgewekte uitgangssignaal 149 is afgebeeld »
in de goflvorm 4a en wordt via de schakelaar 156 toegevoerd aan het impulsvormingscircuit 158. De impulsvormer 158 bevat een eerste monostaMele multivibrator 171 die als roaktlo op de achterflank van het ingangssignaal 149 een eerste impulssignaal 148 volgens de golfvorm 4b opwekt. De impuls 148 heeft een vaste vooraf bepaalde impulsduur h t over&en~ k'y.wii'i'- mat alk fï-r k'M(,ft-f„ili^jtiq,uIvi, ï-u-n tw-j'Ati monostabiftlfj
mnltivihrntor
]',<>, t--n V,l 172 y/ftJtt
uil
flp
T
r^nirt ia op >fa
uitgangsimpuls 148 van de eerste multivibrator 171 een tweede impuls 171
[met een impulsduur !
volgens golfvori|i?c, De impulsduur
161 bedraagt bij voorkeur de helft van ck impulsduur
van de impuls van elk der beide :
, compensatie impulsen 148 en 151 uit de ge'.fvorm 3b,
De impuls 161 wordt toegevoerd aa*'- sèn derde monostabiele multivibrator 173 voor het opwekken aan de ïand van de achterflank van de : ' , i i impuls 161 van een tweede korte impuls'362 met een duur ét^ volgens de j golfvorm 4d, welke impulsduur
bij v,:orkeur gelijk wordt gekozen
•
aan de impulsduur 6t„ van de impuls 16?/, Een verdere monostabiele mu lti-l vibrator 174 wekt als de reaktie op deiimpuls 162 aan de achterflank ; r daarvan de tweede compensatie impuls lM volgens de golfvorm 3b en j 4 i 4e op met een impulsduur gelijk aan dié van de impulsen 148. Het uitgangssignaal van de monostabiele multivibrator 174 dat de impuls 151 levert wordt toegevoerd aan een verdere monosiabiele multivibrator 175 voor het :
opwekken van een vijfde impuls 164 volgens de golfvorm 4f. De impulsduur jJtj. van de impuls 164 is bij voorkeur gelijk aan de impulsduren van de
impulsen 161 en 162. Deze impulsen hebben een duur die bij voorkeur
|
langer is dan de stijgtijd en daaltijd van de hoogfrequente impulsen
!
die worden gebruikt voor het bekrachtigen van de afgestemde zendspoel. J De uitgangsimpulsen 149, 148 en 151 worden in de optelketen 176 opgeteld voor het verkrijgen van de samengestelde impuls 152. De impulsen 162, 151 en 164 worden in de optelketen 177 opgeteld en het uitgangssignaal wordt toegevoerd aan de invertor 178 voor het inverteren van de fase van het fase-stuursignaal 153 ter verkrijging van de golfvorm 3b. Een rekentuigprogramma in machinetaal voor een rekentuig van het type Varian Data Machine 620, overeenkomende met de rekentuig-werkschema1s uit de figuren 7 en 8, voor het programmeren van een rekentuig 15 verloopt als volgt;
7706740
- IS -
PACE oooi 07/19//4 CQPYF,l,Mrtl,ó40#LG,t,«O *. Tl-rt 620F/L SMSY *• SPAC SPAC
•
"
.rpr^^sT T* X^ifvUun J J U iÏ;"'.^, * •/••••
vsRirx -luiriu '
.
'
•
" SPAC
,
"
Ï-
"'
"
SPAC
*
30319-M
*
' - 1 RESEARCH SPECIAL
•
•- • '
'
*
.'
*
M ft R
FOURIER TRANSFORM PRO&RAH
' IFT XL * FOR OPgftATlON OF F , T . CONTROL MODULE WilH XL«100 NMR SP£CTflOH£TS8 - IFT HAD - -- . * FOR OPERATION OF V-435? PULSE UNIT WITH HA-ÏOOO NNR 5RECTRGH£TER IFT SC -*• FOR 'OPERATION OffV-4357 PULSE UNIT WITH HR-220/3QO NMft SP£CTR0O£T£R •
* *
.
»
.
IFT — F * ,WR1T7£N FOR VpM-52Or COMPUTED IF 1" L * WRITTEN FOR "Y0M-&20L COMPUTER . * • 15K MEMORY * HARDWARE MUL/OIV * is s i t wemo l e n g t h *
•
* 'k
REQUIRES. "
* '
620-974 61>0«»51
...
.
10 SIT, M BIT QAC J3 flir,; ]|8 CHAN A06
*
* p r o g r a m w r i t t e n b h » r R h s e a k c h d e p t OF VaKIAN a n a l y t i c a l * INSTRUMENT DIVISION PALQ ALTO, C A U ' ' ••••«• * THIS PROGRAM (A5 WE'LL AS ITS INDIVIDUAL PORTIONS) * S3 COPYRIGHTED MATERIAL OF VARIAM ASSOCIATES,
^
.. .
. . . . . .
ÊJEC , * SET AND EQU INSTRUCTIONS FOR CONTROLLING PROGRAM ASSEMBLY *"
b»OV OF s o f t w a r e 1= HAR5.DWARE MUL'/Dly rr.; r mr 16 sm SËT—F eau Vdm 0 2 0 - F COMPUTER 1 VSh EQu A SPECTROMcTcR c o n t r o l 1 X'LT •• EQU ••" TIMING CLOCK CONTROL ""I XLR EQU 1 RECORDED COMTRffL * *
77ÖJ67 4 0
,
. .
*
INDEX REGISTER SPECIFICATION p) "EQU — V " " " " !X ftEG-lpTER™ ECU 2 '15 REDSTER.
0 *
.
- '
.
" **" SYnaOLJC NAMES t o be used w i t s t h e COMPOUND CONDITIONAL " * INSTRUCTIONS J I F , J r t l F , JIFfi, ANO XIF AM E O U 0 0 0 4 A REG NEGAf IVE 1 ~AP ~~eou 0002 ~~-A"ReGPosrrrvE"r— — AZ EQU ' 0010 " A REÜ ZERO ' 82 EOU 0020 -8 REG 2ER0 ~U EOU *"—0040 " ' X REG'ZERO"" SJ EQU 0100 SENSE SW 1 •SET S2 EOU 0200 __ __ SENSE SW 2 SET __ ~S3 EOU 0 4 0 0 ' " '. SENSE'SW 3 SET* . OJ EQU ' OOOi OFUQ SET * . " . " * "SYMBOLIC "MAMSS TO 8E"USS0 WITH THE REGISTER CHAMGE" * PSUEOO INSTRUCTIONS M£RGE, CO«PL,JNCR,QECR,ZERO AS EOU OOtO A SOURCE REG _ ' "83' EOU "0020""' "~8"SQUF?C£ REG " XS ECU 0040 X SOURCE REG AO _ EOU 0001 • A DESTINATION 3£G "BO" "EOU 0002 "6 PSSTINATION REG " " " " XD EOU 0004 < X DESTINATION REG _QR EQU Q4Q0 _ EXSCUTÊ IFF OFLO SET * * " "* "st V* * *' * * * ""* ""'** " *
*
AIO "LOAO
£0U
036000
EOW""
0375^0
DUnP EOU TAPE EOU "OTPr EOU PLOR ' EOU FRST eou "L~sr EQU EXEC EOU P_ EQU " *
037454 037745 037736 037552 037753 0377 34 037755 0400 _
"
"
PROGRAM EDIT ROUTINE , ~ — " SHIFT $ PLACES LEFT_
""
'
" "
EJEC * jREC0R0ER_AN0 SCOPE JJEVICE COOES _ __ *sSr~ ' " " "" " " """"* """" OFF EQU OIOO' OAC EOU 05; - OAC ADDRESS RECO EQU 0157"" "" RECORDER DAC ' " SwF.P EQU 057 SCOPE SW&EP DAC orpg eou o5o wuRf) Rccisres aoorbss E F R Cï EC)'hx">'i ""* fcXTfe'/'jui %U? rMMKMY LUI«
ton
020/
RtCOl'ULn
L i f t
RLin
EQU
0357
fftCüHücR
R/fiM LIMIT
77 0 6 7 4 0
UfrtfT
17 -
•
-
* *
VJ- PULSE CONTROL cQU LHSW 050 EOU I. POF 050 — PUTR"—Ecu——' 0457 PSEN EGU 0150 0250 tölJ — PLON" EQU 0557 PL OF EqO 07 57 fff ON EOU 0457 — R F Q P - — £qu— " 0557 0557 F78X ÊQÜ 2 SPAC *
—
A
—*
MOOULÉ HI/LO n o LOCK ?WITCH LOCAL PULSh wFK - p u L S t tkic.AIH spectrum ph\se f u l a r i t y LOCK SENSE .INE
ma-ioo
XL-100 ••
sense
-PULSh UN CirtP CÜN'f Cp j - ACQ -TIKE PULSc OFF TUKN Ft F ON :0MP PULSE MOTH -TiJrtN HF"UFi;— —• — — FT PULSE Ö1X' ÜN/ÖFF •
VARXAN'~ADC~DEVICE~COOES
*
'HÜXC —MUXff-
mjxs T1MR VADC~ SAD C ' cSSA DESA
EG U EOU-
061 0251
MULTXPLIERADORcSS FDR CHANNEL CONTROL
-MULTi;PL£)eEr--iN-RANDO« nOOE MULTIPLEX^! in SEQUEHTIAL MODE j
Ü1Ö1
EQU EQU EQÜ EöU EQU EOU
OöO Oöü
016Ö 0260 0350—
EJEC
"VARUM "FftSr 'ADC AQQRESS ' ~ START AOC *QR PROGRAM CQlsiTfiGL enable exr'start f o r aoc —t'D1SA0LE'EXTERNAL START'FOR ADC""""
'*
*
-*
5PECTROM£TEff~OEVIC£"CGDES
spoil
equ
02 s o
-HOMO E<3U"
spoil
0350
—
*
- "
noMOf^'Niery
RESTORE BOmIGE.NIET 'Y
SPAC * DIGITAL INPUT / OUTPUT REGISTERS ARE USED FOR RECOROEf?,
-*"CDtiPUTE«"C0MTR0L~0F-pUL5c UNIT AND CS«PUT-Ef?"S£t.£CTION OF'TlLTtRS, &
A
FUNCTION
* ft ü— * *
REG, EXT, RIGHT 00 REG, EXT. LEFT 01 K E G £ f1 C X A X X S)~ REG, REM, CY AXIS) 03 KEG, PEN DOWN . 04
ï: * *
COMP, ACQ, TlHE
ft
250 HZ FILtCR 500~HZ" FILTER 1000 «Z f IL 1"£R 2500 HZ FILTfctf
* *
CO»P,
61T frKJMÖEft
05
PULSE WIDTH
05"
5P ARE
770 674 0
03"—
•
09 10~ 11 12
02 ~ :
18 *
50qq hz fiutfc 10000 HI FLUTTV '' H EXT, FILTEt , 15 . ^kk % A ' "£j£C -* N M R FTTONEA TRANSFORM PROGRAM
A A A *
'ORG'™ NOP NOP "CALL" CALL JMP
60MO "A"
~ GONI
HLT
SHIFT SCOPE SPOT TO LEFT
.» «a. mtr » Mui» » -WW s*
CLEARS ALL R E C H T E R S ÉNfR NOP NOP ZERO" HLT LDX LOA CALL DXR JXZ J NP J«P , ORG" HLT HLT JMP EJEC
GONI
TELA F MSGU XOFF
•
HALT
'
WAIT FOR TTY TO COFIE TO SPEND
'
TTY NOT AT SPEED RÉSTART POWER RESTART
GOHO 040
;
"HL7 + 1"
*
H M R
*
COMPUTES
f I
D"£10 FS •WAIT
AND HFALT3
DATA TASLS FOURIER TRANSFORM PROGRAM
"
¥
FT COPYRIGHT - VARIAN ASSOCIATES - 19/0 *
BSS £QU DATA
TEMP T H0HT~
50 TEMP' ••8
ft *
0
DATA DATA DATA DATA DATA DATA" DATA DATA 6
7
4
0
1 2 1
4 5
6
7 B
STORAGE
SPOLL'HDNO TIMING
AR1 THHETIC
A ONE TWQ 'THRÊ FOUR FIVE SIX SbVN EJGH 7 7
TEMPORARY HORKING
*"••
CONSTANTS
'DEC M A L UtClriAL OtCIHAL DECIMAL DECIMAL . DECIMAL' DECIMAL DtClMAL
ONE TWO 1HREE FOUR FIVE SIX SEVEN EIGHT
"'"
•
NINE f)ElO DEll
— Oci2 DEI3 DE14
JDATA OA FA
9 10
OAT A
11
DATA-
12"""" 13 H
DATA
&A1A
-DC-l5"~-l}ArA
Del 6 0E20 "DE32" 0£64
OFCCRAT, MIME OECIftAL TÈN
0A1A 0ATA
-
DECIMAL
H
OECIfAU
'
' * THIRTEEN DEC1P3VL FOURTEEN QtClf.il.
15
DECIfAL
16 20
OECI.-AL SIXTEEN DECXML TWENTY
OAT A'
32
DATA
64
:
flfeCIKf
FlFTEê'.V
L -32' -.
OtCIHAL
"
64
«HUN DATA ' ~ioo . MINUS DECIMAL ONE HUNDREO - Exoa DATA 512 Z**9 * "" EX09 DATA 1024 2**10 EX 10 DATA 204 A 2**11 ~EX11 "DATA 4095 2**12 ' EX12 ÜATA S I 92 2**13 EX 14 DATA O4QOÜ0 K -THOU DATA 1000 ONE THOUSAND " DECIMAL TTFQK DATA 4095,4097 'HALF DATA TABLE FURK OATA 8192 TOTAL DATA TABLE "SIGN OATA 0) 00000 SIGN S I T FS DATA 077777 PUS, F . 5 , PIEE DATA 7 " ' VALUE UF P I FOR X5IK/XCOS ""PIPH—DATA 0622' VALUE OF ? R FOR COEE PARZ OATA 063.14 OCTAL TENTH FOR OECI STOP OATA 17.91 . "-HRPS DATA—:—02222 " HOURS" PER "S"EC0NO"SCALEÖ * ASRA ASLA LASL USR A 006 SC«D ADDX SU8X 'ASUB: ASCQ ASCP tlEGS DING . RETU. F5S ~* R63T VLIT FSEQ FMSK SLpj3
ASRA ASLA L"ASL LASR ADO A OB AOO sua SU3 DATA OATA DATA DATA DATA OATA OAT A DATA DATA DATA OATA
77 P87 40
OPERATING CONSTANTS 0 0
SHIFT COWHAND SHIFT CüriMAWO LONG-ARITH SHIFT' LEFI LONG-ARITH SHIFT RIGHT
:
SIX FOUR'"*-: SCOPE canitAND" 0,1 SET ACQUISITION TO CONVENTIONAL Of! SET ACOUJiölTIGN TO ALTERNAT ONE-'l VSUB CaNTROL'"FOR- PMAR .02SO ASCII Z£KO 0256 ASCII DECIMAL POINT . •' " 0255~ ASCI I" HINUS ' SIGN " 02Q7 ASCII SEl. 0215 ASCII'RETURN ' 0323 ASCIf . 037? ASCII RüÖüuT LUX LITTLE T ApOffcSSES 12S01,625l,3l2ff, 1251, 52Q, 313, 0 F l L T E — FRECUENCIE 017700Q FILTER MASK oi^aua
- 20
'
F
'
«0&50 DATA GLI TW . RECUAOER CALIBRATION DATA 052000 IFF F GOTO "•"CC 'AI . JT FT PHASE C.UHPENSATIQN COEGREES/HEKTZ) ALFA O20 DATA I FT" ' ' SC AA GOTO 8B GOTO HA J FT ALFA ' • DATA ' PHASE COMPENSATION C D E G R E E S / H E R T Z J 030 CONT AA ALFA"" OATA ' PHASE"COHPEWSATION"CDEGRE£S/HE«TZ) "4 BÖ CONT CC IFF L F GOTO DO JF T XL PHASE COMPENSATION (UEGREÊS/HF.RTZ) CAT A 022 ALFA • SC IF! AA GOTO 68 GOTO I FT HA 'PHASE COMPENSATION COEGREES/HERTZ) ALFA "DATA 030 * CONT AA 04 ~ ~'PHAS£~CÜTTPI:NSATRON'"'(OEGREES/HERT2) ALFA OA IA EIB CONT DO CONT ÏF1 xLT TIMER CLOCK F TIM OATA 072,060000 HAT IFT TIMER-CLOCK" DATA 017/020260" T N H 1FT F TSEC 0450QG OATA TENTH SECOND TIMING IFT L TENTH STCOM TIMING 04363/ TSEC DATA IFT F 'THT54 ~ 0ATA i>0 HXLLlStCUND TIMING —" ""022403' IF R L DATA 021711 50 MILLISECOND TLHLRTG THTH I FT ~ F " NSTM MI L I EEC TIMER WORD DATA 419 1FT L ~ M I L Ï T F I T TLRTGR'MORO • ™ ~ DATA" 02 5 2 " " * " HTWD DATA HO HO SPOIL TIMING VFQKO -a SLEW 0200 OATA SLEWING SPEEO SL'KP DATA 030 SLOW PLU F1 ING WÜKD * ADDRESSES * 010000 R 1 RST AHDRCSS 0 AT A T AULFC TABU " DATA FHD C20000 DATA TABLE CENTER 030000 FIRST ADDRESS 51K/CUS 1 ABLE TA01 DATA GLCH RCAL
7 7
0
6
7
4
0
•
•
•
•
~
21
TAB2 *
DATA
032000.
AOORÊS5 RüüT TABLE
FLAGS
*
•
'F m r
-
— *
~
Clfl LOG nurr CT1P T1FL -WTDNHTFL P.MFL -DKFLBSFL AfJSF "Abr L~ BCOF HILO -MSFLUTÏF
DATA DATA ""DATADATA UATA -DATADATA OATA -DATADAlA OATA "DATADATA DATA "DATADATA EJEC.
PARAMETER FLAG. B E F M E FT=0, AFTER FTsl -LNTRJLQCK FLAG ——~ CUR! ENT T 1 FLAG, TEE IJNf- FLAG -WT F MCTION ON/OFF-FL:AG~ SENJ> .-OfRESal PHAi: SENSE FLAG "LST, 2MQ DRIFT . 3RD >.ND UP DRIFT
0 Q 0 0 "0" 0 0 "0" 0 0 ~0~ 3 0
*0'"s' ON"
A85CI.UTÊ INTENSITY PLOT FLA "AÖ5D{ tJ T f:"V Al-UE' PLOT" F L AG 8CDT FLAG =0 FOR 3 PLACE LO/H; FIELD LOCK O= LO, I . HI. "MILL.SECOND "FLAG DIFF:RENTIAL PLOT MODE i=C!N
-Q~
1
"VARIABLES'" BSPW DATA "SPto'D" "DATACSPX DATA PSPvl OATA "0 ATA" "RSpW DATA CACT DATA "ACTM- "DATA" PWAF .DATA DATA PWAT •pKBF~—OATA" PWBT DATA 8S'S UTT —TA¥E~ -DATADATA EXPC DATA NEXP "FILP" —DATA" DATA CPTS DATA NPTS "CNPL- "DATA" DATA liPUj. DATA VP';!, : w I 'A, I) A f /' lil:ti(,DA f A DA I A PhAl "DATA" "PHAF" DATA SCAL OATA SVSC 7 7
0
6 7
4
0
1024 —1024" 1000 1000 -"10241000 10 ~io— 0 0
_Q
0 10 ~o—— 0 0 2000 2000 "10 — 10 0 ""20 ' 0 0 ' 0
20 20
"
6INAfif SPECTRAL WIDTH — SPEC'RAL WIDTH CURRENT SPECTRAL WIDTH PRIN ED .SPECTRAL WIDTH —8 Y ' REAL SPECTRAL "WIDTH REAL SPECTRAL WIDTH CORK;NT A-COUlSlTinp» ""ACO TIME -SECONDS ANP T E N T H S — PULSE-: 1 IN NICROSECONDS PULSE 1 TItfER WORD —PULSE "2" I ^'MICROSECONDS PULSE 2 T W E R WORD LITTLE T'S — AVtRAGE LITTLE'TEES EXPERIMENT COUNTEK NUMBER OF EXPERIMENTS — FILTER POSITION CURRENT POINTS DATA POINTS TO ACCUMULATE ""CUKrt£NT NUMOLK PULSES NO (Jf' PULSES Pi/LSf:;> Rf-HAJnlHG wf j t.H I t-itnr. ( i nil 11 Mr (Uni4 UJ t Hdiitihi !/ i>ih hfi!,r. •FINAL PHASE AG KtAO FROtt'KN U~ VERTICAL SCALE FACTÖK SAVED V£RT SCALE
OATA ÏMTEGKA&SCALE FACTOR IMSC 3 00 THRS '•IIIBESHQT: FOR PLOT PRINT 0 0 OATA 0 DATA 0 START OROALA FDR PLOT HR5T Q 'SAVED'st .RT'PGR PLOT " " 5 V 5 T " ""DATA HREN DATA 4 096 EWO OF D,TA FOR PLOT SAVED EFU FOR PLOT SVEN BATA 4096 "PPh'Y OA R A 10 MANUAL IORI20NTAL EXPANSION PPR'Z DATA 10 AUTOTFA'F C EXPANSION STPC OATA • 0 STEP COT'WTER "SSTP DATA 0 'SCALED" £TEPS XOFS DATA 0 YUFS FIATA 0 "XSTP OA T A """0 "X" OFFSET' STEPS: '— GFFS Y OFFSET • DATA 0FAST PLOTTING VQRO _ _ _ _ _ OATA FSTP 0400 R 'CURRENT" TL WE' " "CTLRI DATA 03530 : OATA PAT A ACÖÜ TTWER WORO O\ VTIFT PULSE OETAY TENTH SECOND DATA PDMD 0 OATA SHCT 0 SMIFT_CCMTEFT """ ~ OATA CRTFP 0 CURRENT HAMP EJEC •k CLE'R" CLEARS" 0'ATA*"T A(-LE","PRI NY3~TFLF A C T T P V~TÏME~"ANÜ * CALLS PARAMETER LIST •
*
*'*~C&P'YKIGH"T ^ V AR I AN""ASSOCIATES' ORG 0I00Ü
CLER
EHTR 'S'TA 5TA ' STA CALL
;
* *
70'
CLFL" VPUL TEMP RSGO
"""PAh'Aflfe* TJ r FL'AG"
CALCULATE TOTAL 1EXP TIKE LDA ADO TAB LOX XXZ JX
CLED
7
7
0
6
7
ACTH PDWD
PULSE OELAY I N TENTH SECOND
T1FL VA RL CLE!) 1 TAVE
OOUILLE AT *P0 L I T T L E TEE'S
NEXP CLEC
NUMBER OF EXPERIMENTS
HHPS
HOURS PER TRANSIENT MOVE TO S REG
CLE C TFPUL" 8 CLEE
4
0
RESTORE SCALE
• 23
JUF CALU CALL STA" INR INR RETU SPAC
CLEG
CUB PTEN PARA PARA"—* CLrL LOG CODE •
-
OVER 3 , 2 K HOURS PRINT HA,<S3 RESET EXIT SET PA&A1 FLAG SHUT OFF P TRU '.
*
—*-TKANSFER-YALUE-TQ-8-REG
~"Nf -SHIFTS"II»-TE«P
:
*
CLEC
ENTR . JAZ* LASR INR
* cue J TEfiP
*
— :
*— '
j h p — : — * -4 *
——"
:
;
:
•
* RESCALE ACCORDING TO NUMBER IN T E W —*-QF"S£T~IF-VALU£'"TOO' LARGE
!
" —
*
CLEE
ENTR CALL LOX JXZ
CLEC— TEMP CLEF 1
DXR
CLEF
*?AiU *
CL£AR"A~REG
. XAN J«P .LSR8 RETU*
CGQJ' *-6 1 CLEE
CLEAR 5 REG SIGN BIT
ROUTINE PRINTS LIST OF PARAMETERS CONTROLING OP RATION OF CGT1PU
—**~COPYR I GHT~« — VAR I AN ""ASSOCIATES"" - -1 y 7 O 'PARA OAT A CODE ETFLRY CALL ' CRLF CALL TELA,KSAX SPECTRAL-WIDTH LOA PSPH CALL 5DTT GET FREO, PRINT
__
SU3I JAZ CALL CALL LOA CALL CALL LDA
0240 PARJ CRLF TÊLA/NSAC ACTH PT£M CRLF POWO
CHECK
CALL LOA
TELA,HSBR PDfc'D
PUi.SE DELAY GET VALlic
7 7
0
6
7
4
0
SPACc 3AR 00 PLOV PARAMETERS •— ACQ TINE GET TENTH SECONDS
VALUE
~
-
CALL CAUL IDA PARM DA^ JA2 CALL PARD~ LI) A JAZ CALL PARC" CALL CALL CALL LDA'~ CALL CALL LDA LOX J IF JMP PARH LDX v)XZ CALL JHP CALL LOA CALL PARC CALL IFF" GOTO LOX "JXZ~ AA IFF GOTO NOP SEN Bb CONT CALL
PARQ T£LA,HSA0 " PVIBF PARC ' BOTT CRLF ' " PARO TELA,MSAW
'
PULSE W«TRT GET'VADE "AND CHECK" FLAG
~ ' '
•
GET NO, TRANS, DATA LENGTH
80TT CRLF CLFL GET WT f UNC FLAG Y/T0N AZ+X2,*+4 PARE NO* NOT F'RINT "WT" FUNC PRINT V-T F UNC WTFL *+7 TELA» HSAJ • RESOLUTION ENHANCE * +5 TELA > MSAI ' " GET TEW'^H ""SECONDS WTSC ' PTEN CH'LF XL AA GET FLAG HILO
• •
-
•' '
9'
*
+ /
•
*
HA
B8 LHSVF,**; TELAV'HSÖÖ
*+5
CALL LOX
TELA TMS0C IRTTF
jy*
PARJ,
CALL CALL LOA CALL CALL CALL LOA CAUL CALL CALL
TELA,HSAB TEUA'F M5AL
6
-1
•
JflP
0
• (
i
•
77
-
PTEN CFTLF TLFL
•
'PARJ
24
•
H I KITLD LUüK LO FIELD LOCK b t i rufia
,
INTERLOCK "VERT SCALE
SCAL 8DTT CRLF TELA,MS3L I NSC "' 8 Ö T T CRLF
INTEGRAL VALUE
BÊGÏN FFTÊQ 7
4
0
•
-
-
LDA CALL CALL
MR5T PARI G£T FR£Q TELA,P1SAfJ . ........ END . FREO
HftEN
CALL CALL LDA JSS2 LOA CALL CALL LDA JA2 CALL CALL PA RO LOA JA2 CALL CALL PARS . LDA (TAKL CALL PARN LDA ORA JAZ CALL «ORE — CALX PARL
25.:-
PARI TELA,fl58J PPRZ ~ ' *+3 RPRY PTEN CRLF A8FL PARÜ TELA/HSÖZ CRLF DRFL PARS T£LA,HSSW CRLF 8SFL F?S5A,«SCD CRLF A6SF T1FL PARL' T£LA,MSSP
GET FR5Q ; EXPANSE' —'
:
;
ABSOLUTE VALUE G £ T"FL~A.'
:
—
ÖASEFHT GET FLAG
A&S INT
c r l F
CALL • RETu*
TEUAfHSSO PARA
FOUR LINE FEEDS
* TEE ON£ PARAMETERS *
FARO
STA TEMP COUNTER LOXI LITT ' SIX TEMP+1 POINTER -CAL:IR J TELA"; MSCB LDX HSFL CT£T FLAG JX2 PARY 00 LT NOT LM — CALL——TELAYMSDO"—«MIL I SEC"» -» CALL CRLF -*$\RW LOA* T+I * GET NÜH8ÊR 4 BDTT PRINT MILISECOMDS CAL[ JRTP PARX CONTLTFHE PARY CALL TELA,FLSOC 'SEC = ' PARR
STA LDA * CALL -IMR I A1/?
PAFTX
7
7
0
6
BC0F TENP+1 PTEN TEMP TEMP + I
7
4
0
SET PO TO 3 PLACE PRINT L I T T L £ " T E £
VALUES
: LOA 7£iP A . P i- , ft >:.-m sos NEXP PARV J MP """""" " CALL'""" " 'reuA,WSCC '//•'COMMA' 'GET FLAG LOX FLSFL J OXR . *•«* > w -"•I J x 2"" PARW" 1 PARR JHP / CRLF CALL , 1 " " T E L A , MSBU" "PULSE" N"0'"t' CALL PWAF LDA &DTT CALL CALL"™* """CRLF " TELA, Msav p. PULSE m s CALL >.V PARU jnp
PARV
* * *
PARI CALCULATES PLOT P$£OUSNCY
"PARI
*ENTR STA CALL LDA SU9 LASR FFUL niv 51)8
| TEJLP+12 TELA FMSCH TWOK " T6F1P + L 2 IS ""SPWO"""" ""*" TWO.K EXOE """PARK""
*
i
T T~ I F, M rf 1 1
HERTZ » • 1
*****r r-1111 n
"* " "
"
"
'
** *
•
— . . .
— •
-
•••••w" 11 • •
«»
» >«*»
•
_
~
——
.. — 'ENTR TRANSIENTS COMPLETED TELA,MSA£ CALL LOX TIN: LOA 'NPUL' JX2 A SLA , 1 VPUL' 'SUB' JK2' ASRA 1 ' "-PRINT* TRANSIENTS "80IT" CALL RETU* PARD EJEC "GOTO"ROUTIN£ ENTERS EITHER ACCUTT OR BLOCK"AVERAGE
"PA'R'O"
^ COPYRIGHT ~ VARIAH- ASSOCIATES -
7 7
" " 1,1,11
ÏBR REMAINDER OVER 1 / 2 TSA ADO "~PSPW" ** ' SUB SPWO PRINT FREQUENCY 80TT CALL " — — CALL ~ "" TEL4/NS8G'- " S P A C E • PARI RETU*
PARrt
*
"
••-11 "•" •
'
0 6
1
40
1970
—
-
27
*
GOTO
ENTR RSGO CALL ""CALL""" "91 ST LOA TIFL OAF? ~TOGC JA2 8SAC CALL JMP CRT
DATA LENGTH"TEST
ACCUTF.LATE
« *
GOTO FOR TÊE ONE
*
"TOGO
TOGA TOGO
LDXI" 5TX STA STA - " STA CALL, JNR— INR LOA SUB" JM* JAP L0A~ AOQ STA LOA— APD STA "J H P —
-•LITTVLIT XSTP "OFFS" EXPC ATOM ~ V L I T'~" EXPC EXPC ~^EXP"~ GOTO
I N I T I A L I Z E LITTLC TTE ADORE X OFF.JET ST£P3 TOTAL. -Y OFFÖET"TOTAL EXPERIMENT COUNTER
cooc' X " OFFSET""""*
'X0FSX5TP XS TP ~YQRS"~ OFFS OFFS "TOGA ~
* *
.
Y "OFFSET
_
ATQM'"'A*(JT0M A TIC ALL Y "CALLS ACCUVRIELCHT,' FAUR"TRANS> —ND-PLÜT I N S£ * I F SSI UP A I F F SSI OOV/N GOES TO SCOPE * COPYRIGHT - VARI AN ASSOCIATES - 1970 AT OK ENTR ~CALL~ -RSGO" DATA LENGTH TEST CALL DTST CALL ACCUMULATE &SAC "LOX — "WTON' GET WT FUNCTL"AG' JXZH V.'EIGHT WTFU Q ALL FTRU "jsifr- 'PLOT' ATOM JSSL* SCPE GO TO SCOPE CALL DATA LENGTH TEST
*
7 7
0
6
7
4
Q
OTST
•
8N1R LGS rzA " MUL, ' 01V % Oü« " ASRO JflZ* JHP
-
gPWp
S P E C I A L vial-H
CACT' FIVE
10**TS$W" * I
~ ••
XUX
*
DY&t CO DC
*
— i.
«••*»•«.«
•.»
•
* ^f m , "«.W »*»«>'* mil • 1 *.« •*••»<•»•)*« If*
* RESu RE-ENTERS CONY , ACCUM, / ATOM,, OR 'T-ONE EXP, 4
*"""Cö P YRIG H T 'RESU ENTR SEM LOA L03
"VARIAN ASSOCIAT.ES*I ! /I?O i FTSX/CQDC LOG VPUL RESA ""NSC T1FL
JAZ RBSA L08 OBR " JB2 JMP. EJEC DIGITIZATION* * USES HACKLEY
PULSE flOX OFF !
PULSES FFIMALNLNG
/
RO 9SAf j
—
'4
TOGO COOC
j
RISDUCING ACCUMULATION VAOC - J2SITS PLUij SIGN I VARIAN ASSOCIATES H'i'97ö
*
* • "
•
V 'COPYRJGHT* BSAC ENT R TZA ST A" " L O G "" LOX EX 1 2 TA8L LOB CALL ~ " C L J T " RWBO CALL I MR CLFL . LOB ' ~ NPOL " OTCR BS + AO JAN •CODC
""
•T
I N I T ) A L 12£ LOG
REHIFILTERS
GET ERRO& MES t
*
* SET TO ALTERNATE FOR T-i *
-
" LDA LOX JX2 LQX
AODX UTlF *+? TIFL" -
JXZ ASLÖ
"LDA STA 570 77 0 6 7
40
SET 'TO CONVENTIONAL'— DO OLD t \ , - •••*
*+4 I
OOU3LE NPUL
SUSX SHlF+1 VPUL
SET TO ALTERNATE INITIALIZE'COUNTS*
—
»t
-
2L-
* DT£Rttitf£ SHIFT *
7ZA " MOR
ASR8 01 IAR J&Z — - ENUF JMP FFQS STA SHCT ENUF I ADD"" — ASLA' STA RM AX LÜA SHCT - SU 3 ™ TWO JAP . *+3 TZA ADD' "ASRA'" STA SHIP * CALCULATE MAX RAMP LDA
SHIFT COUNTER
ADJUST F O R - A O C -
ONE GENGRATE RAMP MAXIMUM I N I T I A L I Z E CURRENT RAMP
NOP
RMAX
"STA"
cr
*
SPELLED BACKWARDS) * GENERATE PMAR CRAUP V LDA NSC SHCT ADO ASUS •VSUB —STA LDA CRHP Su8 ADJUST FDR ADC ONE STA 'CRHP B I T FLIPPER 8TFL CALL ADJUST FOR AOC ASRA 2 ' 6 1'A — T E M P O S ' " — pilAR • MUXS SET TO SEQUENTIAL HDOE ' £XC AO INCH OAR «uxc- SELECT"MUX CHANNEL""!" IFF XL AA GOT 0 LPOF f *+5 OfclN LDA • DE32 SET SIT 5 GWRQ LOCAL PULSES OFF CALL HA IFF A"A ftB SOTO OOP r NDP CÖNÏ SS GET FUAG IftiTF LDX DO NOT TEST IHTERLOCK "*+4 ~ JXZ SEN TEST INTER LUCK INTH,fcOFA /
7 7
0
6
7
4
0
ffi •
-
30
~
,
* GET TRANSIENT RESPONST f
""a
°
R
1
•
.
LQA JA2 LDA' JAZ LOA
T1FL PU2Z PWAF COOC-S PV8F —CCDCJaZ LDA TTSFL JA'Z __ PU22
—
LDFL* QIV T3A AOO TAX CALL INCH STA LOS J87, LD3 J02 LDA ANA
PU22
•
L08 PBR -
J I R
JAZ CIA S'US JAZ LDA CALL LOA EXC DAR JAP NOP exc LOA OAR XAP LDX SIX LDX'a STX
PU20
:
PWAS
—
JANM
7
7
0
6
7
4
0
.
VL1T MHUN " PDWO SECT' " AD T+6 _ RJFL "" PU2 UT1F PU20 VPUL ONR MSPL
"
. • „ ' i'v * - "" ' "** • .! " DO FORTLAT PULSE DELAY ' "• ' """"" — PULSE ONE ZERO
PU.SE~lW7.ERCr_ • » • • • SKIP ADJ. I F L T__
;
"
U/FTUE M CÊWCRT TO TENTH SECOND " " " " . • . -
""
__
PREVENT HANG UP ON LJF^TIMEF? ! NORMAL EXIT FÖR OLO' T t , "ALWAYS DO Pl" FIRST i •'' •.
*
.
A2 + B2/PVAS -SPOIL'HOMO I> 00 PULSE W ' PU2 . L T , DON'T SPOIL HOMO. DO PULSE ItZ L RETU*"' — RETURN! TO "SCOPE" **' 10FB TTY EXIT 0654 SET B I T 6 QWRD USE COMPUTER CONTROL"FOR T~ 1 PWAT PULSE A I FOR T - L RFON PW' TIMER " »<*i ' • • ' FINE TIMER • ' RFOF' MSPL GET FLAG ~'Z1 BAO" — HT«0 KOMT VLIT T +6 SCCT
SPOIL HQMOGENI&TY ' ' SET HOMO SPOIL TIMER LITTLE T SAVE WORD /FOR MTLTSEC 00 S£C TIMJSC
.
-
-
31
-
*
* ADO NOISE TO PULSE I N H A A L
;
IS
PÜ2
CIA""" VAÖC" WUXS • EXC LOS VPUL ASLB* 9 LOX T1PL -T * +3 J3Z LDA ""TEHP+12 — •* STA TEMP-M2 ANAI 017777 JXZM" — " W A I T
GET ÖISE RESU' HUX •
* TES/ roff
4 «»
''
TRANSIENT
&4TH
6474 TRANSIENT USE OLD VALUE
"
SE' RANDOM TIMING VÜORD RAIIHJTT; TIMÊR ""
,
TAGN
EXC LDA LD3 EXC
PLON TH TH PWBF PLUF
J8Z'
k;?
DES4 QWRD TLFL"
LOA CALL L'QX "DXR JXZ DAS " SEN JAN JHP~ • LOB
nr
PTL
SEr ÖÏT — ~
>TL PUTR,PUMTAGN -RX MSFL PUM
JB2 ' LOA" —HSTH DAR JAP LDX DXR
•
6
CIHP PULSE WIOTH
Ri* PULSE TRIGGER TR? AGAIN . SKIP I F SECOND T I H-ING
- TLI-ER-WORD" FOR 1 MS. SET," P02 X LOOP
""—T+6
srx
T+6 —HUMT—' HOHT
-INRLDA XA ? -JXZ JTFP
'
- * "
—
T W E UP, ZlOKpu« — ""TIHE UP
•
" "
—
— —
—
'
"
*
*
*
*
" " "
RESTORE HOHOGENIETY
—
*
CONTINUE MILISECOUD T I H I N G LOOP
PU2
&
ZlOK" EXC Z1BAÖ
•' "HOHO
• RESTORE GOOD HGTFGSENIETY SPOIL HOIIOGENLETY
SPOIL
EXC
'
ri
PUM
L ' DA ""
1
CALL F ut, l/X " D/TFF JAP
77 0 6 7 4
0
"OE32 QWRO FML F Fïrütt
"*"*
SET 61T 5 — SWITCHES TO COUP ACQf TIME
f'ifs 5F i:2 ffjP X- J pw n; w> •
-
•
-
•
NOP £KC __ LOX *"" LOH J0Z
•H ,1
PW8S
RFOF TA&L MP TS COOC
FINE: TIMER
J !
' R
*
^
PHASE COMPENSATION
;
*
DLY
LDA 'DAR JAP LDA
r
:
OAR
ALFA ' ' VT1M .
« (DEGREES/HERTZ) DELAY' TINÊR
TIMF?
" S T A R T TIMER
EXC EESA CIA _ VAOC ~£XC ~~ "«UXS JMP REDY
' *
SET AOC TO EXT, START CLEAR VAOC R E G I S T E R ^ RESET flux ADC READY •
STORt"TRANS1 ENT' • RESP0NSE
"*
'
"
*
CIA £XC ADD NOP ADD STA Ixft 'OB»*"*" J81 NOP "S'EN" Exc JWPLOX ~
NXPT
SHIP
REDY
•
BEL
1 H L LOFA
OXR STX JXZ JMP
CALL
POINT
0,1 0,1 .(• •«•>•* •«•»«»«* *•• •••• •MOW*' «•»* w 1 P l «I II» •• •
FINJ
•
" VAOC/NXPT ÉESA REOY "VPUL
WAIT FOR NEXT POINT""" REFRESH EX r T START •" 0ECR5HSNT PULSE
OECREWSNI VP'UL "0EL NSC
LOA OLNG OAR" 01 FLWRQ CALL TRAV CALL» RETU* ~ " 8 S A C F0R
GET VALUE FOR NEXT " RESET *SUX
VAOC MPXS TEnPtö
COUNTER""
PULSE COUNTER
GENER^TÊ NEW PMAft ' "* RETURN TO LOCAL PVI AND A1 DATA ACQUISITION " E X H
lNTf-Rt-OCN FAILURE IN fERftUPT . ' *. ' , RHFTD
RETURN TO LOCAL PW AND AT
*
FLA511 F W M ' U M *
CALL
7 7 0.67 4
8
VJAX T
' • "
" " '
'
- 33 -
LD A XQP OME SEN "* JMP CALL "CALL-
SIGN LftfS 1,01 NS (7201, *~9 TE LA.MS3& 7ÈLA,MSA&
RSiNQ 0ELL
TNTLK HÊSS"
* EXIT POR TELETYPE INTEIRUPT
LOPS
RWRO RETURN TO LOCAL PW ANQ AT CALL TRAV CALL "TELA, MS3G ' •CALL' LOX T1FL JXZ LÖFD "TELA, MSCF;* CALL LOA EXP C LOFO JAZ "I'ZA STA CLFL TELA, MS8G CALL -pARD '' "" " T TRANSIENTS"COMPLETEDTOFO- 'CALL" JMP CRT . • MORE * EJEC"— * TRAV REMOVES O C OFFSET FROM TRANSIENT DAT A • — — " • * '
*
COPYRIGHT"- VARIAN 'ASSOCIATES>• 1971 EWTR
TRAV
TZA •STA' STA
LDX LOt?" 5T8 LDA* —LA5R" CALL 5TA
Tf?AA
-ST8DXR 1 JX'Z -INRÏ7.A J/1P "01 V ~ SI 8 LDX "LDS LDA SUB
TRA9
7 7
Ö
6
7
4
0
-T^WPt12 TcnP+l3 NPTS
CLEAR SUM' — COUNTER
TENP+H ADDRESS POINTER TEMP+14 1 5 TA6-. XPAO* TEMP + I2 TEHP+12 SUMiATlOtf OF -TEMPti3 ALL' OATA VALUES
*+6 "TEftP+14 Iff Ah 'NPTS
TEMP+15
AVERAGE OFFSET
NPTS 'TASL.' 0,2 TEMP+l5
GET DATA VALUE REnOVg OFFSET
-
34 V
ir STA I8R
0,2 .
-'•""- • -.-•
pPtACfc VALUE I.
DXft TRAV
JFFP EJEC
TRAS
-
CIRRECTION
APPLIED"—
EXIT
111 HZTR OATA VALUE
SPEC ELVTGRS SPECTRAL WIOLH I N HERT? * CALCULATES AND SELECTS SLI^AL
— — '
FILTER
*
~~*~C0PYRIGHT~- "VAP1AN 'ASSOCIÉ "ES - ISYO ¥ ' SPEC ÊNTRISNO CALL ... C 5 W b1 A •' ^EC-TRAL WIDTH 1FT XLR 1 ' • " \ RADJ CALL HAFT IFT 'ft 0 NOP m 11 HAR ÏFT TAS i, 8SPW STö LDA FTIM F T I M + F """ LOS &SPW PIV JOF cooc SPECTRAL TOO SMALL " Ttrtp + l ** "" "STTFTPLE PERIOD STB ASR0 I ST0 TEMP*2 HALF PERIOO LOA 'FT1M LOB FTIM+1 OIV TEMP+1 • " c ooc • JQf TEMP+2 SUS JAN *+3 Ï8R gfiSW STB REAL SPECTRAL WIOTRT : TZA ' 'I FT MUL RAPA+1 HAR IFT T0A 1 STA RSPW QRSW LOA ••••a mm m i . mm >•*> . • m »>m » • • • i • SUB ~ CSPVf JAZ SPEO CI?LF CALL "TELArMSCS ACJUAL SPECTRAL -VJIOTH" CALL [iftSW LOA PRINT SPOO G>0) T CALL " S P E D — L o a — ""TEMP + 1 CURRENT TlnE SPEE STB GTIM OGR T.) HR
—
-
5
7 7
0
6
7
4
0
•• '«'
••• • il
'*
LD3I
F»1€Q AiORESS OF FREQUENCY
5 IB L03 SIGN LOX'" C3PVI TXA SPEA TEHP SIJ8* '•'"JAP ' •• ST'£6 INR TEMP LSRB 1 DMP "5PEASPEB OREG • EXC2 USR DREG — PJI.P--"ST9— LOS 8SPW DL«G CALL ' RETU*" SPEC
E:T FILTER SPTCTRAL 'WIDTH 5PÏCTRAL WIDTH •
F;LTER HATCHES SPECTRAL WIDTH FILVJ FILTER REFTIT FILTER j
»
•
' * ENTER WITH 50 CM VALUES I N A REG. *~EXXT "WITH 'L R '024 'A"REG, ' I N ' 8 * X UNCHANGED * R'ATTJ
EHTR
TA8 ASR8
RAOA
—
1
„
_
TZ3 OIVI 075400 5U» T+12" " XAP LP 16 fiETU* RAOJ •
_
— ROUNDOFF
l&fr-
' * ACQT ENFERS ACQUISITION TIME *
•
*~C0PTHIGHT~- -VARIAN-ASSOCIATES"-
J970 "
ENTR
ACQT
CALL
TENS
J87
"CDDC"
STS L05 CALL" RETU*
CACT BSPW DLNG-- ~ ~ ACQT
-
-
CURRENT TIME TENTHS SPECTRAL WIDTH GET"DATA"LENGTH
* POLY DELAYS FOLLOWING FFF PULSCC *
PDITY
ENTR CALL TENS ST9 PDVID RETU*"—POLY
' -
•—
- —
*
*
7
0
LTHS
8
7
4
B
SETS L I T T L E T ' S
TO RTLLHSECQNDS
ITHS
. •IN CR
~
STB JNP
*
E
M
!
.
|
80
NSA LTEE+2
"&EF H I U J 5 E C O N ( J FCAG .
V
, T.
V"L"TE£~ENT£RS"TLME BETWEEN"! "AND""^ PULSES': * U J LTEE ENTR "CUAR'MILLISECONO~FLAG 'MSFL' $TA • TEMP+I STA L' . STA NEXP rflTtw -en ^ ^ y f^fi •((•^i-rm THHP STA CRLF LTEA CALL LOA MSFL'"~' \ '5Ei FLAG JAZ . LTES I • tCRLF)MILLISECONDS a TELA,MSDB CALL ' •IMPUT WILL ISECONDS " VTEX CALL IS NO '•fEXIT LESS THAN TEN JXZ LTERT SUS PELO i JAN NO NO""" -I»MS>IO' ADD • DE10 RESTORE"INPUT JMP L TEM TELA, JISOC 'T tCRLF)SECOWDS""s'""" L Y E S - CALL i •TETFS CALL T8A 57 A* '~"'T ÊHP' .. OTtt JXZ I.TE8 EXIT LESS THAN TEN ADO •TEHP+1 STA' TEMP+I TEMP INR ÏNR . NEXP ""LDA OELO " "" NSXP SUB JAZ . LTEa J «P " LTEA " LD& TEHP+i LTEÖ. DIV N EXP """ STS"~ • ' T A V E ' " 'CODE PETU
"
-
•
,—NONO
~CAL"L JHP
TELA', MSDA L Ï EK
-»ttS>10.' TRY AGAIN
*
*'"PO'N£"ENTERS",THE" VAL'UE OF PULSE ONE FOR F - R EXPERTI1EN S Ft ENTR PONE . ENIFCR? PULSE TIÏ1S • PTTTE' CALL FLAG AV)0 T1 RE IN USEC, PWAP !>rih f u i >< /
•
•
7 7
0
6
7
4
0-
STA KEÏU*
PV/AS PpNE
"VPTWÖ'ENTERS PULSE TWO TIME 4W0 NORHAL POLE'WIDTH "*" * I F " Ö " ENTERED ROUTINE GIVES PW CONTROL TO FT PUL5ER * IF N'UMSERS ENTERED ROUTINE Ê VES PW CONTROL TO ACQUISITION * COPYRIGHT PTWO ENTR TCALL STX STB "STA — ft ET UW
VARIAN ASSOCIATE,F PTME PHBF PHBT PW8S PTWO
1970
,
*
—
"*"-pTWE~ENTRY"ïOF~TIHE-FOR-p*i>—f-2," -AND"NORKAL'~PUL3£-WIOTH # PTHE •
'AA
BB .PTMA
ENTR ISM) — "CALL" PTMA JAZ Tim; AND FLAG TAX i 9S13I i •?»• at 'IFF* F GOTO AA HAD IFT fi« w*<«a waiatttaMitttM EH* e 'ADJUST FOR HA-100 'SU9 . " " F I V E " *" IFT SC ADVUST_FOFT H R - 2 2 0 / 3 0 0 FIVE ADD JTR 1 XL ADD ADJUST FDR X L - I 0 0 FIVE IFF L ""GOTO* ~BC? IFT HAO SUB ADJUST FDR HA-100 NINE IR I SC' ~ AOÜ ONE ADJUST FOR H R - 2 2 0 / 3 0 0 • IFT XL ADD 1 ONE": AOJUST 'FOR X L - 1 0 U CONT
TAB T IH MUL STA
PURTZ TEMP+1
COARSE TIME
" IZA IFT F 0E20 MUL i t- F " L 0EI2 MUL ASRA ADD L03" * " TEMP+1" PTME RETU* 7
7
0
6
7
4
0
FINE TIMER COARSE TIMER
-
PUW2 PV\U
1FT OATA JF T OA!A' ""
F . 035400 I 0J3567
38 -
'
T ;M£R PER 100 • T.;HER PERIOD
* *
"
*"TRANSIENT"NUMBER
CONTROL
"
~
—
* COPYRIGHT - YARIAN ASSOCIATES « 19/0 NOTR ENIR— — - — - - - — CAUL XSNO STA CNPL CURRENT NUMBER OF PULSES : RETU* NOTR " — *
* XNTl SETS ACQ ROUTINE FOR TEST OF LOCK SIG * 0 "BATTLE" SHORT ~
'
*
INTL
ENTR "CALL
FLAG
STX RETU*
__ *
—
_
_
-
_
. .HA AA
"ENTR
"
JMp
"
cooc
_OUP AA •
_
~
IFF L'FFF'C
~
INTF INTL
GOTO
•
—
'
3
CORIT XFF
XL
GOTO"
8S
__ _
_
*
* 1 0 / H I FIELD SELECTOR *. .—L'HFC ENTR ~
0= LO FLO
I b Hi FLD — ~
CALL FLAG . STX H1LU — RETU*"" LHFL* """ BB CONT * TOGO SETS SYSTEM FOR Ti MEASUREMENTS TOGO
ENTR
CALL *
'
FLAG *
"STX §TA
CTLF X6TP
STA
OFFS
RETÜ*
TOGO
. —
'
" — 'X OFFSET STEP 5 TOTAL
""
Y OFFSET TOTAL "
"
*
*
SEME/RgSE ENTERS VALUES OF WEIGHTING TIME CONSTANTS SETS ""WEIGHTING FUNCTION. FLAG TO ON Oft CFFF ' ' ' * AND SETS FLAG FOR SENSITIVITY OR RESOLUTION ENHANCE: CMT *
77 0 6 7 4 0
-
..
39
-
* COPYRIGHT - VARIAIV ASSOCIATES - 5970 SEL- S1TIVLTY SNHANCGMFCNR SENC ZHTR SET ENHANCEMENT FLAG TO ZEFT STA WTFL """ JHP ' " "SRTC SPAC SPAC .„.._. —. . .... SPAC RESOLUTION' ENHANCEMENT ETITR RESE LDA ONE '—ST A W T F L - " ——"—SET ENHANCEMENT FLAG' TO OW£ TENS SRTC • CALL * .T2X — • — — — • — -X6Z-IXR " — - — » — •• • • WTQN STX STB WTSC VALUE I N TENTH SECONDS ... ; . C Q D £ ~ • •— .. * — JMP • a ' -£J£C * , DUNG CALCULATES QATA TABLE LENGTH . — *~'.EWTR WITH SPECTRAL HXOTH I N B. REG, * • •• * * £ " it. • "V' * Hi- 1 H * COPYRIGHT - VARIAFY ASSOCIATES - 1970 OLNET CNTR'~ - . • TZA CACT IOCACTH) CSPWIJ) MUL o x v •* • F I V E STB CPTS TELA/HSAW "DATA s « CALL "JO F CODC • — CPTS LOA sua FORK •——- —•• — INCLUDE MAS DATA LENGTH— DAR CODC JAP LOA CPTS . "" . .... ... , • ••• • • • •BDTTCALL CPTS LOA CS0C JAZ DLNG •RETU* . EJEC * RSGQ I N ' I T A L I Z E S ACQUISITION AND CLEANS FULL OATA TAB E "
*
' *
** '
• "
1
•
•
* COPYRIGHT RSGO ENTR —SEN STA i m L-DX CALL
VA'RIAN ASSOCIATES
- —
—
-
— — « "
1970
FT«X,CQOC NftMC TA9L — F0{?{(-
FT BOX OFF
CLIT
CLEAR DATA TABLE
*
• "
— - • • *
•
*
FRE2 DATA FROM CURRENT LOCATIONS T(l EXISTING,-FLPERATI NG
*
LOCATION'
. 7
7
0
6
7
4
0
4
LOA C5PW STA P SPY/ LDA B5PW STA 'SPWO" " SPJCTRAL WIDTH LOA • CNPL .NUM3ER OF TRANSIENTS STA NPUL ""•'CACT'" " LDA j STA INTIGER ACQ TIME ACTFT i LDA CPTS • — • N P T S ""STA"" "DAT* LENGTH " 1 LOA CTIM ' STA YTIRT ADC TIMING LDA "T'CTIF—•* ' STA SETI TEE OWE TTFL I NCR OAR XAP T!PL ' RSGO RETU* EX .T " EJEC * LOW FIEIO LOCK INVERSION * ALU OP DATA TABLE IS COHPLS'IEW-TEO *" AWO'TUPNSD ENO FOR END " ' ' ' •k FT COPYRIGHT • VAR1AN AS'SQCIATF.S - 1970 SROT """"* CnTR" ' LOA. LOC JAZ COOC LOA" 7AÖL "" F.WA OF OATA " STA TEMP TOP POINTER ADO EX12 TABLE LENGTH TWO ' STA TEnP+1 LWA-1 Or DATA SROS DECK XO "1 IN X PEG . ~ U 0 A T E M P LOAD UPPER ELcMENT — LOB* temp+1 LOAD L O W E R . e l e m e n t CPA _ TAKE 2»S COMP STA* ' TEHPTI STB a TEMP INR "^"TEMP 1MR TEMP+1 1XR ~"\!X?, ~~ 8*06 M LOA TEMPH sm FOUR STA TEnP+i SUB TEMP JAP , SROS _ - SR0T •• •• RET{Jé
"
T J EC *. CLEAR INPUT TABLE 7 7
0
6 7 4 0
RESTORE
ROTATED
POIMT TO NEXT' ELEMENTS
— '
DO FÜR'IMAGINAfnr
ENTRIES
•• NEXT LOW^R ENTRY"; •
NOT COMPLETE •
~ 41
* ÊNTER WITH LENG TH IN '
* COPYRIGHT CL I T TNTR HEX STA OXR -JXZ* 1SR J«P
-
REG, FIRST ADDRESS IN' 8 RFCG H
VARIAN ASSOCIATES -
VALUE IN A R£
1970 -
~
0,2 CLIT '
INPUT 'TABLE CLEARED
NEX
' '
* TENTH SECOND TIMER ROUTINE FOR PULSE OELAYS * ENTER WITH TENTH SECOND IN X REGISTER *
"
"
*
SECT SECA
ENFR' CIA SUA JAL JXZ*.
• •
" "
*
_„
* 01 RETU LUFÖ SECT OE32 OVIRO T S £ C „
U0A
CALL LOA
TTV EXIT * *
_
_
—
--
SET B I T ' S " SHUT OFF PULSES TENTH^ SECOND
"
— __
OXK JHP
SECA
* BIT FLIPPER BTFL ENTR TAX TZ8 STB TEMP
r~ACBL
TJfA
*
ASLB ANA 05RG INR TXA .—
INPUT ADDRESS " ' FLIPPED ADR .HILL GO TO 8
1 ONE AS-SS+80 TEMP. -J
ASRA
PICK EACH B I T FROM OLO A PUT S I T I'M TO "8 COUNT BITS
:
••—NEXT 811 OF OLD ADR
—
'
TAX LOA FM)F JAN
—
TEMP —— ACBL .
SET" FOR"NUM0£F?"Op' BITS ARE ALL BITS FLIPPED
*
••
— "
:
— * 8 I T S 'ARE ' ALL FLIPPED ' " ~ * COUNT MUM8ER OF BITS UP TO 8UT NOT * INCLUDING HOST SIGNIFICANI ONE SIT —
—~TBA
•
F H P P Ê O - AQR
RETU* 8TFL EJ£C * WEIGHTING-FUNCTION WEIGHTS THE TRANSIENT WITH AN EXP NgNTlAL' * FUNCTION TO ENHANCE EITHER SENSITIVITY OR RESOLUTION
7
7
0
6
7
4
0
~
-
* COPYRIGHT WTFU ENTR _ LOA " " " ' " " "LOX JIF J HP
VARIAN ASSOCIATES LOG WTON • AZ + X Z , * + 4 CODC . clFl.
L08 TZA MUL LASR STB LDA TZB LASR DIV J8Z
—
XTSC
"LAFS
— WTFA '
15
""
'",
ENTH SECONDS —" " *
™
— -
TEMP + 1
* SENSITIVITY LDB * HUL STA'* JMP EJEC
TEMP-FJ MTFL WTFD
TRANSIENT WEIGHTED """ .
EXIT " _
. NEW CURRENT VALUE OF EXPÜMEWTIAL — LOOK "AT'FL'AG" "
0 6 7 4
ENHANCEK TEMP + 2 TEMP+ I TEMP + 2 WTFA
—
—
'
TEKP .
*
STARTING VALUE OF EXPONENTIAL ~ """""" CURRENT VALUE OF" EXPONENTIAL INITIALIZED FWA DATA TABLE DATA-LOCATION TO BE VIEIGHTE " " "
*
7 7
_
• ' •' — • —— TRANSFER TO A AND 0«OP SIGN BIT
ft *"FTFC'SOLUTTO'NTNHANCE R~ ft TZ8 TT; M P t z L I.) A* 01V TEMP + 1 STB* TÊMP-s-2 VITR A ~
HTFD
• ~
—
TEMP ~FS " ' " TEMP+1 TA3L TEMP+2 NPTS WTFU TEMP+2
KUL STA XDA JAZ
PUNCFFUG'"""""*" " SEQUENCE OK GET ERROR
*
~
DXR LDB
""'Cer'VJT
(WTSC)CNPTS). ACQ,"TIME~IN ~TENTH~SEC ~
8 "TEMP *+3
STA L'OA STA LOA SFA LOX JX2*
1970
WEIGHTING TIME CONSTANT I N " ' . ADJUST""FOR"DA'TA—L'ENGTH—
NPTS~ 8 TEMP ACTM
DfJR CPB LASL
~
42
" P O I N T ' WEIGHTED
V"
" '
-
,
FTRU CHECKS FLAGS AND CALLS FQUftlER
* *
*
43
COPYRIGHT
"FTRU"
~£NFR LDA OAR JAZ INR
- VARIAN ASSOCIATES -
1Ö70
LOG ' CODC" LOG
-*"AP0DIZATION RDUTINC SMDDTHS-'END" OF - TRAN3J6NT"RTDUCING' - WIGGLES' * I N TRANSFORMED SPECTRUM. *
NOP - LÜÜ HUL TAX STA LDA "ADOSUB STA -L"06TZA DIV -STÜ" TZA STA •CALLADD TAB -TZAHUL* STA* -INR— DXR JXZ "L DAADO JMP "L'DA STA CALL "CALL" LDA OAR "IFF — GOTO NOP ~5EN*CQNT IFF
APOA
AA
77-0
6
7
4
0
: NPTS SL08
' —
SET'"UP"LOCATION-COUNTER— LENGTH OF AP0DI2ATX0N
TEFLP TA3L "NPTS—" TTMP TEMP*2 "PIEE—
START OF APOOIZED DATA
TEMP "TEMP
SLOPS D F " A R G U M E N r
TEMP+J "XCQ5 EX14
ARGUMENT
TEMP+2 TEKP+2 "TEhP+2" #+6 "TEMP+1 TERIP APÜA -FTIZ
TRANSIENT
vsua. FTRA "CO EE DING 1 "HA AA ~LHSK,FTRU— XL
APODIZED
~ INCR THE ARGUMENT --SU3"C{)H»ANDSET 01r FLIPPER n FOURIER TRANSFORM •-RESTDSE CDS, SIN *C0£FPRJNG BELL
~
-
GOTO 102 JX£* ""CONT ' CAL,U RETU*
88 HILO FT RU
44
, GLT FLAG
SROT FTRU
*
, DE12 - ' • S(J8 EJEC MORE *FAST FOURIER TRANSFORM COOLEY TUKEY METHOD N ÏZ
— *"COPYRIGHT"~-'"VARIAN " A S S O C I A T E S - - - 1 9 7 0 " FTRA - ENTRY ENTR
"
•—AC'ALCUL'ATIT R0£P " TMAT''SIN"'AND''C0S1ME' FUNCT IONS *ARE USED I N AND STORE I N TAÖLE AT TA&2 . LOX TAB2 FWA OF ROUT TABLT TZA ' STA NRMC STA 0,1 FIRST ENTRY. LDA EXOS ASRA J STA TEMP V J ASRA STA TEMP+I TXA I TEMP " ADD MIDDLE ADDRESS O F T A H L E TAX" I NCR OI 0,1 -"STORE"MIDDLE-ENTRY ~ ~STA"" TEMP+J LDA FTRD JAZ • •
•
~
.*
•
*GET A TIJ1ES FIRST OLD ENTRY LDA TA82 FWA OF TABLE FTRF "ADD" TEMP ' " ' " " ADDRESS OF F I R S T NON ZERO TAX • LOB 0., 1 "ASLQT 2 STB TEMP+2
—^GENERATE NEW" EVEN ENTRIES "' — ""-~ " "I TKA SUB TEFIP + 1 -ADDRESS OF FIRST" NEW FNTR TAX""' 1 AOJUST PLOT F03 HLOCK AVER/. ONV ASRÖ LP6 S78 0,1 STORE NEW VALUE ADO TEMP+1 AOORESS OF NEXT OLO ENTRY TAX FTRG LOA TEMP+2
77-0
6
7
4
0
-
SUS TAB TXA "ADO " TAX SI 8 • ADO ~ TAX
sua -sua™ JAN LDA "STA ASRA JAZ "STA"JMP
45
-
0/1
VALUFC OF NEXT WEW ENTRY "TEflP+l
0,1
AOORESS or wsrxir OLD ENTRY STORE NEW ENTRY
"TENP+L TA82 "EX09"T FTRO TEHP+t • TEMP • 1 FTRD ~TErlP+i" FTRF
FWA OF TABLE •LENGTH OF ROOT T A B L E — " FIND MORE NEW E N T R I E S DIVIDE IWCREMENTOf? BY 2
TABLE COMPLETE/
RETURN
OOULILE TABLE LENGTH AGAIN
*
~*F INO""COSINES"AMD SINE"FOR'WEIGHTING FUNCTIONS LDA TAS2 FTRD STA __ FWA_OF W ROOT TABLE TEMP+1 ~LDA_ "TA31" FWA OF COS/ S I N TABLE STA TEMP LOA FTRE TEMP -SU3™ -TEMP + 1 SIN CUS TABLE COMPLETE JA7 FTRX HA -LOS*" -reiip+r™ HUL" PTEE LASL 1 NO OF" RAW DATA -oxv"EX12 . 2*P1*I/N STS ' TEMP+2 TBA ~XCOS— FIND COS "OF" ARG" -CALLASLA' I .STA* TEnP -INR — "TEMP •-TEfiP+2 LÜA XS1N FIND SIN OF ARG CALL —UPiü-ASLA" CPA IAJ? LP12 'STA*"TEMP INK TEHP IN« TF.HP + 1 -JHp — FTRE * COS,SIM TABLE I S COMPLETE ~IT DO-FAST FOURIER TRANSFORM FTRX CALL SMFT SET MAX VALUE TO LOA EXIO
7 7 0 6 7 4 0
14*QITS
INCREMENT POINTS STA TEMP+2 . TZA TEWP-M" STA OÖQ OR EVEN FOR V PICK U STA " " TENP+3 " ""•. WHICH CALCULAT 1 ON' BLOCK FWA OF DATA TAULT LDA TASL IENP POINT TO 1 ST V^ORD "IN CAL STA LDA"" TEMP+2 ' ' CF'A • I.AR
*
•
•
~ '
7 7
0
6
7
4
0
•
•
-
—
""*
*-
'
—
••
—
-
'
LP16
47--
ISf? LL«L LOX
IP 15 7£TTP«3
EiCHANSt A AND 0 &?OUP NUMBER
DXR
•
JXZ JTFP
FTRC
I T GROUP NU ONE
110 AI
055202 ' ""
COHP I8R
AS+80
v
•SINGLE PRECISION FRACTIONAL CO«PLEX MULTIPLY •MULTIPLIER I N A AND B REGISTERS FTRC
ROF STA R U L MULTIPLIER TEHP+10 "IMAGINARY MULTIPLIER OIA LEHP+U UC«ULT)*R£(rtULC) HUL T STA TEMP+12 TCMP+10 - " " F E ( M U L T ) XI53~" f'6 (MuLT)*l«(MULC) T£MP+8 MUL • TENP+12 ;«C«ÜLT) *RE (tfULC) A&D "'" iH C^ULT) LOS TEMPH1 IMAGINARY PRODUCT STA TEKP* 1.1 IH(MULT)*IFL£RTULCJ TEMP+8 HUL "TETTP+12 ' ' STA LOS TEMP+7 RE(HULC) (MULT3 *RE(MULC) TEMP+ 1 0 FTUL SUB- " TEWP+12 CR*V< " STA r£iïp+7 AÖD TEr.P+5 "•""IMAG.* PRODUCT"" 'TETTP+LL Loa 16 LLRL AOD TEHP+6 16 " LOX TERTP STA Otl m T* A ADD TEHP+2 ADR OF 2N0 ÖUTPÖT TAX — STB *-~o,i — TERTP+2 AOD ADR OF 3RD OUTPUT TAX ... . . — . . . . - - —— " L O A " "— TEWP+S" LOS TEMP+6 SUS TEMP+7 is - - LLb'L SUS TFKP+11 / , LLRL 1<> "CONPLEX CONJUGATE • —CPB " 1 BR STA 0,1 , -
•
'
-
•
~
•
1
—
•
*
*
1
7 7
0
6
7
4
0
'•
— •
- -48
-
ï
- 49 AÖO EX 11 CALCULATE WEXT COUNT ACAL CALL STA NEXT COUNT TEHP+4 . .. . » »• - - 5U8 TETTP+2 JAZ OONT HOVE PAIR FTSL LOA TEMP+2 STA - TERTP+3 " " " ASLA 1 , A 00 TA8L -AOR OF CURRENT-ENTRY TAX LOA 0,1 JAN ALREADY MOVED FTSL L08 • "— 1 R 1 » STA TEKP+5 TEMPORARY STORAGE 5T3 TEMP+O —TEMP-M'™ ~ LOA ASLA 1 AOD TABL ' TAX LOA .„ TEMP+3 ASLA 1 ... •nu... 'li i- i r i. • i . ii . 11 i in " TABL * AÜO TAB • LDA ö, J ' — ~ ~ "ORA "'SIGN STA LOA Ir 1 S I'A 1 » 2 " " - TEHP+4 LOA STA OUD ADR TEMP+3 — - — ~ ACAL -CALL' STA N£W AOD TEffp+
... ~—.
-
- ---- - . •*— '
*
•
•
•
»"CUQS£-L0gp FÏSN LDA ASLA ADO
TAX :
TEP1P+3 'L TA8L'
'
'
LOA
TEHP+5
ORA LOS STA
STGTL TEFIP+6 0,1
STB JMP
— SET HDME FLAG
1
— -
—
FTSL
*
— *' RESTORE SIGN blï5 FTSP
77
0
6
7
4
"
LOX
TABU
FWA
LOA
EX12
LENGTH QF TABLE
Ü
OF
TA0LE
•
-
- so-.*
FTsa
OAR LOh Ltx'LH ASNÖ STO
0,1 I 1 0*1
SHIFT
HOm£
FLAG
OFF
IXK
UAH " JAP
FT 50
CONTINUE
"*""R£ PLACE FIRST ENTRY VITH SUM O F ~ F I R S T " T W LOX LDA
TABL 0,1
ADO" STA
"
T2A STA
1,1" 0,1 1/1 FTRA
RETQ*
RETURN
* A
SHIFT ALL ENTRIES TO HAiwUiN FOURTEEN'SITS
*
COPYRTGHT
-
»1970 VARIAN ASS0C.ATE3 " " S C A L E , ' M.AlrJTAlN~"l'4'"6ITS
"SHFT ENTR FT A F I N D MAXIMUM V A L U E . I N LOX TABL-'
TZA STA "LOA"
JAP CPA U R" sua JAN AOO STA I NCR "$U3~ SUB
JAN
LIS" ' " ' "VJ A
OF "LIST
~
MAX VALUE .IM J.IST
TEMP+4 "0,1
*+4 •
TEMP+4 *+4 TEHP+4 " T£«P+4 045 EX12'
HEW L'ARGEST" VALUE
•'
•TA6L • SMFT+4
. ^ A -.- * FIND NUMBER OF SHIFTS REQUIRED 0E14 LOA LOS> " TEMP+4
jaz ASRB
OAR JMP JAZ* ST A AOO STA
*+6 J •FT«4 SMPT
RETURN, NO CORR» FT£0D. "." • * " ' —
"TEMP+9 NRMC
NRNC /
11
0
6
H
S5
LDA * * FORM
TEMP+9 '
S H I F T .COMMAND J AN *+5 AOO JNP-
y
*
""'"
1
A5LA *+5
IAR , AOO 5TA
*"
• *
ASRA *+3 .
• ' •
_
:
* .
* ;
SHIFT
'
J
DATA LPX
TQ 14 B I T S "TABU
LOA NOP
0/1
STA
0,1
INCR
045
SUS SUB
TA8L EX12
JAW
*~6
RETU*
5MFT
* CALCULATE
0IT
- - * — — —
~
4
—
'
RETURN, ALL CÖRR MADE
FLIPP60
A0ÖRE5S
FOR
* FAST FOURIER TRANSFORM OUTPUT SORT — ' * - I N P U T AND OUTPUT B.0TH IN A REGISTER " —* ACAL ENTR CALL 8TFL —TZX "ZERO 81T COUNTER ACCL
ASRA JAZ
ï ACOL
JMP
A CXI.
ALL
BITS
~
COUNTED
*
;
FT"X~REGI$TER *
TAKE
HAS NO OF 8 I T S TO "BE CHECKED
EXCLUSIVE
OR
OF E A C H
BIT
TO
8E
"
CHECKED
* WITH B I T SOUGHT AND REPLACE. CHANGE B I T
^
ir-50UGHT--WHENEVER E X C L U S I V E OR G I V E S A O N E ACDL SVS TEMP STORE AOORESS TAB INITIAL BIT S O U G H T : IAR — — : STA TEMP+1 BIT POSITION ACEL LOA ' TEMP JXZ* ACAL : DXR
T8A
53 T SOUGHT
ERA~~—TEMP STA TEMP ANA TEttP+i MORE"-
;• SAVE RESULT IS E X C L U S I V E -
JAZ
ACFL '
- _
*
OR
0
OR
i
- 52
* CHANGE BIT SOUGHT T8A ERA
-
..
TEMP+J
•
'
TAB ACFU
.
LOA
TEHP+1
LLRL STA
1 TEMP + J
JMP
,
GET
NEXr
BIT " '
ACEL
'
~
,
EJEC
*~~XS1N7 x C Q S " F I X E D *CALLS
SUBROUTINE
P O I N T " S I N G L E "FRECISTON 'SINE""/"* C O S l N " " F U N C T I O N S ' * * ( P O L Y ) , X IN A* S C A L E D
*
"FOR JTUËTVIËÊN * *
SIN
(x/4)
., . ^
^
II. . ILII 1IMII • * >• lrt , Jl III Hi.1
FIX
EXIT
„.,.,„, -<"••<» 1 n
" •
aMMiiM «4 am
"""
R E Q i H Z A TO t A L L IT IF N E G , " ' U S e
»t
'
a* a nun itii»
8 E T W . + Of? Y YWABS3A&PI
"
"
.'.""
~ "
, — — ——
*
"
* C O S ( X ) FOR X B E T W E E N - P I / 4 A N D + P J / 4 * COS CX74)~ SCALED * (I/2)' "" '-•*""-"-"-' — 4t A XCOS ENTR — C O S ( X ) F O R X' TN" - P I ~ T O " " X'CO'A™ JAN • *>4 • IS EVALUATED AS ' CPA SJN(Pl/2rAB$(X), W H I C H IAR XCÜ8 XC08 XCOC
IFF' AODI IFF AODI
ASLA CAUL "IFF"
,
* 1
GOTO
DATA DATA GOTO DATA DATA JMP*
2
.£ JEC
7 7
*****
SCALED
XSIN" " X"STA~ LOB ST8 XCOS JAP **1Q ADD XCO0+1 *+4 JAP CPA 1AR xcoa+i SU8 J MP xcoc SUB " xcos+i~ J MP XCOA F-NTR " J MP*""""*"""*XSI A
•
^
0 6 7 4 CT
N3U-15 031104
*"
"
—
•
•
•
REDUCES
— ".
—
THE
VARIABLE
NÖIT-TS" 0144420 1 <
TO R A N G E
-PI/2
TD
&P1/
POLY 'M8IT-15
I 1,0134,-0380 0,043104,-0252323 0,03/7777,0 2 1,027,-0650, 010421,-052525 * " * *** " 0,077777,0 XCOS C O S U < I S SCALED. * l / 2 .
" "
rn»««»»«
-53
*
POUY
SJNGLL
*
PRECISION
FIXED
PUI
POLYNOMIAL EVALUATOR
* *THl'S U T I L I T Y R O U T I N E If O Ë S I G N S O S P E C I F I C A L L Y FO* *GROlJP O F E L E M E M T A R Y F U N ' . T I O N . . . IT M A Y Bfc U S E O , V I I T
• SOKE CAUTION, F01* GÊNERÏL POLYNOMIAL PROBLEMS
• COPYRIGHT 196? BY V*fU\M OATA NAfmiNlS POLI 5TX PQLYM ST A
—
™
su
:
POLY « J
—
LDX
POLY
LOA
Q,l .
JA7
POLL
LOS
PQLY-3
IFF
N8IT-16
LOAÏ
O4O0O0
IFF
N8IR-I8
••*". '
. — •
LOAI
020000Q
IFT MUL
SMOV FOLY-3
CALL STA •TZA'
—
•
• PÜL2
POLY
JAZ AQÖ
P0L2 POLY
0
—
6
7
4
» .
»
.
IFT MUL
SMOV POLY-2 "•'
IFF
SMDV
CALL J MP
XHULIPOLY-2 POLL"
:
:
0
0,1 P0L3
AOD ' TAB
POLY
IN CALL IFT—
Ï/10V X«UL,POLY»a JHJ)V "' ' '
HUL IXR
POLY-3
•
XAZ
POLY-1
ADO
o,l
IXR
7
-
1XR
— P 0 L 3
7
•*
-
LDA' -JAZ
'
—
XMDL/POLY-3 POLY-2 '
STA IXR
TZA
-
—
IFF—:—SffOV-
POLL
-
POUY-3
'
' / ,,
"
'
- '4
$TY LOX ___ J MP *
.Y
POLY
' ••
-
\ k'
«+3
'
•
POLY
8SS
3
DATA ENTJ?
014012
*
^
_ _ ""
"'"""*"
""" "
'
„
EJEC J
READ
70(29
'
'
XOAD
.
„,...„;.„
..
XDAOOOt
FIXED POINT DOUBLE PRECISION ADD/SUBTRACT
X&ADOOc XDADOuf
STX"^
XDAD+3
SAVE
R0F "
LQX
XOAD
LOX STA
0,1 XDAO + 4
T,SA ADO
l',T
IFF
ANAI
NBIT-18*.
0377777
"
"
•
'
XOAOQO* v
GET LQ A ADD 'LO'
"
'
XOADOO; XOAOOO:
HASK SIGN ' '
^
GET CARRY
RESET OF XDA0~+~4
0,1 XDAD XDAD>3 . 0 *-l —«•-.'19
'
" '
XOAOOOl XOAOOK
XOAOOI:
XOAOOU
ADD HI A
"
;
""
ADD Hl B
XOA0O1*
SET R E T U R N R E S T O R E 'XR RETURN ' ENTRY
XOADOl! '' • *""'/*""
O,O
SCOPE
XÖADDÖI
""""
RESULT '
AOFA
INR LOX JKP EQU Jrtp
_
XOAOOO* SAVE
ADD
__
~
ROF
TRANSIENT
•
X R = A D 0 T ' O F" liT~8 S A V E HI A
077777
IFF"
DATA R£AD_
"
• NBIT-15
AHAI
ADD
*
XOAOpOJ
TAB ~—~rZA
AD
XR
OF
RESET
TEMP STORAGE
DISPLAY
XOADOi: XOAOOU X D A D O 1'.
-XOADO2I
"
C0PYRI CHT~-~VAR I AN "ASSOCIATES'V'1970 T SEN ÖAOIFXQFF " . LOX TABL • LOB EX 12
~
" "
"
"
- "
m SUB FÏAD • > ., i-rug '.•Mar-aar.araaigMsaaC) tj i I i SJ V it n > « ii «;Je» < < a •«»« i,« «i« >«a * w»> •« »*»• , «t,« -«••'vwrarjaawt- *
NOP EXC2 OAR LDA I xR
X AXIS S AIW SWEP OAC 0/1
7 7 0 6 7 4 0
SCOPE
HORIZONTAL
:
OUTPUT ~
• ,
1
«I • •rtir^m
«»•- • »
- 55 "JOG ONE DATA POINT LEFT
* *
VA CU
LOA JAP INR "IfJR" JMP
NREN "TWOX"" KNQ8 HRÉN HRST KNÜö
Lt'fT LIMIT
ft *
"jOG""OND A T A PO INT RI -:HT"
VACR
LOA HRST •JAZ"" ' ' KNUti DAR STA HRST HREN LDA OAR HR£N STA JMP "" KNQ3 "
%
* *
p-GHT" LIK.IT'
VERTICAL INCREASE
*
LDA SUB ~XAP" ADD DIV ~IBR' STB J MP
VAR I
* * *
•
*
.1.
J.
TEST LIMIT "RESET RESTORE SCALE
SCAL SCOC
VERTICAL OECREASf;
—VA'RD"
,
SCAL . STOP 'VAR2 STOP _T£MP + 14
"L'OB MUL STA . JMP
SCAL' ' TGMP+I4 SCAL "SCQC
EXPAND DISPLAY
«*
LOA HR.iT OW.2 Altl/i .'.»/» " 'Hi'Üi ' ' JAP KNO ll LDA HRS! ADO TEMP-H3 ' STA HRST LDA hREN SUÖ " " ' TEMP + Ï3 ' JMP VAR/7+7
VARE
7
7
0
6
7
4
0
OF ÜAft\ OPANfUtjN
nniM
Unfï
" NEW START '
.. ...— . •
,
•
——
— . . _ .
* SHRINK SJISRUAY VARS *
"
EAST LOA ~""5U8""" " T E M P O S ' •' SET TO FULL LEFT - ' . XAN ; VA^ U A 0 I F LEFT L I M I T TAB , •• » .. . . • .... — . » .«. STA"' HRSr - • LOA HREN •w . ' . AOD T£MP+13 .. ».» • - ' • ' ** ••^«-W—ili'.-lll TMUK ~ SUE SET TO FULL RIGHT VARZ TAX X 8 0 ' I F LEFT L I M I T . . ; .. . . . ..... — — . ....... .... "AITOTWO< •• * • HREN STA JIF 8Z+XZ,KN0B RETURN TO PHASE CONTROL RETURN"TO SCOPE JHP •
*AP
—scoc
—•
*
*
ROTATE
SPECTRUM
LEFT
WREN LOA TfcMP+13 AO 0 TWOi< + 1 ' — sua™ JAP KNOft LEFT LIMIT EXIT TWOK+I ADO •**•"• '""*"* * » mmm. • mmm «M. .. . STA - - — H R E N HRST LDA ADO TEHP+13 '** " - HRST •"•STA" SCUC R E T U R N TO S C Ü p E JHP '
—A—ROTATE "SPECTRUM RIGHT *
•
_ .
'
..
—-• ... ••
•
.
— : — —
•
VARR
—
LOA
(4RST
-SUB™
- —
—
T6MP+13
JAN STA U0A—;
KM00 HRST HREN-'
SU8 • STA
TEMP+13 HKEN
JHP
SCUC
*
— RIGHT L I M I T ^
;
RETURN "TTRSCOPE
»
* RETURN TO FULL DISPLAY SVST MUST 1. OA " j>y ni m u y>ns • LI )tr b F f\" l JhP K NOB LDA BfA
7 7 0 6 7 4 0
EXIT
START
f Hit VmtCAL"
"
*
-
"
-'ïHVARP EXITS SCOPE AU O TD.RTO PLOT
*
*
VARP
LOA
SIGN
Vexca"
' 5WEP
ÜAR CALL "CALL" RETU
ÖAC HREX "PLOT COOE
CALC,
EXPANSION
*
Eftl{?K"WrTH""AHGUHÊNT IN 'VOLTS * R O U T I N E G E N E R A T E S sï«/COS T'BLE P O R * SCOPE' A N D * " * " C O P y R I G H r ~ - ~ V A R I A N " A S S O C I A T f S --"1S70
ENTR TZA STA ADD STA LDA SLI& TZA SEN LDS J AW
COEE
'sn/eos'LGCAti'öN"
T£J1P+(? TAB1 TEMP+7 PHAF PHAI
siii/eos
TAÖLE
GFSF TOTAL RANGE R E W PHASE FUG_
PSENVCUEIL'""" STF PHAS FLAG ONE COEA PIPH COCD
sue
JHP PIPM ADD COEA C 0 E 8 ~ ~STS ~PHFL TEMP+Ö STA LDS COEC TEMP+Ö "TZA TEMP+6 MUL DIV EX09 T8A ' ADD PHAI ASLA 1 . CÖEF COED PIPH ADO COEA JAP ADO " PIPH COED JHP SUÖ PIPH CÜEF — COE& "JAP ADD P I pa JM/' CUE I Uuh CO EG """PIPH JMP DUO CÖEH PIPH SU8 CÖEI 'ASLA"" IFF XL AA GOTO
~
-priASE
FLAG"
*
S C A L E 8Y
TWO
— ARGUMENT TURN VECTOR "2 PI"
•
TURN VECTOR'-2 PI ARGUMENT oX
"
—
•
770
674
0
6
...
,
SCP,L£
ARGUMENT
PLOT
OUTINES
ASRA
5
Y AXIS GAIN
F.XC2 OAR
RCCO DAC
RECORDER ANP ICOPE VERTICAL OUTPUT '
'
J«P NP EJSC ' — S C P E DISPLAYS EITHER THE TRANSIENT OR 'SPECTRUM ON•TH£' OSCILLOSCOPE * DEPENDING ON WHETHER 8EFORE-TRANSFORM L)R AFTER A USES SU3R0UTINE GETV * COPYRIGHT SCPE EWTR
_
—KNOB
VARIAN
ASSOCIATES
—LOG JX2 - C R T CALL COEE LOA ABFL—" JA7M PHAS _JJMP SCOC
-
1970
.
j
;
*
-
•
ESTABLISH SJNE/COSXNE TEST FOR KNF/3 "USE LOOK AL PWASS KNOBS GO TO SCOPE
-
TABLE
SPAC ROUTINE SETS PHASE OF SPECTRA BY USING KN BS ON FT P U L S E R ENTERS SPECTRUM SCOPE' ROUTINE;"""A7 SCOC AFTER ETTING UP FULL ' DATA TABLE DISPLAY
* PHAS —* * *
PHAS
ENTR
__
EXC EXC LDA OAR CIA
DESA MUX* THRE MUXC VAOC
SEN TZA
pSEN,*+3
VAR2
'
•
SUB JAZM LDXI STX
•
PHFL"~ COEE PHAL —TEMP+H
LD8
FOUR
CALL INR LDB CALL RETU*
GTST • TEMP + 11 THRE GTST PHAS
*
*•"
DISABLE ADI» EXT START SET MUX TO; RANDOM SET MUX TO I N I T I A L PHASE -
•
:
PHASE-FLAG
S£T"P0INTER TO" I N I T I A L
"
"
SET-POINTER-TO"FINAL R
EXIT"
*
*
• # - A T A R M , R A T ! C S " A D C 'ANO *T£srs VALUES'FROM PHASE PÜTS * ENTER WITH OLD PHASE VALUE LIS X REGISTER * MUX IILÏ f I G IN 8 R E G I S T E R 8 CALCULATED * IF PHASE VALUES HAVE B££N CHANGED NEW SIN/COS TABLE GIST
Ef/Tff EXC
5ADC
7 7 0 6 7 4 0
START
ADC
00
D8R NOP " SEN
mjxc
5?E1 rfux
VADC,*+»T
INTERRUPT WAIT FOR "
JMP
CONVERSION CONVERSION MOT F I N I S H E D "
'
V ADC
CIA ASRA TAX'*"
3
sua*
TEMP+11 •
SET PHASE RANGE TO 3 * 0 QEGR ES " S A V E NEW P H A S E
GET OIFERENCE
i* T"*T£S"T""0LTERHINES I F PHASE CONTROLS' 'HAVE BEEN"READJUSTS * I F F NQ CHANGE ANOTHER SCAN I S PUT ON SCOPE *
„
"LDTT'
TWO GTST
SUB JAZft J.AR D6«? JBZ JMP
GTSA
EXIT
GTSB GTSA " "
STX* T+LL CALL ""COEE GTST RETU*
GTS0
CALCU LAT E _ N E
SIN / C 0
STORE NEW PHASE
X * 8FC'GW"SC0PE"0ISPLAY
•
*
LDA LOS JBZ SUB SUH X8Z STA LOA MOP STA
scoc
SCSH
•
ASLA AFISF " * +4 THF?E NRFFC 5CM0 SCSH SCAL"" •
"'•'ASSF " I N T . " T L A G -
SCALE FOR NOFWALICEO SCALE SHIFTER SHIFT
SPACE
. SCLF
* XPNT ROUTINE,TFOVES SPOT ON SCDPE RIGHT * MAINTAINING 10 CM SWEEP WIDTH *
LOX
£PNT
LQA
HR5T TFFIEN
"sua'
HRST
STA MERG "SUB" DIV TBA
TETTP+12 XS+AU+8D 'HRST TEMP+1?. EX 14 "
7
7
0
6
7
A&RA
2
STA
ÏÊMP+4
4
0
SET STARTING POINT
NO, UF DATA POINTS
' ~
X AXIS GAIN
U B LE
'
CALL TAH MUL LASl." Ll)3
GETV
SVÊP
0!5R EXL2 QAR ~~INCR
—
DAC PECO {7 AC X S t A O + XO •
sua
HRtN
JAN
XPN'T
\
!
SCLF "1 "" TEMP + 4
£xc?
f
.
' '
V E R T I C A L -SCALING v AXIS GAIN •
SCOPE
HORIZONTAL
SCOPE
VERTICAL '
END
OF
-
OUTPUT
OUTPUT '
OISPLAT
— R S C Ü P E - ANO PLOT PARAMETER X AXIS CONTROL* EXPAND, SHRINK, ROTATE * LDA HREN —
SUS
:
TEMP+13 FS
SUB STA TZX SEN
TEMP+14 . TEMP + H
6
7
•' ZOOM
SPEED
—
I NCR
XD
OLD COMAND
CIA SU8 JAZ ADO
01 ESS VARS 0N£
GET COMMAND "S" ' SHRINK DISPLAY "R"
JAZ
VARR - '
RIGHT -
ADD' JIF AODI JA7 JHP
0
—
NEW C O M M A N O SENSE - N Y ~
JAZ ADD "JAZ AOD
7
RIGHT
02011 *+3
JIF
7
TErtP + M 5 ' ••
STA LDA
" AOD JAZ AOD JAZ AOO JAZ AOD JAZ —A0D"4~—ADO 1
ANO
.HRST
STA —ASffA-
—
LEFT
4
0
—
' ,
•
TWO VARP TWO VARN TWO VARL THRE VARI FOUR
EXPAND "0" OhCREASC ">"
A7+Xr,VACR
JUG RIGHT
"'TWO -••i
—
''
-.
"P" G O TO P L O T "N" NORMALIZE "L" -LEFT "I" INCREASE "E ,! ~
VARE ONE VARU SIX
"
:
•
—
~
f RETURN '
AA
LDS
HILQ
JSZ IFF
*+3 HA
' GOTO NOP
68
SEN "68"
GETflAS
LHSW,*+3
"CO^T CPA STA -CALLASLA STA*
"INS LOA CAUL "ASL'A STA* INR
-INR LDA SUS
-JAN
• " TEMP+9
-XCCS-1
TO
UNITY
TEHP+O XSIN '
_
5CAL£""{?INE""TO""UNITY"
TEKP+7 TENP+7 -T£rtP + 6' TEfiP+6 EXOÖ "COEC CÖEE-
RETU* EJEC '*"" P P R I " S E T S " U P " I N T E G R A L * COPYRIGHT "PPRI—ENTRLOA CALL J AZ STA RETU
•SCALE C 3 S 1 N E
TcMP+7 ~TENP+7
VARIAN
SCALE
FACTORS"""
ASSOCIATES
-
1970"
JNSC OTIN CODC IMSC CODE
REJÊCTZERO
* P P R K R O U T I N E S E T S UP P L O T R O U T I N E P A R A M E T E R S * I F F S S 2 S E T H O R I Z O N T A L E X P A N S I O N IS C A L C U L A T E D "* ~ 5 0'~Cfi "A S ~NE A R AS P O S S I B L E ~ ~
TO
FX
L
*
* C O P Y R I G H T - VARI'AN A S S O C I A T E S - I S 7 0 "P PRfT - E N T R LOA SCAL STA SVSC ~CALIT " OT IN JAZ USE PREVIOUS VALUE PPR A STA SCAL, S C A L I N S FACTOR FOR PLO f ANP ~5 T A "SVSC— LOA SPWD PPRA ASLA 1 "STA— "TEMP+1 SCALED" FREQ — LDA HRST STA TEMP+3
77 0 6 7 4 0
SCOPE
ROUTINE
~ 62
PPR8
CALL CALL LOA CALL" " CALL STA CALL" LDA STA CALL CALL ' STA LOA SUB DAR JAN
PPRD
LDA STA STA " LDA STA ST A " JS52 CALL
C.RLF TEL A»MSAM TEMP+3 • PAR I PTST J TEMP+3 "'TELA, MSAN HREN TEMP+4 PARI ' PTST
BEGIN M O
TENT STVRT LOCATION 'END F REI „,
JBZ. • 5T0 * * *
PPRH
LOA" CXC2 OAR CALL RETU
„ m . .L
1— « n i l
. 1 j 1 - 11
"
7 7
*
TEST SEQUENCE
PPRB TEMP+3 HRST "SVST TEMP+4 HREN SVEN PPRE T£LA,MS8J
START LOCATION SCALED BY TW
END LOCATION SCALEO BY T « 0 CALCULATE EXPANSION HQRZ EXPAND * "" ' *** "
•*••»
• •«•» •
PTEN TELA,MSBG "TENS
.
....
•
""
1
* "
" •
—
•• • i n - •.!»•
DO NOT USE ZERO PPR Y
SlüN SWEP
SCREEN SCUPE HORIZONTAL
OUTPUT
DAQ
HREX- • CODE*
*
' MUL
•
DO NOT use ZERO
*
ENTR LOA SUB OAR SRA TZA LCÖ 01V TZA
«im.M'M*-»*
*
—*~-"CALCUL"ATE"'"EXP A NS I ON' AUTOMAT I CALL Y""IF~S S2 'SET' HREX -
M
TENT END LOCATION
SHIFT SPOT OFF SCOPE
XQFJ-
*
""
UUA CALL CALL CAUL
'
•
TÊMP+4
TEMP + 4 TEMP+3
* V
'HREN HRST FUDGE TEMP + 5 "" ' TWOK "TEMP + 5 ' " I)T* 1 0
0 6 7 4 0
"
:
...V— •
—•»
' " *
*"
- 63 SIS . 8E1U» EJEC
»FTZ HPtK
\ -
•
:
*—prsr'VESTS
I F FREO EHTEHEO DM TTY I S I N RANGE mo CALCULATES LOCATION I » OATA TABLE ENTR VFLLH PREQ IN A REG,£KIT WITH LQC I N A REG/
* *
PTSA PTSS •
•
—
—
•
—
INR STA SUB DAR ' JAP LDASUB A Off
SKIP STORE
PTST TEMP+2 "SPVIO
ZERO MAKE .NEG BEGIN FR£Q TOO LARGE
PPRS ™—GPWQ PSPW TEMP It-—. .
.
• •.•IL.II ( I * .
TEMP+1 03 V ASRB 2 "STS ** TF.FIP+2 TWOK LDA SUB • TEHP+2 ^RETU™ O Ö ISM CALL "PÏSA JMP PTSQ
PTST
. -
PLOT RATIOS SCALE FOR 8X02 OAF A ' - * —
•*> — • « • •
—•
•
TA0LE
• •
-
O
ENTRY 9
' P A R A F T E T E R " N Q T ' EFO'TERLD
.-
A
*
A—ASP"-ROUTINE•"ENTERS - PARAHETER FQF? "Y"QFF5ET#
K
X" PFFAG
j.
•
ENTR "CAUL CALL ASL8
AS?
"TELA? Ï1S8X""" TENS
? re» «n'aj 1
"YOFS ""* TELAF NSB Y TENS
CALL CALL "TZA"— » 0Ê20 ' HUL XOFS STB -RETUST— - A S P — — - N *
OTIN PRINTS AND T A K E S
OTIN
r » » » •»
wGw-wu
««amvcr mrsaezwwi^
*
1 .••!> •
•
'T^l
C'l.l.J —
l ^ w .111.11 - im n...
— ^ ' . J ^ / J I M t ' - ^ T i T>-
I N PARAMETERS
E W CALL CALL" CALL RETU*
"K * PJFR ENTERS
BOTT "TELAIMSSG""
ISNU OTIN threshold IN
•
CM FDR PLOT PRINTOUT
* /
77 0 67 4 0
»
•
» sv Hp V • •
«
-
CALL ASLB ST8 RETU*
_ —
SPAC
TENS 6 THRS PIFR
' THRESHOLD
_
~ SPAC "
• "*
"'
'
* RATE ENTERS PARAMETERS CONTROLLING P L O T T I N G ENTR LOA
RATE
^^ FSTP
ASRA "CALL
'
SPEED
a :
;
.
QTIN
""'"
JAZ*
RATE
ASL A_ "STA RETU*
8 FSTP RATE
~ PRINT' AND USE
OLD
%
GET
TIMING
VfORD
VALUE
*
"
o W f s E T S"~FL AG" T H A T ' O'n'ES O R ' S'K I P s " OR IF T "'C ( W R E C T t ON " ~
A *
0« SKIP, 1» DO CORRSGMON
DRFT
ENTR CALL ST5C RÈTÜT"
FLAG URFL 'ORFT
_ ~
"""
*
"
*
* A8S1 SETS FLAG FOR VERTICAL SCALING V ' A S S F ' " * ~1 "FOR 'ABSOLUTE'INTENSITY, O 7UR"'HQRMAL'IZET> *
ABSÏ
ENTR CALL STX RETU*
,PL * * *
.
UPTl
UPTl '
FLAG A8SF ' ABSI SETS ÏF
Zt
PROGRAM H?
F.GR U P R I G H T T1 D I S P L A Y W I U DISPLAY INVERTED SPECTRA
ENTR
CALL
FLAG
"S T X RETU*
U T1F UPTl
* "«""""A'BPlTSEr'PUQT
FLAGS FOR
ABSOLUTE
VALUE
MODE
*
AÖP1.
" "
*
Eh TR
'"UIL i\t
FL (jy m i
REflJ*
A 8 PL
<• -- ' • tH5Qt.itre.'VAUttt fi.w
8ASE SETS FLAG FOR BASELINE FLATTENING
7 7
0 6-74 !
•• •
-
BASE
EMTR CALL STX
65
-
FLAG 8SFL
-RETUV"-BASE
'
"
'
* INTG SETS PLOT FOR INTEGRALS ANO JUMPS TU PLOT * INTEGRAL SCALÊ FACTOR I N INSC * CUPYRIGHT INTO ENTR LDX
R VARIAN
ASSOCIATES
ABFL
JX"Z JHP
ABS
ININ CQUC
'
-
1970
VAL
PLAG
"
00 INTEGRALS ILLEGAL
* ENTER WITH TABLE ENTRY NUMBER OF FIRST POINT TO BE LOTTED I N HRST * LAST POINT TAULC POSITION IN HREN, AND VERTICAL SCA £ FACTOR "*"""IN - SCAL * I F F SS3 SET PEN I S SHAKEN TO START FLOW OF INK *
ININ
INCR STX
XD INFL
SET X TO ONE SET PLOTTING TO INTAGRALS
NOP
tZA STASIA STA
"STASIA STA * *
-TEMP+5' STPC TETTP+3 "TEMP+4" INSN SAV8
OLD VALUE -1 STEP COUNTER INT6 ENO OFFSET INTG BEGIN" OFFSET—
PLQT TRANSIENT 'STA" LD3
"WKST
FORK WHEN
STB "L'DB" LDA
-oEior LOG*+7
JA? K *
—•CLEAR CLEAR CLEAR —CLEAR
SET TO FULL DATA TA&LE " U N I T Y "MORI ZQNTAL"EX PANS ION'"
'
PLUT SPECTRUM
*
•L DUSTS
'"HRST'
LDÖ LDH
HREN "WKEN" PPRZ
"LD5'
" PPR Y
"STEr
«iOBiCa ««aft mix-
«KST
STB
SST*1
LOA
AÖSF
7706740
SCALED
STEPS
^
- 66 OS A TAB LDA
TIFU LASR
J82
LPS
ADD AOO . "STA
.
INSC "INSF SCAL LP 10
VT * __*
' "NQR-ALiSE
;
1
; 7
• ' ""
_ _ _
„
"
T«1
"""
A05:LUTr. JNTENSIIY __ R , "
LPM
LDA STA LOA JMP
L
.A8SU,UT£ MANDATORY WITH -
OElO NRMC LPS "" " 1 *
STA
,
,
....
_
_ "7
_
_
~
'
FIND MAX POS VALUE
LP8
__ LP!
ADD
"FOUR
STA STA
UP0
ZERO STA CALL
xOtAO MAXV GETV
SUB
MAXV
JAN
*+4
*"~L"P3
' INSC
UB DIV STB LOA
MAXV INSF SCAL
DJV TZA
MAXV
MüL STA
RCAL" 5CLF
^JOF
_c00c_.-.J
'JAZ LOX CALL
LP21 YTKST GETV " "
ADD
"
—
_ CALCULATE 9EGIN OFFSET — BEGIN OFFSET
LP3 . TEMP + 4 A
0
.
'
DE10
LOA ASRA
"
CALCULATE INTEGRAL SCALE FACTOR
TEKR+4 TEMP+4 XS + AO+XO'" WKST
JAN
6 7 4
u„ «
"MAXV XS+AO+XD exil LPI
STA I NCR SUB
77-0
"'
MAXV
LDA
SUB
'
CPU
ADO_ STA INCR _ _ _ _ _ _ sua_ 'JAN
LPlO
"""
DIVIDE
BY
16
T P 4"
LP21
*
STA TÊMP+4 TFKEN LOX DXR "CAUL"""' " E E TV AGO TENP+3 STA TEMP+3 -OECR— - " X S + A D + X D : MKEN SU8 . 0E16 ADD ~LP4 --— -JAP T£RT?+3 LOA 4 ASRA TEMP+3 "STA LP20 JCF IPLT _ CALL
0E6IN FI?FSET CALCULATE END OFFSET
END 05FSET
D I V I D E 6Y 16 -ENO OFFSET* ' USE SINGLE VALUES I N I T I A L I Z E PLOT ROUTINES
MOVE CARRIAGE TO RI&HT B E F O R E
PLOTTING
*
XOVA
"LDX XSTP — JXZ * + IL £FRQ EXC SLEW LUA SLEW ADO DXR ' "EFRQ+OFF EXL . WAIT CALL JHP XOVA WKSÏ — "LOX" XS + AO 1 NCR SUB WKST STA T£TTP + I 2 ' " TZA LOB SSTP TEMP+12 ' KUL •
LP2
* *
WORKING" START" -POSITION IN PLOT— .SCALEO STEPS
SHIFT B TO A AND SCALE
13.
LASL SUB "STA" XAZ STA "CALL * *
STPC
vsrpLP1<2
DELF "GETV
CORRECT
77
Ó
6 . 7
4
15T A N D £ N 0 OROER D R I F T
TEHP+IA
STA LOX -JXZ" LOA SUd
DRFL "ORFA SAVX
FCKST
0
DELTA FACTOR
FOR I N T E G R A T I O N
SAVE DATA VALUE LOOK At DRIFT FLAG DO NOT CORRECT- "
AND PLOT
J
-
S7A LOA SUB "5TA LOA SUB
_
T£MP*13 WRTEN . WKST TEHP-+7 " TEMP + 4 TEMP+3
TAS
ÖATA
*'""DATA LENGTH SEGIS) OFFSET END OFFSET
,
T2A HUL
—
TEFLP+7 T8A SUB TAB
TZA Tox sUZ
..„, ...
"'
"""
CURRENT BASELINE OFFSET CORRECT BEGIN OFFSET
TEHP+4
™-A00-
;
__
^
TF-MP+13
_ .
DTFFA.
LOCATION
:
fEMP+lZ
i NFL LPS
|
A CORRECT 3R0 ANO 'HIGH£R~QROER ' D R 1 F T " T 0 R " P L Q T "
* . A
toy
•
6SFL • LP15
JXZ T8A ' ASRA ADD STA ASRA L08
XAN XAZ '"""'"STB LOB ASLB TZA MUL LP 15 NOP LPS """'JAZ " JAN • LOS JMP LP5 TTUL UP 1 I NOP —"U5|T"" ROF LP13 AOQ JOF 5TA LPH J MP
A LPP.0
7
LDX CALL 7
0
6
7
0
UP OWN NEW OFFSET
*
~
*
RESTORE SCALE SCLF RE5CALE VERTICAL VALUE OK NFG VALUES OK USE OVERANGE
GTAR GEAR FS » GEAR""" INSF
"18 ' INSM COSC INSM. GEAF WKEN GET V
4
ADJUST CORRECTION OFFSET SAVE OATA SET THRESHOLD
INSM TEHP+12 6 ' IN$M LP 16 LP 17 I N$M TEMP+12
• " "
SUM
PLOT '•.•*•
- ei STA T+3 WKST LOX GETV CALL " STA"*'"'" T + 4 RE TO LP21 HORE
END TRRSET I " " SEGIIING
'
" " "
-
OFFSET
•
-
* GEAR ROUTINE INTERPOLATES 3£TV=£N POINTS AND VARIES * INVERSELY AS VERTICAL MOVEMENT F ' '*~EHTER " K I T H 'VALUE I N A AND 8 RSC "
ARFTALGE SPEED
*
* COPYRIGHT - YARIAN ASSOCIATE'S - 1970 LA'SL' 15 PUT V-VLUE I N A REGISTER — GEAR GEAF ADD OFFS MOVE .'EN UP BEFORE PLOTTING LAPS XOF LDA F 5 "LASR " T ~ I>TI U I/I U N A OLD VALUE SUCI TEMP+5' TOTAL DELTA LASR is SIA ' THMH-HO ' ~ NEW DELTA S I G N " ' DEL F ÜIV - DELWSTEP TERTP+7 STC» LOA "TEMp+STOLO VALUE'"" "R ~ GÊA8 DELTA' ADO TEMP+7 TEHP+5 STA CURRENT VALUE i
*
*.
TEST THRESHOLD •
*
LDA INfL GEAH JA 1 LDA THRS ' J A"/." - GEAH' OFFS AOO ASRA J SUB SAVÖ TEHP+10 ANA ANA TEMP+14 JAF -GEAH--
NO P,O T
ON INTEGRALS
—THRESHOLD 2ERO~ t
NEH DELTA SIGN 'QUO DELTA SIGN
.. -
.
* PRINT INTENSITY. AND FREQUENCY
GH'AH
7
7
0
CALL LDA
CRLF SAVX
CALL CALL LOA ASLA S!JÖ ASRA CALL LDA
PARI PRINT FRED TELA'* MS8L SAV8 — 1 UFFS 7 • - CONVERT TO MM ' 0OTT PRINT INTENSITY TEFIP+10
6
7
4
0
__
•
—
———
•I |
»
.
~
GHAA
NOP
CPA . STA LOB TBA " ASPA 1FT GOTO" IF T CPA IF T NOP
_.7O - /
TEMP+14 SAVÖ
OLD OÊLTA SIGN
5
POSITION FOR DAC
FTSW NOP
INDICATOR
..... . . . . .
. - ..........
.. .. „-
XLR 1- . —
— * " O U T P U T ' T Ö ~ DAC
T. RECD DAC SLVIP WAIT TEMP+7 VS TP GEAE
EXC2 . OAR " LOA CALL LDA LOX JAZ D8R
LP17
GEAC
•
GEA'L
GEAG
SEN SEN LDX I NCR SUB JAN LDS J8ZH
" DOWN
•
JAN I8R I6R' TÖA SUB JAZ J MP STO JXZ F.XC INR EXC LOA L03 XÖZ CALL DXR SÏ A JXZ J HP CAL'T
•
GEAC >
•
•
•
TEHP+5 *+ 4 GEAA t SAVB GEAD "" EFRO STPC COUNT STEPS ETRO+DFF FS TP I NFL '" D Q "HALF SPEED' FOR* INTEGRALS LP I S ; WAIT
!' "
.
VSTP' *+4
"
GE Aft PENO
020UINRS RLIH,CU0C S AV X XS*AO*XO
WKEN "LPS INFL INPO
7 7 0 6 7 4 0
"
"
' '
««.«—»• .« . I
J J- . • • —
"
11 '
» —!•« « . . - . .
'
mot.*
» •
•
» •
—
• 1 • '"***
»*
••«• •
•
"
* *'•
.«
>••
.
"
«
. .
SENSE TTY TEST RIGHT L1 MOT •RESTORE X REGISTER- ."
— •••• #
WORKING END ... . ......... . . ..... .. . .. .. •
PRINT
INTRGRAL
..
I
-
«
EXIT
__
_ ' *
CALL CALL.
MPUF RWRQ
JMP*
PLOT
"
.
71 -
RETURN F.-QT T O NORMAL —
. -
. . .
-
* TELETYPE EXIT *
—TTEX
CALL
HPLF
IJMP
CODE
—
*
*
— W K S T ~ EOU' WKEN • EQU SAVX ECU VSTP EUU •ÏWSM '.EQU SCLF EOU
11 1
3NSF I NFL SAV8 DELF
EOU EQU EQU
GETV
•
STARTING LOCATION ENDING LDCAT-ION PLOT OATA LOCATION RECORDER STEPS'PER' D A T A ' T O I 'T INTEGRAL SUM SCALE FACTOR MAXIMUM VALUE ' INTEGRAL SCALE FACTOR INTEGRAL FLAG PLOT DATA VALUE DELTA FACTOR
••TEHP+S TEMP+a TEMP+9 "TEMP+10' TEMP+U
EUU EQU
MAXV
*
"TEMP — TEMP+1 TEMP+2
TEMP+15 ~~ "TEMP+1Ö TEHP+1/
ROUTINE
IS U S E D
*"
TO
SELECT
" " "
* CUPYR1GMT GETV ENTR STX TXA L03 J0Z LD8 J8t
-
VARIAN
*
THE
TYPE
—
OF
INFORMAT
ON
RETR5IVAL
—
ASSOCIATES
~
1970 '
.
SAYX
" .
LOG PNTV A8FL PHAV
' .
0=
PHASED
VALUE,
— 1=A5S0LUTE
* VALUE
*
* PABS ROUTINE —*-"£ERlRNS~WITH * ft C O P Y R I G H T "PASS 'A SLA ADD
IS U S E O F O R A B S O L U T E V A L U E R E T R E I V A L V A L U E IN A R E G * X' U N C H A N G E D -
- VARIAN 1— TAfiL
ASSOCIATES r——
TAX
"
REAL
-
AOOHESS
L08 HDL
0,1 0,1
-REAL S O U A R E •
STB LOS HUL" LASL ADD
TEMP+12 1,1 1,1 1 T Ê M P + 12
IHAG
77 0 67 4 0
•
1970
SCHARE' '
—
- ' *
SUM
OF
SCIUARES
STA
TEMP+12
TZA STA P A3A" " I MR " TZA LD3 ' MUL TB A SUP ~J AN • LDA ASLA "LDX — •RETU*
TGMP+13
ROUT
OF
SQUARES
TEMP+13
TEMP+I3 •THMPf TEMP+32 'PASA
TEMP+13
ROOT err SUM OF SQUARES
7 ' SAVX GETV
EXIT
•V~PNTV~USEÖ"FOR' SEQUENTIAL QATA'POINT' RETRETVAir * R E T U R N S W I T H V A L U E IN A R E G X UNCMANGtO *
V C " 0 P " V R I G H T " " - ~ V A R X AN " A S S U C I A T E S " 1 P 7 0 ""~ PNTV ADO TAÖL TAS __ „ _ _ _ LDA " O,2 ASRA 1 RETU* . GETV EJEC '" "" P H A V R O U T I N E IS U S E D F O R P H A S E D V A L U E INFORMATION * •* R E T U R N S W I T H V A L U E IN A R E G I S T E R X UNCHANGED
* COPYRIGHT PHAV ASRA _ A"SLA" ADD TAX - —
VAKIAN ASSOCIATES
-
R
l9m/0
21 TAG 1
L 0A
0,1
STA LDA ST A" If) A ASIA_ ADÖ TAX
'TEMP+12
TEMP
VALUE
OF
COS
1,1 "TEMPtiS" SAVX
TEMP'VALUE"OF"SIN
i' "TABL"™
LDB
_tf, l
TZA . MUL
TEMP+12
STA 'LD 8
7 7
TZA
TgriPtia 'l,i
MUL
TEMP+13
ADD LOX JMP*
SAVX G£TV
0 6 7 4
TEMP+12
0
REAL VALUE
I MAG SUM
V.,ALUE — • •
) jsasa Banmi
TRÉIVAL
-
«
73
-
EJEC * *
INRS ASSETS INTEGRAL TO ZERO 8Y TYPING »'Z" ON I T Y MAX INTEGRAL VALUE EQUALS 1000 * ----. * COPYRIGHT - YARIAN ASSOCIATES »• 1 9 / 0 INRS CIA 1 SUB I 0332 " TEST 'Z — * LD8 ' INFL V*IF
*
• •
AZ+82,*+4
'
TELETYPE EXIT ' JMP TTEX CALL INPO LOA GICH INCR 80 STE OELF JHP GEAF+5
.
PRINT INTEGRAL MARK PLOT SET • DELTA RETURN TO PLOT.
:
*
INPO PRINTS-INTEGRAL" "VALUE ~~ ENTR INPQ CRLF CALL 1 11 - ' "" - »• • 'ui 1 • • -' " • -TELAJHSSL"-" CALL" L08 • INSM THOU HUL Borr ~ CAUL STX INSM RETTJFR . INPO .. . — -— —-»-. EJEC' ENTF? «PUR RMRD CLEAR DIG I / O CALL — •• • — — . LDA • - D E I 3 PLACE RECORDER I N REMOTE OWRD CALL SET AMPLITUDE TD ZERO . TZA — - — — — ... ' — — • EXC2 RECD DAC OAR SLEW MAXITTUN SLEWING SPEED LOA -ACCELERATE CARRIAGE — UAR 'HPL'A ADD SLEW HPl»B SEN* EXIT LLIM,NPL~F 0201 ,CGDE"" "" SLN SAVE NFCW TIMING WORD TENP+12 STA HA I T CALL " fJ'HO • 'STEP RBCTWOM " " -"EXC LOA TEHP+12 SU3 SLEW TXU EFRQ+OFF ' UNE S T E P — JAP HP LA J MP MPLS
•
«•»•»«•«
•
.—• — .
•• •
- - • • •
•
%
•
-
...
...
* SUBROUTINE TO INITIALIZE PLOTTER
7706740
" " " "
.
-PH »•
i) : f.
1PLT
ENTR CALL INR __ TZA CALL
FLPLF FILP OWRD
' •
MOVE PEN LEFT
PREPARE TO HOVE RIGHT
W """""
""LEFT" LIMIT
*
SWITCH REGISTRATION
*
REGH
LLIM,REG THTH WAIT LLIH,REG
SEN
LDA CALL SEN
CHECRTI LEFT L I M I T SWITCH WAIT" 50 H . S . LET SWITCH SETTLE RECHECK LEPT L I M I T SVFLTCH
*
SHAKE PEN.TO START INK FLOWING I F sss UP
* *
LPX . CALL LPA JS3M CALL LDA • JS3M DXR JXZ* JMP EXC LOA
OWN
REG
~exc
CALL JMP * * ,
0E1O PENO THTH WAI 1 PENÜ THTH WAIT
L I F T PEN
COUNT SHAKES IPLT OWN EFRÖ FSTP 'ÊFRU+OFF WAIT REGH
ENTR STA LOA CPA ANA
EXC2 OAR "" LDA RETU*
* PENO
SECONDS
STEP
RECORDER
' ""ONE-STEP"""
L I F T PEN
PENIR"
*
DROP PEN WAIT 50 M I L L I
TEMP+13 DEI 6
SAVE A REG
FILP GREG* ORHG • ; TEWP+13 PENU
KEEP FILTER POSITION
•
RESTORE A REG
DROP PEN ENTR STA LOA "OR A T'XC2 OAR
TEMP+J3 OE16 FILP ' ORF-G ' oft £ 5
77.0 6 7 4 0
SAVE A PEG • KEEP FILTER POSITION
-
LOA RETU*
TEKP+13 PEND
RCriTORE A REG
*
OUTPUT WORD TO DIGITAL J / O k * ""OWRD~"
DETAIN
FILTER
'ENTR ORA EXC2
"
POSITION
— KEt3
FILP OREG QftEG FILP OWRO
0 A R
STA RETU*
REMEMBER
* _*
R E S E T W O R D TO D I G I T A L I / O RETAIN FILTER POSITION
•RWRD
ENTR LDA
FILP
ANA
FMSK
STA EXC2 OAR PETU*
* POSITION
FILTER
NEw
OPERATION
:
FILP OREG "~OREG RWRD
*
- * - H A l T - O P E B A T E S S O F T W A R E TlflER E N T E R WLTH-TLTTER' WORD-IN * COPYRIGHT - VAKIAN ASSOCIATES - 1970 WAIT ENTR IFF F GOTO AA SU8 ONE 0ECRÊMÊNT A REG. JAP AA
2
IFF GOTO DAft JAP
'
UB
TINE
NOT
UP
NOT
— ' UP _
L 68 .
TIME
• _
4
CDNT RETU*
* FLAG TEST * TITAG ENTR
' h'AJT ZERO/ONE »
TZX INA CALL -SUB"" FLAG JAZ* DAK "LDX' — ' ONE FLAG JAZ* J MP CtjQC
7
7
0
6
7
4
0
EXIT FRQW
TTV
' TINE ANO
SETS
. TÉ5T ZERO
TEST ONE
UP X REG
SAME
A REG
*
TENS TAKES IN PARAMETERS IN TEMFIS „VALUE IN Ö R6G * 10 TIMES INPUT ;
TENS
ENTR CAI.U 01/ JOF JETU*
*
JSMO " PAR2 COOC __T£NS
PTEN PRINTS TËNS I N INTEGER
*
AND*TENTHS, •
PTEN
TNTR™ TAB MUL STB CALL LDA CALL TZA • LD8 OIV TSA ADO"CAUL RETU* EJEC
PARZ ' TEMP+3 00 T T ASCP OUTA • "
ASCII
PERIOD
TEMP+3 PARZ " ASCO OUT A PTE N
V J S N D ' R E A O S "OWE DECIMAL"NUMFTEF? UP TO" 3 2 7 6 7 . 9 ' I N " T E N T H * WHOLE NUMBER-IN A REG AND FRACTION I N 8REG *
V " C OP TRIG H T ISND ENTR
ZERO JNSP
"TEMP + J4" INS 1 IMA
"SUB"
~I"NS4
XAZ
nz
'SUS-JAP ADD ~J A N LDB MUL 'JMP ~~ LDA STA
" '"
06
~S TÖ STB CALL_ JAZ INK
INSK*
' V A RIA N ASSOCIATES "- 1Ö7 0 ' " • "
INSR
.
TEMpt-H i a IHhH "INSS"' ISNÜ+1 1NS9 "ISNO + I INS 1 1N59 INSP "
C L E A R ' 0 I G I T COUNTER SAVE CURRENT RESULT
CARRIAGE RETURN COUK DIGITS ENTERED
ILLEGAL. TOO BIG "ILLEGAL TOO SMALL' " " " OLD RESULT TLTTES TEN NEW NUMBER I N A GET NEXT CHARACTER
INS1 JHl 0
77 Q 67 4 d
BINARY NIJN&EH
EG
T18 JU CALL
INSS INA
SU8 JAZ SuS JAN
INS4 ' *+5 INSS ISND+1
TAB 5u3
—INSS
SKIP TENF1 ENTRY "
CARRIAGE RETURN
ItX£SAL"100
"
SHALL
"
'
INS9
JAP 73A
JSND+J
ILLEGAL""!DO BIG
MUL
PARI
CONVERT
CALL LDA
OUTA IN 10
*• GET BINARY NUMBER
LDX
fEttP + M
G£T"DIGI-~COUNT
- «RETU*
"
" V
JO B I N A R Y
FRACTION
"
ISND
*
INSi IWS4 — INSS
EOU EOU DATA
TErtP+12 RETU 043
INS/ IN58
DATA ECU
041 DE12
JNS9---E0U™ INJO EOU EJEC
DEI0 TEMP+13
—*"DONR-ALLOWS-USÊ
PARTIAL F'ESULT CARRIAGE RETURN ZERO' SLIFTL 5 CRT —
•; W H O L E 8J.N/RY
O F "TELETYPE
FDR
" NUMBER v
C0MENT5
* RETURN TO tfONlTER BY USING RUÖUUT *
— DQNR &ÜNS
*
EN'Tft
——
CALL
INA
JMP
DONS
EDIT JUMPS TO AID ROUTINE
*
— EDIT
EMT& JFLP
*
*
AID
4
: * — * ~ C Ü D E - A C C E P T S - T V I D ~ A L P ^ A ' C H A R A C T E R S AND CQHPARES WITH * ITS L I B R A R Y , E R R O R M E S S A G E I S P R I N T E D OF O P E R A T I O N * — C O P Y R I G H T - - * - V A R I A N A S S 0 C I A T E S ~ ~ '1970 ' CÜDG LOA CODF + i 4 WTFU
....
SU3
QPX
JAZ LDA sua
CRT C0DF*24 OPX
J a 2 m
s c p E
' FTRU GO
TO
SCUPE—
-
»
CUCC
CALL
CRLF
77
06 7 40
- H A R A C T E f f S IN OT A V A I L A B L E
NORMAL
ENTRY
F O R T T Y MUNITIJ
- -
1
- 78)(
i
CF ' TV F
KxRQ CALL 0275 LOA I " ' PRINT AFLROW ' "'* " CALL" ' ' our A""" SOF eooj 1 CIA 01 " CALL" ""'GET'FIRST: CHAR JNA / . . . 010 LRLA TEMP+017 5 TA y : IMA ' " ~ GET ' SECONL CHAR ~'CALC ADO TEMP+O17 TE«Pt0l7 STA ; " r1j a t ST8 , TEMp+016 LOX LIB "CÖ'D'A""' LDA 0,1 OPERATION NOT AVAILABLE JAZ CODC F I NO OPERATION sua TEKP+017 OPERATION DD DU cooa JAZ IXR IXR 1NR TEMP+O16 . 1NR TENP+016" CODA J MP
LIS
TELA,MS3G TELA,0 0 0 0 CODG TELA,HS8D * CODE" (CUDO) '
cooo
. I .. ir
® • •«••»«•
»•
>m~.
JHP CALL JRTP OATA
SPACE TTY 10 RIGHT 'GEI MESSAGE j- .
DATA DATA
'PA' •IN'
» AT t »PV)' 'NT'
'GO 1 IRA '
7706740
<m m —m
-
m
i a b-i . •
I—• U •
*h
K •
QODD ORG
FIRST~"AODR£SS"OF"LIBRARY DATA DATA DATA UATA DATA"
J
ERROR MESSAGE
K V COOO"
•
RCjF CALL CALL 8£S CALL
OPX"
CQOC
...
.—
.
m
- 79 h
UATA UAIA DATA 'RE1 ~OATA~" -fpu'tppj DATA DATA 'FT1 D A T A - — rsc'' DATA «SM» UATA 'AU' - D A T A - — * IP f DATA rDC DATA US' — D A T A - —:»CL F ~ DATA »AI» DATA ' SR' — j -DATA1 PD' DATA DATA - D A T A -~ i P T ' — DATA »&L« 'PD' DATA "DATA— —1LH«~ ' TI' DATA DATA 'PI' '"DATA— —»P2»— DATA * AS * ' LT' DATA — » LH'— "DATA ïDM» .DATA DATA ' GN' " D A T A — 1 ED' DATA 0 EJEC -READ -50729"
GOOD NIGHT STOPPER
**
* *
•CDDP
"DATA— UATA DATA "UATA— DATA DATA "DATA" UATA OATA "DATA—' DATA DATA DATA— DATA DATA
-(PARA)' CrtsBE) (INTL) -nsAö-nCACOT) (MSAC) "CPTWU) (HSAD) (NCTR) '(MSAE)(GOTO) (HSST) "(RESU) (MSSE) («TFUD
77 0 6 7 4 0
.% PARAMETER L I S T "INTERLOCK
T
ACQUISITION TIME PULSE WIOTH NUDSER TRANSIENTS " START ACCUMULATION RESUME
OPERATION -"••PA PA IN - " IN AT AT — pvj PW NT — -NT• GO GO - RA RA WI
**
**
i
CALL**
a
80 -
WR DATA WEIGHT FUNCTION (MSRCT) (SEME)* SE . UAFA CMSA 1) SE SENSITIVITY . ENHANCEMENT DATA ...... R£ ÜA1A - "" (RE5£) ••"'•• RE DATA (MSA J). : RESOLUTION ENHANCEMENT PL (PLOT) DATA — OAL A"*"' "(f}58Z) """ ""PLOT \ ' - PL * PP (PPRM) DATA PP • VERT SCALE (PLOT PA*AM) DATA (WSAL) DATA (F TRU) FT (WS8E) FT DATA FO.UR.IER TRANSFORH DATA SC CSCPE) • SC "(MS3E) UA 1A ' "SCOPE OISPLAY I SW (SPEC) DATA sw DATA CMSAX) SPECTRAL WIDTH (ATOM) TAU DATA AU (MS8E) DATA AUTOMATIC OPERATION IP C1WTG) DATA " I P UAT A "(MSSG)" ""INTEGRATE DC (DRFT) DATA (MSBM) DC DATA ORIFT CORRECTION " I S (PPR 1) • DATA IS DATA (MSBL) INTEGRAL SCALE DATA (CLER) CL " CL DAI A "(MSBT)"'."""" ""CLEAR AI (AÖSI) DATA A I (MSBP) • ABSOLUTE INTENSITY DATA " • SR — DATA" —CSROT) 3R (MSBEJ SPECRUM ROTATE DATA (OONR) DATA — .mm* • (MSBE) L/ATA COMMENTS *DATA (POLY) PD PULSE DELAY PD DATA (MS8R) 1 "AV UA1 A "(A0PL) AV (MSÖZ) DATA ABSOLUTE VALUE PLOT (RATE) PT DATA UATA '(MSCE)~~ " "PLOTTING "TIME •PT'~"—1— **". BL DAI A • (BASE) ' DATA BL ^ (MSCU) BASELINE FLATTENING TU'~ DATA (PIFK) PU INT AN0 FREQ PRINT o u t (HSCRF) DATA LH (LHFD DATA "MSÖÖ t % LH - • "LO/Hr FIELD" LOCK UAFA T1 (TOGO) DATA TI DATA TEE ONE (MSCF) T3"".' - . j-j üü'XVi."; Zi BC - ? " * ' it'wrres - t T Ï T ? p | 1OT1 'BI • "(PONF!) UA I A pulse ONE DATA (MSBU) PI (PTV.U) DATA ca DATA (M S B V) "PULSE TWO " "" DAT A (ASP) AS DATA (MS0W) PLOT ASPECT AT»
„
.
~~
.....
•
•
•<•!"'
—
1'
1
».!'."
1
"
-
1
77 0 6 7 4 CF
«
-
o AT a OAT A DATA '"UAIA OA I A OAT A "DATA DATA OATA DATAEJEC ' *
AI££) TRTSCAJ (LTNS) CHSCB) (UPTI) : CKSOO) CPONI}" •CMSGN) EOIT CFLSSÊ)' "• -
81
-
LITTLE TEE
LT LT LN LRT
•
DIFFERENTIAL plot MODE GOOD NIGHT GOOD NIGHT EDIT J1E5SAGE
• 1
"
D« GN
GN ED "— ED
TABLE
* USED FOR FOURIER OPERATIONS AND PARAMETER' HANDLING *
— FISAR " OATA <7106012,'ÏNTLK ' , 0 " HSAC DATA >ACG TINE(SEC) A ' , 0 «SAD ' 'PULS WDTH(USEC) = ,0 DATA TTF?ANS='/0 • • ' "" —NSA£; PA TA~ tSSN ENH TC(SEC) S ' , 0 NSAI DATA 'RES ENH TC(SEC) S 1 , 0 DATA MSAJ — H Ö A L - " DATA " 0 1 0 6 8 1 2 , iVRTs',0* " MS AH '8GN',0 DATA 01 GOFI 12* '£ND ' , 0 ' «SAN OATA —MSATFCAT A' "0106OJ2,«PTSa'/O " «SPEC WDTHIHZ) a»,0 HSAX DA I A 'H FLO *,0 HSS3 DATA — n s a c " — DATA - ' L FLO * , 0 — — — 01öapJ2#0l37SQ7 ? BEL KSg£ DATA HSYT o c.oro MESSAGE DATA NS8u ~— DATA* -» • f,o - TWO BLANKS — -NS8I [TATA 'FAIL ',0 tfSÖJ DATA OLOÖO12i'HRZ S1 ,0 . H3BL"~ ÜATA "1 IN T5"1 , 0 - — 'DRFT CR 1,0 KSSMDATA fASS INT *,0 Hsap DATA A — KS8CÏ-- DATA '0105212,0105212,0105212,0105212 " Ö LINE FEEDS CARRIAGE RETURN/LINE FEED KSCR DATA . 0106612,-0 HSER «DELAY. (SEC) B 1 , 0 OATA — — r-5S8T~- D A T A — -".FHOURS ~ ' , 0 -— M5SU DATA • I PULSE-ONE (IJ5EC) = ' , 0 MSCV •PULSE-TWO IUSEC) = ' , 0 -DAI A ...... 1 " f-ïSBW" — DATA™"" »AS-'; 0 1 9 0 2 1 5 , 0 ' " " ttSBX 0105326,!D(CM) = ' ,0 DATA H5BY 0105310,'0(CH) = ' , 0 OATA — H S 9 Z ™ DATA »AB5 VAL ',0 " — " hScQ DATA «LITTLE T »,0 T, » , 0 COMMA SPACE HSCC OATA ... . IQASE LINE' ,P • HSCD • DATA HSCE DATA »PL T H - ' , 0 MS CF D A TA ' T"1 ' , 0 *
«•
»•«
••••
»
*
•
-
"
77 0 6 74 0
—
"
- If -
82 -
;;j
MSCM ' HERTZ = S O DATA OATA MSCM 'T(CH)K I , 0 ' OATA 'TRUFC SPECTRAL WIDTH B > , 0 MSCS "O 105240, 'MS> 10' MS = " ' 1 , 0 " M5QA""""'DATA DATA ' MILL!' MS 08 ' 'SEC * 1 , 0 DATA HSOC IDIFF-PL0T M0DE"!',Ö" "HSOD" DATA .KARIN IF T &A " , GOTO MSGN"" DATA 'GOOO"WIGHT';0100612/0 " " S8 GOTO •• CQ.NT SA 1 ~~ MSGN™ DATA GÜO NACHT" KARIN"GIVE' M E " E R K Y S ' # 0106FIL2>0 CO NT 48 KARIN IFT GOTO SA ' MSGM DATA 0106512»'GOOD MORNING',0 5jB • GOTO CONT SA" MSGM OATA 0 1 0 6 5 1 2 , ' H E J KARIN, GUV MOREN DU ÉR SMUK»,010&<>12,0 ' $8 EONT MSPN 'OATA ÜL0ÜOL2 '30319-M' DATA OATA FT-RL RESEARCH SPECIAL ' / O ,'EJEC " * ÖüTT FIXED POINT INT BIN TO BCD CONV WITH TT PRJN * ENTER WITH 8INAKV VALUE IN A REGISTER T H A X VALUE 5" 3 2 7 6 7 DECIMAL A * COPYRIGHT - YARIAN ASSOCIATES - 1970 "POTT ENTR — TA9 _ _ _ JAP ' BOTA __ -
•
-
8ÜTA *"*"
-
"
—
I NCR LDA CALL LOX TZA STA Div STB " LD8 JX* LLSR
AS+8Q NEGS OUT A FOUR TEMP+12 UElO TEMP+13 TEMPt12 BCDT 4
OXf?
STB LOB JHP
•
. TEHP+12 TEMP+13 A-9 • '
PRINT NEGATIVE SIGN " "" " "
:
CLEAR PREVIOUS DIGITS.
.
SAVE SIN VALUE GET PREVIOUS D I G I T S JMP I F COMPLETE ATTACHE DIGIT TO RESULT ELSE COUNT D I G I T S * SAVE DIGITS ASSEMBLED GET BIN VALUE ' * '
*
- 81N CODED DECIMAL TO TTY PR fNT
77 0 6 7 4 0
—
4
.
- 83 .
BCOT
• "QCDÜ
LDX JX2 LOX AOQ CALL OXf?
8CDP 8C0W five ASCO *' " GUTA 8DTT'
J K U
BCDV
TZA LL«L
04
Jl1F
BCOw
,
BC£JU
A THRE : 8 CD F &CDV
LLRL LDX 5 fx JflP
j' f't
GET FLAG' 00 FIVE Plj-'CÊ * CONVERT TC; ASCII
FINISHED 't
-
SET UP BCD NUMBER
GET'NEXT -N'iH8ER
r
—
00 3 PLACE SET FLAG
' — -
• • -
*
— * - T E U A ~ P R T N T 5 - A HFSSAGE ON THE TELETYPE * KEYBOARD I S CHECKEO FOR INTERRUPT
"
'
A —A-STORED~AS"ALPHA-CONSTANTS • THE MESSAGE- ENOS * WITH A FULL WORO OF ZERO THE PARAMETER OF THE • A CALL IS THE ftfA OF_JH£ MESSAGE ~
*
*
"
A COPYRIGHT - VARIAN ASSOCIATES - 1970 TELD CIA 01
ThLÖ
TELC
TELA
PARL TELA 0,2 TELA 0,2 TELA
LRLA
8
CALL
DUTA
OUTPUT FIRST CHA"R
. CALL 2BR
OUTA
OUTPUT 2ND CHAR STEP POINTER
fcNTR SEN
G20i,TEtD »
*
EXIT THRU PARAMETER
.CHECK FOR
—
__
JAZ L03 L03 INR LOA JAZ*
POINTER CORRECT RETURN GET CHARACTERS EXIT
__
"
LIST —
~
ADDRESS . . —
INTERRUPT
*
— * " I N A " R £ A O S ~ F R Q M ' T T Y AND PRINTS ~ ASCII CHAR IN A REG — * IF RUBOUT INTERRUPT RETURN TO CODE *
*--CUPYRlGHT-«-VARlAN-AS5UCIAT£S - iy?0 INA ENTR NOP INTERRUPT
SEN"
0201,* + 4
JKP CIA
*>»3 01
7706740 I
READ READY READ CHARACTER
.
""
SUB
JA2 ADO CALL "" KETU* V PRINT * JUTA --
R80T COOE
RETURN Tt, flONlTOR
R80T
RESTORE CHARACTER OUTPUT ASCH CHAR KTTURN
DUTA INA
ONE~ASCII"CHARACTER ENTR — N0 p SEN JMP OAR RETU*
• OJOL,FT+4 *-3 '01'" UUTA
ON THE ÏTY
INTERRUP"WRITE READY P R I M CHARACTER-;* RETURN
* CAR RET LINE FEED *
CHLF
ENTR_ "CALL
JHP ft ENO L SC
"HA" HAT FLSN_ "HAD HAR
"TELAVHSCRCRLF
EJEC "ENO ~ £GU
EQU "fcQU EQU t«U 'EÜU' EQU OATA
1
VDH <520-L COMPUTER HR 2 2 0 / 3 0 0 NMP SPECTROMETER
SPECTROMEftR 1 1_ "1 1 ' 301UÖ-M
20803-M OATA
CONTROL
TIMING CLOCK CONTROL FIELD SWEEP MR 220/300 SPECTROMETER CONTROL RECORDER CONTROL '786 ' H«7»( " H ' R 7Y«7»I'"a T-L RESEARCH SPECIAL
»2030D-H! 20309-M"- T - L
77 0 6 7 4 0
RESEARCH SPECIAL
Een hoQfprogramiaa in machinetaal voor héb bovenstaande programma aangeduid als • -
T-I-Tex is als ..volgt: T—1 TEX OVERLAY " T—1 QSEX OVERLAY .7. HEAD SYNTHESIZED FIRST PULSE T-l * DATA OVERLAY TO 30319-M T~i RESEARCH SPECIAL * TO DO T-i PULSE SEQUENCES' WITH A SYN-VftESIZED "EXCITATION SEQUENCE * IN PLACE OF THE FIRST PULSE * R W R D ~~ EQU 06244 SF'WD EQU 0266 0241 TABL EQU 0323 V P U L " • EQU EQU TEMP 044 FTIM EQU 0231 0352" VTIM "' EQU NF'UL EQU 0322 ASRA EQU 0174 FTIZ" " EQU "'03241" — VSUB EQU 03066 TAB! EQU 0243 " TAB2~"." EQU" 0244 EQU SIGN 0165 PI EE EQU 0167 PWBF ' EQU" 0277 ' " EQU 01641 BSAC FINI 02200 # "" " " EQU
« V •s-
LOW *CORE ENTRY POINTS —
EQU DLNO CLIT EQU • CÜDC ' EQU EQU ACAL EQU BTFL "SMFT ~ EQU EQU XCOS XSIN EQU ' ÖWRD EQU *
viREB2 TIHR DESA EESA PLON PLOF " KUXC
02701 03021 06525 04016 03051 03731 04100 04075 04741
-
"""
EQUIPMENT DEFINITIONS EQU 0150 EQU 060 EQU ~ ~ 0360 EQU 0260 EQU 0457 •EQU 0557" EQU 061
7708740
"
I •ii
- 86ir PHON PHOF VADC PLEN-" PLUN GREG CBSY ENAB RNAB SLOW" FAST LOG
EQU 0450 ; : EQU 0550 EQU 060 0657 " EQU ' EQU 075/ RF TO LOCAL CONTROL EQU 050 OUTPUT REGISTER ADDRESS EQU •0350 " S E N S E PULSE TIMING CARD NOT BUSY EQU 0250 ENABLE PULSE EQU 0350 RESET ENABLE L PULSE EQU '0257 ENABLE DIV BY 10 ON PULSE CLOCK EQU • 03-57 ENEABLE DIV BY 1 ON PULSE CLOCK EQU 0246 , » ORG 034000 PULt ENTR EXCITE-ONE PULSE SEQUENCE EXC . FAST WITHOUT DATA ACQUISITION OME TIMR;VTIM" EESA ÈXC LDX PATT POINTER TO FWA OF PATTERN LDB "FORK — C O U N T E R TO LENTGTH OF SEQUENCE " PULL SEN • • VADC»*+5 WASTE TIME UNTIL ADC READY _NOP ' JMP ~ ""*-3 " " CIA VADC CLEAR ADC AND SENSE MUXS RESET ADC CHANNEL " EXC LDA 0,1 GET TIMMER WORD FORM PATTERN ASRA 7 EXC 0750 SET PHASE ACCORDING TO SIGN OF MODULATION *+5 «JAP CPA IAR " _ EXC " 0650 ADD I 2 REG2 EXC2 OAR"""" ~ OREG 0457 LOAD DATA ONTO CARD • EXC 0557 EXC • CPA IAR ADD I 01000 'TOTAL RECEIVER BLANKING TIME ' ASRA'" '• 1' ' ORAI 0100000 • SET SIGN BIT OAR OREG EXL '0457 :'" "LOAD DATA ONTO CARD' ' ' EXC OSS? NOP ' NOP CBSY, *-2 SEN ) RNAB EXC •ENAB — EXC . \ . '• IXR V
-
77 0 67 4 0
•
n <JBZ* PUL1 JMP PULL PUL2 ' ENTR "" LDA "" ' PWBF """"' REG2 EXC2 OAR OREG ...E X C » 0457 05b/ EXC 0100400 . LDA I OAR " " ."OREG" * EXC 0457 EXC 0557 * • OMI "' EXC " 0250' EXC 0350 JMP# PUL2 PATT"~ DATA"" 032000 02163 SHIF EQU SECT 03031 EQU EXC ~ ' Q3E FAST LDX I. 2 SECT CALL EXC ' EESA " F1AD LDX • LDB TABL "" CIA" VADC EXC NUXS NOP QSE1 "
•«——»
*
"
J
"'" LOAD DATA OPTO CARD
"
RECEIVER BLACKING TIME '
~
LOAD DATA ON':Q CARD •
"' ENABLE CARD
""
""" *
SHIFT WORD LOC TENTH SECOND TIMER ROUTINE ENTRY POINT — S E L E C T SHORT PULSE TIMING WAIT FOR RELAY TO SWITCH
• •1
SET POINTERS TO PATTERN AND DATA TABLESCLEAR ADC RESET NUXS WAIT FOR TIMER CARD NOT BUSY
NOP" SEN LDA • ASRA EXC
JAP CPA •
•*
*
CBS'Yi#-2 0, 1
"7
~
GET TIMER VALUE FROM PULSE PATTERN SIZE SET PHASE ACCORDING TO SIGN OF PATTERN
*•"'SCALE IT DOWN TO TIMER
O/Dü •5c+5
"TAKE ABSOLUTE VALUE
IAR . EXC 0650 ADD! ~"2 EXC2 REG2 OREG OAR
—
"" 04 j / I./j; i f -A
OF VALUE
ADD MINIMUM PULSE LENGTH . SELECT DATA OUTPUT REGISTER *
LOAD DATA IN TO TIf'JhH KEG 1"STER
(/,/>/
" lAf'v
ADD I 01000 ASRA i "ORAI"" ~ 0100000 OAR EXC EXC EXC EXC
OREG 0457 0557 0250 0350
77
06 74 Q
TOTAL RECEIVER BLANKING TIME ""SET SIGN BIT LOAD DATA ONTO TIMER CARD I ENABLE CARD TO OUTPUT PULSE
'
SEN NOP • NOP " JMP . CIA . EXC ADD
VADC» *+6
*-4 VADC MUXS TEMP+5 SHIP . 0,2 • ~ 0,2
V WAIT FOR HjdC TO BE TRIGGERED ..f "' ..f : f READ ADC ANJl REINITIALIZE IT • -"ADD RAMP VALUE E XECUTE RECJIRED SHIFT
XEC ADD --"STA — S U M DATA IN DATA TABLE " "" " " IXR INCREMENT DATA POINTERS I br :: Tlift" •• — — CHECK FOR ENè OF DATA "' SUB FI AD f' JAP FINI EXIT TO FT E*IT " — JMP — " QSE1 * CODE TO LOAD PULSE 1 PATTERN TABLE * USES FIRST AND LAST 1/6 'S OF DATA TABLE WITH'THE ORIGIN "AT THE CENTER FO THE PATTERN : ". 033000 LDX I LDBI SET UP POINTERS 020000 " TRANSPkR DttTA LDA' 0,2" STA 0, 1 • IXR — _ — _ „ „ . — I BR ' — TBA SUB I 021000 JAN- " s—7 032000 LDX'I LDBI 027000 •' 0/2 LÜA # Ö, 1 STA IXR • I BR TBA 030000 SUB I "" "JAN" " #-7 " EXIT TO START OF PROGRAM JMP 010 « FTRI ENTR GET"SUB DEI1 " ' LDA I 0140141"" STA VSUB r/x ' GET TO DO I M M M W I TRAMUFSRM CALL"*"" FT20 "" " CALL MKI" CALL, FT30 DO INVERTS TRANSFORM 4. """'""""" JMP-s*' FTRI * FAST FOURIER TRANSFORM COOLEY TUKEY METHOD * CALCULATE ORDER THAT SINE AND COSINE FUNCTIONS * • * — A R E USED AND STORE IN TABLE AT TAB2 FTRT ENTR LDX TAJ32 FWA OF ROOT TABLE •
•
*
77Ö 67 4 §
' - '29 - . .
TZA STA 0. 1 FIRST ENTRY LDA EX09 ASRA ' " "1 STA TEMP ASRA 1 STA "TEMP+l * " TXA ADD TEMP TAX • ""MIDDLE ADCRESS OF TABLE • 01 INCR• STA 0, 1 STORE MIDÖLE ENTRY LDA "TEMP+r JA L FTRD -
• FTRF
GET~FOUR'TIMÊS"FIRST OLD ENTRY ' LDA TAB2 FWA OF TAB-.E " ADD TtHP TAX ADDRESS OF FIRST' NON ZERO LDB O, I ASLB 2 — S T B • —TEMP+2 """ " ""
•a*
GENERATE NEW EVEN ENTRRIES TXA"" SUB TEnP+i ADDRESS OF FIRST NEW ENTRY 1 AX ASRB "LP6~ i ADJUST PLOT FOR AVER/ CONV STB 0/ 1 ADD . TEMP+1 ADDRESS OF OLD ENTRY ' " —TAXLDA TEMP+2 FT KG SUB 0, 1 "TAB " VALUE OF NEXT NEW ENTRY TXA ADD TEMP+1 """ADDRESS OF NEXT OLD ENTRY TAX"" STB 0, 1 STORE NEW ENTRY AUU IEMP+1 1 *" IAX"~ SUB FWA OF TABLfc TAB2 SUB EX09 LENGTH OF ROOT TABLE FIND MORE NEW ENTRIES FTR6 LDA TEMP+i DIVIDE INCRENSNTO BY 2 S["A TEMP AGRA" UriZ. KTRD TABLE COMPLOT, RETURN i>TA TEMK+1 FTRF ' ' DOUBLE TABLE LENOTH AOAIM •
-
•
FIND COSINES AND SINES FOR WEIGHTING FUNCTIONS 77 Ö 6 7 4 0
- 90
FTRD
LDA STA LDA — STA FTRE LDA SUB --JAZ*" T2A LDB* M U L
STJI
LDA CALL STA* INK LDA
FWA OF ROGFT if TABLE . 'X FWA OF COS,'IBXN TABLE V
TEMP+I' .
,
#
.
.
1 EX 12 NO OF RAW TIATA ~TENT-,+2""*_*""~ 2*PI,»I/N TEMP+2 XCOS FIND COS A_RG TEMP I TFLK TEMP+2 XSIN 1
'"J FIND SIN OF ARG
CALL LP1S__ ASLA 'CPA ' IAR LP12 STA» TEMP .. INR" """""TEMP INR TEMP+1 JMP FTKFC "
.
— " " S I N / C O S TAE\,E COMPLETE .
P I E £
LASL DIV
.
TA 132 TEMP+1 • TAB1 TEMP TEMR TEMP+1 FTRT
-
" " '
•
—
•'
""* " ' " ' •
• '
"
'
*
*
D3S, SIN TABLE IS COMPLETE DO FAST FOURIER TRANSFUKM ENTR .. . . _ CALL SMFT SET MAX VALUE TO 13 BITS EXIO LDA "INCREMENT BETWEEN POINTS " STA TEMP+2' T2A ODD OR EVEN FOR PICKING L'EMP+4 STA .MM.'» « — STA TBMP+3" WHICH CALCULATION BLOCK LDA TABL . FWA OF TABLE * POINT TO FIRST WORD IN CAL STA TEMP -- - TEMP+2 ~~ LDA
* * ""FT 10™' FTRX
CPA IAR STA LDA FTRB TAX "" LDB STB ADD ....
T A X
LDS L/M
TEMF'+L" TEMP
NO OF CLAC GROUP ' " ADR OF FIRST ENTRY
I ST ENTRY — O , R ' "" L O A D TEMP+B STORE FIRST ENTRY TEMP+2 — ADR OF 2ND OR 3RD ENTRY
0, I TU1P KJ,
77 0 67 4 8
PLOW
tuiiiim
' "
91 -
JAZ STB JMP FC-TB "'* TXA ADD TAX "" LDB LDA JAZ STB JMP STB ~ TXA ADD " " I AX LDA STA
*+5 TEMP+7 *+3 TEMP+6 "
•
STORE A^' THIRD ENTRY STORE AS, SECOND ENTRY
TEMP+2 * ADR 5 OF 3.1D OR 2ND ENTRY
0. 1 , TEMP+3 TEMP+& •S+3 TEMP+7'"
BLOCK NUMBER is IT ZER; STORE AS -ECOND ENTYR *
STORE AS 'IHIRD ENTRY
TEMP+2 ADR OF 4TH ENTRY
0, 1 TEMP+8
STORE 4TH ENTRY
-
* * .
INPUTS NOW PROPERLY LOADED DO CGKLEX CIRCULATION FEMP+3 ••' TWO* GROUP NUMBER L D A ASRA 1 ASLA I . ADD "TAB1" "" FWA OF COS. SIN TABLE TAX 0, L' LOAD COS, SIN LDA LDB"' * " I / I " 'WEIGHTING FUNCTION 0==EVEN 1= =0DD LDX TEMP+4 FTRC IS GROUP EVEN OR I ODD JXZ .«.•• I II • • m CPA IAR CPB ~ L P I Ó ™ " IBR UP LLRL 16 EXCHANGE A AND B GROUP NUMBER LDX 1 TEMP+3 1 . A. • •• " * ' " DXR JXZ «+4 • IS IT GROUP NUMBER 30NE JMP FTRC ~ 055202" » • LDA I COMP 012 IBR .. _
?
SINGLE PRECISION FRACTIONAL COMPLEX MULTIPLY
* " FTKC
•
MULTIPLIER IN A AND B REGISTERS CALL ~ " *XCMU, TEMP+7 STA ÏEMP+7 CR*W STB TEMP+S ADD TEMP+5 LLRL 16 ADD TEMP+6
7 70 6
7
4 0 ...
' ""
"
* .5
LLKU LDX STA TXA ADD ..TAX STB
'
16 TEMP 0» 1
,
TEMP+2 t .
ADR OF 2ND OUTPUT
ADD TEMP+2 TAX "" LDA TEMP+5 LDB . TEMP+& SUB . TEMP+7 LLRL ~16 SUB i tMP+8
ADR OF THIRD OUTPUT '
16
LLRL
—COMPLEX CONJUGATE
CPB
IBR STA
.
"
— ,
0,1
ADD TAX STB ~ INR INR
l'EMP+2 ADR FO OF 4TH OUTPUT
0, 1 TEMP+1 TEMP TEMP+1 LDA JAZ ' £+4 JMP FTRB INCR" "01 ERA TEMP+4 STA TEMP+4 — INR —teMP+3 LDA SEMP ADD TEMP+2 _ . A
D
D
Ï
ADD STA ~~—---SUB SUB JAN &
,v i| " ' (
E
M
p
+
— ~
.•
' MOVE CALC 1 PLACE TO THE RIGHT ' V CHANGE FROM EVÉN TO ODD OR ODD TO EVEN — INCREMENT GROUP NUMBER 2
-
TEHP+2 TEMP TABL EX 12 • FIKB-4 "
NO OF CALCS TO BE MADE ADR OF FIRST ENTRY " '
"
.
_
...
..
.
.
. . . .
.
NEXT INITIAL GROUP ADDRESS • NEXT GROUP OF CALCULATIONS . . . . .
*
LEVEL IS COMPLETE/ DO NEXT LEVEL • • CALL SMFT SET MAX VALUE TO 13 "*-—--• LDA TEHP+2 ASRA 1 JAZ* FT 10 j MP **' FTRX+3 " DO NEXT LEVEL OF CLACULATION " *
* * ' ~~ * FT20
SIGN BITS ARE CARRIED IN BOTH BITS 14 AND 15 SET ALL" SIGN BITS TO ZERO . • ' BIT 15 IS Ub'fcD AS A FLAG TO SHOW PKUKhK LUUATIÜN EN TR
7706740
«
- f 3 •"•• •
LUX LDA BAR " FTS!<~" LDB ASLB LSRB ;STB ~— IXR IXR ' ' ~ DAR' JAP .
TABL EX 11
1 1 O/I
FTSK
FWA OF ,TAMLE
•
SHIFT OFF SIGN BIT READ IN ZERO BIT
CONTINUE
#
•
SORT*"INTO (RE, IM) "PAIRS ' " TZX STX CURRENT COUNT TEMP+2 ~FTSL INKIHMP+2 " LDA I'EMP+2 SUB • EX11 JAZ ~" ""FTSP* — ' " SORT COMF'LERTE ADD EX 11 ACAL CALCULATE NEXT COUNT CALL TEMP+4 """NEXT COUNT STA SUB TEMP+2 JAZ DON'T MOVE PAIR FTSL 'TEMP+2 " ' LDA THMK+3 STA I ASLA A D D " " """ TABL" ADR OF CURRENT ENTRY TAX 0, I LDA -" ALREADY MOVED -JAN "' 'FTSL LDB 1, 1 TEMPORARY STORAGE TEMP+5 STA — STB'""*"~ ~ TEMP+6 TEMP+4 FTSM LDA 1 ASLA FTUD IFTBL TAX » LDB 0, 1 "TEMP+5 LDA" ORA SIGN STB TEMP+5 , • STA ' '0.1" ' LDB 1. 1 LDA L'EMP+6 1, I ' S'FFT . STB TEMP+& LDA TEMP+4 S T A — " " T E K P + 3 ""•*'* OLD Atfomm ACAL CALL STA TEMP+4 NEW ADDRESS •
77 0 6-7 4 0
SUB TEMP+2 s - ' v • . JAZ FTSN JMP FTSM * V FTSN "" LDA "" 1Enp+4 1 ASLA ADD TABL •< • TAX * '.. . LDA TEMP+5 ORA SIGN • SET.HOME FLPG ».« M | «ft »a * * • ^«••««•«•l f m •. • MM LDB TEMP+6" STA 0, 1 STB 1, 1 ..... « 4»M« ... ot 1 • 9 «•*»• • • » • »• i M» f» t H'«> "~~" JMP" - F T S L 1 •
$
(
i
* *
*
*
•»•
•»
*
RESTOE SIGN BI1 s \ — FWA OF TABLE ' "FT SP ™ LDX " " " TABL""" LDA EX12 LENGTH DAR LDB "0/1 "F fSG 1 LRLB SHIFT HOME FLAG OFF ASRE 1 STB "~ 0 / l IXR DAR CONTINUE """"JAP ' ~~ ' "FTSQ » RETU* FT20 ENTR FT30 INVERSE FOURIER TRANSFORM — S E T MAX VALUE AT 13 BITS CALL' ""SflrT I NCR 01 STA TEMP+2 ~ TZA TEMP+4 STA STA TtHP+3 LDA ""TABL "" STA TEMP LDA l'EMP+2 ... -/CPA I AR STA TEMP+1 . NUMBER OF CALC/GROUP 'FT3X' LDA' TEMP"" 'ADR OF 1ST ENTRY TAX LDB 0 , 1 - LOAD FIRST ENTRY —~ STORE FIRST ENTRY STAT " ""TEMP+5"" ADD TEMP+2 TAX ADR OF 2ND OR 3RD ENTRY •
- - *
""" LDB "" STB TXA
•
•
— -
1
TEMP+6
"ADD"
ThMP+2"
TAX LDB
0, 1
STORE AS SECODN ENTRH -
ADR OF 3RD ENTRY
7706740
STORE AS THIRD ENRY S'TB TEMP+7 TXA ADD TEMP+2 i '«» «« • • H TAX""" " "ADR OF 4TH ENTKY '/ LDA 0, 1 TEMP+3 STA STORE 4TH ENTRY LDX TEMP LDA TEMP+7' COMPLEX ENTRY ONE ADD TEMP+5 STA " "" PLUS CONJUGATE ""0, i " — TXA • ADD OF ENTRY TWO TEMP+2 LDB " TEMP+3 " " RESTORE ENTRY 2 OR 3 JBZ «+3 ADD TEMP+2 * ' "* TAX LDA TEMP+6 SUB 't EMP+S '0, 1 ~ ™ STA . LDA Tb.MK+5 COMPLEX ENTRY SUB TEMP+7 .ONE MINUS CONJUGAYTESTA """rtnp+7 "" OF ENTRY 2 TEMP+6 LDA ADD TEMP+8 STA ""'TEMP+S
*
•
•*
•
• —— *
• —
*
•
•V
»« «& vc
FOR COMPLEX MULTIPLY INPUTS LOADED * ' ** * ii
• _.!.«.. II 1-*»*»
*" -
1
""
«
""""
*
TWO* GROUP NUMBER LDA TEMP+3 ASRA 1 ASLA ~1 ADD TA.BX FWA OF SIN, COS TABLES TAX LOAD COS, SIN LDA ~ " "0. 1 " LDB WEIGHTING FUNCTION 1, 1 LDX TENP+4 JXZ "FT32" " ~ "7"0=EVEN, • 1=0DD CPA . • IAR CPK: I BR 16 UJC f'XVHWJG A AMD U I M A " " ""Ti:HP+3 " "'*~ MUM ï m I'/I.' #+4 JXZ m IT GROUP t m m m m m *
•
'
*
"JI'IH
FT32
LDA I COMP ~ I BR CPB
1BR
»* «
055202 012 «I «!*• r
•77 0 6 7 4 0
FOR INVERSE TRANSFORM"
ij
É
.
LYILU
r
XUMU. I E n p + 7
STA ÏEKP+7 *: LDA TEMP " " ADD """* TEMP+2 " ADD TEMP+2 ADD "I EMP+2 TAX"" STE» 0» 1 TXA suy ' IEMP+2 """ LDB TtriP+3 RESTORE 3RD OR 2ND ENTRY •
"
*
"*'
'JBZ
* *
*
'
•
•—
SUB — TEMP+Z™ TAX LDA TEMP+7 1' -STA" INK* TEMP+1 TEMP INR ADR OF FIRST ENTRY 'LDA- ' "TEMP+I"— •fr+4 JAZ . . JMP FT31 INCR-™ '01 ERA TEMP+4 STA ÏEMP+4 " INR' TEMP+3 " TEMP . LDA ADD TEMP+2 ADD'"""" TEMP+2 " ADD TEnP+2 SI A i'EMP NEXT INITIAL FROUP ADDRES: SUB ~ TABL END OF TABLE SUB EX12 JAN FT31-4 NEXT GROUP OF CALC LEVEL" IS COMPLETE,""DO NEXT CLAC LEVEL SMFT SET MAX VALUE TO 13 BITS CALL TEMP+2 LDA 1 — -• ^ ASLA ERA ' EXli • t• TEST FOR END OK 1KANSFORM JAZ* FT30 "— ERA """EXii •i' * • •..FT30+4 JMP "
0
,
«•«..«.^•M..»..!.*.»
«•M.W-MWM*
in < * « H I
*
* * » *
. . . . . . . . . . . . . . . . .
M
,,
Ii;..»!»•
m
,
.C .
...
.•
.
. . —
*
"
*
.
.MI. .
«
•» •
" *m
-
»
R
«
• W-M •
*
T
M
— « •
..
~ SINGLE.PRECISION FRACTIONAL COMPLEX MULTIPLY ' MULTIPLIER IN A AND B REGISTER ' MULTIPLICAND IN ADDRËSS IN CALL """PRODUCT IN A AND B REGISTERS "" "
*
* COPYRIGHT - VARIAN ASSOCIATES - 1970 XCMA " STX XCMU+3 "SAVE X REGISTER RÜF LDX XCMU •
»
.
«
7706740
'
-
-9/
-
LDX 0, 1 STA XCM'J+4 • REAL MULTIPLIER STB XCMU+5 IMAGINARY MULTIPLIER " LDA '"" ~ o, i • STA XCMU+Ó REAL MULTIPL 1CAND LDA 1» 1 STA'"""' XCMU+7" *'" ' IMAGINARY MU.TIPLICANO MUL XCKU+6 STA XCMU+8 LDB XCMU+4' RE(MULT) ~ """ MUL XCMU+7 RE(MULT > #IM 1 MULC) ADD XCMU+8 IM < MULT)«RE 1 MULT) LDB " '~XCMU+5' 'IM(MULT) • XCMU+5 STA IMAGINARY PFODUCT MUL XCMU+7 IM(MULT>*IMMULC) STA — ""XCMU+S" LDB RE (MULO XCMU+6 . MUL 'XCMU+4 RE (MULC) •«•RE ('!ULC) — ~ SUB XCMU+S" LDB XCNU+5 IMAGINARY PFÓDUCT XCMU+3 LDX RESTORE X REGISTER _..._r I N . K -— —*' XCMU * JMP 0 XCMU EQU JMP™*~" XCMA BSS 1 X REGISTERBSS i REAL MULTIPLIER 1" " BSS """" IMAGINARY MULTIPLIER BSS 1 REAL MULTIPLICAND BSS I IMAGINARY MULTIPLICAND TEMPORARY STORAGE — i RAND ENTR RANDOMIZE PHASES OF PATTERN L3AI 0200 STA RNLD DATA TABLE POINTER LDX • TABL DONT CHANGE SPECIAL CASE IXR IXR GET- RANDOM PHASE RNUM CALL TAB t PJh'E NUL % LOG LDB •H-+4 JB2 SET DIRECTION OF CORRECTION * _
"
~
-
C
P
"
"
A
IAR STA CALL'" "XCOS STA CPHA LDAI 0 XSIN ' CALL" STA CPHA+i LDA 0, • 1 «
11 0 6 7 4 0 .
*
\
COMPUTE COSINE
COMPUTE SINE "
LÜB 1» 1 XCMUiCPHA DO COMPLEX MULTIPLY CALL 0,1 STA RESTORE NEW PHASED VALUES ,..„.. ^ i - STB "" .TXA CHECK FOR END OF TABLE SUB TABL .•. ' ** 4 " *' ' ' SUB " EX12 " 1AR IAR "" JAN "*"""RAND+5 ' " RAND JMP* CPHA DATA 0,0 RNUM ' ENTR' RNLD. OLD NUMBER LUA ANA ' ' RNMB GET BIT 7 ,._..A S R A . „. 7 SHIFT 7 10 0 : ERA RNLD FORM NEW RANDOM NUMBER LRLA . 155 SHIFT ONS PLACE FSLOHT 15 3 STA RNLD — SAVE NEW NUMBER "" ' ' 5 RETU» RNUM RETURN RNMB DATA 0200 ' RNLD "' DATA """0307 '"' V " ' SDAT DATA ' 020000 SPAT DATA 024000 • PHCT""" DATA 0 ' " • - • •• « . ORG 02133. JSS3 QSE DO QSÊ EXCITATION IF 883 *IS SET : CALL' PUL2 DO SINGLE PULSE AND NORMAL FID ACQ UIHEKWISE ORG 02022 CALL PUL1 ' REPLACE PULSE 1 WITH CiSEX SEQUENCE • ' — N O P :*•• • • NOP . \ ORG 0153 ' EX08 12S ' DATA-'" EX09 256 DATA EX 10 512 DATA EÜX i 1» DATA "" 1024 EX12 204S DATA EX14 DATA 010000 THOU ' D A T A 1000 ' DATA 02000,02001 TWOK FORK 04000 „ DATA ORG 0244 TAB2 • 031400 DATA ORG 06676 DATA "' RAND 07041 DATA ORG 06571 DATA ~'•--•"pc " ORG 06712 FTRI, 07041 DATA UKU Ufrb77 DATA "F S-' ORG 01573 DATA ' PHAV ' ORG 0242 FIAD DATA 014000 END
7 7 fl ft 7 A n
ff
In de hier gebruikte betekenis omvat een hoogfrequente spectrometer nucleaire magnetische resonantiespectrometers, elektronenspinspectrometers, quadropool-resonanfciespectrometers, microgolf-absorptie-j spectrometers, hoogfrequente massaspectrometers en andere soorten spectrometers waarin gebruik wordt gemaakt van hoogfrequente bekrachtiging, C O N C L U S I E S
1.
Werkwijze voor het bekrachtigen
en detecteren van resonanties
van een monster dat wordt onderzocht met een hoogfrequente spectrometerr met het kenmerk dat men een impulsreeks hoogfrequente energie opwekt en toevoert aan het monster
teneinde daar de resonantie te bekrachtigen,
welke impulsreeks een reeks samengestelde impulsen omvat, waarbij elke samengestelde impuls een primaire impulskomponent van hoogfrequente energie van een eerste fase heeft, benevens een bijbehorende secundaire impulskomponent van hoogfrequente enegie van een tweede fase in tegenfase met de eerste fase, zodat de secundare impulskomponenten van de samengestelde impuls een deel met gelijke duur van de primaire impulskomponent opheffen, waardoor het resterende niet opgeheven deel van de primaire impulskomponent de effektieve komponent is van elk der samengestelde hoogfrequente impulsen voor het bekrachtigen van de resonantie van het monster en waardoor de stijgtijd en daaltijd van de secundaire impulskomponent de stijgtijd respectievelijk daaltijd van de primaire impulskomponent compenseren. 2.
Werkwijze volgens conclusie 1, met het kenmerk dat men de duur
van elk der primaire impulskomponenten wijzigt onder handhaving van een konstante impulsduur van de bijbehorende tweede impulskomponenten. 3.
Werkwijze volgens conclusie 1, met het kenmerk dat men het te
bekrachtigen monster bekrachtigt tot gyromagnetische resonantie en de
gedetecteerde resonantie bestaat uit de bekrachtigde gyromagnetische
resonantie van het onderzochte monster. 4.
Werkwijze volgens conclusie 3, met het kenmerk dat de gyromagne-
tische resonantie een nucleaire magnetische resonantie is.
5.
Werkwijze volgens conclusie 1, met het kenmerk dat het opwekken
van de impulsreeks van hoogfrequente energie bestaat uit de stap van het opwekken van hoogfrequente draaggolfenergie en impulsduren en het in fase moduleren van de draaggolf met een impulsduur en fasemodulatiesignaal ter verkrijging van de impulsreeks hoogfrequente energie. 6.
Werkwijze volgens conclusie 5, met het kenmerk dat men het
• 100-
;•
i
raodulaatiesignaal synthetiseerd uit een gegevenstabel,
f
7.
Hoogfrequente spectrometer voor het bekrachtigen en detecteren
;
van resonantie van een onderzocht monster, gekenmerkt door een orgaan
j
voor het opwekken en toevoeren van een impulsreeks hoogfrequente
:
. energie aan het monster teneinde daar een resonantie te bekrachtigen,
I
welke impulsreeks een reeks samengestelde impulsen omvat, waarbij elke samengestelde impuls een primaire impulskomponent hoogfrequente energie ' met een eerste fase en een bijbehorende secundaire impulskomponent
j
. hoogfrequente energie met een tweede fase in tegenfase met de eerste fase bevat, zodat de secundaire impulskomponent de effektieve
j j
i
komponent van elk der samengestelde hoogfrequente impulsen is voor het ' i
bekrachtigen van resonantie van het monster, waarbij de stijgtijd en
i
daaltijd van de secundaire impulskomponent de eindige stijgtijd respectievelijk daaltijd van de primaire impulskomponent compenseert. 8.
Inrichting volgens conclusie 7, gekenmerkt door een orgaan voor
het varieren van de duur van elk der primaire impulskomponenten onder handhaving van een konstante impulsduur voor de bijbehorende secundaire _ impulskomponenten. 9.
inrichting volgens conclusie 7, met het kenmerk dat het te
bekrachtigen monster wordt bekrachtigd tot gyromagnetische resonantie en de resonantie die wordt gedetecteerd bestaat uit de bekrachtigde gyromagnetische resonantie van het onderzochte monster.' 10.
Inrichting volgens conclusie 9, met het kenmerk dat de gyromagnetische
resonantie bestaat uit nucleaire magnetische resonantie. 11.
Inrichting volgens conclusie 7, met het kenmerk dat het orgaan voor
het opwekken van de impulsreeks hoogfrequente energie een orgaan bevat voor het optrekken van hoogfrequente draaggolfenergie en een orgaan voor het in impulsduur en fase moduleren van de draaggolf energie met een impulsduur- en fase-modulatiesignaal voor het opwekken van de impulsreeks hoogfrequente energie. 12.
Inrichting volgens conclusie 11, gekenmerkt door een orgaan voor
hat synthetiseren van hst tnedulatlêsignaal uit een gegevenstabel.
77 0
6740
§
s'ayMfi I
Varian Associates, Inc.
FIG.1
7706740
- jf s
f;
FIG. 2 |F(V)|
$>+1024 Hz
fo F(v)
1024Hz F(v)_H-6(t)
fit)
g(t) 2 sec
o g(t)—<-G(v)
.m.yi—
j
l l j l j i l l _ _
1024Hz
7706740
3 r?
H49
65ns
FlG.3b
148
65>is
1.51 2jns
65ns)
150-
* >f r^Zps^r*-151 0-2>is
FIG.3C FIG.3d
-153
0°I8()0
MS
' k I50H'
FIG.3e IOOM 100MHz
r 149
FIG.40 148
FIG.4b St, /
-161
FIG.4c St2
FIG.4d
st3 r1 5 ! %u
F!G.4f
y—164 St* •
7706740
10 O HZ
7706740
O LL
7706740
afta
FIG.7A q
•100
kMkCOS(fk) a
o« °N»ai»b|,
bk="AkSIN(fk)
ah,bk,...
b
°N-l' N-l
9k=
bk
-104
-105
0k=2TTpk|—106
I07~
°k-OkC0Sfk+ bkSlNlk bks-°kSINjk+ bk COS (Dk
a! = A COS (f,+,) b! = A SIN(f,+
-»fs
77$6 74 0
ra 8 "
11
1 6 7 4 0.
^
149.
171
162
,7a
I5L
i75
16,4
152
m
FIG.
9
