home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / TIME.ZIP / TIME.ASM
Encoding:
Assembly Source File  |  1985-06-03  |  768 b   |  35 lines
  1. LPROG EQU 0
  2. LDATA EQU 0
  3. COM   EQU 0
  4. INCLUDE DOS.MAC
  5.     PSEG
  6.     PUBLIC    TIME
  7.         IF LPROG
  8. TIME    PROC    FAR
  9.         ELSE
  10. TIME    PROC    NEAR
  11.     ENDIF
  12.     PUSH    BP
  13.     MOV    BP,SP
  14.     MOV    BX,[BP+X]
  15.     MOV    AH,2CH
  16.     INT    21H
  17.     XOR    AX,AX
  18.     MOV    [BX],CH
  19.     MOV    [BX+1],AL
  20.     MOV    [BX+2],CL
  21.     MOV    [BX+3],AL
  22.     MOV    [BX+4],DH
  23.     MOV    [BX+5],AL
  24.     MOV    [BX+6],DL
  25.     MOV    [BX+7],AL
  26.     POP    BP
  27.     RET
  28. TIME    ENDP
  29.         ENDPS
  30.     END
  31. S
  32.     END
  33. S
  34.     END
  35.