message buffer init changes. cp/m r/w for new memory map

1 files changed, 240 insertions, 240 deletions

diff --git a/z180/ddtz.180 b/z180/ddtz.180
index 4411549..d5b921b 100644
--- a/z180/ddtz.180
+++ b/z180/ddtz.180
@@ -2197,294 +2197,294 @@ b_0x132A_start:
 	DC	'F'

 	DB	0

 b_0x136C_start:

-	if ROMSYS

-	 defb 000h

-	 defw uromen

+	if	ROMSYS

+	 defb	000h

+	 defw	uromen

 	endif

 	if CPU_Z180

-	defb 000h

-	defw ucbar

-	defb 000h

-	defw ubbr

+	defb	000h

+	defw	ucbar

+	defb	000h

+	defw	ubbr

 	else

-	 defb 000h

-	 defw ubnk

+	 defb	000h

+	 defw	ubnk

 	endif

-	defb 003h

-	defw reg.c2

-	defb 003h

-	defw reg.e2

-	defb 003h

-	defw reg.l2

-	defb 003h

-	defw reg.c

-	defb 003h

-	defw reg.e

-	defb 003h

-	defw reg.l

-	defb 000h

-	defw reg.a2

-	defb 000h

-	defw reg.b2

-	defb 000h

-	defw reg.c2

-	defb 000h

-	defw reg.d2

-	defb 000h

-	defw reg.e2

-	defb 000h

-	defw reg.h2

-	defb 000h

-	defw reg.l2

-	defb 000h

-	defw reg.a

-	defb 000h

-	defw reg.b

-	defb 000h

-	defw reg.c

-	defb 000h

-	defw reg.d

-	defb 000h

-	defw reg.e

-	defb 000h

-	defw reg.h

-	defb 000h

-	defw reg.l

-	defb 003h

-	defw reg.ix

-	defb 003h

-	defw reg.iy

-	defb 003h

-	defw reg.sp

-	defb 003h

-	defw reg.pc

-	defb 003h

-	defw reg.ix

-	defb 003h

-	defw reg.iy

-	defb 003h

-	defw reg.sp

-	defb 003h

-	defw reg.pc

-	defb 000h

-	defw reg.i

-	defb 000h

-	defw reg.f2

-	defb 000h

-	defw reg.f

+	defb	003h

+	defw	reg.c2

+	defb	003h

+	defw	reg.e2

+	defb	003h

+	defw	reg.l2

+	defb	003h

+	defw	reg.c

+	defb	003h

+	defw	reg.e

+	defb	003h

+	defw	reg.l

+	defb	000h

+	defw	reg.a2

+	defb	000h

+	defw	reg.b2

+	defb	000h

+	defw	reg.c2

+	defb	000h

+	defw	reg.d2

+	defb	000h

+	defw	reg.e2

+	defb	000h

+	defw	reg.h2

+	defb	000h

+	defw	reg.l2

+	defb	000h

+	defw	reg.a

+	defb	000h

+	defw	reg.b

+	defb	000h

+	defw	reg.c

+	defb	000h

+	defw	reg.d

+	defb	000h

+	defw	reg.e

+	defb	000h

+	defw	reg.h

+	defb	000h

+	defw	reg.l

+	defb	003h

+	defw	reg.ix

+	defb	003h

+	defw	reg.iy

+	defb	003h

+	defw	reg.sp

+	defb	003h

+	defw	reg.pc

+	defb	003h

+	defw	reg.ix

+	defb	003h

+	defw	reg.iy

+	defb	003h

+	defw	reg.sp

+	defb	003h

+	defw	reg.pc

+	defb	000h

+	defw	reg.i

+	defb	000h

+	defw	reg.f2

+	defb	000h

+	defw	reg.f

 CMD.S:

-	ld hl,(lst.S)

-	call get_lastarg_def

+	ld	hl,(lst.S)

+	call	get_lastarg_def

 l13d8h:

-	ld (lst.S),hl

-	call out.hl.@

-	call OUTBL

+	ld	(lst.S),hl

+	call	out.hl.@

+	call	OUTBL

 	comst

-	ld a,(hl)

+	ld	a,(hl)

 	comend

-	call out.hex

-	call outbl2

-	call INLINE

-	call SKIPBL

-	inc hl

-	jr z,l13d8h

-	dec hl

-	inc de

-	cp '.'

