From 587dc2e39fb4291d3bf517e589553d0e5be84a45 Mon Sep 17 00:00:00 2001 From: rigreco Date: Thu, 26 Feb 2015 17:08:10 +0100 Subject: [PATCH] Save $3080 for veriabile --- AppleII/FP converter/Conv3p.asm | 35 ++++++++++----------------------- 1 file changed, 10 insertions(+), 25 deletions(-) diff --git a/AppleII/FP converter/Conv3p.asm b/AppleII/FP converter/Conv3p.asm index 2b5c114..cfe9618 100644 --- a/AppleII/FP converter/Conv3p.asm +++ b/AppleII/FP converter/Conv3p.asm @@ -22,6 +22,7 @@ FP2 equ $EC ** Applesoft FP Accumulator 5 Byte + 1 Byte Sign ** FAC equ $9D +** Variabile Memory location $0380 ** *************************** @@ -33,6 +34,7 @@ ENTRY1 jsr CHKCOM lda FAC dec A ; dec the EXP sta FP1 + sta FP2 ; Copy lda FAC+5 bmi NEG ; chk the Hi bit of 1 byte Mantissa @@ -44,6 +46,7 @@ POS clc ; Hi bit 0 for negative ror ; Didide for 2^1 sta FP1+1 + sta FP2+1 ; Copy jmp CONT @@ -56,15 +59,18 @@ NEG clc ; Hi bit 1 for positive clc adc #01 ; Two's complement, +1 - sta FP1+1 + sta FP1+1 + sta FP2+1 ; Copy CONT lda FAC+2 ror sta FP1+2 + sta FP2+2 ; Copy lda FAC+3 ror sta FP1+3 + sta FP2+3 ; Copy FP2=FP1 X2=X1 lda FAC+4 ror @@ -72,38 +78,17 @@ CONT lda FAC+2 ;brk rts -************************************ -* FP1 Calc * -* CALL 821 * -************************************ -** Copy FP1 to FP2 ** - -ENTRY2 lda FP1 - sta FP2 ;X1-->X2 - - lda FP1+1 ;M1-->M2 - sta FP2+1 - lda FP1+2 - sta FP2+2 - lda FP1+3 - sta FP2+3 -* -** Y=X*X ** -* - jsr $8000 ;Unidrive4p - - rts ************************************ * FP1 TO FAC TO BASIC * -* CALL 841,Y * +* CALL 831,Y * * PRINT Y * ************************************ * -** FP1 to MEM to FAC conversion ** +** FP1 to FAC conversion ** * -ENTRY3 lda FP1 ; X1 1 Byte --> 9D FAC +ENTRY2 lda FP1 ; X1 1 Byte --> 9D FAC inc A ; 2^(FP1+1) inc EXP sta FAC