]> cloudbase.mooo.com Git - z180-stamp-cpm3.git/blobdiff - cbios/boot.180
reduce stack usage
[z180-stamp-cpm3.git] / cbios / boot.180
index 8e41728b90e26eb3ff8bd45f129ad6126fe9ed9b..566f19012dcabe8dc6ece5184b2db2677e72b6cd 100644 (file)
@@ -3,7 +3,6 @@
 \r
 \r
        public  hwinit,?init,?ldccp,?rlccp\r
-       public  signon\r
        public  f_cpu\r
 \r
        extrn   boot,?conin\r
@@ -41,6 +40,7 @@ tpa$bank equ  0
 \r
 hwinit:\r
        ld      a,(INIDONE)\r
+       and     80h\r
        cp      INIDONEVAL\r
        jr      z,hwini_skip\r
        ld      hl,hwini_tab\r
@@ -64,7 +64,7 @@ hwini_skip:
        ld      (@covec),hl\r
        ld      hl,0000000000000000b    ; assign printer to nothing:\r
        ld      (@lovec),hl\r
-       ld      hl,0100000000000000b    ; assign AUX to ASCI0:\r
+       ld      hl,0000000000000000b    ; assign AUX to ASCI0:\r
        ld      (@aivec),hl\r
        ld      (@aovec),hl\r
 \r
@@ -78,7 +78,6 @@ hwini_skip:
        ld      (@cbnk),a               ; right now in bank 0\r
 \r
        call    pr.inln                 ; print signon message\r
-signon:\r
        db      13,10,13,10,'CP/M Version 3.0, Z180-Stamp BIOS v'\r
        defvers\r
        db      13,10\r