uname.s 239 B

12345678910111213141516171819202122
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. utssys = 57
  4. .define _uname
  5. _uname:
  6. .data2 0x0000
  7. pushl $0
  8. pushl $0
  9. pushl 4(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