Telefunken RT200 User Information page 23

no_onceoff: ret
turnon: mov
clr
clr
jc
call
ret
turnon_fm: call
ret
turnoff: call
ret
endp
;---------------------------------------------------------------------------
; setting the clock:
proc
setb
setb
clr
clr
mov
call
jc
mov
call
jc
mov
writing m+h)
mov
mov
idle: call
terminate: ret
endp
;---------------------------------------------------------------------------
; setting the timer:
proc
setb
setb
clr
clr
mov
mov
mov
call
mov
loop: clr
clr
call
xrl
ljnz
; end without hits...
c,acc.7 ; turn on: select range
acc.7 ; remove range flags from program #
acc.6
turnon_fm
switchon_am_prg ; turn on AM program
switchon_fm_prg ; turn on FM program
switchoff ; turn device off
cset
ON ; turn tuner off
MUTE
AM
FM
auxdata,#15 ; not needed here
readnum ; is a number available ?
idle ; no --> display time
r3,#mode_cset ; get rest of time
readtime
idle ; success?
clk_sec,#0 ; clear seconds (avoids rollovers while
clk_hour,r5 ; store hours
clk_min,r4 ; store minutes
dispclk ; show (possibly new) time
tset
ON ; turn tuner off
MUTE
AM
FM
r2,#0 ; we start with the first value (perm on)
a,r2 ; display this
auxdata,a
clrdisp ; erase display
dispdata+2,#1 ; show just a dot
AM ; AM+FM LEDs are only on during
FM ; time/prog entry
getmode ; are we still in timer setting mode ?
a,#mode_tset
terminate ; no-->exit