X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/4cd9d9817858107c42aaebd868942f882a6dcd6a..e8a98308cd28da296993a9085df28dc5957de86d:/cbios/misc.180

diff --git a/cbios/misc.180 b/cbios/misc.180
index 28c0123..58122f8 100644
--- a/cbios/misc.180
+++ b/cbios/misc.180
@@ -1,16 +1,13 @@
 
 	public intinit
-	public bufinit
 	public cpu_frq
 	public get_tmr
 
-	public fifolst
-
-	extrn div32_r,?pmsg
+	extrn div32_r,pr.inln
 	extrn msg.sm,msg.recv,hwl2phy
 
-	include config.inc
-	include	z180reg.inc
+	maclib z180reg.inc
+	maclib config.inc
 
 
 ;----------------------------------------------------------------------
@@ -70,16 +67,13 @@ sp.i.1:
 
 	add	a,'0'
 	ld	(spi$nr),a
-	ld	hl,spi$msg
-	call	?pmsg
-sp.i.2:
-	halt
-	jr	sp.i.2
-
-spi$msg:
+	call	pr.inln
 	db	13,10,'Spurious Int: '
 spi$nr:	db	'0'
 	db	0
+sp.i.2:
+	halt
+	jr	sp.i.2
 
 ;--------------------------------------------------------------------
 ;
@@ -156,61 +150,6 @@ get_tmr:
 	pop	de
 	ret
 
-;--------------------------------------------------------------------
-
-	dseg
-
-fifolst:
-	rept 4
-	 dw	0
-	endm
-
-;--------------------------------------------------------------------
-
-	dseg
-
-bufinit:
-	ld	(ix+o.in_idx),0		;reset pointers (empty fifo)
-	ld	(ix+o.out_idx),0
-	ld	a,(ix+o.id)
-	ld	hl,fifolst
-	ld	e,a
-	ld	d,0
-	add	hl,de
-	add	hl,de
-	push	ix
-	pop	de
-	cp	4
-	jr	nc,bfi_skip
-
-	ld	(hl),e
-	inc	hl
-	ld	(hl),d
-
-bfi_skip:
-	ex	de,hl
-	call	hwl2phy			;get phys. address of fifo
-	ld	c,a
-	ld	a,(ix+o.id)		;fifo id
-	or	a			;test if fifo 0
-	ret	z
-
-	ld	b,a
-	push	bc			;c: bank-addr, b: ignored
-	push	hl			;address
-	ld	c,0
-	push	bc			;c: function, b:subf
-	ld	b,5
-	ld	h,c
-	ld	l,c
-	add	hl,sp
-	call	msg.sm
-	pop	hl
-	pop	hl
-	pop	hl
-	ret
-
 ;----------------------------------------------------------------------
 
-
 	end