_sbrk.s 398 B

12345678910111213141516171819202122232425262728293031
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. break = 17
  4. .define __sbrk
  5. .define __brk
  6. .align 1
  7. __sbrk:
  8. .data2 0x0000
  9. addl3 .limhp,4(ap),-(sp)
  10. bcc 1f
  11. movl $0xFFFFFFFF,(sp) ! will cause an error (I hope)
  12. 1:
  13. movl .limhp,r3
  14. calls $1,__brk
  15. tstl r0
  16. blss 1f
  17. movl r3,r0
  18. 1:
  19. ret
  20. .align 1
  21. __brk:
  22. .data2 0x0000
  23. chmk $break
  24. bcc 1f
  25. jmp errmon
  26. 1:
  27. movl 4(ap),.limhp
  28. clrl r0
  29. ret