sem.s 480 B

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. sem = 53
  4. .define _semctl
  5. .define _semget
  6. .define _semop
  7. _semop:
  8. .data2 0x0000
  9. pushl 12(ap)
  10. pushl 8(ap)
  11. pushl 4(ap)
  12. pushl $2
  13. calls $4,Isys1
  14. ret
  15. _semctl:
  16. .data2 0x0000
  17. pushl 16(ap)
  18. pushl 12(ap)
  19. pushl 8(ap)
  20. pushl 4(ap)
  21. pushl $1
  22. calls $5,Isys1
  23. ret
  24. _semget:
  25. .data2 0x0000
  26. pushl 12(ap)
  27. pushl 8(ap)
  28. pushl 4(ap)
  29. pushl $0
  30. calls $4,Isys1
  31. ret
  32. Isys1:
  33. .data2 0x0000
  34. chmk $sem
  35. bcc 1f
  36. jmp cerror
  37. 1:
  38. ret