/* kergen.c: Generates a memory image containing the Flight kernel */
/* Charles Eric LaForest, April 2008 */
/* laforest AT eecg.utoronto.ca */

#include "params.h"
#include <string.h>
#include <stdlib.h>
#include <stdio.h>

/*Initialize memory, compile code*/
int *kergen (int mem_size, int kernel_size) {

int *mem;
#define MEM_SIZE_CHAR (sizeof(int) * mem_size)
mem = (int *) malloc (MEM_SIZE_CHAR);
memset ((char *) mem, 0, MEM_SIZE_CHAR);

/*
These make up a simple assembler for the virtual machine.
So far, this has been tested on x86 and Sparc.
*/

/*Literal*/
#define L(number) \
mem[here] = (number); here++; 

/*Instruction packing into an int*/
#define I(zero, one, two, three, four, five) \
(zero & OPCODE_MASK) | \
((one & OPCODE_MASK) << OPCODE_WIDTH) | \
((two & OPCODE_MASK) << (OPCODE_WIDTH * 2)) | \
((three & OPCODE_MASK) << (OPCODE_WIDTH * 3)) | \
((four & OPCODE_MASK) << (OPCODE_WIDTH * 4)) | \
((five & OPCODE_MASK) << (OPCODE_WIDTH * 5))

/*Group of instructions*/
#define G(zero, one, two, three, four, five) \
L(I(zero,one,two,three,four,five))

/*Name the current location*/
#define N(name) \
int name = here-1;

/*Resolve address of name (set named location to current compilation location)*/
#define R(name) \
mem[name] = here-1;

/*Define a name (creates a dictionary entry)*/
#define D(name) \
N(name) \
char *name ## _string = #name; \
len = strlen(name ## _string); \
mem[there] = name; \
there -= len; \
mem[there-1] = len; \
for(i=0;i<len;i++){ \
mem[there+i] = (int) name ## _string[i]; \
} \
there -= 2;

/* FIXME: change mask definitions to be based on params.h */

int here = 0;

/*NB: start dictionary at end of kernel size, not end of RAM as it used to be*/
int there = kernel_size-1;
int slotzeromask = 0x0000001F;
int slotfivemask = 0x3E000000;	/*Note: top 2 bits are unused*/
int slotnullmask = 0x00000000;	/*Denotes an empty HERE*/
int len = 0;
int i = 0;

G(JMPZERO,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(0)							N(START_WORD_ZERO) /*XXX set this!!!*/
L(0)							N(START_WORD_ONE)  /*XXX set this!!!*/

L(here)							D(HERE)

L(here)							D(HERE_NEXT)

L(there)						D(THERE)

L(0)							D(SLOT)

L(0)							D(INPUT)

/*end of kernel space, not mem space*/
L(there)						D(NAME_END)

L(CYCLE_COUNTER)				D(perfcount_addr)
L(DISK_READ_PORT)				D(disk_read_port_addr)
L(DISK_WRITE_PORT)				D(disk_write_port_addr)

G(NOT,LIT,PLUS,PLUS,RET,PCFETCH)			D(MINUS)
L(1)

G(OVER,NOT,AND,XOR,RET,PCFETCH)				D(OR)

G(LIT,TOA,FETCHA,RET,PCFETCH,PCFETCH) 			D(READ1)
L(MEM_INPUT)

G(LIT,TOA,STOREA,RET,PCFETCH,PCFETCH) 			D(WRITE1)
L(MEM_OUTPUT)

G(TOA,FETCHAPLUS,AFROM,PLUS,RET,PCFETCH)		D(STRING_TAIL)

G(DUP,LIT,PLUS,NOT,LIT,TOA)				D(PUSH_STRING)
L(1)
L(INPUT)
G(FETCHA,PLUS,DUP,STOREA,TOA,STOREA)
G(LIT,TOA,FETCHA,CALL,PCFETCH,PCFETCH)
L(INPUT)
L(STRING_TAIL)
G(DUP,TOA,STOREA,RET,PCFETCH,PCFETCH)

G(LIT,TOA,FETCHA,CALL,PCFETCH,PCFETCH)			D(POP_STRING)
L(INPUT)
L(STRING_TAIL)
G(LIT,PLUS,LIT,TOA,STOREA,RET)
L(1)
L(INPUT)

/*Alternate optimized version for comparison*/
/*
G(LIT,DUP,TOR,TOA,FETCHA,DUP)				D(POP_STRING)
L(INPUT)
G(TOA,FETCHA,PLUS,LIT,PLUS,RFROM)
L(2)
G(TOA,STOREA,RET,PCFETCH,PCFETCH,PCFETCH)
*/

G(TOA,TOR,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(COMPARE_STRINGS)
G(FETCHRPLUS,FETCHAPLUS,XOR,JMPZERO,PCFETCH,PCFETCH)	N(CS_LOOP)
L(CS_LOOP)
G(LIT,RFROM,PLUS,LIT,AFROM,PLUS)
L(-1)
L(-1)
G(RET,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)

G(LIT,TOA,FETCHA,TOR,FETCHRPLUS,PCFETCH)		D(SCAN_STRING)
L(INPUT)
G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		N(SS_LOOP)
L(READ1)
G(STORERPLUS,LIT,PLUS,DUP,JMPZERO,JMP)
L(-1)
L(0)							N(SS_DONE)
L(SS_LOOP)
G(DROP,RFROM,DUP,TOA,STOREA,RET)			R(SS_DONE)

G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(SCAN)
L(READ1)
G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(PUSH_STRING)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(SCAN_STRING)

G(LIT,TOA,LIT,STOREA,RET,PCFETCH)			D(FIRST_SLOT)
L(SLOT)
L(slotzeromask)

G(LIT,TOA,LIT,STOREA,RET,PCFETCH)			D(LAST_SLOT)
L(SLOT)
L(slotfivemask)

G(LIT,TOA,LIT,STOREA,RET,PCFETCH)			D(NULL_SLOT)
L(SLOT)
L(slotnullmask)

G(LIT,TOA,FETCHA,DUP,TOR,LIT)				D(ALIGN)
L(HERE_NEXT)
L(I(PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))	/*Must be all 0*/
G(STORERPLUS,RFROM,STOREA,LIT,TOA,STOREA)
L(HERE)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(NULL_SLOT)

G(LIT,TOA,FETCHA,LIT,OVER,XOR)				D(NEXT_SLOT)
L(SLOT)
L(slotnullmask)
G(JMPZERO,LIT,OVER,XOR,JMPZERO,TWOSTAR)
L(0)							N(NS_HEREEMPTY)
L(slotfivemask)
L(0)							N(NS_HEREFULL)
G(TWOSTAR,TWOSTAR,TWOSTAR,TWOSTAR,STOREA,RET)
G(DROP,CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		R(NS_HEREFULL)
L(ALIGN)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(FIRST_SLOT)
G(DROP,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		R(NS_HEREEMPTY)
L(FIRST_SLOT)

G(LIT,TOA,FETCHA,TOA,STOREA,LIT)			D(DEFN_AS)
L(THERE)
L(INPUT)
G(TOA,FETCHA,LIT,PLUS,LIT,TOA)
L(-1)
L(THERE)
G(STOREA,RET,PCFETCH,PCFETCH,PCFETCH,PCFETCH)

G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(NEW_WORD)
L(ALIGN)
G(LIT,TOA,FETCHA,RET,PCFETCH,PCFETCH)
L(HERE)

G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(DEFN)
L(NEW_WORD)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(DEFN_AS)

G(LIT,TOA,FETCHA,LIT,PLUS,DUP)				D(LOOK)
L(THERE)
L(1)
G(LIT,TOA,FETCHA,CALL,PCFETCH,PCFETCH)			N(LOOK_LOOP)
L(INPUT)
L(COMPARE_STRINGS)
G(LIT,TOA,FETCHA,CALL,PCFETCH,PCFETCH)
L(INPUT)
L(STRING_TAIL)
G(XOR,JMPZERO,DROP,CALL,PCFETCH,PCFETCH)
L(0)							N(LOOK_MATCH)
L(STRING_TAIL)
G(LIT,PLUS,DUP,LIT,TOA,FETCHA)
L(1)
L(NAME_END)
G(XOR,JMPZERO,DUP,JMP,PCFETCH,PCFETCH)
L(0)							N(LOOK_NOMATCH)
L(LOOK_LOOP)
G(TOA,DROP,FETCHA,RET,PCFETCH,PCFETCH)			R(LOOK_MATCH)
G(DROP,LIT,TOA,FETCHA,RET,PCFETCH)			R(LOOK_NOMATCH)
L(NAME_END)

G(LIT,TOA,LIT,STOREAPLUS,AFROM,LIT)			D(COMPILE_INIT)
L(HERE)
L(0)							N(START_COMPILE_HERE) /*XXX set this*/
L(HERE_NEXT)
G(TOA,STOREA,LIT,TOA,LIT,STOREA)
L(SLOT)
L(slotfivemask)
G(LIT,TOA,FETCHA,TOA,LIT,STOREA)
L(HERE)
L(I(PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
G(RET,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)


G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(COMPILE_OPCODE)
L(NEXT_SLOT)
G(TOR,LIT,TOA,FETCHA,NOT,RFROM)				
L(SLOT)
G(OVER,OVER,AND,JMPZERO,TWOSTAR,TWOSTAR)
L(0)							N(COMPILE_OPCODE_COMPILE0)
G(TWOSTAR,TWOSTAR,TWOSTAR,OVER,OVER,AND)
G(JMPZERO,TWOSTAR,TWOSTAR,TWOSTAR,TWOSTAR,TWOSTAR)
L(0)							N(COMPILE_OPCODE_COMPILE1)
G(OVER,OVER,AND,JMPZERO,TWOSTAR,TWOSTAR)
L(0)							N(COMPILE_OPCODE_COMPILE2)
G(TWOSTAR,TWOSTAR,TWOSTAR,OVER,OVER,AND)
G(JMPZERO,TWOSTAR,TWOSTAR,TWOSTAR,TWOSTAR,TWOSTAR)
L(0)							N(COMPILE_OPCODE_COMPILE3)
G(OVER,OVER,AND,JMPZERO,TWOSTAR,TWOSTAR)
L(0)							N(COMPILE_OPCODE_COMPILE4)
G(TWOSTAR,TWOSTAR,TWOSTAR,PCFETCH,PCFETCH,PCFETCH)
G(LIT,TOA,FETCHA,TOA,FETCHA,PLUS)			R(COMPILE_OPCODE_COMPILE0) R(COMPILE_OPCODE_COMPILE1) R(COMPILE_OPCODE_COMPILE2) R(COMPILE_OPCODE_COMPILE3) R(COMPILE_OPCODE_COMPILE4)
L(HERE)
G(STOREA,DROP,RET,PCFETCH,PCFETCH,PCFETCH)

G(LIT,TOA,FETCHA,TOA,STOREAPLUS,AFROM)			D(COMPILE_LITERAL)
L(HERE_NEXT)
G(LIT,TOA,STOREA,RET,PCFETCH,PCFETCH)
L(HERE_NEXT)

G(LIT,CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPCALL)
L(I(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)
G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(COMPILE_LITERAL)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(ALIGN)

G(LIT,CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPRTU)
L(I(RTU,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(ALIGN)

G(LIT,CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPJMP)
L(I(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)
G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(COMPILE_LITERAL)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(ALIGN)

G(LIT,CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPJMPZERO)
L(I(JMPZERO,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(COMPILE_LITERAL)

G(LIT,CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPJMPPLUS)
L(I(JMPPLUS,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(COMPILE_LITERAL)

G(LIT,CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(NUMC)
L(I(LIT,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(COMPILE_LITERAL)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPPCFETCH)
L(I(PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPRET)
L(I(RET,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPFETCHAPLUS)
L(I(FETCHAPLUS,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPFETCHRPLUS)
L(I(FETCHRPLUS,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPFETCHA)
L(I(FETCHA,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPSTOREAPLUS)
L(I(STOREAPLUS,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPSTORERPLUS)
L(I(STORERPLUS,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPSTOREA)
L(I(STOREA,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPNOT)
L(I(NOT,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPAND)
L(I(AND,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPXOR)
L(I(XOR,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPPLUS)
L(I(PLUS,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPTWOSTAR)
L(I(TWOSTAR,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPTWOSLASH)
L(I(TWOSLASH,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPPLUSSTAR)
L(I(PLUSSTAR,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPAFROM)
L(I(AFROM,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPTOA)
L(I(TOA,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPDUP)
L(I(DUP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPDROP)
L(I(DROP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPOVER)
L(I(OVER,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPTOR)
L(I(TOR,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPRFROM)
L(I(RFROM,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(LIT,JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(CMPNOP)
L(I(NOP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH))
L(COMPILE_OPCODE)

G(TOR,RET,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(EXECUTE)

G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(EXEC)
L(READ1)
G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(EXECUTE)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(EXEC)

G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		D(NXEC) 
#ifdef SINGLE_CORE_KERNEL
R(START_WORD_ZERO) R(START_WORD_ONE)
#else 
#ifdef DUAL_CORE_KERNEL
R(START_WORD_ZERO)
#else 
#error NUMBER OF CORES UNHANDLED BY KERNEL!
#endif
#endif
L(SCAN)
G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(LOOK)
G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(POP_STRING)
G(CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(EXECUTE)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(NXEC)

G(DUP,TWOSTAR,TWOSTAR,TWOSTAR,OVER,PLUS)		D(TENSTAR)
G(PLUS,RET,PCFETCH,PCFETCH,PCFETCH,PCFETCH)

G(LIT,TOA,FETCHA,PCFETCH,PCFETCH,PCFETCH)		D(NUMI)
L(INPUT)
G(TOR,FETCHRPLUS,LIT,TOA,DUP,JMPZERO)
L(0)
L(0)							N(NUMI_DONE1)
G(AFROM,CALL,PCFETCH,PCFETCH,PCFETCH,PCFETCH)		N(NUMI_LOOP)
L(TENSTAR)
G(FETCHRPLUS,LIT,PLUS,PLUS,TOA,LIT)
L(-48)
L(-1)
G(PLUS,DUP,JMPZERO,JMP,PCFETCH,PCFETCH)
L(0)							N(NUMI_DONE2)
L(NUMI_LOOP)
G(DROP,RFROM,DROP,AFROM,JMP,PCFETCH)			R(NUMI_DONE1) R(NUMI_DONE2)
L(POP_STRING)

#ifdef SINGLE_CORE_KERNEL
#else
#ifdef DUAL_CORE_KERNEL
G(NOP,NOP,NOP,NOP,NOP,RET)			D(NULL_TASK)
L(NULL_TASK)					D(SLAVE_TASK)
G(LIT,TOA,FETCHA,CALL,PCFETCH,PCFETCH)		D(SLAVE_LOOP) R(START_WORD_ONE)
L(SLAVE_TASK)
L(EXECUTE)
G(JMP,PCFETCH,PCFETCH,PCFETCH,PCFETCH,PCFETCH)
L(SLAVE_LOOP)
#else
#error NUMBER OF CORES UNHANDLED BY KERNEL!
#endif
#endif

R(START_COMPILE_HERE)

mem[HERE] = here-1;					/*Set VM values*/
mem[HERE_NEXT] = here;
mem[THERE] = there;
mem[INPUT] = there+1;					/*XXX Nota Bene!*/
mem[SLOT] = slotfivemask; 

return mem;
}

int main (int argc, char **argv) {
	int kernsize;
	int ramsize;
	char *filename;
	int *mem;
	FILE *fp;
	int i;

	if(argc == 4){
		ramsize = atoi (argv[1]);
		kernsize = atoi (argv[2]);
		filename = argv[3];
		fp = fopen (filename, "wb");
		mem = kergen (ramsize, kernsize);
		fwrite ((char *) mem, sizeof(int), ramsize, fp);
		return 0;
	} else {
		fprintf (stderr, "Three arguments only: RAM size in ints, kernel size in ints, file name.\n");
		return 1;
	}
}