home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / arc20.arc / ARCMACS.ARC / CALCTIME.MAC < prev    next >
Encoding:
Text File  |  1989-11-04  |  339 b   |  26 lines
  1. ; CALCTIME for Turbo-ARC, TR 031189
  2.     .z80
  3.     extrn    zeit
  4.  
  5.     ld    de,(zeit)    ; Pointer to Time Array
  6.     ld    a,(de)        ; hour
  7.     ld    h,a
  8.     inc    de
  9.     ld    a,(de)        ; minute
  10.     and    3Fh
  11.     rlca
  12.     rlca
  13.     ld    l,a
  14.     add    hl,hl
  15.     add    hl,hl
  16.     add    hl,hl
  17.     inc    de
  18.     ld    a,(de)        ; second
  19.     rrca            ; div 2
  20.     and    1Fh
  21.     or    l
  22.     ld    l,a
  23.     ret            ; RET with Time in HL
  24.  
  25.     end
  26.