вариант 10 / Документ
.rtfdd1: equ 30h
dd2: equ 31h
dd3: equ 32h
dd4: equ 33h
org 0
jmp begin
org 0003H
jmp inter0
org 0013H
jmp inter1
org 001bh
jmp timerm
org 000bh
jmp timerh
inter0: mov tmod,#00010000b
setb tcon.6
setb psw.4
setb psw.3
mov r0,2h
movx a,@r0
mov b,#10d
div ab
mov dd1,a
mov dd2,b
mov r0,4h
movx a,@r0
mov b,#10d
div ab
mov dd3,a
mov dd4,b
clr psw.4
clr psw.3
reti
inter1: clr ie.7
jnb psw.5,on
jb psw.5,tv
on: setb psw.5
setb ie.7
setb ie.3
setb ie.1
jmp error
tv: clr psw.5
clr a
mov tmod,#01010001b
mov ie,#10000101b
mov ip,#00000001b
mov tmod,#01010101b
setb tcon.0
setb psw.4
setb psw.3
mov r0,2h
mov a,r3
movx @r0,a
mov r0,4h
mov a,r2
movx @r0,a
jmp error
error: clr psw.4
clr psw.3
reti
timerm: setb psw.4
setb psw.3
inc r2
clr psw.4
clr psw.3
mov r4,dd4
mov r3,dd3
inc r4
cjne r4,#10d,lm
inc r3
mov r4,#0d
lm: cjne r3,#6d,hm
mov r4,#0d
mov r3,#0d
hm: mov dd4,r4
mov dd3,r3
reti
timerh: setb psw.4
setb psw.3
inc r3
clr psw.4
clr psw.3
mov r6,dd1
mov r5,dd2
inc r5
cjne r5,#4d,lh
cjne r6,#2d,hh
mov r5,#0d
mov r6,#0d
lh: cjne r5,#10d,hh
inc r6
mov r5,#0d
hh: mov dd2,r5
mov dd1,r6
reti
begin: clr psw.5
clr ie.3
clr a
setb p2.7
mov tmod,#01010001b
mov tl0,0
mov th0,0
setb psw.4
setb psw.3
mov r5,#00000100b
setb tcon.4
clr p2.7
m2: jbc tf0,count2
jmp m2
count2: djnz r5,m2
setb p2.7
mov r0,10h
mov r6,#00001111b
mov a,r6
movx @r0,a
mov r0,11h
mov r7,#01001010b
mov a,r7
movx @r0,a
clr psw.4
clr psw.3
mov ie,#10000101b
mov ip,#00000001b
mov tmod,#01010101b
setb tcon.0
call vivod
vivod: mov r0,#30h
mov dptr,#tabl
mov r2,#00000011b
mov r1,#00000001b
tim: mov ie,#10000101b
mov p2,#00000000b
mov a,@r0
movc a,@a+dptr
mov p1,a
mov a,r1
mov p2,a
setb p2.7
inc r0
dec r2
rl a
mov r1,a
djnz r2,ext
mov r0,#30h
mov r1,#00000001b
ext: jmp tim
jmp vivod
ret
tabl: db 00000011b
db 10011111b
db 00100101b
db 00001101b
db 10011001b
db 01001001b
db 01000001b
db 00011111b
db 00000001b
db 00001001b
end;