ustat.s 241 B

123456789101112131415161718192021
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. utssys = 57
  4. .define _ustat
  5. _ustat:
  6. .data2 0x0000
  7. pushl $2
  8. pushl 4(ap)
  9. pushl 8(ap)
  10. calls $3,Isys
  11. ret
  12. Isys:
  13. .data2 0x0000
  14. chmk $utssys
  15. bcc 1f
  16. jmp cerror
  17. 1:
  18. clrl r0
  19. ret