strhp.s 341 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. movl (sp)+,r1
  7. movl (sp)+,r0
  8. pushl r1
  9. movl r0,.reghp
  10. cmpl r0,.limhp
  11. blssu I2
  12. addl2 $02000,r0
  13. bicl2 $0777,r0
  14. pushl r0
  15. calls $1,BRK
  16. tstl r0
  17. beql I2
  18. pushl $EHEAP
  19. jsb .trp
  20. rsb
  21. I2:
  22. rsb