not working

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

diff --git a/z180/r3init.180 b/z180/r3init.180
index 8156ed75f9ed74b71644a0150ae7481574e59a7d..0d3e5be4613ba210ffadcdf29ef826a0edaf67b8 100644 (file)
--- a/z180/r3init.180
+++ b/z180/r3init.180
@@ -32,8 +32,15 @@ rsti defl    1
         jp bpent\r
 rsti    defl rsti+1\r
        endm\r
+        db 0, 0, 0, 0, 0\r
 \r
 ;----------------------------------------------------------------------\r
+       \r
+       ;org    40h\r
+\r
+       dw      0\r
+       db      0\r
+\r
 \r
        if ROMSYS\r
 $crom:  defb c$rom             ;\r
@@ -310,8 +317,59 @@ buf.init:
        ret\r
 \r
 ;----------------------------------------------------------------------\r
+if 0\r
+       extrn   msginit,msg.sout,msg_fifo\r
+       extrn   tx.buf,rx.buf\r
+\r
+\r
+bufferinit:\r
+       call     msginit\r
+\r
+       ld      hl,buffers\r
+       ld      bc,0300h\r
+bfi_1:\r
+       ld      e,(hl)\r
+       inc     hl\r
+       ld      d,(hl)\r
+       inc     hl\r
+       push    hl\r
+       in0     a,cbr\r
+       call    log2phys\r
+       ld      (40h+0),hl\r
+       ld      (40h+2),a\r
+       ld      a,c\r
+       ld      (bufdat+0),a\r
+       ld      hl,inimsg\r
+       call    msg.sout\r
+       pop     hl\r
+       inc     c\r
+       djnz    bfi_1\r
+       ret\r
+\r
+       rept    20\r
+       db      0\r
+       endm\r
+\r
+buffers:\r
+       dw      msg_fifo\r
+       dw      tx.buf\r
+       dw      rx.buf\r
 \r
-.comment *\r
+inimsg:\r
+       db      inimsg_e - $ -2\r
+       db      PMSG\r
+       db      81h\r
+       db      inimsg_e - $ -1\r
+       db      0\r
+bufdat:\r
+       db      0\r
+       dw      0\r
+       db      0\r
+inimsg_e:\r
+endif\r
+;----------------------------------------------------------------------\r
+;\r
+if 0\r
 \r
        extrn   msginit,msg.sout,msg_fifo\r
        extrn   tx.buf,rx.buf\r
@@ -362,7 +420,7 @@ bufdat:
        db      0\r
 inimsg_e:\r
 \r
-       *\r
+endif\r
 \r
 ;\r
 ;----------------------------------------------------------------------\r