From: Leo C <erbl259-lmu@yahoo.de>
Date: Mon, 8 Jun 2015 07:37:08 +0000 (+0200)
Subject: set default con: to asci0[19200]
X-Git-Tag: hexrel-6.4~3
X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/commitdiff_plain/c5868b68107012ee3bd827de8229ecc1037b5b69

set default con: to asci0[19200]
---

diff --git a/cbios/boot.180 b/cbios/boot.180
index c0ecc11..8d58d1a 100644
--- a/cbios/boot.180
+++ b/cbios/boot.180
@@ -57,7 +57,8 @@ hwini_skip:
 	ret
 
 ?init:
-	ld	hl,1000000000000000b	; assign console to AVRCON:
+;	ld	hl,1000000000000000b	; assign console to AVRCON:
+	ld	hl,0100000000000000b	; assign console to ASCI0:
 	ld	(@civec),hl
 	ld	(@covec),hl
 	ld	hl,0000000000000000b	; assign printer to nothing:
diff --git a/cbios/chario.180 b/cbios/chario.180
index 428fafb..72748e4 100644
--- a/cbios/chario.180
+++ b/cbios/chario.180
@@ -164,7 +164,7 @@ null$status:
 
 	db	'ASCI0 '	; device 1
 	db	mb$in$out+mb$serial+mb$soft$baud
-	db	baud$9600
+	db	baud$19200
 
 	db	'ASCI1 '	; device 2
 	db	mb$in$out+mb$serial+mb$soft$baud
diff --git a/cbios/misc.180 b/cbios/misc.180
index ccb608e..439fb75 100644
--- a/cbios/misc.180
+++ b/cbios/misc.180
@@ -195,7 +195,6 @@ bfi_skip:
 	or	a			;test if fifo 0
 	ret	z
 
-bfi_1:
 	ld	b,a
 	push	bc			;c: bank-addr, b: ignored
 	push	hl			;address
diff --git a/cbios/move.180 b/cbios/move.180
index 7ce2d3a..92b56ce 100644
--- a/cbios/move.180
+++ b/cbios/move.180
@@ -43,10 +43,10 @@
     endif
 	ret
 
-    if banked
+   if banked
 
 inter_bank_move:		; source in HL, dest in DE, count in BC
-     if 0			; *** DOES NOT WORK PROPERLY
+    if 0			; *** DOES NOT WORK PROPERLY
 				;     (Crossing Bank boundary problems)
 	push	bc
 	push	de
@@ -92,7 +92,7 @@ inter_bank_move:		; source in HL, dest in DE, count in BC
 
 	ret			; return with src in DE, dst in HL, count = 0
 
-     else			; *** INNEFICIENT, BUT WORKS
+    else			; *** INNEFICIENT, BUT WORKS
 
 	ld	(tmp$sp),sp
 	ld	sp,tmp$stk
@@ -124,12 +124,12 @@ mv$blk:
 tmp$stk:
 tmp$sp:   ds	2
 
-     endif
+    endif
 
 src$bnk: db	0FEh
 dst$bnk: db	0FEh
 
 
-    endif	;banked
+   endif	;banked
 
 	end