qemu/roms/SLOF/board-qemu/slof/vio-hvterm.fs

   1 \ *****************************************************************************
   2 \ * Copyright (c) 2011 IBM Corporation
   3 \ * All rights reserved.
   4 \ * This program and the accompanying materials
   5 \ * are made available under the terms of the BSD License
   6 \ * which accompanies this distribution, and is available at
   7 \ * http://www.opensource.org/licenses/bsd-license.php
   8 \ *
   9 \ * Contributors:
  10 \ *     IBM Corporation - initial implementation
  11 \ ****************************************************************************/
  12
  13 ." Populating " pwd cr
  14
  15 : open true ;
  16 : close ;
  17
  18 : write ( adr len -- actual )
  19    tuck
  20    0 ?DO
  21        dup c@ my-unit SWAP hv-putchar
  22        1 +
  23    LOOP
  24    drop
  25 ;
  26
  27 : read  ( adr len -- actual )
  28    0= IF drop 0 EXIT THEN
  29    my-unit hv-haschar 0= IF 0 swap c! -2 EXIT THEN
  30    my-unit hv-getchar swap c! 1
  31 ;
  32
  33 : setup-alias
  34     " hvterm" find-alias 0= IF
  35         " hvterm" get-node node>path set-alias
  36     ELSE
  37         drop
  38     THEN
  39 ;
  40
  41 setup-alias