_sbrk.s 405 B

1234567891011121314151617181920212223242526272829303132333435
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. break = 17
  4. .define __sbrk
  5. .define __brk
  6. __sbrk:
  7. .data2 0x0000
  8. movl .limhp,r0
  9. tstl 4(ap)
  10. jeql 3f
  11. addl3 r0,4(ap),-(sp)
  12. bcs 1f
  13. pushl $1
  14. movl ap,r3
  15. movl sp,ap
  16. chmk $break
  17. bcc 2f
  18. 1:
  19. jmp cerror
  20. 2:
  21. movl .limhp,r0
  22. addl2 4(r3),.limhp
  23. 3:
  24. ret
  25. __brk:
  26. .data2 0x0000
  27. chmk $break
  28. bcc 1f
  29. jmp cerror
  30. 1:
  31. movl 4(ap),.limhp
  32. clrl r0
  33. ret