]> cloudbase.mooo.com Git - z180-stamp-cpm3.git/blobdiff - cbios/boot.180
reduce stack usage
[z180-stamp-cpm3.git] / cbios / boot.180
index fcf00ae4657185835053f987d4c05121079ed152..566f19012dcabe8dc6ece5184b2db2677e72b6cd 100644 (file)
@@ -3,7 +3,6 @@
 \r
 \r
        public  hwinit,?init,?ldccp,?rlccp\r
-\r
        public  f_cpu\r
 \r
        extrn   boot,?conin\r
@@ -13,9 +12,9 @@
        extrn   @civec,@covec,@aivec,@aovec,@lovec\r
        extrn   @cbnk,?move,?xmove\r
 \r
-       include version.inc\r
-       include config.inc\r
-       include z180reg.inc\r
+       maclib  z180reg.inc\r
+       maclib  config.inc\r
+       maclib  version.inc\r
 \r
 \r
 ccpsize        equ     0c80h\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
@@ -54,6 +54,7 @@ hwini_skip:
        call    cpu_frq\r
        ld      (f_cpu),hl\r
        ld      (f_cpu+2),de\r
+       call    intinit                 ; setup interrupts and vectors\r
        ret\r
 \r
 ?init:\r
@@ -63,12 +64,11 @@ 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
 \r
-       call    intinit                 ; setup interrupts and vectors\r
        call    prt0ini                 ; init timer\r
        ei\r
        ld      c,2\r