home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLDOS.ZIP / VERF.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-28  |  731 b   |  53 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *    Turbo Pascal Runtime Library Version 5.5    *
  5. ; *    Verify Flag Handling                *
  6. ; *                            *
  7. ; *    Copyright (C) 1988,89 Borland International    *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    VERF
  12.  
  13. CODE    SEGMENT    BYTE PUBLIC
  14.  
  15.     ASSUME    CS:CODE
  16.  
  17.     PUBLIC    GetVerify
  18.  
  19. GetVerify    PROC    FAR
  20.  
  21. VerifyP        EQU    (DWORD PTR [BP+6])
  22.  
  23.     PUSH    BP
  24.     MOV    BP,SP
  25.     MOV    AH,54H
  26.     INT    21H
  27.     LES    DI,VerifyP
  28.     STOSB
  29.     POP    BP
  30.     RET    4
  31.  
  32. GetVerify    ENDP
  33.  
  34.     PUBLIC    SetVerify
  35.  
  36. SetVerify    PROC    FAR
  37.  
  38. Verify        EQU    (BYTE PTR [BP+6])
  39.  
  40.     PUSH    BP
  41.     MOV    BP,SP
  42.     MOV    AL,Verify
  43.     MOV    AH,2EH
  44.     INT    21H
  45.     POP    BP
  46.     RET    2
  47.  
  48. SetVerify    ENDP
  49.  
  50. CODE    ENDS
  51.  
  52.     END
  53.