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

o o

t

o

I

I

o o o t a

t

a

I

)

I

a

t

o a

ta

o o

t

o o o o

t

)

o

I

o

)

o o o o o o a o

Mafntenance- 494A1494ApServiceVot.1

237A 51-sl+1

2380 T1-tl+1

2390 Nexti

2400 Print#a1:i$

2410 Print

2420 Print

2$A Print"... FINISHED'.."

2440 Goto 10000

3000 ! AcquireWaveformand Settings.

3010 i X? i.r500pointwaveform,t$ G towerreadout, 3020 lm$ is upperreadout,and €g is an er-i i"""ag" 3030 Deletevar eg,hg,lg,m$,x9

3040 Z-O

3050 Dimh$to 1100

3060 Integerx9 (1000)

3070 Dim l$ to So,m$to 50

3080 Print #a1:"SAVEAOFF;DRECALA:",wl

3090 Print#al:"ERR?"

3100 Input#al:eg

3 11 0 E$*seg(e$,5;2)

3120 lf e$<>'62'thengoto3190

3130v-0

3140 X9:0

3150 M$-""

3160 L$*",'

3170 Goto3280

3180 V-1

3190 Print#al:"UPRDO?"

3200 lnput#al:m$

3210 Print#al:"LORDO?'

3220 Input#a1:l$

3230 M$-seg$(m$,8,40)

3240 L$-seg$(l$,8,40)

3250 PTint#a1:NVFMWFID:A,ENCDG:BIN;CURVE?..

3260 lnput'," using"la,*Bo/o'dels #al :h$,x9

3270 Z-1

3280 Return

4000 ! Removememorysettings(S$)from SPECTRUMANALYZER 4010 Z-0

4020 Deletevar sg

4030 Dims$ to 700

4040 Print#al :'RECALL,,:s1

4050 Print#a1:.ERR?,

4060 Input#al:eg

4070 E$-seg$(e$,S,2)

4080 lf e$<>'62"thengoto4120

a090 V1:0

4100 S$-"NULL"

4110 Goto4170

4120 Print#al :,,SET?,'

4130 Input#a1:s$

4140 Print#al:"ReS OFF"

4150 V1-1

4160 Z-1

4170 Open#100:"FtL"&str$(r1)&'{opE:REp,stz_1

020),,

4180 Print#100:v'l,s$

4190 Close100

4200 Return

6-65

t