Subroutinebibliotheek voor de kommunikatie tussen de PRIME komputer en de HP-signal analyzers

Subroutinebibliotheek voor de kommunikatie tussen de

PRIME komputer en de HP-signal analyzers

Citation for published version (APA):

van Heck, J. G. A. M. (1981). Subroutinebibliotheek voor de kommunikatie tussen de PRIME komputer en de HP-signal analyzers. (DCT rapporten; Vol. 1981.016). Technische Hogeschool Eindhoven.

Document status and date: Gepubliceerd: 01/01/1981 Document Version:

Uitgevers PDF, ook bekend als Version of Record Please check the document version of this publication:

• A submitted manuscript is the version of the article upon submission and before peer-review. There can be important differences between the submitted version and the official published version of record. People interested in the research are advised to contact the author for the final version of the publication, or visit the DOI to the publisher's website.

• The final author version and the galley proof are versions of the publication after peer review.

• The final published version features the final layout of the paper including the volume, issue and page numbers.

Link to publication

General rights

Copyright and moral rights for the publications made accessible in the public portal are retained by the authors and/or other copyright owners and it is a condition of accessing publications that users recognise and abide by the legal requirements associated with these rights. • Users may download and print one copy of any publication from the public portal for the purpose of private study or research. • You may not further distribute the material or use it for any profit-making activity or commercial gain

• You may freely distribute the URL identifying the publication in the public portal.

If the publication is distributed under the terms of Article 25fa of the Dutch Copyright Act, indicated by the “Taverne” license above, please follow below link for the End User Agreement:

www.tue.nl/taverne

Take down policy

If you believe that this document breaches copyright please contact us at:

openaccess@tue.nl

providing details and we will investigate your claim.

Subroutinebibliotheek voor de kommunikatie tussen de PRIME komputer en de HP-signal analyzers.

Januari 1981,

Jos van Heck.

Ce hp-terminal worat a l s tussenmedium gebruikt t ~ s b e r i a e

analyzer en de PR.IEIE De terrnir,aI korrmuniceerr r l i c t ae ai?äiyzer

en de P R I k E a l s terminal. e n d * m v een BASIC- pïogrartma äae g e l a c ? e n i s . Het lader1 van de BASIC i n r e r p r e t e r en h e t BASIC

programna .worC;t aGtomatisch door de .?RIME verzcrgä e

Daar sornmic,e procedures o . a . ~e BASLC-iiìterpreter aktivereii verschijnen e r op het scherm vaak teltsten 21s:

Hip TERPIINAL BASIC -- RLV L-1943-42

6 9 4 3 BYTES DISPLAY 1”XMGRY 1 0 8 2 2 BYTES WORK SPACL

rn -7

O f : .LLNUN& mkfY

of:bepaaide mededelingen a ï s ASCII S S V E 0 . i . á .

De gebruiker kan deze teksten ege eren en wachten op auicielijic. gestei.de vragerL vanuit procedure I N I T of op teks-ceri u i e i r i z i j l i eiujen prograrma gegenereerd worden.

Daar het h i e r s l e c h t s or0 een s u u r o u t i n e ~ i b i i o t h e e k cjaat moet de verschillenGe subroutines w or de r: a a q e r o e p e n e Die

hé'c

compileren Eoet volgens:

F'I'N name 'Ocorqile met í h T S i

Vervclgens wordt het procii-amma en de s u b r o u t i n e ~ i b i i o t h e e k geladen mets

gebruiker z e l f een hoofdpro9rarma s c h r i f v e x wäárin de

hoofdFrograrrma moet ir, FGRT'PdAT geschrever: , ? - - e v v t l ~ e f i .

LOAD SLO B name $LO L3E?P542OA

$LI

G P L I B $LI LOAD COI'dPLETE $SA *narne

sc;

Het scarten van het programa gaat met R *r,arne

De subroutines d i e i n het hoofdprogramna gebruikt kunnen woriierì z u l l e n nu k o r t beschreven worden met de betekenis van hurl argument en

