home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / pascal-p / xrefc26.lbr / TIMKPRO4.MZC / TIMKPRO4.MAC
Encoding:
Text File  |  1987-01-15  |  1.3 KB  |  67 lines
  1.     title    'TIMEDAY overlay for Kaypro only (84/11/11)'
  2. ;
  3. ; Allow PCD/Pascal system V 2.4.4 to read date and time.
  4. ; Assemble to .HEX file and overlay.  CPMLINK must be first
  5. ; module of .COM file linked to use this.
  6. ;
  7.     org    03bh;        avail. in Kaypro II/4
  8. year:    ds    1
  9. month:    ds    1
  10. day:    ds    1
  11. hour:    ds    1
  12. min:    ds    1
  13. ;
  14.     org    0124h;        CPMLINK connector vector
  15.     jmp    dotime
  16.         jmp    timers
  17. ;
  18. ; Organized so that power on values of 00 or 0ff act as if
  19. ; the timer has never been set.
  20.     org    0139h;        CPMLINK patch space
  21. dotime:    lxi    h,year-1
  22.     add    l
  23.     mov    l,a
  24.     mov    a,m
  25.     cma
  26.     ora    a
  27.     rz;            was 0ffh, not set
  28.     cma
  29.     ret;            if was 0, not set
  30. ;
  31. ; Dummy timers to set etc time of day
  32. timers:    ora    a
  33.     jz    setdat
  34.     dcr    a
  35.     jz    stoptm
  36.     dcr    a
  37.     jz    sethr
  38.     lxi    h,0
  39.     mov    d,h
  40.     mov    e,h
  41.     stc
  42.     ret;            other functions not implemented
  43. ;
  44. ; set hour/min, d=hr, e=min
  45. sethr:    mov    l,d;        set hour
  46.     mov    h,e;        and min
  47.     jmp    hrmin
  48. ;
  49. ; d=day, e=month, hl=year (use low part only)
  50. setdat:    mov    a,l
  51.     lhld    hour
  52.     jmp    setall
  53. ;
  54. stoptm:    mov    h,a;        all zeroes
  55.     mov    l,a
  56.     mov    d,a
  57.     mov    e,a
  58. setall:    sta    year;        zero year
  59.     xchg
  60.     shld    month;        zero month/day
  61.     xchg
  62. hrmin:    shld    hour;        zero/set hour/min
  63.     ora    a
  64.     ret
  65. ;
  66.     end
  67. ü·