Tektronix 494AP service manual O o o O o o o a

Malntenance- 494[l4g4Ap ServtceVot. 1

5000 ! Retrievetapedsettings(s$) and sendto memorytocations(s1) 5010 Z-0

5020 Deletevar s$

5030 Dim s$ to 6zt0

5040 Open#100:"FtL"&st6(t1)&'(ope-otd),,

5050 Input#100:v1,s$

5060 lf v1-0 then goto SiSO

5070 lf Y-0thengoto 5120

5080 Print#a1:"RECALL";s1;,';ReSOFF;WAIT;ERR?,

5090 Input#al:e$

5100 E$:seg(e$,S,2)

5110 lf e$<>"62'thengoto51S0

5120 Print#a1:s$

5130 Print#a1:"STORE";s1;":ReSOFF,,

5140 Z-1

5150 Close100

5160 Return

6000 I Sendwaveform(X9)& readouts(M$,L$)to memorytocation(Wl) 6010 z:0

6020 lf v-0 thengoto 6180

6030 lf Y-0then goto 6080

6040 PriNt#A1:'SAVEAOFF;DRECNLA:";Wl;',;ERR?,,

6050 Input#a1:e$

6060 E$-seg$(e$,5,2)

6070 lf e$<>"62" thengoto6190

6080 Print#al:"WAT:TR?"

6090 Input#a1:h$

6100 Print#al :"RDOUT'";69.t';r,

6110 Print#a1:'RDOUT',,;l$;"'"

6120 PriNt#A1:NVFMWFID:A,ENCDG:BIN;SIG;SAVEA

ON-

6130 Wbyteatn(mta,32+a1),x9,eoi

6140 Wbyteatn (unt,unt)

6150 Print#a1:'DSTOREA:...wl

6160 Print#a1:h$

6i7a z-1

6180 Return

7000 ! Storereadouts(M$,L$),and waveforms(X9)on TApEFite(I1) 7010 Open#1 00:'FtL"&strg(tl)&,IopE-REp,St2_doOO).

7020 M$:m$

7030 L$-t$

7040 Print#100:v

7050 Print#100:m$

7060 Print#100:l$

7070 Print#100:xg

7080 Close100

7090 Return

8000 ! Retri€vesreadouts(M$,L$),andwaveform(X9)fromTApE 8010 ! FromsetectedTAPEFite[r1)

8020 Open#100:"FtL"&strg(tl )&(ope-otd)',

8030 Deletevar x9,mg,tg

8040 lntegerx9 (1000)

8050 Dimm$ to SO,tgto SO

8060 Input#100:v

8070 Input#100:m$

8080 Input#100:t$

8090 Input#100:x9

8100 Close100

6-66

o o o

I

a o

)

o o

?

t

I t

o o o o o a

O

a

O

o o

I

o a o o o

I

o

f

I

I

o o o o o o a

t

o