deze procedure i n i t i a l i s e e r t net proces:

-De gebruiker wori;t qevraagd of- .JE; analyzer aangesloten i s en de EIP-lB schakelaar op de a c h t e r z i j d e van úe analyzer op

'acixessaLie'

is

yeschakel6.Indien op deze vraay 'no' wordt geantwoord wordt teruggegaan naar P2IMcrS

-De gebruiker wordt 2evraac;d or de BASIC-interpreter geiaaen i s . Zo n i e t , dan wordt deze door het pror,raríutia d.nl.,v. een BASIC-kassette autorLiatiseh geladen. D e gesruiker h o e f t n i e t s t e doen t o t d a t Se boodschap 'BASIC LOADED' v e r s c h i j n t c y het s ch e rrn e

-de gebruiker wordt gevraagd of het BASIC-pro9ramrta i n het terminal geheugen aarlwezig i s Zo n i e t , wordt her pro$rariin?a au tomat i s ch ge laden a

-Er worden enkele kontrolekomnando ' s naar de analyzer gezonaen en dz analyzer wordt op O-RESET gezet.

Deze subroutine moet i r i e l k gebruikersprogralmna a l s e e r s t e aangeroepen worden <.

N , G . ; De BASIC-interpreter en net prograrma b l i j v e n bexaai-6 totcäat de terminal uitgeschakeld wordt. Z i j hoeven á u c àiileen aan het begin van de s e s s i e c e l a i e n t e worden.

3 -

hanrsep. CALL T C O h ( b u f f e r , lei-ì)

b u f f e r : komaando voor terrLiinal

in

2ìSC11-string1

twee karakters p e r woorca

len

( 1 * 2 )

: aaiital karakters van het kol-man6o

Deze sukroutiiie maakt het moselijk om een kormûmiu aan de HP-terminal t e gever,.

Bi3voorbeeld:

-Zoek f i l e

2

op het l i n k e r Dandje:

-Vraag g e D r u i k e r w e l k e f i l e op het l i n k e r bandje clpcjezccht noet woroen:

Aanroep: CALL E C O E l i b ~ f i e r , l e n , c-6 I

b u f f e r : a r r a y met het komi,ianco

irì

