home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s225 / 1.ddi / TIMER1.BAK < prev    next >
Encoding:
Text File  |  1979-12-31  |  565 b   |  42 lines
  1.     ORG    0000H
  2.     AJMP    MAIN
  3.     ORG    000BH
  4.     AJMP    INT0P
  5.     ORG    0100H
  6. MAIN    MOV    R2,#1
  7.     MOV    SP,#60H
  8.     MOV    TMOD,#01H
  9.     MOV    TH0,#0FEH
  10.     MOV    TL0,#0F0H
  11.     SETB    TR0
  12.     SETB    ET0
  13.     SETB    EA
  14. LOOP    SJMP    LOOP
  15. INT0P    DJNZ    R2,DONE
  16.     MOV    A,22H        ;SECTION SECOND
  17.     ADD    A,#1
  18.     DA    A
  19.     CJNE    A,#60H,S1
  20. S1    JNC    S2
  21.     MOV    22H,A
  22.     LJMP    DONE
  23. S2    MOV    22H,#0
  24.     MOV    A,21H        ;SECTION MINUTE
  25.     ADD    A,#1
  26.     DA    A
  27.     CJNE    A,#60H,M1
  28. M1    JNC    M2
  29.     MOV    21H,A
  30.     LJMP    DONE
  31. M2    MOV    21H,#0
  32.     MOV    A,20H        ;SECTION HOUR
  33.     ADD    A,#1
  34.     DA    A
  35.     CJNE    A,#24H,H1
  36. H1    JNC    H2
  37.     MOV    20H,A
  38.     LJMP    DONE
  39. H2    MOV    20H,#0
  40. DONE    RETI
  41.     END
  42.