-	jp z,assert_eol

-	cp '-'

-	jr nz,l1406h

-	ld a,(de)

-	or a

-	dec hl

-	jr z,l13d8h

-	inc hl

+	call	out.hex

+	call	outbl2

+	call	INLINE

+	call	SKIPBL

+	inc	hl

+	jr	z,l13d8h

+	dec	hl

+	inc	de

+	cp	'.'

+	jp	z,assert_eol

+	cp	'-'

+	jr	nz,l1406h

+	ld	a,(de)

+	or	a

+	dec	hl

+	jr	z,l13d8h

+	inc	hl

 l1406h:

-	dec de

-	call get_bytes_m

-	jr l13d8h

+	dec	de

+	call	get_bytes_m

+	jr	l13d8h

 

 CMD.@:

-	call assert_eol

-	ld hl,MSG_at

-	ld de,offs.@

-	ld c,001h

-	jp l1279h

+	call	assert_eol

+	ld	hl,MSG_at

+	ld	de,offs.@

+	ld	c,001h

+	jp	l1279h

 MSG_at:

 	dc	'@'

 

 CMD.I:

-	ld hl,CMD.I

-	ld (CMD_RPT),hl

-	ld hl,(lst.IP)

-	call get_lastarg_def

-	ld (lst.IP),hl

-	ld b,h

-	ld c,l

+	ld	hl,CMD.I

+	ld	(CMD_RPT),hl

+	ld	hl,(lst.IP)

+	call	get_lastarg_def

+	ld	(lst.IP),hl

+	ld	b,h

+	ld	c,l

 	if CPU_Z180

-	ld a,b

-	or a

-	jr nz,l1442h

-	ld a,c

-	ld hl,ucbar

-	cp cbar

-	jr z,l143fh

-	ld hl,ubbr

-	cp bbr

-	jr nz,l1442h

+	 ld	a,b

+	 or	a

+	 jr	nz,l1442h

+	 ld	a,c

+	 ld	hl,ucbar

+	 cp	cbar

+	 jr	z,l143fh

+	 ld	hl,ubbr

+	 cp	bbr

+	 jr	nz,l1442h

 l143fh:

-	ld a,(hl)

-	jr l1444h

+	 ld	a,(hl)

+	 jr	l1444h

 l1442h:

 	endif

-	in a,(c)

+	in	a,(c)

 l1444h:

-	push af

-	call out.hex

-	call outbl4

-	pop af

-	call out.bin.b

-	jp CRLF

+	push	af

+	call	out.hex

+	call	outbl4

+	pop	af

+	call	out.bin.b

+	jp	CRLF

 CMD.O:

-	ld hl,CMD.O

-	ld (CMD_RPT),hl

-	ld hl,(lst.OD)

-	call get_arg_def

-	ld a,l

-	ld (lst.OD),a

-	push af

-	call skip_to_nextarg

-	ld hl,(lst.OP)

-	call get_lastarg_def

-	ld (lst.OP),hl

-	ld b,h

-	ld c,l

+	ld	hl,CMD.O

+	ld	(CMD_RPT),hl

+	ld	hl,(lst.OD)

+	call	get_arg_def

+	ld	a,l

+	ld	(lst.OD),a

+	push	af

+	call	skip_to_nextarg

+	ld	hl,(lst.OP)

+	call	get_lastarg_def

+	ld	(lst.OP),hl

+	ld	b,h

+	ld	c,l

 	if CPU_Z180

-	ld a,b

-	or a

-	jr nz,l1489h

-	ld a,c

-	ld hl,ucbar

-	cp cbar

-	jr z,l148dh

-	ld hl,ubbr

-	cp bbr

-	jr z,l148dh

-	cp cbr

-	jp z,ERROR

+	 ld	a,b

+	 or	a

+	 jr	nz,l1489h

+	 ld	a,c

+	 ld	hl,ucbar

+	 cp	cbar

+	 jr	z,l148dh

+	 ld	hl,ubbr

+	 cp	bbr

+	 jr	z,l148dh

+	 cp	cbr

+	 jp	z,ERROR

 l1489h:

 	endif

-	pop af

-	out (c),a

+	pop	af

+	out	(c),a

 	ret

 	if CPU_Z180

 l148dh:

-	pop af

-	ld (hl),a

-	ret

+	 pop	af

+	 ld	(hl),a

