home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCMACS.ARC / CALCTIME.MAC < prev    next >
Text File  |  1989-11-03  |  339b  |  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.