Add CP/M 3 file i/o (initial version)

[z180-stamp.git] / z180 / init.180

diff --git a/z180/init.180 b/z180/init.180
index b1f835b19672f42b426910ed520a2d2915b802c5..11f45ec5525bb1feb1d3b3367d55f187af2ec3fe 100644 (file)
--- a/z180/init.180
+++ b/z180/init.180
@@ -79,6 +79,7 @@ hwini0:
        db      3               ;count\r
        db      rcr,CREFSH      ;configure DRAM refresh\r
        db      dcntl,INIWAITS  ;wait states\r
+       db      cbr,SYS$CBR\r
        db      cbar,SYS$CBAR\r
     endif\r
        db     0\r
@@ -151,10 +152,10 @@ hw_reset:
 \r
 kstart:\r
     if CPU_Z180\r
-       ld      a,SYS$CBAR\r
-       out0    (cbar),a\r
        ld      a,SYS$CBR\r
        out0    (cbr),a\r
+       ld      a,SYS$CBAR\r
+       out0    (cbar),a\r
     endif\r
 \r
        ld      sp,$stack       ;01e1\r
@@ -220,7 +221,7 @@ wstart:
 \r
     if CPU_Z180\r
 ; TODO: SYS$CBR\r
-syscbr:        db      1\r
+syscbr:        db      0\r
     endif\r
 \r
 ;\r