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