Better fix for 65802 DIV and MOD bug

2025-01-24 20:31:12 +00:00 · 2018-01-15 07:36:02 -08:00 · 2018-01-15 07:36:02 -08:00 · a92301908a
commit a92301908a
parent b176847778
2 changed files with 5 additions and 5 deletions
--- a/src/vmsrc/plvm802.s
+++ b/src/vmsrc/plvm802.s
@ -620,10 +620,10 @@ DIV     JSR     _DIV
 ;*
 MOD     JSR     _DIV
        STA     NOS,S           ; REMNDR
-        PLA
+        LDA     TMP
        STA     DST             ; SAVE IN CASE OF DIVMOD
-        STX     DVSIGN
-        TXA
+        PLA
+        TXA                     ; DIVSGN
        AND     #$0080          ; REMAINDER IS SIGN OF DIVIDEND
        BNE     NEG
        JMP     NEXTOP
--- a/src/vmsrc/plvmzp.inc
+++ b/src/vmsrc/plvmzp.inc
@ -18,6 +18,7 @@ ESTKL   =   ESTK
 ESTKH   =   ESTK+ESTKSZ/2
 VMZP    =   ESTK+ESTKSZ
 ESP     =   VMZP
+DVSIGN  =   VMZP
 IFP     =   ESP+1
 IFPL    =   IFP
 IFPH    =   IFP+1
@ -25,8 +26,7 @@ PP      =   IFP+2
 PPL     =   PP
 PPH     =   PP+1
 IPY     =   PP+2
-DVSIGN  =   IPY+1
-TMP     =   DVSIGN+1
+TMP     =   IPY+1
 TMPL    =   TMP
 TMPH    =   TMP+1
 NPARMS  =   TMPL