home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / arc20.arc / ARCMACS.ARC / CALCDATE.MAC < prev    next >
Encoding:
Text File  |  1989-11-04  |  477 b   |  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.