home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / GRLF-C-1.ZIP / GCOMM / _ASITIME.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-14  |  566 b   |  28 lines
  1.         page    60,132
  2. ;
  3. ; The Greenleaf Comm Library
  4. ;
  5. ; Copyright (C) 1984-90 Greenleaf Software Inc.  All Rights Reserved.
  6. ;
  7.  
  8.         .xlist
  9.         include model.h
  10.         include prologue.h
  11.         .list
  12.  
  13.         pseg    _asitime
  14.  
  15. ;  int asitime()
  16. ;
  17. ;  Return Seconds part of system time
  18. ;
  19.         cproc   asitime,,,,,<NOSI,NODI>
  20.         mov     ax,02C00h       ; get time function
  21.         int     21h
  22.         mov     al,dh           ; seconds
  23.         xor     ah,ah           ;  in AL only.
  24.         cproce
  25.  
  26.         endps
  27.         end
  28.