host_k12 wordset

description

-- useful additional primitives for K12xx platforms

Copyright (C) Tektronix, Inc. 1998 - 2001. All rights reserved.

description: This wordset adds some additional primitives that are useful in K12xx environments.

FORTH
BOOT-SCRIPT: ( "string" -- )(); 
 ;

DO NOT USE! will vanish w/o warning in the next version! see BOOT-SCRIPT@

FORTH
BOOT-SCRIPT@ ( -- s-a s-n )(); 
 ;

the file that will be include on next COLD boot DO NOT USE! will vanish w/o warning in the next version!

FORTH
#K1297-G20 ( .. )(); 
 ;
( _K12_SOURCE+100 )  constant #K1297-G20

an ordinary constant (no special usage info)

EXTENSIONS
OPEN-TERMINAL-LOGFILE ( s-buf s-len -- )(); 
 ;

open terminal logfile named by the string-buffer all further output to the terminal window is also logged into this file. This is especially useful in embedded environments where the terminal connection is often not used or it is directed to a different location that does not easily allow to redirect the forth output to a file for further examination.

EXTENSIONS
CLOSE-TERMINAL-LOGFILE ( -- )(); 
 ;

close terminal logfile opened with OPEN-TERMINAL-LOGFILE

EXTENSIONS
TERMINAL-EMULATION-STATE ( -- state* )(); 
 ;

returns the address of the emulations state variable so it can be read and explicitly changed to another value from forth text. This is a very questionable thing to do as the emulation-state is actually an enumerated value, the ESE will just show question-marks setting this variable to something not understood.

EXTENSIONS
TERMINAL-ANSWER-LINK ( -- sap#* )(); 
 ;

send terminal-output as a data-message to the specified link sap. Unlike TERMINAL-OUTPUT-LINK the data-messages are in line-mode. The flushed characters are buffered until a non-printable character is seen. This is somewhat more useful when treating pfe as a print service and testing machine, but can not provide for interactivity.

 60 TERMINAL-ANSWER-LINK !
 ...
 TERMINAL-ANSWER-LINK OFF
 
EXTENSIONS
TERMINAL-OUTPUT-LINK ( -- sap#* )(); 
 ;

send terminal-output as a data-message to the specified link sap. This can be used in an embedded systems for a terminal session simulation. setting zero-sap will disable sending message-frames (the zero sap is therefore not usable for output-to-link). The startup default is zero.

 60 TERMINAL-OUTPUT-LINK !
 ...
 TERMINAL-OUTPUT-LINK OFF
 
EXTENSIONS
TERMINAL-INPUT-LINK ( -- sap#* )(); 
 ;

let the forth stdin-handling look for data-messages on this link too. These will be interpreted like messages that come from the interactive forth terminal. This can be used in an embedded systems for a terminal session simulation. setting zero-sap will disable interpreting these incoming data-frames as keyboard-strings (so that the zero sap is therefore not usable for an input-link!). The startup default is zero.

 60 TERMINAL-INPUT-LINK !
 ...
 TERMINAL-INPUT-LINK OFF