From c3cc7cb13921e1ce55e8071b3121f18593793790 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sun, 14 Jan 2024 21:43:57 -0800
Subject: [PATCH] DIVMOD now works properly

---
 src/vmsrc/apple/plvm802.s | 24 +-----------------------
 1 file changed, 1 insertion(+), 23 deletions(-)

diff --git a/src/vmsrc/apple/plvm802.s b/src/vmsrc/apple/plvm802.s
index c306e2b..8452963 100644
--- a/src/vmsrc/apple/plvm802.s
+++ b/src/vmsrc/apple/plvm802.s
@@ -694,18 +694,7 @@ MOD     JSR     _DIV
 ;*
 ;* DIVMOD TOS-1 BY TOS - !!!HACK!!! MUST COPY ESTK TO HW STACK
 ;*
-DIVMOD  +ACCMEM8
-        LDX     ESP
-        LDA     ESTKH+1,X
-        PHA
-        LDA     ESTKL+1,X
-        PHA
-        LDA     ESTKH,X
-        PHA
-        LDA     ESTKL,X
-        PHA
-        +ACCMEM16
-        JSR     _DIV
+DIVMOD  JSR     _DIV
         CPX     #$80            ; DIVSGN
         BCC     +               ; REMAINDER IS SIGN OF DIVIDEND
         EOR     #$FFFF
@@ -718,17 +707,6 @@ DIVMOD  +ACCMEM8
         EOR     #$FFFF
         INC
 +       STA     NOS,S           ; DVDND
-        +ACCMEM8
-        LDX     ESP
-        PLA
-        STA     ESTKL,X
-        PLA
-        STA     ESTKH,X
-        PLA
-        STA     ESTKL+1,X
-        PLA
-        STA     ESTKH+1,X
-        +ACCMEM16
         JMP     NEXTOP
 ;*
 ;* NEGATE TOS