;-------------------------------------------------------------------------------\r
\r
cseg\r
-start::\r
-ddtz_base::\r
+start:\r
+ddtz_base:\r
jr reloc\r
nop\r
l0003h:\r
;-------------------------------------------------------------------------------\r
\r
\r
-init::\r
+init:\r
LD SP,stack\r
\r
if CPM\r
\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
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
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,ddtz_end+bitmap_size-1\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
\r
;-------------------------------------------------------------------------------\r
\r
-conbuf::\r
+conbuf:\r
ds CONBUF_SIZE+1\r
\r
;-------------------------------------------------------------------------------\r
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
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