set default con: to asci0[19200]

diff --git a/cbios/boot.180 b/cbios/boot.180
index c0ecc1155972c462658b1c4d84ea3f98b8d42e18..8d58d1a71a70884f26148c4485c00f720ba7466f 100644 (file)
--- a/cbios/boot.180
+++ b/cbios/boot.180
@@ -57,7 +57,8 @@ hwini_skip:
        ret\r
 \r
 ?init:\r
-       ld      hl,1000000000000000b    ; assign console to AVRCON:\r
+;      ld      hl,1000000000000000b    ; assign console to AVRCON:\r
+       ld      hl,0100000000000000b    ; assign console to ASCI0:\r
        ld      (@civec),hl\r
        ld      (@covec),hl\r
        ld      hl,0000000000000000b    ; assign printer to nothing:\r

diff --git a/cbios/chario.180 b/cbios/chario.180
index 428fafb77ad393d6bb8e564c4533eb0ff9fbe21a..72748e4e96a4373812664f80927a655b7dae4a35 100644 (file)
--- a/cbios/chario.180
+++ b/cbios/chario.180
@@ -164,7 +164,7 @@ null$status:
 \r
        db      'ASCI0 '        ; device 1\r
        db      mb$in$out+mb$serial+mb$soft$baud\r
-       db      baud$9600\r
+       db      baud$19200\r
 \r
        db      'ASCI1 '        ; device 2\r
        db      mb$in$out+mb$serial+mb$soft$baud\r

diff --git a/cbios/misc.180 b/cbios/misc.180
index ccb608ef364308be19a653bd01488e3286aae67b..439fb75519d2d911b3198519d593f6863f3f998e 100644 (file)
--- 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 7ce2d3af3edbe24b3d03f1d2232b5b0c3441402f..92b56ceacaf8c7f595e1cfdb9167eb67c57397c3 100644 (file)
--- 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