home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / MURUTIL4.ZIP / MRKTIM.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-21  |  838 b   |  28 lines
  1.     PAGE    54,132
  2.     TITLE    Mark Time Program.
  3. ;
  4. ;    This program marks the current time, in seconds since midnight,
  5. ;       for subsequent use by the RUNTIM program.
  6. ;
  7. ;    This routine stores the current time in the  Intra-Application
  8. ;    Communications Area, memory locations 0:04FA through 0:04FF.
  9. ;
  10. ;    Program by Harry M. Murphy,  21 August 1986.
  11. ;
  12.     DOS  = 21h        ;DOS interrupt code.
  13.     MARK = 4B4DH        ;Mark code, "MK".
  14. ;
  15. MRKTIM    SEGMENT    'CODE'
  16. ASSUME    CS:MRKTIM,DS:NOTHING
  17. MKT:    MOV    AH,2CH        ;Call DOS for
  18.     INT    DOS        ;  current time in CX and DX.
  19.     XOR    AX,AX        ;Set Data Segment
  20.     MOV    DS,AX        ;  to point to the zero segment.
  21.     MOV    DS:04FAH,DX    ;Save DX, CX and MARK in
  22.     MOV    DS:04FCH,CX    ;  04FAH through 04FFh of the
  23.     MOV    DS:04FEH,MARK    ;    I-A Comm Area.
  24.     MOV    AX,4C00H    ;Call DOS to
  25.     INT    DOS        ;  stop the process.
  26. MRKTIM    ENDS
  27.     END    MKT
  28.