From 349c01b10d1f6e223f963c6cbdf6a94d0b618895 Mon Sep 17 00:00:00 2001
From: Leo C
Date: Fri, 3 Oct 2014 12:14:01 +0200
Subject: not working

---
 z180/r3init.180 | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 60 insertions(+), 2 deletions(-)

(limited to 'z180/r3init.180')

diff --git a/z180/r3init.180 b/z180/r3init.180
index 8156ed7..0d3e5be 100644
--- a/z180/r3init.180
+++ b/z180/r3init.180
@@ -32,8 +32,15 @@ rsti	defl	1
 	 jp bpent
 rsti	 defl rsti+1
 	endm
+	 db 0, 0, 0, 0, 0
 
 ;----------------------------------------------------------------------
+	
+	;org	40h
+
+	dw	0
+	db	0
+
 
 	if ROMSYS
 $crom:	 defb c$rom		;
@@ -310,8 +317,59 @@ buf.init:
 	ret
 
 ;----------------------------------------------------------------------
+if 0
+	extrn	msginit,msg.sout,msg_fifo
+	extrn	tx.buf,rx.buf
+
+
+bufferinit:
+	call	 msginit
+
+	ld	hl,buffers
+	ld	bc,0300h
+bfi_1:
+	ld	e,(hl)
+	inc	hl
+	ld	d,(hl)
+	inc	hl
+	push	hl
+	in0	a,cbr
+	call	log2phys
+	ld	(40h+0),hl
+	ld	(40h+2),a
+	ld	a,c
+	ld	(bufdat+0),a
+	ld	hl,inimsg
+	call	msg.sout
+	pop	hl
+	inc	c
+	djnz	bfi_1
+	ret
+
+	rept	20
+	db	0
+	endm
+
+buffers:
+	dw	msg_fifo
+	dw	tx.buf
+	dw	rx.buf
 
-.comment *
+inimsg:
+	db	inimsg_e - $ -2
+	db	PMSG
+	db	81h
+	db	inimsg_e - $ -1
+	db	0
+bufdat:
+	db	0
+	dw	0
+	db	0
+inimsg_e:
+endif
+;----------------------------------------------------------------------
+;
+if 0
 
 	extrn	msginit,msg.sout,msg_fifo
 	extrn	tx.buf,rx.buf
@@ -362,7 +420,7 @@ bufdat:
 	db	0
 inimsg_e:
 
-	*
+endif
 
 ;
 ;----------------------------------------------------------------------
-- 
cgit v1.2.3