21 lines
280 B
Forth
21 lines
280 B
Forth
|
: waitcnt begin dup cnt@ - 0< until ;
|
||
|
|
|
||
|
|
: putch 256 or dup + clkfreq@ 9600 /
|
||
|
|
11 >r
|
||
|
|
cnt@
|
||
|
|
begin
|
||
|
|
r> 1- dup >r
|
||
|
|
while
|
||
|
|
rot dup
|
||
|
|
30 lshift
|
||
|
|
outa!
|
||
|
|
1 rshift
|
||
|
|
swap rot dup rot +
|
||
|
|
waitcnt
|
||
|
|
repeat
|
||
|
|
r> 2drop 2drop
|
||
|
|
;
|
||
|
|
|
||
|
|
: test cnt@ 65 putch cnt@ swap - 80 / . ;
|
||
|
|
|