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

diff --git a/cbios/misc.180 b/cbios/misc.180
index 28c0123..10eb83c 100644
--- a/cbios/misc.180
+++ b/cbios/misc.180
@@ -1,11 +1,8 @@
 
 	public intinit
-	public bufinit
 	public cpu_frq
 	public get_tmr
 
-	public fifolst
-
 	extrn div32_r,?pmsg
 	extrn msg.sm,msg.recv,hwl2phy
 
@@ -156,61 +153,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