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 / CALCDATE.MAC < prev    next >
Text File  |  1989-11-03  |  477b  |  30 lines
  1. ; CALCDATE for Turbo-ARC, TR 031189
  2.     .z80
  3.     extrn    dat
  4.  
  5.     ld    de,(dat)    ; Pointer to date array
  6.     inc    de
  7.     inc    de
  8.     ld    a,(de)        ; year
  9.     sub    80        ; Offset: 1980
  10.     jr    nc,date1
  11.     xor    a
  12. date1:    ld    h,a        ; (one bit too rightmost)
  13.     dec    de
  14.     ld    a,(de)        ; month
  15.     and    0Fh
  16.     rlca
  17.     rlca
  18.     rlca
  19.     rlca            ; shift into upper bits
  20.     ld    l,a
  21.     add    hl,hl        ; shift left month & year
  22.     dec    de
  23.     ld    a,(de)        ; day
  24.     and    1Fh
  25.     or    l
  26.     ld    l,a        ; into lowest bits
  27.     ret            ; RET with date in HL
  28.  
  29.     end
  30.