home *** CD-ROM | disk | FTP | other *** search
- ; Library: ZSLIB
- ; Version: 3.4
- ; Module: SDATS5
- ; Version: 1.0
- ; Author: Gene Pizzetta
- ; Date: October 6, 1991
- ;
- ; SDATS5 -- Prints short form of date in American or European format with
- ; padded month and day, e.g., " 3/ 2/88" or " 2. 3.88", with switched output.
- ;
- ; Entry: HL = address of date as BCD yy mm dd
- ; A = date format flag (0=American, FFh=European)
- ; Exit: None
- ; Uses: None
- ;
- PUBLIC SDATS5
- ;
- EXTRN ZOUT,SAHC ; ZSLIB
- EXTRN SA2HC ; SYSLIB
- ;
- SDATS5: push hl
- push af
- or a ; test flag
- ; Print month, or day if European
- inc hl ; -> month
- jr z,DoMon
- inc hl ; -> day
- DoMon: ld a,(hl)
- call SAHC ; print with leading space
- call SLASH
- ; Print day, or month if European
- inc hl ; -> day
- jr z,DoDay
- dec hl
- dec hl ; -> month
- DoDay: ld a,(hl)
- call SAHC
- call SLASH
- ; Print year
- dec hl
- jr nz,DoYear
- dec hl
- DoYear: ld a,(hl)
- call SA2HC
- pop af
- pop hl
- ret
- ;
- ; Subroutines
- ;
- SLASH: ld a,'/'
- jr z,DOut
- ld a,'.'
- DOut: jp ZOUT
- ;
- end