file reorg. move routines, that are mainly used in initialization to banked area

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

diff --git a/cbios/boot.180 b/cbios/boot.180
index 99a8733304b47cc19e161e9ac40c0eda1f0a79c7..5256539589f9037a1f57875d538cab3d47d68598 100644 (file)
--- a/cbios/boot.180
+++ b/cbios/boot.180
@@ -49,7 +49,7 @@ hwini_skip:
        ret\r
 \r
 ?init:\r
-       ld      hl,0100000000000000b    ; assign console to ASCI1:\r
+       ld      hl,1000000000000000b    ; assign console to AVRCON:\r
        ld      (@civec),hl\r
        ld      (@covec),hl\r
        ld      hl,0000000000000000b    ; assign printer to nothing:\r
@@ -59,11 +59,11 @@ hwini_skip:
        ld      (@aovec),hl\r
 \r
 \r
-       ld      c,2\r
-       call    gs_rtc                  ; get time and date\r
        call    intinit                 ; setup interrupts and vectors\r
        call    prt0ini                 ; init timer\r
        ei\r
+       ld      c,2\r
+       call    gs_rtc                  ; get time and date\r
 \r
        xor     a\r
        ld      (@cbnk),a               ; right now in bank 0\r
@@ -72,7 +72,7 @@ hwini_skip:
        db      13,10,13,10,'CP/M Version 3.0, Z180-Stamp BIOS',13,10,0\r
 \r
        call    pr.inln\r
-       db      'CPU clock [Hz]: ',0\r
+       db      'Estimated CPU clock [Hz]: ',0\r
 \r
        ld      hl,(f_cpu)\r
        ld      de,(f_cpu+2)\r
@@ -142,17 +142,14 @@ no$ccp:                           ; here if we couldn't find the file
 rl$1:\r
        ld      a,2\r
        call    ?bnksl          ; select extra bank\r
-       ld      a,(hl)\r
-       push    af              ; get a byte\r
+       ld      a,(hl)          ; get a byte\r
+       ex      af,af'\r
        ld      a,tpa$bank\r
        call    ?bnksl          ; select TPA\r
-       pop     af\r
+       ex      af,af'\r
        ld      (hl),a          ; save the byte\r
-       inc     hl\r
-       dec     bc              ; bump pointer, drop count\r
-       ld      a,b\r
-       or      c               ; test for done\r
-       jp      nz,rl$1\r
+       cpi                     ; bump pointer, drop count\r
+       jp      pe,rl$1\r
        ret\r
 \r
 \r