anchor.diff:           2drop r> drop false EXIT \ unknown device_type cleanup return-stack, return false
         THEN
      ELSE
  -      \ stdin not set, return false
  -      false
  +      serial-key?
      THEN
   ;
   
  
positive.code:    2dup input output
  ;
  
  
  1 BUFFER: (term-io-char-buf)
  
  : term-io-emit ( char -- )
  
negative.code: 
  : input  ( dev-str dev-len -- )
     open-dev ?dup IF
        \ find new ihandle and xt handle
        dup s" read" rot ihandle>phandle find-method
        0= IF
           drop
           cr ." Cannot find the read method for the given input console " cr
           EXIT
        THEN
        to read-xt
        set-stdin
     THEN
  ;
  
  