refactor print utils

[z180-stamp-cpm3.git] / cbios / boot.180

diff --git a/cbios/boot.180 b/cbios/boot.180
index 566f19012dcabe8dc6ece5184b2db2677e72b6cd..ee32505d45d4ed4a99ccd847302b3271390c08b1 100644 (file)
--- a/cbios/boot.180
+++ b/cbios/boot.180
@@ -39,17 +39,12 @@ tpa$bank equ        0
        dseg                    ; init done from banked memory\r
 \r
 hwinit:\r
-       ld      a,(INIDONE)\r
-       and     80h\r
-       cp      INIDONEVAL\r
-       jr      z,hwini_skip\r
        ld      hl,hwini_tab\r
        call    ioini1l\r
        ld      a,0c3h\r
        ld      hl,boot\r
        ld      (0),a\r
        ld      (1),hl\r
-hwini_skip:\r
        call    msginit\r
        call    cpu_frq\r
        ld      (f_cpu),hl\r
@@ -78,10 +73,10 @@ hwini_skip:
        ld      (@cbnk),a               ; right now in bank 0\r
 \r
        call    pr.inln                 ; print signon message\r
-       db      13,10,13,10,'CP/M Version 3.0, Z180-Stamp BIOS v'\r
+       db      13,10,13,10,'CP/M Version 3.1, Z180-Stamp BIOS v'\r
        defvers\r
        db      13,10\r
-       db      'Estimated CPU clock [Hz]: ',0\r
+       dc      'Estimated CPU clock [Hz]: '\r
 \r
        ld      hl,(f_cpu)\r
        ld      de,(f_cpu+2)\r
@@ -120,12 +115,12 @@ hwini_skip:
 \r
        ; now, copy CCP to bank 0 for reloading\r
 \r
-       ld      bc,2*256 + tpa$bank     ; c: src$bnk, b: dst$bnk\r
+       ld      bc,2*256 + tpa$bank     ; b: dst$bnk, c: src$bnk\r
        jr      mov_ccp\r
 \r
        ; just copy in the other direction\r
 ?rlccp:\r
-       ld      bc,tpa$bank*256 + 2     ; c: src$bnk, b: dst$bnk\r
+       ld      bc,tpa$bank*256 + 2     ; b: dst$bnk, c: src$bnk\r
 mov_ccp:\r
        call    ?xmove\r
        ld      hl,0100h\r
@@ -137,7 +132,7 @@ mov_ccp:
 \r
 no$ccp:                                        ; here if we couldn't find the file\r
        call    pr.inln                 ; report this...\r
-       db      13,10,'BIOS Err on A: No CCP.COM file',0\r
+       dc      13,10,'BIOS Err on A: No CCP.COM file'\r
 \r
        call    ?conin                  ; get a response\r
        jr      ?ldccp                  ; and try again\r