X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/f80331a6bfce46c699f87ed2ab5d510c9325b5a3..3735c546703c5f57dadd74318bcf9e727388be5a:/cbios/ascip.180

diff --git a/cbios/ascip.180 b/cbios/ascip.180
index 95addd1..470c07e 100644
--- a/cbios/ascip.180
+++ b/cbios/ascip.180
@@ -12,7 +12,7 @@
 	global	as1osta,as1out
 
 
-	extrn	f_cpu,add_hla,div32_16
+	extrn	f_cpu,add_hla,div32_r
 	extrn	@ctbl
 
 	include config.inc
@@ -20,8 +20,6 @@
 
 
 ;--------------------------------------------------------------
-;
-;
 ; TC = (f PHI /(2*baudrate*Clock_mode)) - 2
 ;
 ; Clock_mode == 16
@@ -30,13 +28,14 @@
 ; br150 = baudrate/150
 ; 	TC = (f PHI / (32 * 150 * br150)) - 2
 ; 	TC = (f PHI / (32 * 150 * br150)) - 2
-;
 
-	cseg
+
 ;
 ; Init Serial I/O for console input and output (ASCI1)
 ;
 
+	dseg
+
 as0init:
 	ld	hl,initab0
 	jr	as_init
@@ -45,24 +44,23 @@ as1init:
 as_init:
 	push	hl
 
-	ld	c,8		;
-	mlt	bc		;
-	ld	hl,@ctbl+7	;get baudrate index
-	add	hl,bc		;
+	ld	c,8			;
+	mlt	bc			;
+	ld	hl,@ctbl+7		;get baudrate index
+	add	hl,bc			;
 	ld	a,(hl)
 	and	0fh
-	add	a,a
+	add	a,a			;get factor
 	ld	hl,bd150_tab
 	call	add_hla
 	ld	c,(hl)
 	inc	hl
 	ld	b,(hl)
-	ld	de,(f_cpu)
-	ld	hl,(f_cpu+2)
-	call	div32_16
+	ld	hl,(f_cpu)
+	ld	de,(f_cpu+2)
+	call	div32_r
 	ld	bc,32*150
-	call	div32_16
-	ex	de,hl
+	call	div32_r
 	ld	de,2
 	or	a
 	sbc	hl,de
@@ -125,6 +123,8 @@ initab1:
 
 ;--------------------------------------------------------------
 
+	dseg
+
 as0ista:
 	in0	a,(stat0)
 	and	M_RDRF