shp.s 522 B

12345678910111213141516171819202122232425262728293031
  1. .define .strhp
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. EHEAP=17
  7. .sect .text
  8. .strhp:
  9. move.l (sp)+, a0
  10. move.l (sp), d1 ! new heap pointer
  11. cmp.l (.limhp), d1 ! compare new heap pointer with limit
  12. blt 1f
  13. add.l #0x400, d1
  14. and.l #~0x3ff, d1
  15. move.l a0,-(sp)
  16. move.l d1, -(sp)
  17. move.l d1,(.limhp)
  18. jsr (BRK) ! allocate 1K bytes of extra storage
  19. add.l #4,sp
  20. move.l (sp)+,a0
  21. tst.l d0
  22. bne 2f
  23. 1:
  24. move.l (sp)+, (.reghp) ! store new value
  25. jmp (a0) ! return
  26. 2:
  27. move.l #EHEAP, -(sp)
  28. jsr (.trp)
  29. jmp (a0)
  30. .align 2