SEMAPHOR.ASM
上传用户:sunrenlu
上传日期:2022-06-13
资源大小:1419k
文件大小:1k
源码类别:

操作系统开发

开发平台:

DOS

  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
  20. codedef semaphor
  21. datadef
  22. ;*************************************************************************
  23. ;  USAGE:  int sem_up( UINT far * p)
  24. ;    1 on failure
  25. ;    0 on success
  26. ;*************************************************************************
  27. cstart  semaphor
  28. cpublic sem_up
  29. mov AX, 1
  30. les DI, +@AB [BP] ; get pointer
  31. xchg AX, word ptr ES:[DI] ; perform swap
  32. creturn sem_up
  33. cend    semaphor
  34.         end