X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/c5868b68107012ee3bd827de8229ecc1037b5b69..1e1c17d3fc07e3783873a621d8f165a3f56ff01f:/cbios/msgbuf.180

diff --git a/cbios/msgbuf.180 b/cbios/msgbuf.180
index 27c82d4..7b70d54 100644
--- a/cbios/msgbuf.180
+++ b/cbios/msgbuf.180
@@ -7,7 +7,7 @@
 ;	global	msg.sout
 	global	msg.sm,msg.recv
 
-	extrn	bufinit,hwl2phy
+	extrn	bufinit,hwl2phy,phy2log
 	extrn	fifolst
 
 	include config.inc
@@ -18,9 +18,6 @@
 	mkbuf	0,mtx.fifo,mtx.fifo_len
 	mkbuf	1,mrx.fifo,mrx.fifo_len
 
-;txfifo_addr	equ	fifolst + (0*2)
-;rxfifo_addr	equ	fifolst + (1*2)
-
 itx	equ	0*2
 irx	equ	1*2
 
@@ -35,7 +32,9 @@ msginit:
 	jr	nz,msgi_1
 
 	ld	hl,(040h)
-;TODO: physical to logical address translation
+	ld	a,(040h+2)
+	call	phy2log
+
 	ld	a,l
 	or	h
 	jr	z,msgi_1
@@ -47,11 +46,13 @@ msginit:
 
 msgi_1:
 	ld	a,(043h)
+
 ;TODO: value should be 0
+
 	ld	ix,mtx.fifo
 	call	bufinit
-
-	ld	hl,fifolst
+	push	ix
+	pop	hl
 	call	hwl2phy
 	ld	(040h),hl
 	ld	(040h+2),a