Add iobyte and console i/o drivers. WIP

diff --git a/ddt180.z80 b/ddt180.z80
index 7f0ff31164631e5a4c324d173912a8a4bf746816..6f701ff512c9b60a7b8aed872e2fe13d44a185da 100644 (file)
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -43,9 +43,10 @@ di_or_ei:                    ;ints enabled/disabled while ddtz is running
        nop\r
        ret\r
 \r
-?const:        jp      0               ; return console input status\r
-?conin:        jp      0               ; return console input character\r
-?cono: jp      0               ; send console output character\r
+convec:\r
+const: jp      cist            ; return console input status\r
+conin: jp      ci              ; return console input character\r
+conout:        jp      co              ; send console output character\r
 \r
 ;-------------------------------------------------------------------------------\r
 \r
@@ -142,7 +143,7 @@ init::
        LD      SP,stack\r
 \r
        ld      hl,(1)          ;wboot addr\r
-       ld      de,?const\r
+       ld      de,convec\r
        ex      de,hl\r
        ld      b,3\r
 vini_l:\r
@@ -184,6 +185,14 @@ l0093h:
 \r
 ;-------------------------------------------------------------------------------\r
 \r
+cist:\r
+ci:\r
+co:\r
+       ret\r
+\r
+\r
+;-------------------------------------------------------------------------------\r
+\r
 CMDTAB::\r
 ;      dw      ERROR ;cmd_@    ;examine/substitute the displacement register @\r
 ;      dw      ERROR ;cmd_A    ;Assemble\r
@@ -383,7 +392,7 @@ outchar:
        push af\r
        and 07fh\r
        ld      c,a\r
-       call    ?cono\r
+       call    conout\r
        ld hl,con_col\r
        inc (hl)\r
        pop af\r
@@ -416,10 +425,10 @@ inchar:
        push hl\r
        push de\r
        push bc\r
-       call    ?const\r
+       call    const\r
        and a\r
        jr      z,inch1\r
-       call    ?conin\r
+       call    conin\r
        scf\r
 inch1:\r
        pop bc\r