From 742b15357ba57f2b691247af5bea38ebaa3a6f25 Mon Sep 17 00:00:00 2001 From: Irmen de Jong Date: Wed, 10 Apr 2019 22:42:48 +0200 Subject: [PATCH] fix all(f) --- compiler/res/prog8lib/c64flt.p8 | 41 +++++++++++++++------------------ 1 file changed, 19 insertions(+), 22 deletions(-) diff --git a/compiler/res/prog8lib/c64flt.p8 b/compiler/res/prog8lib/c64flt.p8 index c49d99e28..5696895ed 100644 --- a/compiler/res/prog8lib/c64flt.p8 +++ b/compiler/res/prog8lib/c64flt.p8 @@ -859,38 +859,35 @@ func_any_f .proc func_all_f .proc inx + jsr prog8_lib.peek_address lda c64.ESTACK_LO,x ; array size sta c64.SCRATCH_ZPB1 asl a asl a clc adc c64.SCRATCH_ZPB1 ; times 5 because of float - sta _cmp_mod+1 ; self-modifying code - jsr prog8_lib.peek_address - ldy #0 + tay + dey - lda (c64.SCRATCH_ZPWORD1),y - bne + - iny - lda (c64.SCRATCH_ZPWORD1),y - bne + - iny - lda (c64.SCRATCH_ZPWORD1),y - bne + - iny - lda (c64.SCRATCH_ZPWORD1),y - bne + - iny - lda (c64.SCRATCH_ZPWORD1),y - bne + - lda #0 - sta c64.ESTACK_LO+1,x - rts -+ iny -_cmp_mod cpy #255 ; modified - bne - + clc + dey + adc (c64.SCRATCH_ZPWORD1),y + dey + adc (c64.SCRATCH_ZPWORD1),y + dey + adc (c64.SCRATCH_ZPWORD1),y + dey + adc (c64.SCRATCH_ZPWORD1),y + dey + cmp #0 + beq + + cpy #255 + bne - lda #1 sta c64.ESTACK_LO+1,x rts ++ sta c64.ESTACK_LO+1,x + rts .pend func_max_f .proc