← Back to branch summary

~pmdj/ubuntu/trusty/qemu/2.9+applesmc+fadtv3

« back to all changes in this revision

Viewing changes to roms/SLOF/board-qemu/slof/vio-hvterm.fs

  • Committer: Phil Dennis-Jordan
  • Date: 2017-07-21 08:03:43 UTC
  • mfrom: (1.1.1)
  • Revision ID: phil@philjordan.eu-20170721080343-2yr2vdj7713czahv
New upstream release 2.9.0.

Show diffs side-by-side

added added

removed removed

Lines of Context:
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