version 1.2, 1994/05/05 15:46:53
|
version 1.7, 1995/10/07 17:38:21
|
Line 13 hex \ everything now hex!
|
Line 13 hex \ everything now hex!
|
|
|
1 cells Constant cell |
1 cells Constant cell |
|
|
20 Constant bl |
20 Constant bl \ used by docon:, must be constant |
|
|
FF Constant /line |
FF Constant /line |
|
|
|
40 Constant c/l |
|
10 Constant l/s |
|
400 Constant chars/block |
|
|
\ that's enough so long |
\ that's enough so long |
|
|
\ User variables 13feb93py |
\ User variables 13feb93py |
Line 26 FF Constant /line
|
Line 30 FF Constant /line
|
Create main-task 100 cells allot |
Create main-task 100 cells allot |
main-task tup H ! minimal |
main-task tup H ! minimal |
|
|
Variable udp |
Variable udp \ used by dovar:, must be variable |
|
|
AUser s0 |
AUser next-task main-task next-task ! |
|
AUser prev-task main-task prev-task ! |
|
AUser save-task 0 save-task ! |
|
AUser s0 \ used by douser:, must be user |
AUser r0 |
AUser r0 |
AUser f0 |
AUser f0 |
|
AUser l0 |
AUser handler |
AUser handler |
\ AUser output |
\ AUser output |
\ AUser input |
\ AUser input |
Line 44 AUser "error 0 "error !
|
Line 52 AUser "error 0 "error !
|
User >in 0 >in ! |
User >in 0 >in ! |
User blk 0 blk ! |
User blk 0 blk ! |
User loadfile 0 loadfile ! |
User loadfile 0 loadfile ! |
|
2User loadfilename 0 0 loadfilename 2! |
|
|
User loadline \ number of the currently interpreted |
User loadline \ number of the currently interpreted |
\ (in TIB) line if the interpretation |
\ (in TIB) line if the interpretation |
\ is in a textfile |
\ is in a textfile |
\ the first line is 1 |
\ the first line is 1 |
|
|
2User linestart \ starting file postition of |
2User linestart \ starting file postition of |
\ the current interpreted line (in TIB) |
\ the current interpreted line (in TIB) |
|
|
User base A base ! |
User base A base ! |
User dpl -1 dpl ! |
User dpl -1 dpl ! |
|
|
User state 0 state ! |
User state 0 state ! |
AUser dp |
AUser normal-dp \ the usual dictionary pointer |
|
AUser dpp normal-dp dpp ! |
|
\ the pointer to the current dictionary pointer |
|
\ ist reset to normal-dp on (doerror) |
|
\ (i.e. any throw caught by quit) |
AUser LastCFA |
AUser LastCFA |
AUser Last |
AUser Last |
|
|
|
User locals-size \ this is the current size of the locals stack |
|
\ frame of the current word |
|
|
|
|