end beginset；
key：procedure；
declare (i，time1，k1，tem) byte；
call time(100)；
k1=7；time1=30；
if mk=0 then
do；
do while time1>0；
week： if k1=0 then
do；
do i=0 to 5；
/* call Hz(a(0))； */
end；
do i=0 to 3；
/* call hz0； */
end；
end；
tem=a(k1)；
if k1=7 then tem=a(8)；
a(k1)=0aah；
if k1=7 then a(8)=0aah；
call display；
call time(254)；
call time (254)；
a(k1)=tem；
if k1=7 then a(8)=tem；
call display；
call time(254)；
call time(254)；
call time(254)；
time1=time1-1；
if mk=0 then
do；call time(100)； /*MOD KEY PROCESS*/
TIME1=30；
IF MK=0 THEN
DO；
k1=k1-1；
DO WHILE K1=0FFH；
K1=7；
END；
END；
end；
IF SK=0 THEN
DO；CALL TIME(100)； /*SET KEY PROCESS*/
TIME1=30；
IF SK=0 THEN
DO；
tem=tem+1；
tem=dec(tem)；
DO CASE K1；
DO WHILE tem=7；/*week*/
tem=0；
END；
DO WHILE tem=60H；/*scond*/
tem=0；
END；
DO WHILE tem=60H；/*minute*/
tem=0；
END；
DO WHILE tem=24H；/*hour*/
tem=0；
END；
DO WHILE tem=32H；/*date*/
tem=1；
END；
DO WHILE tem=13H；/*month*/
tem=1；
END；
DO while tem=100h； /* YEAR */
tem=00；
END；
DO WHILE TEM>=21H；
tem=19H；
END；
END；
A(K1)=tem；
if k1=7 then a(8)=tem；
END；
END；
END；
END；
end key；
main$program：
mk=1；sk=1；temp1=0；num=0；p32=1；
if sk=0 then call beginset；
clk=0；da=0；ale=1；
loop：
do while mk=1 ；
if a(0)>6 then a(0)=0；
command=0bfh；
call rbyt8；
call display；
do while mk=0；
call key；
call wbyt1(8eh，0)；
command=0beh；
call wbyt8；
call wbyt1(0C0H，A(8))；
call wbyt1(8eh，80h)；
end；
end；
goto loop；
end start
上一篇：PCB板时钟电路的电磁兼容设计
