From 39d5c185a608d161c33b3412ccdeac66ec6d535e Mon Sep 17 00:00:00 2001 From: Peter Ferrie Date: Tue, 22 Mar 2016 21:19:41 -0700 Subject: [PATCH] a bit smaller calculation --- src/libsrc/etherip.pla | 8 ++++---- src/libsrc/uthernet.pla | 20 +++++++++++--------- 2 files changed, 15 insertions(+), 13 deletions(-) diff --git a/src/libsrc/etherip.pla b/src/libsrc/etherip.pla index f1b51b7..831f846 100644 --- a/src/libsrc/etherip.pla +++ b/src/libsrc/etherip.pla @@ -230,11 +230,11 @@ asm sum1 ADC #$00 STA ESTKL,X BEQ + + !BYTE #$A9 +- CLC INC ESTKH,X -+ BCC CHKLP - INC ESTKH,X - CLC -CHKLP LDA (SRC),Y ++ BCS - + LDA (SRC),Y PHA INY BNE + diff --git a/src/libsrc/uthernet.pla b/src/libsrc/uthernet.pla index e10cf16..f6199e5 100644 --- a/src/libsrc/uthernet.pla +++ b/src/libsrc/uthernet.pla @@ -109,11 +109,12 @@ asm pokefrm ROR ADC #$00 STA ESTKL,X - BEQ + - INC ESTKH,X -+ BCC POKELP - INC ESTKH,X -POKELP LDA (SRC),Y + BEQ + + !BYTE #$A9 +- CLC + INC ESTKH,X ++ BCS - + LDA (SRC),Y end asm _pokefrml STA $C000 @@ -147,10 +148,11 @@ asm peekfrm ROR ADC #$00 STA ESTKL,X - BEQ + - INC ESTKH,X -+ BCC PEEKLP - INC ESTKH,X + BEQ + + !BYTE #$A9 +- CLC + INC ESTKH,X ++ BCS - end asm _peekfrml PEEKLP LDA $C000