开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > TCP/IP协议栈 > 查看源码
SEMAPHOR.ASM
资源名称：wattcp.rar　[点击查看]
上传用户：better800
上传日期：2022-06-13
资源大小：1853k
文件大小：1k
源码类别：

TCP/IP协议栈

开发平台：

DOS

SEMAPHOR.ASM：源码内容
  1. PAGE    66,132
  2. ;
  3. ;
  4. ;
  5. ;
  6. ;
  7. ;
  8. ;
  9. ;
  10. ;  semaphor
  11. ;
  12. ;  perform semaphor stuff
  13. ;
  14. ;  (c) 1990 Erick Engelke
  15. ;
  16. ;
  17. ;
  18. include masmdefs.hsm
  19. include model.hsm
  21. codedef semaphor
  22. datadef
  24. ;*************************************************************************
  25. ;  USAGE:  int sem_up( UINT far * p)
  26. ;    1 on failure
  27. ;    0 on success
  28. ;*************************************************************************
  29. cstart  semaphor
  31. cpublic sem_up
  32. mov AX, 1
  33. les DI, +@AB [BP] ; get pointer
  34. xchg AX, word ptr ES:[DI] ; perform swap
  35. creturn sem_up
  37. cend    semaphor
  38.         end