text2

电子时钟带有闹钟功能

org 0000h 
      jmp start 
      org 0030h      ;主程序从这个地址开始存放 
start: 
      mov dptr,#table ;将表格的首地址送DPTR 
loop: clr a 
      movc a,@a+dptr   ;读取表格首地址的内容 
      cjne a,#01h,loop1 ;查看是否是01H.如果是01H,重新开始循
      jmp start 
loop1:mov P0,a           ;将要显示的代码送P0口 
      mov r4,#20         ;延时200ms（0.2S） 
      call delay         ;调用延时 
      inc dptr           ;DPTR加1,为读取下一个地址的内容作准
      jmp loop 
;************** 延时子程序 **************** 
delay:mov r1,#20         ;延时10ms子程序 
d1:   mov r2,#200 
      djnz r2,$ 
      djnz r1,d1 
      djnz r4,delay 
      ret 
table:db 0feh,0fdh,0fbh,0f7h         ;左移 
      db 0efh,0dfh,0bfh,07fh 
      db 0feh,0fdh,0fbh,0f7h          ;左移 
      db 0efh,0dfh,0bfh,07fh 
    db 7fh,0bfh,0dfh,0efh           ;右移 
    db 0f7h,0fbh,0fdh,0feh 
    db 7fh,0bfh,0dfh,0efh             ;右移 
     
 
 
db 0f7h,0fbh,0fdh,0feh 
db 00h,00h,0ffh,0ffh,00h,00h,0ffh,0ffh   ;闪烁2次 
    db 01h   ;结束码 
    END