calloc.s 361 B

1234567891011121314151617181920212223
  1. .xdef calloc
  2. .text
  3. calloc:
  4. mulu.w %d1,%d0
  5. move.l %d0,-(%sp)
  6. move.l 0xC8,%a0
  7. move.l 648(%a0),%a0 /* HeapAllocPtr */
  8. jsr (%a0)
  9. move.l %a0,%d0
  10. jbeq .L__calloc_1
  11. clr.w -(%sp)
  12. move.l %a0,-(%sp)
  13. move.l 0xC8,%a0
  14. move.l 2544(%a0),%a0 /* memset */
  15. jsr (%a0)
  16. addq.l #6,%sp
  17. jbra .L__calloc_2
  18. .L__calloc_1:
  19. suba.l %a0,%a0
  20. .L__calloc_2:
  21. addq.l #4,%sp
  22. rts