home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s225 / 1.ddi / TIMER1.ASM < prev    next >
Encoding:
Assembly Source File  |  1979-12-31  |  609 b   |  45 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    R2,#1
  17.     MOV    TH0,#0FEH
  18.     MOV    TL0,#0F0H
  19.     MOV    A,22H        ;SECTION SECOND
  20.     ADD    A,#1
  21.     DA    A
  22.     CJNE    A,#60H,S1
  23. S1    JNC    S2
  24.     MOV    22H,A
  25.     LJMP    DONE
  26. S2    MOV    22H,#0
  27.     MOV    A,21H        ;SECTION MINUTE
  28.     ADD    A,#1
  29.     DA    A
  30.     CJNE    A,#60H,M1
  31. M1    JNC    M2
  32.     MOV    21H,A
  33.     LJMP    DONE
  34. M2    MOV    21H,#0
  35.     MOV    A,20H        ;SECTION HOUR
  36.     ADD    A,#1
  37.     DA    A
  38.     CJNE    A,#24H,H1
  39. H1    JNC    H2
  40.     MOV    20H,A
  41.     LJMP    DONE
  42. H2    MOV    20H,#0
  43. DONE    RETI
  44.     END
  45.