getpid.s 133 B

123456789
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. getpid = 20
  4. .define _getpid
  5. _getpid:
  6. .data2 0x0000
  7. chmk $getpid
  8. ret