minor

diff --git a/ddt180.z80 b/ddt180.z80
index fd160766604e2b28dd78be3e3dc79eb9b95b316a..4b19de1b05169bdefee1975b40957031f7241c4d 100644 (file)
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -554,7 +554,7 @@ mainloop:
        inc de\r
        sub 'B'\r
        jr c,ERROR\r
-       cp 'Z'+1-'@'\r
+       cp 'Z'+1-'B'\r
        jr nc,ERROR\r
        ld hl,CMDTAB\r
        call add_hl_a2\r
@@ -1307,10 +1307,10 @@ fact_reg.CPU:
        inc hl\r
        ld h,(hl)\r
        ld l,a\r
-       and a\r
+       xor a                   ;clr cy, a=0\r
        bit 0,c\r
        ret nz\r
-       ld h,000h\r
+       ld h,a\r
        ret\r
 \r
 fact_factinv:\r