Telefunken RT200 User Information page 19

mov
mov
mov
regbank 0
setb
setb
clr
mov
mov
setb
setb
setb
clr
mov
mov
mov
mov
mov
mov
initimer: mov
inc
setb
mov
clr
inc
djnz
mov
mov
mov
mov
mov
mov
mov
initfm: mov
inc
mov
inc
djnz
mov
mov
mov
mov
initam: mov
inc
mov
inc
djnz
mov
mov
mov
mov
clr
iniloop: mov
mov
inc
inc
djnz
mov
r2,#1 ;
r1,#dispdata ;
r0,#keydata ;
it0 ; IE0 is level-triggered
ex0 ; enable external interrupt 0
px0 ; 250 Hz interrupt has lower priority
tmod,#32h ; T1 stopped, T0 in mode 2, no gate
th0,#(256-t0rate) ; set display mux interrupt rate
tr0 ; turn or timer 0
et0 ; interrupts on for timer 0
pt0 ; high priority
a ; preinit clock
clk_msec,a
clk_sec,a
clk_min,a
clk_hour,a
r0,#4 ; preinit timer values to invalid times
r1,#time_permon
@r1,a
r1
acc.7 ; (meaning bit 7 in hours is set )
@r1,a
acc.7
r1
r0,initimer
a,#0fh ; preinit timer programs
prog_perm,a
prog_once,a
fm_prog,#lo(DEF_FM) ; preinit FM programs to 87.5 MHz
fm_prog+1,#hi(DEF_FM)
r0,#NUMPROGS
r1,#fm_progs
@r1,#lo(DEF_FM)
r1
@r1,#hi(DEF_FM)
r1
r0,initfm
am_prog,#lo(DEF_AM) ; preinit AM programs to 522 kHz
am_prog+1,#hi(DEF_AM)
r0,#NUMPROGS
r1,#am_progs
@r1,#lo(DEF_AM)
r1
@r1,#hi(DEF_AM)
r1
r0,initam
currband,#40h ; initially on FM
r0,#dispdata ; init display segment+keyboard status
r1,#keydata
r2,#6
a
@r0,a
@r1,a
r0
r1
r2,iniloop
a,#15
row shifter
data pointer displ-matrix
data pointer kbd-matrix