.xlist
        page    64,132
        
        title   DosTime
        subttl  by Wynn Wagner III
        
        name    DosDate
        ;
        ;
        ;
        ; The following macro files come with the MicroSoft "C" compiler
        ;
        include version.inc
        include msdos.inc
        include cmacros.inc
        
        .sall
.list
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

sBegin   code

         assumes  cs,code
         assumes  ds,data
                                
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;
;        --------------------------------------------------------------------
;        void dostime(&hour,&min,&sec,&ths);
;
;        int hour;         0-23  military time
;        int min;	         0-59
;        int sec;          0-59
;        int ths;          0-99
;        --------------------------------------------------------------------
cProc    dostime,<PUBLIC>,<di>

         parmW    Hour
         parmW    Minutes
         parmW    Seconds
         parmW    Thousandths

cBegin

         callos   gettime

         mov      al,  ch
         xor      ah,  ah
         mov      di,  Hour         ; Address of Hour
         mov      [di],ax

         mov      bl,  cl
         xor      bh,  bh
         mov      di,  Minutes      ; Address of Minutes
         mov      [di],bx

         mov      cl,  dh
         xor      ch,  ch
         mov      di,  Seconds      ; Address of Seconds
         mov      [di],cx

         xor      dh,  dh
         mov      di,  Thousandths  ; Address of Thousandths
         mov      [di],dx

cEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                  
sEnd
         end