AGCli-string, l e n ( I * 2 j : lengte van het kornrr,ando

ms (I"2): aarì-cal r c t i l l i s e k o n d t n Gat e r ria her zeílGen

2

karakters per woord

BASIC-kom-iarìdo

'

s kunnen u i t e r a a r 6 à l l e e r , c e g e v e n xcrcieii waixiieer cie B A S I C - i n t e r g r e t e r â k t i e f i s . Men k a n de BASIL- i n t e 12 r e t e r a k t i v e r e n m e t de sukd-ciltine TCGM:

C A L L

Men k a n de B A S I C - i n t e r p r e t e r TCOpJl(

'

weer v e ï l a t e n r.iet: BASIC

'

i

5

1

(--ALL rpcopj

i

I

A '

i 6 j

ACOLil * * # * A a r i r o e p : CKLL A C O M ( L u f f e r , , i e n )

S u f f e r : i n t e q e r array rfiet kormando

voor

de amiaiyzei- l e l ; ( 1 * 2 j : l e n g t e v a n 'net kOiiiInandG

i i i A S C L i - s t r i n g ,

2

karakters p e r woord

Met deze s u b r o u t i n e is h e t inogelijk GEL kormando's a a n de

a n a l y z e r t e g e v e n . V o o r e e n opsomming v ü n de k ~ ) ~ ~ i - i a f i d ~ ' S w o r u t v e r w e z e n n a a r de d o c u m e n t a t i e bij Ce a n a l y z e r er, bij de H P - I E i n t e r f a c e v a n de a n a l y z e r . H i e r o n 2 e r wordt eer; p l a t t e g r o r i d g e g e v e n v a n de a n a l y z e r k n o p p e n e n h u n b i ]behorende afkortingen:

'pc

Pi1.i

ST

V o o r b e e l d e n :

CALL ACOM\ I OR§

'

# 3

1

%stuur het Kornmaiiüo CALL ACûM('25,.2AV1,6) % s t e l 21 m i d d e l i n g e n CALL ACOE( '5ï'ii5,1AV4SGSTGÛCF4COBW'

22

1

'%SLel s e ~ - u p

%O-reset n a a r analy.z&r.

% v o l y e n s e x p o n e n t i a l Ueeay i n % a n a l y z e r i n

% o n t g r e n d e l e n v a n t o e t s e n

Aanroe?; CALL LPRGM

D e z e s u b r o u t i n e l a a d t h e t B A S I C - g r q r a r r m a

in

de t e r n i i r i a l . deze

s u b r o u t i n e hoeft i . h . a . niet dcor de g e b r u i k e r a a n g e r o e p e n t e w o r d e n e

6 -

b u f f e r : boociischap d i e naar de q e b r u i k e r g e z o n s e n w o r a t deze boodscr?ap i f i A S C I I - s t r i n g i n i n t e g e r array

2

karakters per w o a r Q

l e n ( I * 2 j : leî-ic;te VÜE d i e boodscha-- r

S u b r o u t i n e MESS s t u u r t een bcoaschas i n b u f f e r met l e u k c i e r l Raar d e g e k m i k e r . I n d i e n de B A S I C - i n t e r g r e t e r a k i t i e i i s reageert deze n i e t op C.ie booc?schap.

A a n r o e p :

ms ( I * 2 ) : a a n t a l m i l l i s e k o n d e n d a t e r gewacht m c e t wordell CALL WAIT (ins )

D e z e s u b r o u t i n e maakt 'net m o g e l i j k o m het prograrma voor Ins

mi 1

1

i s e kon 6 e i: t e s t opp e ïi

V o o r b e e l d :

CALL V J A I T ( 3 0 0 0 )

l J J . B . de maximale c r a e h t t i j d i s 3 2 7 6 7 m i l l i s e k o n d e r , .

A a n r o e p . : C A L L QbESTibuffer, ienj

b u f f e r : & u f f e r waarin bij aazroep de v r a a g moet staari e n w a a r i n n a afloop h e t â n t w o o r d s t a a t .

ir'raág e n a n t w o o r d i n A S C I I - s t r i n g met

2

karak- t e r s per woord i n i n t e g E r array

l e n : i n t e g e r " 2 , bevat b i j aanroes h e t a a n t a l kcix-aktkrs xV7ari de 57r2zgi iia. a f l o o p h e t a a n t a l karakrers

van

het a n t w c o r d e

C u b r o u t i i r e QUEST s t e l t de vraag

in

b u f f e r aan de g e h u i k e r via

de t e r m i n a l . H e t anrwoord v a n de g e b r u i k e r ~ . r o r ú ~ ; g e r e t o u r n e e r u

i n b u f f e r , D e l e n g t e v a n h e t a n t w o o r d trorcit g e ï e t c u r n e e r a

fr;

l e n .

CALL C l ! f i $ A

i

1

# EUFFER, LEL? .' I 4 1

8 2 l c t a t s vraag ïn % b U f f E . , r %leii94te c u f f e r % c t e i vraag en % lees anthuvoûrl %Ze-, A S C I I w a a r d e % n a a r i n t e c j e r * 4 I4 YESNG #ti### A a n r o e p : L B G = Y E S N C ( b u f í e r , l e n )

7 -

D e LC)GICAL F ~ N C ' ï I G N Y C S W O i b u f f e r , i e n ) s t e l t de vrac;cj

in

i i u i T t - ~ . met l e n c j t e l e n a a n de c j e b r u i k e r . het a n t w o o r d v a n 6.e G e b r u i k e r w o r d t y e r e t o u r n e e r d i n c3e f u n k t i e w a a r d e vai; YESLJG e

A a n r o e p D CALL LEAS1 C

D e z e subroutine l a a d t 6.e &'&IC-interprster m . b > . v . een iszlnuje i r i

de l i n k e r y l e u L ' in de t e r m i n a l . D e z e s u b r o u t i n e h o e f z c r i e i UOOL

de % e b r u i k e r aangeroepeE t e woreen.

Aanroe;): CALL T E S E T

Deze s u b r o u t i n e s t u u r t een " s o f t r e s e t " rmar C e - ~ e r r i i i r i a ~ .

TRESET h o e f t n i e t C'oor d e j e b r u i k e i a a n g e r o e p e n t e worden.

A a n r o e p : CALL SRQiQ)

Q : i n t e c j e r " 2 w a a r i n d e s t a t u s v a n de a n a l y z e r fii: a f h a n d e l i n g

v a n h e t s e r v i ce r e q u e s t wordt g e r e t o u r n e e rr: o

S u ' N i o u t i n e

c"

zergi- v u i r de afBande1ing v a n e e n s e r v i c e r e q u e s t v a n de a n a l j i - z e r o 1.32 e e n a a n t a l k o m i o n d o I s I b i jvoorbeeliì s t a r t ,

cave, r e c a l l , p r i n t , plot MOET h e t s e r v i c e r e q u e s t word ei^ a f g e h a n d e l d . Biervoor wordt v e r w e z e n n a a r d e h a n d l e i d i n g bij de

HP-IB i n t e r f a c e v a n de a n a l y z e r . De w a a r d e vali d e s t a t u s van tie

a n l y z e r w o r d t g e r e t o u r n e e r d i n li. Q K a n z i j n : 64 a-d convertor o v e r f l o w 56 p a u s e voor impact 6%: e i n d e v a n de m e t i n g 69 e i n d e v a n a c t i e m e t t a p e - c a r t r i d g e 70 c o m a n d error 7 1 a l g e m e n e f o u t 72 f a t a l e f o u t 9 5 S;G A S C I I cave 97 i;j;nary save 98 e i n d e p i o t / p r k n t o p e r c t i e 99 b i n a r y s t o r e

1 0 0

g r i n t d o t a ori1y (ifi t=?C 101 p r i n t & t a O E L ~ [in L i m r y j ana 1y z er c i e 3.re ci

_ . .

102

,ur-r,t

d a t a \ . r i t r r header (in ASCII)

103

2 r i n t d - a t a wityo header j i ï ; - f i i i - ï ~ q j

1C4 azress t o plotter

112

A S C I I r e c a l l

115 1 2 0 b i n a r y r e s t o r e adress f r c m p l e t t e r V o o r b e e l d : C A L L ACQM ( CT I 2 ) % S t a r t rnetiricj m e t a n a i y z e r CALL S R G f Q ) % H a n d e l s e r v i c e r e q u e s t a€ WRITE(1,99)Q % P r i n t Ç op t e r m i n a l

99 FORMAT( I SEXVICE REQUEST STATUS' I 141

A a n r o e p : CALL T2 IN ( J

i

J:: i r , t e q e r * l w a a r i n d e t w e e A S d I I m r a ~ t e r s worcien ge re t c u r n e e r d

d.eze p r o c e d u r e l e e s t twee ASCII karakters i n e n r e t o u r n e e r t z e i n i n t e c j e r * 2 J. D e z e p r o c e d u r e h o e f t n i e t docr ae g e b r u i k e r a a n r e r o e p e n t e w o r d e n o

S531SA

#i##### A a n r o e p : CALL S5 0 i SA ( HEAD I

DAT Q

)

HEAD :: DIP4EENSION

HEAD(

1 6 ) I array w a a r i r i de h e a ü e r g e r e t o u r n e e r a

DAT: DIMENSION CAT ( 512 ) array w a a r i n d.e d a t a g e r e t o u r n e e r d

Q (1"s): Bevat n a a f l o o p de s t a t u s n a de s e r v i c e r e q u e s t w o r d t

.

w o r d e n e

a f h a n d e l i n g . Q behoort 96 t e

zijn

n a h e t v e r l a t e n v a n s u b r o u t i n e SSGISA.

S u b r o c t i n e S5OlSA h a a l t de d a t a v a n h e t c y dat moment airtieve " t r a c e " S i n n e r , n a a r de PRIME. De header w o r d t g e r e t o u r n e e r d i n HEAD, de d a t a i n DAT. De r r o c e á u r e d u u r t orìgeveer 45 seconGeri. V o o r de b e t e k e n i s v a n de Header e n de D a t a w o r d t v e r w e z e n naar

de h a n d l e i d i n g b i j d e HP-LE i n t e r f a c e v a n de a n a l y z e r . V e r d e r e i n f o r r r t a t i e over de header i s t e viriclen bij s u b r o u t i n e iGiLMI

V o o r b e e l d : H a a l de d a t a op record #i0 v . h . b a n d j e n a o r de P R I M E LGGICAL Y E S N O , CNVASA INTEGER"2 Q I , I 2

,

ESC I I I F I E N S I O N KEAD(1Q) , D A T ( 5 1 2 ) CALL INIT ?I n i t i a l i s a t i e i I% (.NGT.YESNO('PSCALL R # l O ' i l l ) ) GO Tcb S C

CALL ACCM( ! ioéiri4' I 4 ) %Recali R # i û

CXLL SRQ(Q) % H a n d e l s e r v i c e r e q u e s t a£

I F ( Q e P T E e 6 9 ) GO TG 9 0

C A L I ACOM('RS',2) 2iIWSET a n a l y z e r CALL k J A I T ( 2 0 0 0 ) %\Jacht

2

c e k c n d e n

CALL S501SA(HEAD,DATpQ) % H a a l d o t a naar- bicileri CALL TNQU('HEAD:',~)

WRITE ( 1 , 9 9 9 9 7 ) (HEAD(I), L=l,iGj%schrkjf d a t a n a a r CALL TNO3 EATA: I 5 )

I2 = I N T ( EEAD 3 ) / 2

1

CALL TNOU ( I SERVICE REQ'JEST ,15

1

WRITE(1,99998)S r-c: 0°C -1hrijf s t a t u s naar scherm

CALL WAIT(

1000)

10 scherm

Voor de b e s c h r i j v i n g vari subrodtine TIJCG ;;oïdt v e r w e z e n naai- de s u b r c u t i n e b e s c h r i j v i n c e n bij d e P R I M E A a n r c e p : CALL S S O ~ ~ ~ A ( H E A D , D A T ~ Q ~ HEAD,DAT en Q h e t z e l f d e a l s b i j S501SA D e z e s u b r o u t i n e b r e n g t e e n i n de PRIME b e r e k e n d e dataset m e t h e a d e r i n d e a n a l y z e r . HEAD e n DAT d i e n e n g e v u l d t e z i j n

,

de s t a t u s n a de a f h a n d e l i n g v a n h e t s e r v i c e r e q u e s t w o r d t i n Q q e r e t o u r n e e r d .

S I Z E ( Ï * 2 ) : FREQ ( I * 2 j : PASSB ( I * 2 ) : ADCIN (I*2}: ADCOUT ( I*2

1

:

PEAK

( I * S ) : FUNCOD ( I*

2

) : AVÜS (1*2):

DT

(R*4) : FLOW (R*4) :

DF

( R * 4 ) : DLAY ( R * 4 ) : SGNL

(I"2):

hoeveelheid data clie overgezonde11 ~ ~ o r d t . C e

g r o o t t e van S I Z E i s twee keer h e t aantLl setaller:. Hiervoor wordt verwezen ~ a z r <e h a n d l e i c i i n g 'si j

de EP-IE i n t e r f a c e van Ge a n a l y z e i 1= d a t a i n frequentiedomein 2= d a t a i n tijddomein 1= v o l t a g e dcrnein ( a l l e e n b i j histograril), a L i G e ï s û 1 = power grcocheid G = l i n e a i r e grootheid

1

= s a s s tand

o

= L a s e bc-nd

1 = complexe 9roothedex-i ir. datagebiecl bron v.d. data: input ADC-kanaal nr. bron v . d . data: outkut ADC-kanaal n ï .

indien e r sprake i s vaii een e n k e l - k a n a a l s ïíieiiii3

is

ADCOUT q e l i f k aan O

1

= peak channel geniddeld

-1=

peak l e v e l gemiddeld O = i n a l l e andere g e v a l l e n

O = a l l e e n r e e e l e groztheiien i n Gatas-'-'--? CLiC2U

2

= Time record average ch

1

3 = Auto corre1at;on

4 = Cross c o r r e l a t i o n

5 = H i s t o g r a n

6 = Linear Speetrun ch

1

or

2

7 = F i r s t Auto-power Spectrum. ch 1 c;r

2

€3 = LSecond AUtQ-~OWer Spectrum ch 1 U T 2

9 = Cross-power Spectra= 1 0 = Transfer Fanction

11

= Coherence fufiction

1 2

= Linear Spectrum ch

2

1 4 = Time record Averace cki

2

1 5 = Impulse Response A a n t a l inidde lincjen

Het benonsteringsinterval i n het tijddomein j d t )

cf i n het voltaged.omeip

(Cv;

(zlleen h i s t c S r z L L ; . De l a a g s t e frequentie i n h e t data-blok.

De afstand d f tussen de freGuentispunten.

De t i j d . - of v o l t a g e o f f s e t van het Cáüta-blok i-íi&t

de oorsprong. B i j twee-kanaalsaetinyen h e t r e l a t i e v e v e r s c h i l i n t i j d - - o % f s e t .

Signaal-type:

L i

2

= random 3 = t r a m i e n t

4 = impact

DUM ( R * 4 ) : E u m y

D e z e s u b r o u . t i n e maakt rnet d-e g e s e v e n s SIZE, F'REQl Z I S T , PGEZR, PASSE, COMPL, ADCIN, ADCOUT, PEAK, FUNCOD, AVCS,

DT,

FLOW, D?,

DLAY, SGNL EN DUM een. header i n de DIE4E3SION L I E A Z ( 1 Z ) Gie g e b r u i k t k a n w o r d e n b i j d e s u b r ~ l i t i n e S50iRA. A a n r o e p : CALL RHEAD~E-IEAD,SIZ-:,FREQ,-ISI,PO~~SCR,LLSSE,CC)E~U, V o o r de b e t e k e n i s v a n d e a r g u m e n t e n vordtt v e n ~ e z e í i r&ar s u b r o u t i n e NHEAD d i e h i e r b o v e n besckreven

i r .

* A D C I N , A D C C ~ T , F E ~ ~ , F ~ ~ ~ ' ; C O ~ , A V G ~ , D ' ~ ' , F ~ Z W , ~ ~ F , D L A ' I ,SGLYL,IXP.,) S u b r o u t i n e M E A D maakt h e t m o g e l i j k on de r e l t v a n t e cjecieveris u i t

d e header t e h a l e n . Zo'n hezder z a l i n tiet Zrlc;er;lccn afkcrnsr;is z i j n u i t s u t r o u t i n e S501CA. De heaaer moet

in

Se GïLUE2iSIZLJ

H U A D ( 1 6 ) a a n w e z i g zijn. D e v e r s c h i l l e i d e c j e g e v e n s u i t U e h e a d s i w c r d e r i c e r e t o u r n e e r d i r r C"e overi3e arcum.enten var: de s u b r o t i t i w .

c

c

1' u

c

l l Q C 1116 p

c

6 - C C C C C

3 -

C