New relocator

[ddt180.git] / ddt180.z80

diff --git a/ddt180.z80 b/ddt180.z80
index 20d7a141de444ea23dd9862e77160fdf1408b868..fd160766604e2b28dd78be3e3dc79eb9b95b316a 100644 (file)
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -35,8 +35,8 @@ bitmap_size   equ     (prog_size+7)/8
 ;-------------------------------------------------------------------------------\r
 \r
        cseg\r
-start::\r
-ddtz_base::\r
+start:\r
+ddtz_base:\r
        jr reloc\r
        nop\r
 l0003h:\r
@@ -54,6 +54,20 @@ signon:
        defvers\r
        dc      '  ('\r
 \r
+;-------------------------------------------------------------------------------\r
+\r
+reloc_getbit   macro\r
+       local   nextbit\r
+       exx\r
+       djnz    nextbit\r
+       ld      b,8                     ;reload bit counter\r
+       ld      e,(hl)                  ;get next 8 relocation bits\r
+       inc     hl\r
+nextbit:\r
+       sla     e\r
+       exx\r
+       endm\r
+\r
 ;-------------------------------------------------------------------------------\r
 ; Clear old position\r
 \r
@@ -98,27 +112,49 @@ wearehere:
        ei\r
        ld      hl,ddtz_end             ;start of reloc bitmap\r
        add     hl,de\r
-\r
        push    hl\r
        exx\r
        pop     hl\r
-       ld      bc,0108h                ;init bit counter b (c==reload val)\r
+       ld      b,1                     ;init bit counter b\r
        exx\r
 \r
        LD      HL,ddtz_base\r
        add     hl,de                   ;--> ddtz_base\r
-       ld      bc,prog_size\r
+\r
 reloc_lp:\r
-       EXX\r
-       djnz    reloc_nl\r
-       ld      b,c                     ;reload bit counter\r
-       LD      e,(HL)                  ;get next 8 relocation bits\r
-       INC     HL\r
-reloc_nl:\r
-       sla     e\r
-       EXX\r
-       JR      NC,reloc_next\r
-       DEC     HL\r
+       push    de\r
+       push    hl\r
+\r
+       ld      de,4\r
+       ld      a,2\r
+       ld      hl,0\r
+reloc_l:\r
+       reloc_getbit\r
+       jr      nc,reloc_got\r
+       cp      16\r
+       jr      z,reloc_done\r
+       add     hl,de\r
+       ld      b,a\r
+       ex      de,hl\r
+reloc_l1:\r
+       add     hl,hl\r
+       djnz    reloc_l1\r
+       ex      de,hl\r
+       add     a,a\r
+       jr      reloc_l\r
+reloc_got:\r
+       ex      de,hl\r
+       ld      hl,0\r
+       ld      b,a\r
+reloc_bitloop:\r
+       reloc_getbit\r
+       adc     hl,hl\r
+       djnz    reloc_bitloop\r
+       add     hl,de\r
+       pop     de\r
+       add     hl,de\r
+       pop     de\r
+\r
        LD      A,(HL)\r
        ADD     A,E\r
        LD      (HL),A\r
@@ -126,17 +162,15 @@ reloc_nl:
        LD      A,(HL)\r
        ADC     A,D\r
        LD      (HL),A\r
-reloc_next:\r
        inc     hl\r
-       dec     bc\r
-       ld      a,b\r
-       or      c\r
-       jr      nz,reloc_lp\r
-\r
+       jr      reloc_lp\r
+reloc_done:\r
+       exx\r
+       ld      (bitmap_end),hl\r
 ;-------------------------------------------------------------------------------\r
 \r
 \r
-init::\r
+init:\r
        LD      SP,stack\r
 \r
     if CPM\r
@@ -181,8 +215,8 @@ ini_sign:
        call    out_hl\r
        call    pstr_inl\r
        dc      ' - '\r
-       ld      de,prog_size+bitmap_size-1\r
-       add     hl,de\r
+       ld      hl,(bitmap_end)\r
+       dec     hl\r
        call    out_hl\r
        call    pstr_inl\r
        dc      ')',CR,LF\r
@@ -466,7 +500,7 @@ cswr_wait:
 \r
 ;-------------------------------------------------------------------------------\r
 \r
-CMDTAB::\r
+CMDTAB:\r
 ;      dw      ERROR ;cmd_@    ;examine/substitute the displacement register @\r
 ;      dw      ERROR ;cmd_A    ;Assemble\r
        dw      cmd_B           ;Breakpoints display/set/clear\r
@@ -499,7 +533,7 @@ ERROR:
        call    pstr_inl\r
        dc      '?',CR,LF\r
        ;fall thru\r
-mainloop::\r
+mainloop:\r
        ld sp,stack\r
        ld hl,(reg.pc)\r
        call bp_clr_temporary\r
@@ -1591,7 +1625,14 @@ cmd_E:
        push    af\r
        call    get_arg_final\r
 \r
-       ld      bc,prog_size+bitmap_size\r
+       ex      de,hl\r
+       ld      hl,(bitmap_end)\r
+       ld      bc,ddtz_base\r
+       or      a\r
+       sbc     hl,bc\r
+       ld      b,h\r
+       ld      c,l\r
+       ex      de,hl\r
        pop     af\r
        jr      nz,cmde_bottom\r
        sbc     hl,bc\r
@@ -2635,12 +2676,14 @@ i.getchar:
 i.storebyte:\r
        push af\r
        push de\r
-       ld de,TPA               ;lowest allowed load address\r
+       ld de,ddtz_base         ;don't load over ddtz\r
        call cp_hl_de\r
-       jr c,error2\r
-       ld de,(BDOS+1)          ;highest allowed load address\r
+       jr nc,ist_1\r
+\r
+       ld de,(bitmap_end)\r
        call cp_hl_de\r
        jr nc,error2\r
+ist_1:\r
        ld de,(high_load)\r
        call cp_hl_de\r
        jr c,l1157h\r
@@ -4002,9 +4045,12 @@ last_L:
 pbl_loop_adr:\r
        dw      0addeh\r
 \r
+bitmap_end:\r
+       dw      0\r
+\r
 ;-------------------------------------------------------------------------------\r
 \r
-conbuf::\r
+conbuf:\r
        ds      CONBUF_SIZE+1\r
 \r
 ;-------------------------------------------------------------------------------\r
@@ -4012,7 +4058,7 @@ conbuf::
        rept    (STACK_SIZE+3)/4\r
        db      0deh,0adh,0beh,0efh\r
        endm\r
-stack::\r
+stack:\r
 reg.l2:        db      000h\r
 reg.h2:        db      000h\r
 reg.e2:        db      000h\r
@@ -4040,12 +4086,12 @@ reg.iff:
 reg.pc:        dw      TPA\r
 \r
 cmd_rpt:dw     mainloop\r
-\r
+       db      0ffh,0ffh,0ffh\r
 ;-------------------------------------------------------------------------------\r
 \r
 ddtz_size      equ     $-ddtz_base\r
 prog_size      equ     $-start\r
-ddtz_end::\r
+ddtz_end:\r
 \r
 ;-------------------------------------------------------------------------------\r
 \r