ld hl,ddtz_base\r
ld l,000h\r
ld (reg_sp),hl\r
+\r
+ ld hl,(1) ;wboot addr\r
+ ld de,?const\r
+ ld b,6\r
+vini_l:\r
+ inc hl\r
+ inc hl\r
+ inc hl\r
+ ex de,hl\r
+ inc hl\r
+ ld (hl),e\r
+ inc hl\r
+ ld (hl),d\r
+ inc hl\r
+ ex de,hl\r
+ djnz vini_l\r
+\r
jr mainloop\r
\r
ds CONBUF_SIZE + 3 - ($ - conbuf)\r
\r
;-------------------------------------------------------------------------------\r
\r
-?const:\r
-?conin:\r
-?cono:\r
- ret\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
+?list: jp 0 ; send list output character\r
+?auxo: jp 0 ; send auxiliary output character\r
+?auxi: jp 0 ; return auxiliary input character\r
\r
CMDTAB:\r
dw ERROR ;cmd_@ ;examine/substitute the displacement register @\r