home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zslsrc36.lbr / SDATS4.ZZ0 / SDATS4.Z80
Encoding:
Text File  |  1991-10-08  |  1.1 KB  |  64 lines
  1. ; Library:    ZSLIB
  2. ; Version:    3.4
  3. ; Module:    SDATS4
  4. ; Version:    1.0
  5. ; Author:    Gene Pizzetta
  6. ; Date:        October 8, 1991
  7. ;
  8. ; SDATS4 -- Prints very short form of date in American or European format,
  9. ; e.g., "3/2/88" or "2.3.88", with switchable 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    SDATS4
  17. ;
  18.     EXTRN    SAFHC,ZOUT        ; ZSLIB
  19.     EXTRN    SA2HC            ; SYSLIB
  20. ;
  21. SDATS4:    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:    call    SMFHC
  29.     call    SLASH
  30. ; Print day, or month if European
  31.     inc    hl        ; -> day
  32.     jr    z,DoDay
  33.     dec    hl
  34.     dec    hl
  35. DoDay:    call    SMFHC
  36.     call    SLASH
  37. ; Print year
  38.     dec    hl
  39.     jr    nz,DoYear
  40.     dec    hl
  41. DoYear:    call    SM2HC
  42.     pop    af
  43.     pop    hl
  44.     ret
  45. ;
  46. ; Subroutines
  47. ;
  48. SLASH:    ld    a,'/'
  49.     jr    z,DOut
  50.     ld    a,'.'
  51. DOut:    jp    ZOUT
  52. ;
  53. ; SMFHC - Print value at (HL) as 1-2 hex chars.
  54. ;
  55. SMFHC:    ld    a,(hl)
  56.     jp    SAFHC        ; Display & return
  57. ;
  58. ; SM2HC - Print value at (HL) as 2 hex chars.
  59. ;
  60. SM2HC:    ld    a,(hl)
  61.     jp    SA2HC        ; display and return
  62. ;
  63.     end
  64.