version 1.1, 1997/05/21 20:40:15
|
version 1.2, 1997/07/06 16:09:55
|
Line 18
|
Line 18
|
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
|
|
|
\ Output 13feb93py |
|
|
|
has-os [IF] |
|
0 Value outfile-id ( -- file-id ) \ gforth |
|
|
|
: (type) ( c-addr u -- ) \ gforth |
|
outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ? |
|
; |
|
|
|
: (emit) ( c -- ) \ gforth |
|
outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ? |
|
; |
|
[THEN] |
|
|
|
Defer type ( c-addr u -- ) \ core |
|
' (type) IS Type |
|
|
|
Defer emit ( c -- ) \ core |
|
' (Emit) IS Emit |
|
|
|
Defer key ( -- c ) \ core |
|
' (key) IS key |
|
|
|
: (.") "lit count type ; |
|
: (S") "lit count ; |
|
|
\ Input 13feb93py |
\ Input 13feb93py |
|
|
07 constant #bell ( -- c ) \ gforth |
07 constant #bell ( -- c ) \ gforth |
Line 59 hex
|
Line 85 hex
|
|
|
[THEN] |
[THEN] |
|
|
\ Output 13feb93py |
|
|
|
has-os [IF] |
|
0 Value outfile-id ( -- file-id ) \ gforth |
|
|
|
: (type) ( c-addr u -- ) \ gforth |
|
outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ? |
|
; |
|
|
|
: (emit) ( c -- ) \ gforth |
|
outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ? |
|
; |
|
[THEN] |
|
|
|
Defer type ( c-addr u -- ) \ core |
|
' (type) IS Type |
|
|
|
Defer emit ( c -- ) \ core |
|
' (Emit) IS Emit |
|
|
|
Defer key ( -- c ) \ core |
|
' (key) IS key |
|
|
|
: (.") "lit count type ; |
|
: (S") "lit count ; |
|
|
|