1 /* yForth? - Written by Luca Padovani (C) 1996/97
2 * ------------------------------------------------------------------------
3 * This software is FreeWare as long as it comes with this header in each
4 * source file, anyway you can use it or any part of it whatever
5 * you want. It comes without any warranty, so use it at your own risk.
6 * ------------------------------------------------------------------------
7 * Module name: blocke.c
8 * Abstract: Block extension word set
18 /**************************************************************************/
19 /* VARIABLES ************** ***********************************************/
20 /**************************************************************************/
24 /**************************************************************************/
25 /* WORDS ****************** ***********************************************/
26 /**************************************************************************/
28 void _empty_buffers() {
30 for (i = 0; i < NUM_BLOCKS; i++) block_data[i].block_no = 0;
34 register Char *buffer;
37 buffer = (Char *) *sp++;
38 for (i = 0; i < BLOCK_SIZE; i += 64) {
46 *--sp = (Cell) buffer + i;
54 register UCell u2 = (UCell) *sp++;
55 register UCell u1 = (UCell) *sp++;
56 for (; u1 <= u2; u1++) {