ORG 200
DTRB DW 0
DTRNB DW START
DTRLB DW 0
DTWBR DW WB
DTWB DW WB
DTREW DW 0
DTEOF DW WB
DTCLO DW START
DTSEK DW 0
DTCTL DW 0
DTBLK DW 1    ? needed for BASIC
DTITO DB 0
DTINI DW START
START RET
WB MOV A,D
 ORA E
 JZ DONE
 CALL OCHAR
 DCX D      One less
 INX H      Moving along
 JMP WB
DONE XCHG   Zero to H-L and
 XTHL       then to stack
 INX H
 INX H      Add 3 to return
 INX H      address
 XTHL       Put it back
 RET        and go
OCHAR IN 0F8H  Check status
 RAL
 JNC OCHAR  Loop till ready
 MOV A,M    Get char
 OUT 0F9H    and send it
 RET