Return to vars.fs CVS log | Up to [gforth] / gforth |
signals are now translated into THROWs A number of bug fixes (make a diff of BUGS for details) added assert.fs and debugging.fs made .s nicer keep names of included files (in loadfilename) and print them upon error
1: \ VARS.FS Kernal variables 2: 3: hex \ everything now hex! 11may93jaw 4: 5: \ important constants 17dec92py 6: 7: \ dpANS6 (sect 3.1.3.1) says 8: \ "a true flag ... [is] a single-cell value with all bits set" 9: \ better definition: 0 0= constant true ( no dependence on 2's compl) 10: -1 Constant true \ see starts looking for 11: \ primitives after this word! 12: 0 Constant false 13: 14: 1 cells Constant cell 15: 16: 20 Constant bl 17: 18: FF Constant /line 19: 20: \ that's enough so long 21: 22: \ User variables 13feb93py 23: 24: \ doesn't produce real user variables now, but normal variables 25: 26: Create main-task 100 cells allot 27: main-task tup H ! minimal 28: 29: Variable udp 30: 31: AUser s0 32: AUser r0 33: AUser f0 34: AUser handler 35: \ AUser output 36: \ AUser input 37: 38: AUser errorhandler 39: 40: AUser "error 0 "error ! 41: 42: User >tib 43: User #tib 44: User >in 0 >in ! 45: User blk 0 blk ! 46: User loadfile 0 loadfile ! 47: 2User loadfilename 0 0 loadfilename 2! 48: 49: User loadline \ number of the currently interpreted 50: \ (in TIB) line if the interpretation 51: \ is in a textfile 52: \ the first line is 1 53: 54: 2User linestart \ starting file postition of 55: \ the current interpreted line (in TIB) 56: 57: User base A base ! 58: User dpl -1 dpl ! 59: 60: User state 0 state ! 61: AUser normal-dp \ the usual dictionary pointer 62: AUser dpp normal-dp dpp ! 63: \ the pointer to the current dictionary pointer 64: \ ist reset to normal-dp on (doerror) 65: \ (i.e. any throw caught by quit) 66: AUser LastCFA 67: AUser Last 68: 69: User locals-size \ this is the current size of the locals stack 70: \ frame of the current word 71: 72: