home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Asm / 86LIB3.ZIP / GET_TIME.8 < prev    next >
Encoding:
Text File  |  1989-01-14  |  1.0 KB  |  71 lines
  1. _saver38  dw  ?
  2. NUMB    DW  ?
  3. BASE    DW  10
  4. _OFFSET DW  ?
  5. ;
  6. HOUR    DB  '00'     ;time block.
  7. _hour   DB  ':'
  8. MINUTE  DB  '00'
  9. _min    DB  ':'
  10. SECOND  DB  '00'
  11. _sec    DB  '.'
  12. HUNDRED DB  '00'
  13. _hund    db  ' '
  14. _CX  DW ?
  15. _DX  DW ?
  16. ;
  17. _get_time:
  18.   mov ds,cs
  19.   pop _saver38
  20.  
  21.     Mov    AH,2CH                ;get system time.
  22.     Int    21H
  23.  
  24.   MOV _CX,CX
  25.   MOV _DX,DX
  26. ;
  27.   Mov CL,0           ;SEND out hour.
  28.   XCHG CH,CL
  29.   MOV NUMB,CX
  30.   MOV _OFFSET,OFFSET HOUR
  31.   CALL _get_time1
  32.   MOV _hour,':'
  33. ;
  34.   MOV CX,_CX
  35.   Mov CH,0           ;SEND OUT MIN
  36.   MOV NUMB,CX
  37.   MOV _OFFSET,OFFSET MINUTE
  38.   CALL _get_time1
  39.   MOV _min,':'
  40. ;
  41.   MOV DX,_DX
  42.   MOV DL,0
  43.   XCHG DH,DL
  44.   MOV NUMB,DX
  45.   MOV _OFFSET,OFFSET SECOND
  46.   CALL _get_time1
  47.   MOV _sec,'.'
  48. ;
  49.   MOV DX,_DX
  50.   MOV DH,0
  51.   MOV NUMB,DX
  52.   MOV _OFFSET,OFFSET HUNDRED
  53.   CALL _get_time1
  54.   MOV _hund,' '
  55. ;
  56.   MOV AX,OFFSET HOUR
  57.   PUSH AX
  58. ;
  59.   mov ds,cs
  60.   push _saver38
  61.   Ret
  62. ;
  63. _get_time1:
  64.   PUSH NUMB
  65.   PUSH _OFFSET
  66.   PUSH BASE
  67.   MOV AX,3
  68.   CALL _INTOSB
  69.   ADD SP,6
  70.   RET
  71.