Download Modified Roland PG1000

;; Shell
;
;
PRESET
( -- )
Reset data stack pointer and the terminal input buffer.
$COLON
DW
DW
;
;
xio
( a a a -- )
Reset the I/O vectors 'EXPECT, 'TAP, 'ECHO and 'PROMPT.
$COLON
DW
DW
;
;
FILE
HAND
I/O
CONSOLE
QUIT
QUIT1:
QUIT2:
3,'I/O',ISLO
DOVAR
QRX,TXSTO
;emulate CREATE
;default I/O vectors
( -- )
Initiate terminal interface.
$COLON
DW
DW
;
;
4,'HAND',HAND
DOLIT,DOTOK,DOLIT,EMIT
DOLIT,KTAP,XIO,EXIT
( -- a )
Array to store default I/O vectors.
$COLON
DW
DW
;
;
4,'FILE',FILE
DOLIT,PACE,DOLIT,DROP
DOLIT,KTAP,XIO,EXIT
( -- )
Select I/O vectors for terminal interface.
$COLON
DW
DW
;
;
COMPO+3,'xio',XIO
DOLIT,ACCEP,TEXPE,DSTOR
TECHO,DSTOR,EXIT
( -- )
Select I/O vectors for file download.
$COLON
DW
DW
;
;
6,'PRESET',PRESE
SZERO,AT,SPSTO
DOLIT,TIBB,NTIB,TWOP,STORE,EXIT
7,'CONSOLE',CONSO
ISLO,DAT,TQKEY,DSTOR
HAND,EXIT
;restore default I/O device
;keyboard input
( -- )
Reset return stack pointer and start text interpreter.
$COLON
DW
DW
DW
DW
DW
DW
DW
DW
DW
D$
4,'QUIT',QUIT
RZERO,AT,RPSTO
LBRAC
QUERY
DOLIT,EVAL,CATCH,QDUP
QBRAN,QUIT2
TPROM,AT,SWAP
CONSO,NULLS,OVER,XORR
QBRAN,QUIT3
SPACE,COUNT,TYPEE
DOTQP,' ? '
116
;reset return stack pointer
;start interpretation
;get input
;evaluate input
;continue till error
;save input device
;?display error message
;error message
;error prompt