;bài của tui nè:
org 00h
dem1 equ r7
dem2 equ r6
mov dptr,#ma7doan
main: mov dem1,#1
mov dem2,#11
lb1:
call hextobcd
call giaima
call hienthi
inc dem1
inc dem2
cjne dem1,#24,lb1
jmp main
hextobcd:
mov a,dem1
mov b,#10
div ab
mov 21h,a
mov 23h,b
mov a,dem2
mov b,#10
div ab
mov 25h,a
mov 27h,b
ret
giaima:
mov a,21h
movc a,@a+dptr
mov 31h,a
mov a,23h
movc a,@a+dptr
mov 33h,a
mov a,25h
movc a,@a+dptr
mov 35h,a
mov a,27h
movc a,@a+dptr
mov 37h,a
mov 32h,#0
mov 34h,#0
mov 36h,#0
mov 38h,#0
ret
hienthi:
mov r4,#50
ht:
mov a,#01111111b
mov r0,31h
loop:
mov p2,a
mov p0,@r0
call delay1ms
mov p2,#0ffh
inc r0
rr a
jb acc.7,loop
djnz r4,ht
ret
$include(TV_delay.asm)
$include(TV_7doan.asm)
end