Remove vars $, Z, fix var T

diff --git a/ddt180.z80 b/ddt180.z80
index 386bad7b08810c8a1d512a889d9958467c4e221c..4f167f6cc34d60407d9a139e30e11cd1891eb8b6 100644 (file)
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -108,7 +108,6 @@ reg.iff:
        db      0f3h\r
        db      0c3h\r
 reg.pc:        dw      TPA\r
-var.$: dw      0000h\r
 \r
 cmd_rpt:dw     mainloop\r
 \r
@@ -213,7 +212,6 @@ p_msg_error:
 mainloop:\r
        ld sp,stack\r
        ld hl,(reg.pc)\r
-       ld (var.$),hl\r
        call bp_clr_temporary\r
        ld hl,(cmd_rpt)\r
        ld de,mainloop\r
@@ -944,7 +942,7 @@ do_factor:
        call get.number\r
        ret nc\r
        inc de\r
-       ld hl,(BDOS+1)\r
+       ld hl,ddtz_base-1\r
        cp 'T'\r
        ret z\r
        ld hl,(high_load)\r
@@ -956,12 +954,6 @@ do_factor:
        ld hl,TPA\r
        cp 'L'\r
        ret z\r
-       ld hl,(var.$)\r
-       cp '$'\r
-       ret z\r
-       ld hl,ddtz_base\r
-       cp 'Z'\r
-       ret z\r
        cp '-'\r
        jr z,fact_factneg\r
        cp '~'\r
@@ -2388,7 +2380,7 @@ p_max_high:
        call out_hl\r
        call pstr_inl\r
        DC      '  Top = '\r
-       ld hl,(BDOS+1)\r
+       ld hl,ddtz_base-1\r
        call out_hl\r
        jp crlf\r
 \r

diff --git a/doc/ddt180-ref-cb.txt b/doc/ddt180-ref-cb.txt
index e96b1247a84d7cd2b3618b818486d260e815325e..248ede171ed477e5dc88019276a23565a2117120 100644 (file)
--- a/doc/ddt180-ref-cb.txt
+++ b/doc/ddt180-ref-cb.txt
@@ -221,13 +221,14 @@ Benutzer angepaßt werden können.
 
 Adr   Default      Bedeutung
 --------------------------------------------------------------------
-Z3    'RST30'      Opcode für Breakpoint (RST8 - RST38 möglich)
-Z4    'NOP'        Wird beim Entritt in DDTZ ausgeführt. Kann durch
+Z4    'RST30'      Opcode für Breakpoint (RST8 - RST38 möglich)
+Z5    'NOP'        Wird beim Entritt in DDTZ ausgeführt. Kann durch
                    EI oder DI Opcode (FB/F3) ersetzt werden.
-Z5    'RET'        Nicht ändern!
-Z6    'JP BDOS'    Nicht ändern!                                        |
-Z9    80  (50H)    Bildschirmbreite                                     |
-ZA    16  (10H)    Maximal erlaubte Symbol-Länge                        |
-ZB    00           Bit 0=1: Gross/Kleinschrift von Symbolen beachten    |
+Z6    'RET'        Nicht ändern!
+Z7    'JP BDOS'    Nicht ändern!                                        |
+ZA    80  (50H)    Bildschirmbreite                                     |
+ZB    16  (10H)    Maximal erlaubte Symbol-Länge                        |
+ZC    00           Bit 0=1: Gross/Kleinschrift von Symbolen beachten    |
                    Bit 1=1: Symbole beim Laden konvertieren             |
                    Bit 2=1: In Kleinbuchstaben konvertieren             |
+