LED顯示電腦電子鐘電路及控制程序

display：procedure； /*jieya，yima，fasong*/
declare (i，n，m) byte；
n=a(0) and 0fh； /* send week */
data=week(n)；
call send595；

n=a(4)； /* send date */
n=n and 0fh；
data=aco(n)；
call send595；
n=a(4)；
n=shr(n，4)；
data=aco(n)；
call send595；

do i=1 to 3； /* send second，minute，hour */
n=a(i)；
n=n and 0fh；
data=aco(n)；
call send595；
n=a(i)；
n=shr(n，4)；
data=aco(n)；
call send595；
end；
do i=5 to 6； /* send month，year */
n=a(i)；
n=n and 0fh；
data=aco(n)；
call send595；
n=a(i)；
n=shr(n，4)；
data=aco(n)；
call send595；
end；

n=a(8)； /* send 19 or 20 */
n=n and 0fh；
data=aco(n)；
call send595；
n=a(8)；
n=shr(n，4)；
data=aco(n)；
call send595；
do m=0 to 5；
n=ab(m)；
n=n and 0fh；
data=aco(n)；
call send595_1；
n=ab(m)；
n=shr(n，4)；
data=aco(n)；
call send595_1；
end；
ale=0；
ale=1；
end display；

beginset：procedure；
a(0)=06h；a(1)=58h；a(2)=59h；a(3)=23h；
a(4)=30h；a(5)=06h；a(6)=97h；a(7)=00；
a(8)=19h； /* set date/time (1997，7，1，8：00：00，week 3) */
call wbyt1(8eh，0)； /* write enable*/
call wbyt1(80h，00h)；/* start colock */
call wbyt1(0beh，0abh)；/*兩個二極管與8K電阻串聯充電*/
command=0beh； /* write colock/date */
call wbyt8；
call wbyt1(0c0h，a(8))；
call wbyt1(8eh，80h)； /* set write protect bit */
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；