blob: 2b55337037859ea264bd809127273605c366eeca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
.def _finite
.assume adl=1
; int finite(double n);
_finite:
pop bc
pop hl
pop de
push de
push hl
push bc
add hl,hl
ld a,e
rla
add a,1
sbc hl,hl
inc hl
ret
|