strhp.s 201 B

123456789101112131415161718
  1. .define strhp
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. strhp:
  8. popl RR2, *RR14
  9. pop R0, *RR14
  10. cp R0, R15
  11. jp ULT, 1f
  12. push *RR14, $EHEAP
  13. calr trp
  14. jp *RR2
  15. 1:
  16. ld reghp, R0
  17. jp *RR2