Telefunken RT200 User Information page 26

jc
dec
clr
subb
jnc
dloop: add
mov
rl
add
mov
call
mov
mov
rrc
clr
add
mov
mov
mov
mov
mov
mov
anl
setb
mov
wloop: call
xrl
jnz
call
jc
dec
clr
subb
jnc
sjmp
normal: call
mov
clr
clr
ret
endp
;---------------------------------------------------------------------------
; delete timer values
proc
setb
setb
clr
clr
mov
call
jc
dec
clr
subb
normal ; none->display time, abort
a ; map 1..4->0..3
c
a,#4 ; is number in range?
normal ; no -> ditto
a,#4 ; otherwise restore number...
r2,a ; ...save it...
a ; ...compute address of time...
a,#time_permon
r0,a
disptime ; ...display time
dispdata+5,#0 ; don't forget to clear!
a,r2 ; restore number
a ; compute address of program
c
a,#prog_perm
r0,a
a,@r0 ; fetch value
c,acc.7 ; display AM/FM
FM,c
c,acc.6
AM,c
a,#3fh ; mask range bits out
acc.7 ; no blinking!
auxdata,a
getmode ; wait loop: still in check mode ?
a,#mode_check
normal ; no->bail out
readnum ; otherwise wait for key as usual
wloop
a
c
a,#4
wloop
dloop ; and display when next key is correct
dispclk ; none/terminate: display time
auxdata,#15 ; turn LEDs off
AM
FM
cancel
ON ; turn tuner off
MUTE
AM
FM
auxdata,#15 ; turn LEDs off
readnum ; wait for a number to be entered
normal ; none->display time, abort
a ; map 1..4->0..3
c
a,#4 ; is number in range?