home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 1 / megacd_rom_1.zip / megacd_rom_1 / MAGAZINE / PROGJOUR / PJ_8_5.ZIP / STRERROR.ASM < prev    next >
Assembly Source File  |  1990-04-28  |  661b  |  47 lines
  1.     title    error message interface
  2.     include    asm.inc
  3.  
  4.     public    clear_strerror,set_strerror,get_strerror
  5.  
  6.     .data
  7.     extrn    dgroup_segment:word
  8.  
  9.     .data?
  10. strerror_ptr    dw    ?
  11.  
  12.     .code
  13.  
  14. ;;    clear strerror
  15. ;
  16. clear_strerror proc
  17.     mov    strerror_ptr[bp],NULL_POINTER
  18.     ret
  19. clear_strerror endp
  20.  
  21.  
  22. ;;    get strerror
  23. ;
  24. ;    exit    DS:SI    error string
  25. ;        Zf    if no error string
  26. ;
  27. get_strerror proc
  28.     mov    ds,dgroup_segment[bp]
  29.     mov    si,strerror_ptr[bp]
  30.     cmp    si,NULL_POINTER
  31.     ret
  32. get_strerror endp
  33.  
  34.  
  35. ;;    set strerror
  36. ;
  37. ;    entry    AX    DGROUP offset of asciiz error string
  38. ;    exit    Cf    1
  39. ;
  40. set_strerror proc
  41.     mov    strerror_ptr[bp],ax
  42.     stc
  43.     ret
  44. set_strerror endp
  45.  
  46.     end
  47.