swd.fs

0 variable swd
swd constant swd-rx 
swd 1 + constant swd-/rts
swd 2 + constant swd-tx
swd 3 + constant swd-cts

: swd. ( -- ) swd @ hex. ;

: swd-key? ( -- flag ) swd-/rts c@ 0<> ;
: swd-key ( -- char ) begin swd-key? until swd-rx c@ 0 swd-/rts c! ;

: swd-emit? ( -- flag ) swd-cts c@ 0= ;
: swd-emit ( char -- ) begin swd-emit? until swd-tx c! $ff swd-cts c! ;

: swd-init ( -- )
	['] swd-key? hook-key? !
	['] swd-key hook-key !
	['] swd-emit? hook-emit? !
	['] swd-emit hook-emit ! ;