frontends/calculator/CEdev/lib/static/ceil.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
28
29
30
31

	.ref __frameset0
	.ref __fneg
	.ref _floor
	.def _ceil
	.assume adl=1

; double ceil(double d);

_ceil:
	call	__frameset0
	ld	bc,(ix+6)
	ld	a,(ix+9)
	call	__fneg
	ld	l,a
	ld	h,0
	push	hl
	push	bc
	call	_floor
	pop	bc
	pop	bc
	push	hl
	pop	bc
	ld	a,e
	call	__fneg
	ld	e,a
	push	bc
	pop	hl
	ld	sp,ix
	pop	ix
	ret