support6800/__xdiveq.s The __xdiveq routine does not calculate correctly

[zu2]

--- ../Fuzix-Compiler-Kit/support6800/__xdiveq.s    2024-10-02 15:56:16
+++ support6800/__xdiveq.s  2024-10-08 17:07:08
@@ -19,10 +19,9 @@
    bsr absd
    staa @tmp
    stab @tmp+1
-   ldaa ,x
    ldab 1,x
-   bita #0x80
-   bne negmod
+   ldaa ,x
+   bmi negmod
    staa @tmp1
    stab @tmp1+1
    ldaa @tmp
@@ -62,7 +61,7 @@
    ldab 1,x
    bsr absd
    staa @tmp1
-   stab @tmp+1
+   stab @tmp1+1
    ldaa @tmp
    ldab @tmp+1
    ldx @tmp1
@@ -72,18 +71,17 @@
    ldaa @tmp
    ldab @tmp+1
    ror @tmp4
-   bcs store       ; low bit set -> negate
+   bcc store       ; low bit set -> negate
    bsr negd
    bra store

 absd:
-   bita #$80
-   beq ispos
+   tsta
+   bpl ispos
    inc @tmp4       ; count sign changes in Y
 negd:
-   subb #1         ; negate d
+   nega
+   negb
    sbca #0
-   coma
-   comb
 ispos:
    rts