; bigint_iszero(uint8_t *op);
; point_iszero(struct Point *pt)
_point_iszero:
	ld b, 60
	jr _iszero_begin
_bigint_iszero:
	ld b, 30
_iszero_begin:
	call ti._frameset0
	ld hl, (ix + 6)
	or a
.loop:
	or (hl)
	inc hl
	djnz .loop
	or a
	ret z
	ld a, 1
	ld sp, ix
	pop ix
	ret


; bigint_isequal(uint8_t *op1, uint8_t *op2);
; point_isequal(struct Point *pt1, struct Point *pt2);
_point_isequal:
	ld b, 60
	jr _isequal_begin
_bigint_isequal:
	ld b, 30
_isequal_begin:
	call ti._frameset0
	ld hl, (ix + 6)
	ld de, (ix + 9)
	ld c, 0
.loop:
	ld a, (de)
	xor (hl)
	or a, c
	ld c, a
	inc de
	inc hl
	djnz .loop
	add a, -1
	sbc a, a
	inc a
	ld sp, ix
	pop ix
	ret