frontends/calculator/CEdev/lib/shared/calloc.src


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

	.ref __imulu
	.ref _malloc
	.ref _memset
	.def _calloc
	.assume adl=1

_calloc:
	pop	de
	pop	bc
	pop	hl
	push	hl
	push	bc
	push	de
	call	__imulu
	push	hl
	call	_malloc
	add	hl,de
	xor	a,a
	sbc	hl,de
	ld	e,a
	push	de
	push	hl
	call	nz,_memset
	pop	hl
	pop	de
	pop	bc
	ret