; Library: ZSLIB ; Version: 1.0 ; Module: ZSGSTIME ; Version: 1.0 ; Author: Carson Wilson ; Date: February 18, 1989 ; Changes: Now aborts under non-ZSDOS systems. ; Version: 0.2 ; Author: Carson Wilson ; Date: August 22, 1988 ; Purpose: Get and Set time. ; PUBLIC GETTIM,SETTIM EXTRN DOSTYP BDOSPTR equ 5 GTIMEF equ 98 STIMEF equ 99 ; ; GETTIM - Get current time to 6-byte buffer ; ; Entry: - points to 6-byte time buffer. ; Exit: - Zero flag set (Z) and A=0 if buffer filled, ; Zero flag reset (NZ) if error. ; Uses: - . ; GETTIM: push hl push de push bc ld c,GTIMEF jr GETSET ; ; SETTIM - Set current time from 6-byte buffer ; ; Entry: - points to 6-byte time buffer. ; Exit: - Zero flag set (Z) and A=0 if clock set, ; Zero flag reset (NZ) if error. ; Uses: - . ; SETTIM: push hl push de push bc ld c,STIMEF GETSET: call DOSTYP ; Test if ZSDOS cp 'S' jr z,GTSET1 cp 'D' jr nz,EXIT ; No, return error GTSET1: ex de,hl ; Point DE to buffer call BDOSPTR dec a ; 1 --> 0 means get/set ok EXIT: pop bc pop de pop hl ret end ; End ZSGSTIME.Z80