home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zslsrc36.lbr / SDATS5.ZZ0 / SDATS5.Z80
Encoding:
Text File  |  1991-10-08  |  1.0 KB  |  57 lines

  1. ; Library:    ZSLIB
  2. ; Version:    3.4
  3. ; Module:    SDATS5
  4. ; Version:    1.0
  5. ; Author:    Gene Pizzetta
  6. ; Date:        October 6, 1991
  7. ;
  8. ; SDATS5 -- Prints short form of date in American or European format with
  9. ; padded month and day, e.g., " 3/ 2/88" or " 2. 3.88", with switched output.
  10. ;
  11. ; Entry:  HL = address of date as BCD yy mm dd
  12. ;      A = date format flag (0=American, FFh=European)
  13. ; Exit:   None
  14. ; Uses:   None
  15. ;
  16.     PUBLIC    SDATS5
  17. ;
  18.     EXTRN    ZOUT,SAHC        ; ZSLIB
  19.     EXTRN    SA2HC            ; SYSLIB
  20. ;
  21. SDATS5:    push    hl
  22.     push    af
  23.     or    a        ; test flag
  24. ; Print month, or day if European
  25.     inc    hl        ; -> month
  26.     jr    z,DoMon
  27.     inc    hl        ; -> day
  28. DoMon:    ld    a,(hl)
  29.     call    SAHC        ; print with leading space
  30.     call    SLASH
  31. ; Print day, or month if European
  32.     inc    hl        ; -> day
  33.     jr    z,DoDay
  34.     dec    hl
  35.     dec    hl        ; -> month
  36. DoDay:    ld    a,(hl)
  37.     call    SAHC
  38.     call    SLASH
  39. ; Print year
  40.     dec    hl
  41.     jr    nz,DoYear
  42.     dec    hl
  43. DoYear:    ld    a,(hl)
  44.     call    SA2HC
  45.     pop    af
  46.     pop    hl
  47.     ret
  48. ;
  49. ; Subroutines
  50. ;
  51. SLASH:    ld    a,'/'
  52.     jr    z,DOut
  53.     ld    a,'.'
  54. DOut:    jp    ZOUT
  55. ;
  56.     end
  57.