show cpu clock frequency at startup

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

diff --git a/cbios/sdio.180 b/cbios/sdio.180
index 78a8579699eb2df36148d9f49ad3faefa83ed9bc..b229c8d9bb6cde70489ddc7ea0e79e013abc3988 100644 (file)
--- a/cbios/sdio.180
+++ b/cbios/sdio.180
@@ -22,8 +22,8 @@
     ; Utility routines in standard BIOS\r
 \r
        extrn ?wboot            ; warm boot vector\r
-       extrn ?pmsg             ; print message @<HL> up to 00, saves <BC> & <DE>\r
-       extrn ?pdec             ; print binary number in <A> from 0 to 99.\r
+       extrn ?pmsg,pr.inln     ; print message @<HL>, print inline message\r
+       extrn pr.crlf           ; print <cr><lf>\r
        extrn ?pderr            ; print BIOS disk error header\r
        extrn ?conin,?cono      ; con in and out\r
        extrn ?const            ; get console status\r
@@ -73,14 +73,14 @@ sd1:        dph 0,dpbsimhd512
        dw      sd$write\r
        dw      sd$read\r
        dw      sd$login\r
-       dw      sd$init0\r
+       dw      sd$init2\r
        db      2,0             ; relative drive zero\r
 sd2:   dph 0,dpbsimhd512\r
 \r
        dw      sd$write\r
        dw      sd$read\r
        dw      sd$login\r
-       dw      sd$init1\r
+       dw      sd$init3\r
        db      3,0             ; relative drive one\r
 sd3:   dph 0,dpbsimhd512\r
 \r
@@ -267,8 +267,8 @@ fatfs_err:
        tst     080h\r
        jr      z,prompt        ; no fatfs error\r
 \r
-       ld      hl,fsmsg\r
-       call    ?pmsg\r
+       call    pr.inln\r
+       db      'FatFs: ',0\r
 \r
        ld      hl,fr$msg0      ; point at first FatFs message\r
        ld      c,fr$msg$count\r
@@ -276,8 +276,9 @@ fatfs_err:
        call    pdecoded\r
 \r
 prompt:\r
-       ld      hl,error$msg\r
-       call    ?pmsg           ; print "<BEL>, Retry (Y/N) ? "\r
+       call    pr.inln\r
+       db      ' Retry (Y/N) ? ',0\r
+\r
        call    u$conin$echo    ; get operator response\r
        cp      'Y'\r
        jr      z,retry         ; Yes, then retry 10 more times\r
@@ -391,7 +392,6 @@ drvmsg3:    db      'Bus Timeout, ',0
 drvmsg_size    equ     $ - drvmsg0\r
 drvmsg_count   equ     3\r
 \r
-fsmsg:         db      'FatFs: ',0\r
 \r
 ; table of pointers to error message strings\r
 \r
@@ -419,8 +419,4 @@ fr$msg20:   db      'short read/write,',0
 fr$msg$size    equ     $ - fr$msg0\r
 fr$msg$count   equ     20\r
 \r
-error$msg:\r
-       db      ' Retry (Y/N) ? ',0\r
-\r
-\r
        end\r