Neo6502: float refactor

tebe6502 · Apr 9, 2024 · 67811fa · 67811fa
1 parent d3ad85b
commit 67811fa
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/base/neo/single.asm b/base/neo/single.asm
@@ -167,8 +167,8 @@ A = FP2MAN0
   sta VAR2_TYPE
 
   mva #STACK_ADDRESS NEOMESSAGE_PAR1W
-  stz NEOMESSAGE_PAR1W+1
   mva #STACK_SIZE2   NEOMESSAGE_PAR2W
+  stz NEOMESSAGE_PAR1W+1
   stz NEOMESSAGE_PAR2W+1
   jsr @WaitMessage
   mva #MATH_ADD      NEOMESSAGE_FUNC
@@ -184,8 +184,8 @@ A = FP2MAN0
   sta VAR2_TYPE
 
   mva #STACK_ADDRESS NEOMESSAGE_PAR1W
-  stz NEOMESSAGE_PAR1W+1
   mva #STACK_SIZE2   NEOMESSAGE_PAR2W
+  stz NEOMESSAGE_PAR1W+1
   stz NEOMESSAGE_PAR2W+1
   jsr @WaitMessage
   mva #MATH_SUB      NEOMESSAGE_FUNC
@@ -430,8 +430,8 @@ EXIT:
   sta VAR2_TYPE
 
   mva #STACK_ADDRESS NEOMESSAGE_PAR1W
-  stz NEOMESSAGE_PAR1W+1
   mva #STACK_SIZE2   NEOMESSAGE_PAR2W
+  stz NEOMESSAGE_PAR1W+1
   stz NEOMESSAGE_PAR2W+1
   jsr @WaitMessage
   mva #MATH_MUL      NEOMESSAGE_FUNC
@@ -447,8 +447,8 @@ EXIT:
   sta VAR2_TYPE
 
   mva #STACK_ADDRESS NEOMESSAGE_PAR1W
-  stz NEOMESSAGE_PAR1W+1
   mva #STACK_SIZE2   NEOMESSAGE_PAR2W
+  stz NEOMESSAGE_PAR1W+1
   stz NEOMESSAGE_PAR2W+1
   jsr @WaitMessage
   mva #MATH_FDIV     NEOMESSAGE_FUNC

diff --git a/lib/system.pas b/lib/system.pas
@@ -2211,8 +2211,8 @@ function Sin(x: single): single; overload;
 
 		mva #VAR_FLOAT     VAR0_TYPE
 		mva #STACK_ADDRESS NEOMESSAGE_PAR1W
-		stz NEOMESSAGE_PAR1W+1
 		mva #STACK_SIZE1   NEOMESSAGE_PAR2W
+		stz NEOMESSAGE_PAR1W+1
 		stz NEOMESSAGE_PAR2W+1
 		jsr @WaitMessage
 		mva #MATH_SIN      NEOMESSAGE_FUNC
@@ -2248,8 +2248,8 @@ function Cos(x: single): single; overload;
 
 		mva #VAR_FLOAT     VAR0_TYPE
 		mva #STACK_ADDRESS NEOMESSAGE_PAR1W
-		stz NEOMESSAGE_PAR1W+1
 		mva #STACK_SIZE1   NEOMESSAGE_PAR2W
+		stz NEOMESSAGE_PAR1W+1
 		stz NEOMESSAGE_PAR2W+1
 		jsr @WaitMessage
 		mva #MATH_COS      NEOMESSAGE_FUNC