strhp.s 366 B

12345678910111213141516171819202122232425
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .strhp
  4. ! $Header$
  5. .strhp:
  6. movd tos,r7
  7. movd tos,r0
  8. movd r7,tos
  9. movd r0,@.reghp
  10. ! cmpd r0,@.limhp
  11. ! blo I2
  12. ! addd 02000,r0
  13. ! bicd 0777,r0
  14. ! movd r0,tos
  15. ! jsr @__brk
  16. ! adjspd -4
  17. ! cmpqd 0,r0
  18. ! beq I2
  19. ! movd EHEAP,tos
  20. ! jsr @.trp
  21. !I2:
  22. ret 0