strhp.s 359 B

12345678910111213141516171819202122232425
  1. #include "em_abs.h"
  2. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  3. .define .strhp
  4. ! $Id$
  5. .strhp:
  6. movd tos,r3
  7. movd tos,r0
  8. movd r3,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