af39b37dd1
This is more than cosmetic, it's also highly usable. The presence or absence of the "ok" message allows us to know whether the command aborted. Previously, the "> " prompt appeared when the system expected a prompt in the INTERPRET context, whether the previous command aborted or not. Also, this allows us to get rid of that ugly FLAGS global variable.
17 lines
784 B
Plaintext
17 lines
784 B
Plaintext
." xxx" -- *I* Compiles string literal xxx followed by a
|
|
call to (print).
|
|
C<? -- f Returns whether there's a char waiting in buf.
|
|
C< -- c Read one char from buffered input.
|
|
DUMP n a -- Prints n bytes at addr a in a hexdump format.
|
|
Prints in chunks of 8 bytes. Doesn't do partial
|
|
lines. Output is designed to fit in 32 columns.
|
|
EMIT c -- Spit char c to output stream
|
|
IN> -- a Address of variable containing current pos in
|
|
input buffer.
|
|
KEY -- c Get char c from direct input
|
|
PC! c a -- Spit c to port a
|
|
PC@ a -- c Fetch c from port a
|
|
WORD -- a Read one word from buffered input and push its
|
|
addr.
|
|
(cont.)
|