home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLDOS.ZIP / FTIM.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-28  |  1.1 KB  |  82 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *    Turbo Pascal Runtime Library Version 5.5    *
  5. ; *    File Date and Time Routines            *
  6. ; *                            *
  7. ; *    Copyright (C) 1988,89 Borland International    *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    FTIM
  12.  
  13.     LOCALS    @@
  14.  
  15. DATA    SEGMENT    WORD PUBLIC
  16.  
  17.     EXTRN    DosError:WORD
  18.  
  19. DATA    ENDS
  20.  
  21. CODE    SEGMENT    BYTE PUBLIC
  22.  
  23.     ASSUME    CS:CODE,DS:DATA
  24.  
  25.     PUBLIC    GetFTime
  26.  
  27. GetFTime    PROC    FAR
  28.  
  29. FileP        EQU    (DWORD PTR [BP+10])
  30. TimeP        EQU    (DWORD PTR [BP+6])
  31.  
  32.     PUSH    BP
  33.     MOV    BP,SP
  34.     LES    DI,FileP
  35.     MOV    BX,ES:[DI]
  36.     MOV    AX,5700H
  37.     INT    21H
  38.     JNC    @@1
  39.     XOR    CX,CX
  40.     XOR    DX,DX
  41.     JMP    SHORT @@2
  42. @@1:    XOR    AX,AX
  43. @@2:    MOV    DosError,AX
  44.     LES    DI,TimeP
  45.     CLD
  46.     XCHG    AX,CX
  47.     STOSW
  48.     XCHG    AX,DX
  49.     STOSW
  50.     POP    BP
  51.     RET    8
  52.  
  53. GetFTime    ENDP
  54.  
  55.     PUBLIC    SetFTime
  56.  
  57. SetFTime    PROC    FAR
  58.  
  59. FileP        EQU    (DWORD PTR [BP+10])
  60. TimeH        EQU    (WORD PTR [BP+8])
  61. TimeL        EQU    (WORD PTR [BP+6])
  62.  
  63.     PUSH    BP
  64.     MOV    BP,SP
  65.     LES    DI,FileP
  66.     MOV    BX,ES:[DI]
  67.     MOV    CX,TimeL
  68.     MOV    DX,TimeH
  69.     MOV    AX,5701H
  70.     INT    21H
  71.     JC    @@1
  72.     XOR    AX,AX
  73. @@1:    MOV    DosError,AX
  74.     POP    BP
  75.     RET    8
  76.  
  77. SetFTime    ENDP
  78.  
  79. CODE    ENDS
  80.  
  81.     END
  82.