org 0000h
   ajmp main
   org 000bh
   ljmp inti0
   org 0030h
main: mov ie,#82h
      mov tmod,#01h
   mov th0,#4ch
   mov tl0,#00h
   mov 31h,#00
   mov 32h,#00
   mov 33h,#00
   mov sp,#60h
   setb tr0
loop:lcall display
     lcall keyer
     ajmp loop
display: mov a,31h  ;秒顯示
        mov b,#10
  div ab
  mov 20h,a
  mov 21h,b
disp1:  mov a,20h  ;秒十位顯示
  mov dptr,#table
  movc a,@a+dptr
  mov p0,a
  clr p2.0
  lcall del1ms
  setb p2.0
disp2:  mov a,21h  ;秒個位顯示
        mov dptr,#table
  movc a,@a+dptr
  mov p0,a
  clr p2.1
  lcall del1ms      
  setb p2.1
disp3:  mov a,32h    ;分顯示
        mov b,#10
  div ab
  mov 22h,a
  mov 23h,b
disp4: mov a,22h     ;分十位顯示
  mov dptr,#table
  movc a,@a+dptr
  mov p0,a
  clr p2.6
  lcall del1ms
  setb p2.6   
disp5:  mov a,23h     ;分個位顯示
        mov dptr,#table
  movc a,@a+dptr
  mov p0,a
  clr p2.7
  lcall del1ms
  setb p2.7
disp6:  mov a,33h   ;時顯示
  mov b,#10
  div ab
  mov 24h,a
  mov 25h,b
disp7:  mov a,24h   ;時十位顯示
        mov dptr,#table
  movc a,@a+dptr
  mov p0,a
  clr p2.4
  lcall del1ms
  setb p2.4
disp8:  mov a,25h   ;時個位顯示
  mov dptr,#table
  movc a,@a+dptr
  mov p0,a
  clr p2.5
  lcall del1ms
  setb p2.5
  ret
inti0:push acc
    push psw
 clr ea
 mov th0,4ch
 mov tl0,#00h
 inc 3ah
 mov a,3ah
 cjne a,#40,out
 mov 3ah,#00
 cpl p2.2
 inc 31h   ;秒加1
 mov a,31h
 cjne a,#60,out
 mov 31h,#00
 inc 32h  ;分加1
 mov a,32h
 cjne a,#60,out
 mov 32h,#00
 inc 33h   ;時加1
 mov a,33h
 cjne a,#24,out
 mov 33h,#00
out:setb ea
     pop psw
  pop acc
     reti
table: db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h
del1ms: mov r7,#10
del1:mov r6,#50
del2:djnz r6,del2
     djnz r7,del1
  ret
del20ms:mov r5,#40
del3:mov r4,#250
del4:djnz r4,del4
     djnz r5,del3
  ret
keyer:jnb p3.2,key1  ;分加1按鈕
      jnb p3.3,key2  ;時加1按鈕
   sjmp keyout
key1:lcall del20ms
     jb p3.2,keyout
  jnb p3.2,$
  inc 32h   ;分加1
  mov a,32h
  cjne a,#60,keyout
  mov 32h,#00
  sjmp keyout
key2:lcall del20ms
     jb p3.3,keyout
  jnb p3.3,$
  inc 33h    ;時加1
  mov a,33h
  cjne a,#24,keyout
  mov 33h,#00
  sjmp keyout
keyout:ret
end