X-Git-Url: http://cloudbase.mooo.com/gitweb/ddt180.git/blobdiff_plain/b5b85b4cb3bbddbeb2726bad4666b7d012bf61f2..929d374718e84c34794212294ee59fda39b07f6b:/ddt180.z80

diff --git a/ddt180.z80 b/ddt180.z80
index 235e469..15e272f 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -146,16 +146,35 @@ l0093h:
 	ld hl,ddtz_base
 	ld l,000h
 	ld (reg_sp),hl
+
+	ld hl,(1)		;wboot addr
+	ld de,?const
+	ld b,6
+vini_l:
+	inc	hl
+	inc	hl
+	inc	hl
+	ex	de,hl
+	inc	hl
+	ld	(hl),e
+	inc	hl
+	ld	(hl),d
+	inc	hl
+	ex	de,hl
+	djnz	vini_l
+
 	jr mainloop
 
 	ds	CONBUF_SIZE + 3 - ($ - conbuf)
 
 ;-------------------------------------------------------------------------------
 
-?const:
-?conin:
-?cono:
-	ret
+?const:	jp	0		; return console input status
+?conin:	jp	0		; return console input character
+?cono:	jp	0		; send console output character
+?list:	jp	0		; send list output character
+?auxo:	jp      0		; send auxiliary output character
+?auxi:	jp      0		; return auxiliary input character
 
 CMDTAB:
 	dw	ERROR ;cmd_@	;examine/substitute the displacement register @