Telefunken RT200 User Information page 41

call
mov
amdone: mov
cjne
mov
cjne
mov
mov
setb
case!
sjmp
decfm: mov
cpl
mov
jnb
mov
clr
subb
call
mov
jnc
mov
clr
subb
call
mov
fmdone: mov
cjne
mov
cjne
mov
mov
setb
case!
done: ret
endp
;---------------------------------------------------------------------------
; digital input of FM frequency
proc
call
setb
mov
setb
mov
loop1: call
ljc
call
jc
cjne
sjmp
no0: cjne
da_s
am_prog+1,a
a,am_prog
a,#lo(MIN_AM1),done
a,am_prog+1
a,#HI(MIN_AM1),done
am_prog,#LO(MAX_AM)
am_prog+1,#HI(MAX_AM)
MUTE
done
a,fm_prog+1
acc.7
fm_prog+1,a
acc.7,fmdone
a,fm_prog
c
a,#1
da_s
fm_prog,a
fmdone
a,fm_prog+1
c
a,#1
da_s
fm_prog+1,a
a,fm_prog
a,#lo(MIN_FM1),done
a,fm_prog+1
a,#HI(MIN_FM1),done
fm_prog,#LO(MAX_FM)
fm_prog+1,#HI(MAX_FM)
MUTE
freqinp_fm
clrdisp
MHZ
auxdata,#15
dig3dot
r5,#0
chkonoff
badval
readnum
loop1
a,#0,no0
ishund
a,#1,isten
; hit lower limit?
; yes-->set to upper limit
; we don't want to hear the PLL sync in this
; first toggle 50kHz flag
; if bit goes to 0, no carry
; otherwise decrement next frequency
; done if no carry
; otherwise decrement upper byte
; hit lower limit?
; yes-->set to upper limit
; we don't want to hear the PLL sync in this
; preinitialize display
; need preinit for different branches
; bail out ?
; get first digit
; is this 0 or 1 ?