Return to vio-hvterm.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof

Annotation of qemu/roms/SLOF/board-qemu/slof/vio-hvterm.fs, revision 1.1.1.2

1.1       root        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: 
1.1.1.2 ! root       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: ;
1.1       root       26: 
                     27: : read  ( adr len -- actual )
                     28:    0= IF drop 0 EXIT THEN
1.1.1.2 ! root       29:    my-unit hv-haschar 0= IF 0 swap c! -2 EXIT THEN
        !            30:    my-unit hv-getchar swap c! 1
1.1       root       31: ;
                     32: 
                     33: : setup-alias
                     34:     " hvterm" find-alias 0= IF
                     35:         " hvterm" get-node node>path set-alias
1.1.1.2 ! root       36:     ELSE
        !            37:         drop
        !            38:     THEN
1.1       root       39: ;
                     40: 
                     41: setup-alias

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.