+	 ret

 	endif

 

 CMD.V:

-	call get_arg3		;1490	get from, size, to

+	call	get_arg3		;1490	get from, size, to

 cmp_mem:

-	push bc

+	push	bc

 	comst

-	ld a,(de)

-	ld b,(hl)

+	 ld	a,(de)

+	 ld	b,(hl)

 	comend

-	cp b

-	jr z,l14bah

-	ld c,a

-	call out.hl.@

-	call OUTBL

-	ld a,b

-	call out.hex

-	call outbl2

-	ld a,c

-	call out.hex

-	call OUTBL

-	ex de,hl

-	call out.hl.@

-	ex de,hl

-	call CRLF

+	cp	b

+	jr	z,l14bah

+	ld	c,a

+	call	out.hl.@

+	call	OUTBL

+	ld	a,b

+	call	out.hex

+	call	outbl2

+	ld	a,c

+	call	out.hex

+	call	OUTBL

+	ex	de,hl

+	call	out.hl.@

+	ex	de,hl

+	call	CRLF

 l14bah:

-	pop bc

-	inc hl

-	inc de

-	dec bc

-	ld a,b

-	or c

-	jr nz,cmp_mem

+	pop	bc

+	inc	hl

+	inc	de

+	dec	bc

+	ld	a,b

+	or	c

+	jr	nz,cmp_mem

 	ret

 

 CMD.M:

-	ld a,(de)

-	cp 'V'

-	jr nz,bm_nv

-	inc de

+	ld	a,(de)

+	cp	'V'

+	jr	nz,bm_nv

+	inc	de

 bm_nv:

-	push af			;14c9	save 'V' flag

-	call get_arg3

-	push hl

-	push de

-	push bc

-	call CP.HL.DE

-	jr nc,bm_mvdown

-	add hl,bc

-	ex de,hl

-	add hl,bc

-	ex de,hl

-	dec hl

-	dec de

+	push	af			;14c9	save 'V' flag

+	call	get_arg3

+	push	hl

+	push	de

+	push	bc

+	call	CP.HL.DE

+	jr	nc,bm_mvdown

+	add	hl,bc

+	ex	de,hl

+	add	hl,bc

+	ex	de,hl

+	dec	hl

+	dec	de

 	comst

-	lddr

+	 lddr

 	comend

-	jr bm_done

+	jr	bm_done

 bm_mvdown:

 	comst

 	ldir

 	comend

 bm_done:

-	pop bc

-	pop de

-	pop hl

-	pop af

-	jr z,cmp_mem		;14ed	validate?

+	pop	bc

+	pop	de

+	pop	hl

+	pop	af

+	jr	z,cmp_mem		;14ed	validate?

 	ret

 CMD.H:

-	call EXPR

-	jp c,l173ch

-	call skip_to_nextarg

-	push hl

-	call EXPR

-	push af

-	call assert_eol

-	pop af

-	ex de,hl

-	pop hl

-	jr c,l1511h

-	push hl

-	push de

-	add hl,de

-	call l1511h

-	pop de

-	pop hl

-	and a

-	sbc hl,de

+	call	EXPR

+	jp	c,l173ch

+	call	skip_to_nextarg

+	push	hl

+	call	EXPR

+	push	af

+	call	assert_eol

+	pop	af

+	ex	de,hl

+	pop	hl

+	jr	c,l1511h

+	push	hl

+	push	de

+	add	hl,de

+	call	l1511h

+	pop	de

+	pop	hl

+	and	a

+	sbc	hl,de

 l1511h:

-	call out.hl		;1511	val

-	call outbl2

-	call sub_0928h		;1517	-val

-	call outbl4

-	call out.hl.dec		;151d	dec

-	call outbl2

-	call out.hl.decm	;1523	-dec

-	call outbl4

-	call out.bin.w		;1529	bin

-	call outbl2

-	ld a,l

-	call out.ascii

-	jp CRLF

+	call	out.hl			;1511	val

+	call	outbl2

+	call	sub_0928h		;1517	-val

+	call	outbl4

+	call	out.hl.dec		;151d	dec

+	call	outbl2

+	call	out.hl.decm		;1523	-dec

+	call	outbl4

+	call	out.bin.w		;1529	bin

+	call	outbl2

+	ld	a,l

+	call	out.ascii

+	jp	CRLF

 

 CMD.Q:

 	ld a,(de)