Subversion Repositories tms1000

/tms1000/trunk/assembler/Makefile

/tms1000/trunk/assembler/casm.c

/tms1000/trunk/assembler/casm.exe Cannot display: file marked as a binary type. svn:mime-type = application/octet-stream

/tms1000/trunk/assembler/casm.exe

tms1000/trunk/assembler/casm.exe Property changes : Added: svn:mime-type ## -0,0 +1 ## +application/octet-stream \ No newline at end of property Index: tms1000/trunk/assembler/casm.h =================================================================== --- tms1000/trunk/assembler/casm.h (nonexistent) +++ tms1000/trunk/assembler/casm.h (revision 2) @@ -0,0 +1,72 @@ +/* +casm.h + +CASM is an assembler for the tms1000 processor. +*/ + +extern int pass; +extern int lineno; +extern int errors; + +extern int group; /* current rom group */ +extern int rom; /* current rom */ +extern int pc; /* current pc */ + +extern int dsr; /* delayed select rom */ +extern int dsg; /* delayed select group */ + +extern char flag_char; /* used to mark jumps across rom banks */ + +extern int symtab_flag; + + +#define OTHER_INST 0 +#define ARITH_INST 1 +#define TEST_INST 2 + +extern int last_instruction_type; + + +#define MAX_LINE 256 +extern char linebuf [MAX_LINE]; +extern char *lineptr; + +#define MAXGROUP 2 +#define MAXROM 8 +extern t_symtab symtab /*[MAXGROUP] [MAXROM]*/; /* separate symbol tables for each ROM */ + +void do_label (char *s); + + +void emit (int op); /* use for instructions that never set carry */ +void emit_arith (int op); /* use for arithmetic instructions that may set carry */ +void emit_test (int op); /* use for test instructions that + + +void etarget (int targrom, int targpc); /* for branch target info */ + +/* + * Check that val is in the range [min, max]. If so, return val. + * If not, issue an error and return min. + */ +int range (int val, int min, int max); + +char *newstr (char *orig); +void format_listing (void); + +/* + * print to both listing error buffer and standard error + * + * Use this for general messages. Don't use this for warnings or errors + * generated by a particular line of the source file. Use error() or + * warning() for that. + */ +int err_printf (char *format, ...); + +/* generate error or warning messages and increment appropriate counter */ +int error (char *format, ...); +int warning (char *format, ...); + +/* generate fatal error message to stderr, doesn't return */ +void fatal (char *format, ...); + Index: tms1000/trunk/assembler/casml.l =================================================================== --- tms1000/trunk/assembler/casml.l (nonexistent) +++ tms1000/trunk/assembler/casml.l (revision 2) @@ -0,0 +1,134 @@ +/* +casm.l: lexical analyzer specification + +CASM is an assembler for the TMS1000 processor. +*/ + +%{ +#include "y.tab.h" +#include "symtab.h" +#include "casm.h" + +#ifdef OLD_FLEX +#undef yywrap +/* Only needed for versions of flex prior to 2.4.1. */ +int yywrap (void); +#endif /* OLD_FLEX */ + +#undef YY_INPUT +#define YY_INPUT(buf,result,max_size) \ + { \ + int r = strlen (lineptr); \ + if (r > max_size) \ + r = max_size; \ + memcpy (buf, lineptr, r); \ + lineptr += r; \ + result = r; \ + } +#if 0 + fprintf (stderr, "yy_input: '%s', %d\n", lineptr, r); \ + +#endif +%} + +octaldig [0-7] +hexdigit [0-9a-fA-F] +digit [0-9] +alpha [a-zA-Z] +alphanum [a-zA-Z0-9_] + +%% +{digit}+ { yylval.integer = atoi (yytext); return INTEGER; } + +@{hexdigit} { sscanf (yytext+1, "%x", &yylval.integer); return INTEGER; } + +{alpha}{alphanum}* { + if (yylval.integer = keyword (yytext)) + return yylval.integer; + yylval.string = newstr (yytext); + return IDENT; + } + + +\;.* ; +[ \t]+ ; +\n ; +. { return yytext [0]; } + +%% + +struct keyword +{ + char *name; + int value; +} +keywords [] = +{ + "br", BR , + "call", CALL , + "calll", CALLL, + "clo", CLO , + "comx", COMX , + "ldp", LDP , + "ldx", LDX , + "sbit", SBIT , + "rbit", RBIT , + "retn", RETN , + "rstr", RSTR , + "setr", SETR , + "tdo", TDO , + "alec", ALEC , + "alem", ALEM , + "amaac", AMAAC, + "a6aac", A6AAC, + "a8aac", A8AAC, + "a10aac", A10AAC, + "cla", CLA , + "cpaiz", CPAIZ, + "dan", DAN , + "dman", DMAN , + "dyn", DYN , + "ia", IA , + "imac", IMAC , + "iyc", IYC , + "knez", KNEZ , + "mnez", MNEZ , + "saman", SAMAN, + "tam", TAM , + "tamiy", TAMIY, + "tamza", TAMZA, + "tay", TAY , + "tbit1", TBIT1, + "tcy", TCY , + "tcmiy", TCMIY, + "tka", TKA , + "tma", TMA , + "tmy", TMY , + "tya", TYA , + "xma", XMA , + "ynea", YNEA , + "ynec", YNEC , + "bl", BL , + "rom", ROM , + "symtab", SYMTAB, + NULL, 0, +}; + +int keyword (char *string) +{ + struct keyword *ptr; + + for (ptr = keywords; ptr->name; ptr++) + if (stricmp (string, ptr->name) == 0) + return ptr->value; + return 0; +} + +int yywrap (void) +{ +#ifdef OLD_FLEX +/* Only needed for versions of flex prior to 2.4.1. */ + yyrestart (yyin); +#endif /* OLD_FLEX */ + return (1); +} Index: tms1000/trunk/assembler/casmy.y =================================================================== --- tms1000/trunk/assembler/casmy.y (nonexistent) +++ tms1000/trunk/assembler/casmy.y (revision 2) @@ -0,0 +1,211 @@ +/* +casm.y: grammar + +CASM is an assembler for the TMS1000 processor. +*/ + +%{ +#include +#include "symtab.h" +#include "casm.h" +int bitreverse4[]={0,8,4,12,2,10,6,14,1,9,5,13,3,11,7,15}; +int bitreverse2[]={0,2,1,3}; +%} + +%union { + int integer; + char *string; + } + + +%token INTEGER +%token IDENT + +%token BR +%token CALL +%token CALLL +%token CLO +%token COMX +%token LDP +%token LDX +%token SBIT +%token RBIT +%token RETN +%token RSTR +%token SETR +%token TDO +%token ALEC +%token ALEM +%token AMAAC +%token A6AAC +%token A8AAC +%token A10AAC +%token CLA +%token CPAIZ +%token DAN +%token DMAN +%token DYN +%token IA +%token IMAC +%token IYC +%token KNEZ +%token MNEZ +%token SAMAN +%token TAM +%token TAMIY +%token TAMZA +%token TAY +%token TBIT1 +%token TCY +%token TCMIY +%token TKA +%token TMA +%token TMY +%token TYA +%token XMA +%token YNEA +%token YNEC +%token BL +%token ROM +%token SYMTAB + +%type expr + +%% + +line : label instruction + | label + | instruction + | pseudo_op + | + | error + ; + +label: IDENT ':' { do_label ($1); } + ; + +expr : INTEGER { $$ = $1; } + | IDENT { if (pass == 1) + $$ = 0; + else if (! lookup_symbol (symtab, $1, &$$)) + { + error ("undefined symbol '%s'\n", $1); + $$ = 0; + } + } + ; +pseudo_op : ps_rom + | ps_symtab + ; + +ps_rom : '.' ROM expr { /*$3 = range ($3, 0, MAXGROUP * MAXROM - 1); + group = dsg = ($3 >> 3); + rom = dsr = ($3 & 7); */ + rom = $3; + pc = 0; + last_instruction_type = OTHER_INST; + printf (" %d", $3); } + ; + +ps_symtab : '.' SYMTAB { symtab_flag = 1; } + ; + +instruction : inst_br + | inst_bl + | inst_call + | inst_calll + | inst_clo + | inst_comx + | inst_ldp + | inst_ldx + | inst_sbit + | inst_rbit + | inst_retn + | inst_rstr + | inst_setr + | inst_tdo + | inst_alec + | inst_alem + | inst_amaac + | inst_a6aac + | inst_a8aac + | inst_a10aac + | inst_cla + | inst_cpaiz + | inst_dan + | inst_dman + | inst_dyn + | inst_ia + | inst_imac + | inst_iyc + | inst_knez + | inst_mnez + | inst_saman + | inst_tam + | inst_tamiy + | inst_tamza + | inst_tay + | inst_tbit1 + | inst_tcy + | inst_tcmiy + | inst_tka + | inst_tma + | inst_tmy + | inst_tya + | inst_xma + | inst_ynea + | inst_ynec + ; + +inst_br : BR expr { emit (0x80 | ($2 & 0x3f)); } ; +inst_bl : BL expr { emit (0x10 | bitreverse4[(($2 & 0x3c0) >> 6)]); + pc = ((pc != 31) && ((pc >> 4) != 0) && (((pc & 0xf) == 15) || ((pc >> 4) != 3))) ? (pc << 1) : (pc << 1)+1; + pc = pc & 0x3f; + emit (0x80 | ($2 & 0x3f)); } ; +inst_call : CALL expr { emit (0xc0 | ($2 & 0x3f)); } ; +inst_calll : CALLL expr { emit (0x10 | bitreverse4[(($2 & 0x3c0) >> 6)]); + pc = ((pc != 31) && ((pc >> 4) != 0) && (((pc & 0xf) == 15) || ((pc >> 4) != 3))) ? (pc << 1) : (pc << 1)+1; + pc = pc & 0x3f; + emit (0xc0 | ($2 & 0x3f)); } ; +inst_clo : CLO { emit (0x0b); } ; +inst_comx : COMX { emit (0x00); } ; +inst_ldp : LDP expr { emit (0x10 | bitreverse4[($2 & 0xf)]); } ; +inst_ldx : LDX expr { emit (0x3c | bitreverse2[($2 & 0x3)]); } ; +inst_sbit : SBIT expr { emit (0x30 | bitreverse2[($2 & 0x3)]); } ; +inst_rbit : RBIT expr { emit (0x34 | bitreverse2[($2 & 0x3)]); } ; +inst_retn : RETN { emit (0x0f); } ; +inst_rstr : RSTR { emit (0x0c); } ; +inst_setr : SETR { emit (0x0d); } ; +inst_tdo : TDO { emit (0x0a); } ; +inst_alec : ALEC expr { emit (0x70 | bitreverse4[($2 & 0xf)]); } ; +inst_alem : ALEM { emit (0x29); } ; +inst_amaac : AMAAC { emit (0x25); } ; +inst_a6aac : A6AAC { emit (0x06); } ; +inst_a8aac : A8AAC { emit (0x01); } ; +inst_a10aac : A10AAC { emit (0x05); } ; +inst_cla : CLA { emit (0x2f); } ; +inst_cpaiz : CPAIZ { emit (0x2d); } ; +inst_dan : DAN { emit (0x07); } ; +inst_dman : DMAN { emit (0x2a); } ; +inst_dyn : DYN { emit (0x2c); } ; +inst_ia : IA { emit (0x0e); } ; +inst_imac : IMAC { emit (0x28); } ; +inst_iyc : IYC { emit (0x2b); } ; +inst_knez : KNEZ { emit (0x09); } ; +inst_mnez : MNEZ { emit (0x26); } ; +inst_saman : SAMAN { emit (0x27); } ; +inst_tam : TAM { emit (0x03); } ; +inst_tamiy : TAMIY { emit (0x20); } ; +inst_tamza : TAMZA { emit (0x04); } ; +inst_tay : TAY { emit (0x24); } ; +inst_tbit1 : TBIT1 expr { emit (0x38 | bitreverse2[($2 & 0x3)]); } ; +inst_tcy : TCY expr { emit (0x40 | bitreverse4[($2 & 0xf)]); } ; +inst_tcmiy : TCMIY expr { emit (0x60 | bitreverse4[($2 & 0xf)]); } ; +inst_tka : TKA { emit (0x08); } ; +inst_tma : TMA { emit (0x21); } ; +inst_tmy : TMY { emit (0x22); } ; +inst_tya : TYA { emit (0x23); } ; +inst_xma : XMA { emit (0x2e); } ; +inst_ynea : YNEA { emit (0x02); } ; +inst_ynec : YNEC expr { emit (0x50 | bitreverse4[($2 & 0xf)]); } ; +%% Index: tms1000/trunk/assembler/icalc.asm =================================================================== --- tms1000/trunk/assembler/icalc.asm (nonexistent) +++ tms1000/trunk/assembler/icalc.asm (revision 2) @@ -0,0 +1,326 @@ +.rom @0 + lock : tka + kin : alec 7 + br k1 + a8aac + k1 : retn + alec 0 + br reset + br lock + + reset : tcy 6 + re1 : rstr + dyn + br re1 + + disp : tcy 6 + br scan2 + + scan1 : tya + tcy 12 + tamiy + + tka + tbit1 1 + br clok + call kin + alec 0 + br nok + + delay : dan + br delay + dyn + br delay + call lock + alec 0 + br nok + bl key + + noclk : rbit 0 + nok : tcy 12 + tmy + dyn ;fetch 1 + + + scan2 : tma + iyc + rstr + dyn + tdo + + setr + ynec 15 + br scan1 + br disp + + clok : alec 7 + br noclk + tbit1 0 + br nok + + sbit 0 + tcy 6 + tst2 : ldp 1 + mnez + br clk1 + ldp 0 + dyn + br tst2 + + + tya + ynea + + tcy 13 + tcmiy 0 + br nok + br lock + br lock +.rom @1 + clk1 : tcy 14 + imac + alec 9 + br clk3 + tcmiy 0 + imac + alec 5 + br clk3 + + tcmiy 0 + clk2 : dman + br clk3 + tcmiy 9 + br clk2 + + clk3 : tam + bl nok +.rom @2 + key : tcy 6 + clen : xma + alec 9 + br clen1 + cla + clen1 : xma + dyn + br clen + + tcy 13 + ldp 3 + alec 1 + br func + + + ldp 2 + tbit1 3 + br ne_1 + sbit 3 + calll creg + + + ne_1 : tcy 12 + xma + tbit1 2 + br k4in + + a6aac + k4in : tcy 5 + mnez + br exnum + calll ldata + + exnum : bl blank + +.rom @3 + func : rbit 3 + tcy 12 + dman + br not_0 + + + tcy 13 + sbit 1 + ynea + bl lock + + not_0 : ldp 15 + alec 0 + br cler + ldp 6 + alec 1 + br trab + ldp 4 + alec 2 + br plus + alec 3 + br mins + ldp 7 + alec 4 + br mult + + divid : ldx 1 + calll creg + + d1 : calll sbaa + alec 0 + br incc + tcy 0 + trca : ldx 1 + tma + ldx 0 + tamiy + ynec 7 + br trca + bl blank + + incc : ldx 1 + tcy 0 + d2 : imac + tam + alec 9 + br d1 + tcmiy 0 + br d2 +.rom @4 + plus : calll aaba + + tob : bl blank + + mins : calll sbaa + + alec 0 + br tob + + calll creg + br tob + +.rom @5 + aaba : ldx 0 + tcy 0 + cla + ad1 : comx + amaac + comx + amaac + br gt9 + alec 9 + br lt10 + gt9 : a6aac + tamza + ia + incy : iyc + ynec 7 + br ad1 + retn + lt10 : tamza + br incy + + + sbaa : ldx 0 + tcy 0 + cla + s1 : comx + amaac + comx + saman + br nobor + a10aac + tamza + ia + incys : iyc + ynec 7 + br s1 + retn + + nobor : tamza + br incys + +.rom @6 + trac : tcy 0 + t1 : ldx 0 + tma + ldx 1 + tamiy + ynec 7 + br t1 + retn + + trab : ldx 3 + tr0 : tcy 0 + t2 : comx + tma + comx + tamiy + ynec 7 + br t2 + retn + bl blank + + rshft : cla + tcy 6 + r1 : xma + dyn + br r1 + retn +.rom @7 + mult : calll trac + tcmiy 6 + ldx 0 + calll creg + ml2 : ldx 1 + tcy 7 + tmy + dman + br nobr + tcy 7 + dman + br ml1 + bl blank + ml1 : tam + ldx 0 + + + lshft : cla + ldata : tcy 0 + l1 : xma + iyc + ynec 7 + br l1 + retn + + br ml2 + nobr : tam + calll aaba + br ml2 + + +.rom @f + cla + tcy 0 + ynea + cler : ldx 3 + call creg + ldx 1 + call creg + ldx 0 + + clall : tcy 7 + br c1 + + creg : tcy 0 + c1 : tcmiy 0 + ynec 7 + br c1 + retn + + + blank : ldx 0 + tcy 6 + bl1 : mnez + br brlck + tcmiy 15 + dyn + dyn + br bl1 + brlck : bl lock + + .symtab Index: tms1000/trunk/assembler/symtab.c =================================================================== --- tms1000/trunk/assembler/symtab.c (nonexistent) +++ tms1000/trunk/assembler/symtab.c (revision 2) @@ -0,0 +1,139 @@ +/* +symtab.c: a simple binary tree symbol table + +CASM is an assembler for the TMS1000 processor. +*/ + +#include +#include +#include "symtab.h" + +typedef struct sym +{ + char *name; + int value; + int lineno; + struct sym *left; + struct sym *right; +} sym; + +static char *newstr (char *orig) +{ + int len; + char *r; + + len = strlen (orig); + r = (char *) malloc (len + 10); + + if (! r) + { + fprintf (stderr, "memory allocation failed\n"); + exit (2); + } + + memcpy (r, orig, len + 1); + return (r); +} + +t_symtab alloc_symbol_table (void) +{ + sym **table; + table = (sym **) calloc (1, sizeof (sym *)); + return (table); +} + +static void free_entry (sym *p) +{ + if (p->left) + free_entry (p->left); + if (p->right) + free_entry (p->right); + free (p); +} + +void free_symbol_table (t_symtab t) +{ + sym **table = t; + free_entry (*table); + free (table); +} + +static int insert_symbol (sym **p, sym *newsym) +{ + int i; + + if (! *p) + { + (*p) = newsym; + return (1); + } + + i = stricmp (newsym->name, (*p)->name); + + if (i == 0) + return (0); + else if (i < 0) + return (insert_symbol (& ((*p)->left), newsym)); + else + return (insert_symbol (& ((*p)->right), newsym)); +} + + +/* returns 1 for success, 0 if duplicate name */ +int create_symbol (t_symtab t, char *name, int value, int lineno) +{ + sym **table = t; + sym *p = *table; + sym *newsym; + + newsym = (sym *) calloc (1, sizeof (sym)); + if (! newsym) + { + fprintf (stderr, "memory allocation failure\n"); + exit (2); + } + + newsym->name = newstr (name); + newsym->value = value; + newsym->lineno = lineno; + + return (insert_symbol (table, newsym)); +} + +/* returns 1 for success, 0 if not found */ +int lookup_symbol (t_symtab t, char *name, int *value) +{ + sym **table = t; + sym *p = *table; + int i; + + while (p) + { + i = stricmp (name, p->name); + if (i == 0) + { + *value = p->value; + return (1); + } + if (i < 0) + p = p->left; + else + p = p->right; + } + return (0); +} + +static void print_symbols (FILE *f, sym *p) +{ + if (! p) + return; + print_symbols (f, p->left); + fprintf (f, "%03x %s %d\n", p->value, p->name, p->lineno); + print_symbols (f, p->right); +} + +void print_symbol_table (t_symtab t, FILE *f) +{ + sym **table = t; + print_symbols (f, *table); +} Index: tms1000/trunk/assembler/symtab.h =================================================================== --- tms1000/trunk/assembler/symtab.h (nonexistent) +++ tms1000/trunk/assembler/symtab.h (revision 2) @@ -0,0 +1,21 @@ +/* +symtab.h: a simple binary tree symbol table + +CASM is an assembler for the TMS1000 processor. +*/ + +typedef void * t_symtab; + +/* create a symbol table, returns handle to be passed in to all other calls */ +t_symtab alloc_symbol_table (void); + +/* free a symbol table */ +void free_symbol_table (t_symtab t); + +/* returns 1 for success, 0 if duplicate name */ +int create_symbol (t_symtab t, char *name, int value, int lineno); + +/* returns 1 for success, 0 if not found */ +int lookup_symbol (t_symtab t, char *name, int *value); + +void print_symbol_table (t_symtab t, FILE *f); Index: tms1000/trunk/assembler/test.asm =================================================================== --- tms1000/trunk/assembler/test.asm (nonexistent) +++ tms1000/trunk/assembler/test.asm (revision 2) @@ -0,0 +1,29 @@ +.rom @f + cla + tay + ynea +disp : tcy 7 +dis1 : dyn + tma + iyc + rstr + dyn + tdo + setr + knez + br exit + ynec 15 + br dis1 + br disp +exit : cla + + + + + cla + tya +loop: tamiy + tya + br loop + + Index: tms1000/trunk/rtl/icalc.asm =================================================================== --- tms1000/trunk/rtl/icalc.asm (nonexistent) +++ tms1000/trunk/rtl/icalc.asm (revision 2) @@ -0,0 +1,326 @@ +.rom @0 + lock : tka + kin : alec 7 + br k1 + a8aac + k1 : retn + alec 0 + br reset + br lock + + reset : tcy 6 + re1 : rstr + dyn + br re1 + + disp : tcy 6 + br scan2 + + scan1 : tya + tcy 12 + tamiy + + tka + tbit1 1 + br clok + call kin + alec 0 + br nok + + delay : dan + br delay + dyn + br delay + call lock + alec 0 + br nok + bl key + + noclk : rbit 0 + nok : tcy 12 + tmy + dyn ;fetch 1 + + + scan2 : tma + iyc + rstr + dyn + tdo + + setr + ynec 15 + br scan1 + br disp + + clok : alec 7 + br noclk + tbit1 0 + br nok + + sbit 0 + tcy 6 + tst2 : ldp 1 + mnez + br clk1 + ldp 0 + dyn + br tst2 + + + tya + ynea + + tcy 13 + tcmiy 0 + br nok + br lock + br lock +.rom @1 + clk1 : tcy 14 + imac + alec 9 + br clk3 + tcmiy 0 + imac + alec 5 + br clk3 + + tcmiy 0 + clk2 : dman + br clk3 + tcmiy 9 + br clk2 + + clk3 : tam + bl nok +.rom @2 + key : tcy 6 + clen : xma + alec 9 + br clen1 + cla + clen1 : xma + dyn + br clen + + tcy 13 + ldp 3 + alec 1 + br func + + + ldp 2 + tbit1 3 + br ne_1 + sbit 3 + calll creg + + + ne_1 : tcy 12 + xma + tbit1 2 + br k4in + + a6aac + k4in : tcy 5 + mnez + br exnum + calll ldata + + exnum : bl blank + +.rom @3 + func : rbit 3 + tcy 12 + dman + br not_0 + + + tcy 13 + sbit 1 + ynea + bl lock + + not_0 : ldp 15 + alec 0 + br cler + ldp 6 + alec 1 + br trab + ldp 4 + alec 2 + br plus + alec 3 + br mins + ldp 7 + alec 4 + br mult + + divid : ldx 1 + calll creg + + d1 : calll sbaa + alec 0 + br incc + tcy 0 + trca : ldx 1 + tma + ldx 0 + tamiy + ynec 7 + br trca + bl blank + + incc : ldx 1 + tcy 0 + d2 : imac + tam + alec 9 + br d1 + tcmiy 0 + br d2 +.rom @4 + plus : calll aaba + + tob : bl blank + + mins : calll sbaa + + alec 0 + br tob + + calll creg + br tob + +.rom @5 + aaba : ldx 0 + tcy 0 + cla + ad1 : comx + amaac + comx + amaac + br gt9 + alec 9 + br lt10 + gt9 : a6aac + tamza + ia + incy : iyc + ynec 7 + br ad1 + retn + lt10 : tamza + br incy + + + sbaa : ldx 0 + tcy 0 + cla + s1 : comx + amaac + comx + saman + br nobor + a10aac + tamza + ia + incys : iyc + ynec 7 + br s1 + retn + + nobor : tamza + br incys + +.rom @6 + trac : tcy 0 + t1 : ldx 0 + tma + ldx 1 + tamiy + ynec 7 + br t1 + retn + + trab : ldx 3 + tr0 : tcy 0 + t2 : comx + tma + comx + tamiy + ynec 7 + br t2 + retn + bl blank + + rshft : cla + tcy 6 + r1 : xma + dyn + br r1 + retn +.rom @7 + mult : calll trac + tcmiy 6 + ldx 0 + calll creg + ml2 : ldx 1 + tcy 7 + tmy + dman + br nobr + tcy 7 + dman + br ml1 + bl blank + ml1 : tam + ldx 0 + + + lshft : cla + ldata : tcy 0 + l1 : xma + iyc + ynec 7 + br l1 + retn + + br ml2 + nobr : tam + calll aaba + br ml2 + + +.rom @f + cla + tcy 0 + ynea + cler : ldx 3 + call creg + ldx 1 + call creg + ldx 0 + + clall : tcy 7 + br c1 + + creg : tcy 0 + c1 : tcmiy 0 + ynec 7 + br c1 + retn + + + blank : ldx 0 + tcy 6 + bl1 : mnez + br brlck + tcmiy 15 + dyn + dyn + br bl1 + brlck : bl lock + + .symtab Index: tms1000/trunk/rtl/icalc.lst =================================================================== --- tms1000/trunk/rtl/icalc.lst (nonexistent) +++ tms1000/trunk/rtl/icalc.lst (revision 2) @@ -0,0 +1,388 @@ + 1 .rom @0 + 2 L000: ....1... lock : tka + 3 L001: .111111. kin : alec 7 + 4 L003: 1...1111 br k1 + 5 L007: .......1 a8aac + 6 L00f: ....1111 k1 : retn + 7 L01f: .111.... alec 0 + 8 L03f: 1.1111.1 br reset + 9 L03e: 1....... br lock + 10 + 11 L03d: .1...11. reset : tcy 6 + 12 L03b: ....11.. re1 : rstr + 13 L037: ..1.11.. dyn + 14 L02f: 1.111.11 br re1 + 15 + 16 L01e: .1...11. disp : tcy 6 + 17 L03c: 1....11. br scan2 + 18 + 19 L039: ..1...11 scan1 : tya + 20 L033: .1....11 tcy 12 + 21 L027: ..1..... tamiy + 22 + 23 L00e: ....1... tka + 24 L01d: ..111.1. tbit1 1 + 25 L03a: 1.1..1.. br clok + 26 L035: 11.....1 call kin + 27 L02b: .111.... alec 0 + 28 L016: 1.111... br nok + 29 + 30 L02c: .....111 delay : dan + 31 L018: 1.1.11.. br delay + 32 L030: ..1.11.. dyn + 33 L021: 1.1.11.. br delay + 34 L002: 11...... call lock + 35 L005: .111.... alec 0 + 36 L00b: 1.111... br nok + 37 L02e: 1....... bl key + 38 + 39 L01c: ..11.1.. noclk : rbit 0 + 40 L038: .1....11 nok : tcy 12 + 41 L031: ..1...1. tmy + 42 L023: ..1.11.. dyn ;fetch 1 + 43 + 44 + 45 L006: ..1....1 scan2 : tma + 46 L00d: ..1.1.11 iyc + 47 L01b: ....11.. rstr + 48 L036: ..1.11.. dyn + 49 L02d: ....1.1. tdo + 50 + 51 L01a: ....11.1 setr + 52 L034: .1.11111 ynec 15 + 53 L029: 1.111..1 br scan1 + 54 L012: 1..1111. br disp + 55 + 56 L024: .111111. clok : alec 7 + 57 L008: 1..111.. br noclk + 58 L011: ..111... tbit1 0 + 59 L022: 1.111... br nok + 60 + 61 L004: ..11.... sbit 0 + 62 L009: .1...11. tcy 6 + 63 L013: ...11... tst2 : ldp 1 + 64 L026: ..1..11. mnez + 65 L00c: 1....... br clk1 + 66 L019: ...1.... ldp 0 + 67 L032: ..1.11.. dyn + 68 L025: 1..1..11 br tst2 + 69 + 70 + 71 L00a: ..1...11 tya + 72 L015: ......1. ynea + 73 + 74 L02a: .1..1.11 tcy 13 + 75 L014: .11..... tcmiy 0 + 76 L028: 1.111... br nok + 77 L010: 1....... br lock + 78 L020: 1....... br lock + 79 .rom @1 + 80 L040: .1...111 clk1 : tcy 14 + 81 L041: ..1.1... imac + 82 L043: .1111..1 alec 9 + 83 L047: 1.1111.. br clk3 + 84 L04f: .11..... tcmiy 0 + 85 L05f: ..1.1... imac + 86 L07f: .1111.1. alec 5 + 87 L07e: 1.1111.. br clk3 + 88 + 89 L07d: .11..... tcmiy 0 + 90 L07b: ..1.1.1. clk2 : dman + 91 L077: 1.1111.. br clk3 + 92 L06f: .11.1..1 tcmiy 9 + 93 L05e: 1.111.11 br clk2 + 94 + 95 L07c: ......11 clk3 : tam + 96 L073: 1.111... bl nok + 97 .rom @2 + 98 L080: .1...11. key : tcy 6 + 99 L081: ..1.111. clen : xma + 100 L083: .1111..1 alec 9 + 101 L087: 1..11111 br clen1 + 102 L08f: ..1.1111 cla + 103 L09f: ..1.111. clen1 : xma + 104 L0bf: ..1.11.. dyn + 105 L0be: 1......1 br clen + 106 + 107 L0bd: .1..1.11 tcy 13 + 108 L0bb: ...111.. ldp 3 + 109 L0b7: .1111... alec 1 + 110 L0af: 1....... br func + 111 + 112 + 113 L09e: ...1.1.. ldp 2 + 114 L0bc: ..111.11 tbit1 3 + 115 L0b9: 1..111.1 br ne_1 + 116 L0b3: ..11..11 sbit 3 + 117 L08e: 1111.111 calll creg + 118 + 119 + 120 L09d: .1....11 ne_1 : tcy 12 + 121 L0ba: ..1.111. xma + 122 L0b5: ..111..1 tbit1 2 + 123 L0ab: 1.1.11.. br k4in + 124 + 125 L096: .....11. a6aac + 126 L0ac: .1..1.1. k4in : tcy 5 + 127 L098: ..1..11. mnez + 128 L0b0: 1....1.1 br exnum + 129 L082: 11111.1. calll ldata + 130 + 131 L08b: 1.11..11 exnum : bl blank + 132 + 133 .rom @3 + 134 L0c0: ..11.111 func : rbit 3 + 135 L0c1: .1....11 tcy 12 + 136 L0c3: ..1.1.1. dman + 137 L0c7: 1.111.11 br not_0 + 138 + 139 + 140 L0cf: .1..1.11 tcy 13 + 141 L0df: ..11..1. sbit 1 + 142 L0ff: ......1. ynea + 143 L0fd: 1....... bl lock + 144 + 145 L0fb: ...11111 not_0 : ldp 15 + 146 L0f7: .111.... alec 0 + 147 L0ef: 1....111 br cler + 148 L0de: ...1.11. ldp 6 + 149 L0fc: .1111... alec 1 + 150 L0f9: 1.1111.1 br trab + 151 L0f3: ...1..1. ldp 4 + 152 L0e7: .111.1.. alec 2 + 153 L0ce: 1....... br plus + 154 L0dd: .11111.. alec 3 + 155 L0fa: 1...1111 br mins + 156 L0f5: ...1111. ldp 7 + 157 L0eb: .111..1. alec 4 + 158 L0d6: 1....... br mult + 159 + 160 L0ec: ..11111. divid : ldx 1 + 161 L0f0: 1111.111 calll creg + 162 + 163 L0c2: 11111.1. d1 : calll sbaa + 164 L0c5: .111.... alec 0 + 165 L0cb: 1.11.11. br incc + 166 L0d7: .1...... tcy 0 + 167 L0ee: ..11111. trca : ldx 1 + 168 L0dc: ..1....1 tma + 169 L0f8: ..1111.. ldx 0 + 170 L0f1: ..1..... tamiy + 171 L0e3: .1.1111. ynec 7 + 172 L0c6: 1.1.111. br trca + 173 L0db: 1.11..11 bl blank + 174 + 175 L0f6: ..11111. incc : ldx 1 + 176 L0ed: .1...... tcy 0 + 177 L0da: ..1.1... d2 : imac + 178 L0f4: ......11 tam + 179 L0e9: .1111..1 alec 9 + 180 L0d2: 1.1....1 br d1 + 181 L0e4: .11..... tcmiy 0 + 182 L0c8: 1..11.1. br d2 + 183 .rom @4 + 184 L101: 11...... plus : calll aaba + 185 + 186 L107: 1.11..11 tob : bl blank + 187 + 188 L11f: 11111.1. mins : calll sbaa + 189 + 190 L13f: .111.... alec 0 + 191 L13e: 1.....11 br tob + 192 + 193 L13b: 1111.111 calll creg + 194 L137: 1.....11 br tob + 195 + 196 .rom @5 + 197 L140: ..1111.. aaba : ldx 0 + 198 L141: .1...... tcy 0 + 199 L143: ..1.1111 cla + 200 L147: ........ ad1 : comx + 201 L14f: ..1..1.1 amaac + 202 L15f: ........ comx + 203 L17f: ..1..1.1 amaac + 204 L17e: 1.11.111 br gt9 + 205 L17d: .1111..1 alec 9 + 206 L17b: 1...111. br lt10 + 207 L177: .....11. gt9 : a6aac + 208 L16f: .....1.. tamza + 209 L15e: ....111. ia + 210 L17c: ..1.1.11 incy : iyc + 211 L179: .1.1111. ynec 7 + 212 L173: 1....111 br ad1 + 213 L167: ....1111 retn + 214 L14e: .....1.. lt10 : tamza + 215 L15d: 1.1111.. br incy + 216 + 217 + 218 L17a: ..1111.. sbaa : ldx 0 + 219 L175: .1...... tcy 0 + 220 L16b: ..1.1111 cla + 221 L156: ........ s1 : comx + 222 L16c: ..1..1.1 amaac + 223 L158: ........ comx + 224 L170: ..1..111 saman + 225 L161: 1.11...1 br nobor + 226 L142: .....1.1 a10aac + 227 L145: .....1.. tamza + 228 L14b: ....111. ia + 229 L157: ..1.1.11 incys : iyc + 230 L16e: .1.1111. ynec 7 + 231 L15c: 1..1.11. br s1 + 232 L178: ....1111 retn + 233 + 234 L171: .....1.. nobor : tamza + 235 L163: 1..1.111 br incys + 236 + 237 .rom @6 + 238 L180: .1...... trac : tcy 0 + 239 L181: ..1111.. t1 : ldx 0 + 240 L183: ..1....1 tma + 241 L187: ..11111. ldx 1 + 242 L18f: ..1..... tamiy + 243 L19f: .1.1111. ynec 7 + 244 L1bf: 1......1 br t1 + 245 L1be: ....1111 retn + 246 + 247 L1bd: ..111111 trab : ldx 3 + 248 L1bb: .1...... tr0 : tcy 0 + 249 L1b7: ........ t2 : comx + 250 L1af: ..1....1 tma + 251 L19e: ........ comx + 252 L1bc: ..1..... tamiy + 253 L1b9: .1.1111. ynec 7 + 254 L1b3: 1.11.111 br t2 + 255 L1a7: ....1111 retn + 256 L19d: 1.11..11 bl blank + 257 + 258 L1ba: ..1.1111 rshft : cla + 259 L1b5: .1...11. tcy 6 + 260 L1ab: ..1.111. r1 : xma + 261 L196: ..1.11.. dyn + 262 L1ac: 1.1.1.11 br r1 + 263 L198: ....1111 retn + 264 .rom @7 + 265 L1c1: 11...... mult : calll trac + 266 L1c3: .11..11. tcmiy 6 + 267 L1c7: ..1111.. ldx 0 + 268 L1df: 1111.111 calll creg + 269 L1ff: ..11111. ml2 : ldx 1 + 270 L1fe: .1..111. tcy 7 + 271 L1fd: ..1...1. tmy + 272 L1fb: ..1.1.1. dman + 273 L1f7: 1.1....1 br nobr + 274 L1ef: .1..111. tcy 7 + 275 L1de: ..1.1.1. dman + 276 L1fc: 1.1..111 br ml1 + 277 L1f3: 1.11..11 bl blank + 278 L1e7: ......11 ml1 : tam + 279 L1ce: ..1111.. ldx 0 + 280 + 281 + 282 L1dd: ..1.1111 lshft : cla + 283 L1fa: .1...... ldata : tcy 0 + 284 L1f5: ..1.111. l1 : xma + 285 L1eb: ..1.1.11 iyc + 286 L1d6: .1.1111. ynec 7 + 287 L1ec: 1.11.1.1 br l1 + 288 L1d8: ....1111 retn + 289 + 290 L1f0: 1.111111 br ml2 + 291 L1e1: ......11 nobr : tam + 292 L1c5: 11...... calll aaba + 293 L1cb: 1.111111 br ml2 + 294 + 295 + 296 .rom @f + 297 L3c0: ..1.1111 cla + 298 L3c1: .1...... tcy 0 + 299 L3c3: ......1. ynea + 300 L3c7: ..111111 cler : ldx 3 + 301 L3cf: 1111.111 call creg + 302 L3df: ..11111. ldx 1 + 303 L3ff: 1111.111 call creg + 304 L3fe: ..1111.. ldx 0 + 305 + 306 L3fd: .1..111. clall : tcy 7 + 307 L3fb: 1.1.1111 br c1 + 308 + 309 L3f7: .1...... creg : tcy 0 + 310 L3ef: .11..... c1 : tcmiy 0 + 311 L3de: .1.1111. ynec 7 + 312 L3fc: 1.1.1111 br c1 + 313 L3f9: ....1111 retn + 314 + 315 + 316 L3f3: ..1111.. blank : ldx 0 + 317 L3e7: .1...11. tcy 6 + 318 L3ce: ..1..11. bl1 : mnez + 319 L3dd: 1.1.11.. br brlck + 320 L3fa: .11.1111 tcmiy 15 + 321 L3f5: ..1.11.. dyn + 322 L3eb: ..1.11.. dyn + 323 L3d6: 1...111. br bl1 + 324 L3d8: 1....... brlck : bl lock + 325 +140 aaba 197 +147 ad1 200 +3ce bl1 318 +3f3 blank 316 +3ec brlck 324 +3ef c1 310 +3fd clall 306 +081 clen 99 +09f clen1 103 +3c7 cler 300 +040 clk1 80 +07b clk2 90 +07c clk3 95 +024 clok 56 +3f7 creg 309 +0e1 d1 163 +0da d2 177 +02c delay 30 +01e disp 16 +0ec divid 160 +085 exnum 131 +0c0 func 134 +177 gt9 207 +0f6 incc 175 +17c incy 210 +157 incys 229 +00f k1 6 +0ac k4in 126 +080 key 98 +001 kin 3 +1f5 l1 284 +1fa ldata 283 +000 lock 2 +1dd lshft 282 +14e lt10 214 +10f mins 188 +1e7 ml1 278 +1ff ml2 269 +1c0 mult 265 +09d ne_1 120 +171 nobor 234 +1e1 nobr 291 +01c noclk 39 +038 nok 40 +0fb not_0 145 +100 plus 184 +1ab r1 260 +03b re1 12 +03d reset 11 +1ba rshft 258 +156 s1 221 +17a sbaa 218 +039 scan1 19 +006 scan2 45 +181 t1 239 +1b7 t2 249 +103 tob 186 +1bb tr0 248 +1bd trab 247 +180 trac 238 +0ee trca 167 +013 tst2 63 +0 errors, 0 warnings Index: tms1000/trunk/rtl/icalc.mem =================================================================== --- tms1000/trunk/rtl/icalc.mem (nonexistent) +++ tms1000/trunk/rtl/icalc.mem (revision 2) @@ -0,0 +1,284 @@ +@000 08 +@001 7e +@003 8f +@007 01 +@00f 0f +@01f 70 +@03f bd +@03e 80 +@03d 46 +@03b 0c +@037 2c +@02f bb +@01e 46 +@03c 86 +@039 23 +@033 43 +@027 20 +@00e 08 +@01d 3a +@03a a4 +@035 c1 +@02b 70 +@016 b8 +@02c 07 +@018 ac +@030 2c +@021 ac +@002 c0 +@005 70 +@00b b8 +@017 14 +@02e 80 +@01c 34 +@038 43 +@031 22 +@023 2c +@006 21 +@00d 2b +@01b 0c +@036 2c +@02d 0a +@01a 0d +@034 5f +@029 b9 +@012 9e +@024 7e +@008 9c +@011 38 +@022 b8 +@004 30 +@009 46 +@013 18 +@026 26 +@00c 80 +@019 10 +@032 2c +@025 93 +@00a 23 +@015 02 +@02a 4b +@014 60 +@028 b8 +@010 80 +@020 80 +@040 47 +@041 28 +@043 79 +@047 bc +@04f 60 +@05f 28 +@07f 7a +@07e bc +@07d 60 +@07b 2a +@077 bc +@06f 69 +@05e bb +@07c 03 +@079 10 +@073 b8 +@080 46 +@081 2e +@083 79 +@087 9f +@08f 2f +@09f 2e +@0bf 2c +@0be 81 +@0bd 4b +@0bb 1c +@0b7 78 +@0af 80 +@09e 14 +@0bc 3b +@0b9 9d +@0b3 33 +@0a7 1f +@08e f7 +@09d 43 +@0ba 2e +@0b5 39 +@0ab ac +@096 06 +@0ac 4a +@098 26 +@0b0 85 +@0a1 1e +@082 fa +@085 1f +@08b b3 +@0c0 37 +@0c1 43 +@0c3 2a +@0c7 bb +@0cf 4b +@0df 32 +@0ff 02 +@0fe 10 +@0fd 80 +@0fb 1f +@0f7 70 +@0ef 87 +@0de 16 +@0fc 78 +@0f9 bd +@0f3 12 +@0e7 74 +@0ce 80 +@0dd 7c +@0fa 8f +@0f5 1e +@0eb 72 +@0d6 80 +@0ec 3e +@0d8 1f +@0f0 f7 +@0e1 1a +@0c2 fa +@0c5 70 +@0cb b6 +@0d7 40 +@0ee 3e +@0dc 21 +@0f8 3c +@0f1 20 +@0e3 5e +@0c6 ae +@0cd 1f +@0db b3 +@0f6 3e +@0ed 40 +@0da 28 +@0f4 03 +@0e9 79 +@0d2 a1 +@0e4 60 +@0c8 9a +@100 1a +@101 c0 +@103 1f +@107 b3 +@10f 1a +@11f fa +@13f 70 +@13e 83 +@13d 1f +@13b f7 +@137 83 +@140 3c +@141 40 +@143 2f +@147 00 +@14f 25 +@15f 00 +@17f 25 +@17e b7 +@17d 79 +@17b 8e +@177 06 +@16f 04 +@15e 0e +@17c 2b +@179 5e +@173 87 +@167 0f +@14e 04 +@15d bc +@17a 3c +@175 40 +@16b 2f +@156 00 +@16c 25 +@158 00 +@170 27 +@161 b1 +@142 05 +@145 04 +@14b 0e +@157 2b +@16e 5e +@15c 96 +@178 0f +@171 04 +@163 97 +@180 40 +@181 3c +@183 21 +@187 3e +@18f 20 +@19f 5e +@1bf 81 +@1be 0f +@1bd 3f +@1bb 40 +@1b7 00 +@1af 21 +@19e 00 +@1bc 20 +@1b9 5e +@1b3 b7 +@1a7 0f +@18e 1f +@19d b3 +@1ba 2f +@1b5 46 +@1ab 2e +@196 2c +@1ac ab +@198 0f +@1c0 16 +@1c1 c0 +@1c3 66 +@1c7 3c +@1cf 1f +@1df f7 +@1ff 3e +@1fe 4e +@1fd 22 +@1fb 2a +@1f7 a1 +@1ef 4e +@1de 2a +@1fc a7 +@1f9 1f +@1f3 b3 +@1e7 03 +@1ce 3c +@1dd 2f +@1fa 40 +@1f5 2e +@1eb 2b +@1d6 5e +@1ec b5 +@1d8 0f +@1f0 bf +@1e1 03 +@1c2 1a +@1c5 c0 +@1cb bf +@3c0 2f +@3c1 40 +@3c3 02 +@3c7 3f +@3cf f7 +@3df 3e +@3ff f7 +@3fe 3c +@3fd 4e +@3fb af +@3f7 40 +@3ef 60 +@3de 5e +@3fc af +@3f9 0f +@3f3 3c +@3e7 46 +@3ce 26 +@3dd ac +@3fa 6f +@3f5 2c +@3eb 2c +@3d6 8e +@3ec 10 +@3d8 80 Index: tms1000/trunk/rtl/tms1000.tcl =================================================================== --- tms1000/trunk/rtl/tms1000.tcl (nonexistent) +++ tms1000/trunk/rtl/tms1000.tcl (revision 2) @@ -0,0 +1,328 @@ +# This file is part of TMS1000 CPU +# +# tms1000.tcl - Run script and GUI frontend of the TMS1000 +# processor based calculator +# +# Written By - Nand Gates (2021) +# +# This program is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by the +# Free Software Foundation; either version 2, or (at your option) any +# later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# In other words, you are welcome to use, share and improve this program. +# You are forbidden to forbid anyone else to use, share and improve +# what you give them. Help stamp out software-hoarding! + +proc start_running {} { + global clock_running + if { $clock_running == 0 } { + set clock_running 1 + run_clock + } +} + +proc run_clock {} { + + global clock_running clk_count + + if { $clock_running == 1 } { + paint_displays + after 20 run_clock + } +# changed to 50 for demo +} + +proc paint_displays {} { + update_display .topwindow.disp.display_1 [ run_command examine_display_1 ] + update_display .topwindow.disp.display_2 [ run_command examine_display_2 ] + update_display .topwindow.disp.display_3 [ run_command examine_display_3 ] + update_display .topwindow.disp.display_4 [ run_command examine_display_4 ] + update_display .topwindow.disp.display_5 [ run_command examine_display_5 ] + update_display .topwindow.disp.display_6 [ run_command examine_display_6 ] +} + + +proc CreateWindow. {args} { + + + # Window manager configurations + destroy .topwindow + toplevel .topwindow -width 700 -height 350 + + wm title .topwindow "Calculator Simulator" + wm protocol .topwindow WM_DELETE_WINDOW close_window + +# wm geometry .topwindow 80000+100+100 + +# Create_Menubar .topwindow menubar + + set height 20 + frame .topwindow.disp -width 640 -height 120 -borderwidth 4 + pack .topwindow.disp -side top + +# create the sevensegment displays + create_display .topwindow.disp.display_1 + create_display .topwindow.disp.display_2 + create_display .topwindow.disp.display_3 + create_display .topwindow.disp.display_4 + create_display .topwindow.disp.display_5 + create_display .topwindow.disp.display_6 + + place .topwindow.disp.display_6 -relx 0.1 + place .topwindow.disp.display_5 -relx 0.2 + place .topwindow.disp.display_4 -relx 0.3 + place .topwindow.disp.display_3 -relx 0.4 + place .topwindow.disp.display_2 -relx 0.5 + place .topwindow.disp.display_1 -relx 0.6 + + frame .topwindow.keyboard -width 450 -height 800 -borderwidth 4 + pack .topwindow.keyboard -side top + + # build widget .pb1 + button .topwindow.keyboard.pb1 -background {#AEAEB2B2C3C3} -font {Helvetica 10} \ + -foreground {#000000000000} -text {Start} + + button .topwindow.keyboard.exit \ + -background {#AEAEB2B2C3C3} -font {Helvetica 10} \ + -foreground {#000000000000} -text {exit} -command {run_command exit} + + + bind .topwindow.keyboard.pb1 { run_command pb1pressed } + bind .topwindow.keyboard.pb1 { run_command pb1released } + + button .topwindow.keyboard.num0 -text 0 -font {Helvetica 14} + button .topwindow.keyboard.num1 -text 1 -font {Helvetica 14} + button .topwindow.keyboard.num2 -text 2 -font {Helvetica 14} + button .topwindow.keyboard.num3 -text 3 -font {Helvetica 14} + button .topwindow.keyboard.num4 -text 4 -font {Helvetica 14} + button .topwindow.keyboard.num5 -text 5 -font {Helvetica 14} + button .topwindow.keyboard.num6 -text 6 -font {Helvetica 14} + button .topwindow.keyboard.num7 -text 7 -font {Helvetica 14} + button .topwindow.keyboard.num8 -text 8 -font {Helvetica 14} + button .topwindow.keyboard.num9 -text 9 -font {Helvetica 14} + + button .topwindow.keyboard.add -text {+} -font {Helvetica 14} + button .topwindow.keyboard.sub -text {-} -font {Helvetica 14} + button .topwindow.keyboard.mul -text {*} -font {Helvetica 14} + button .topwindow.keyboard.div -text {/} -font {Helvetica 14} + button .topwindow.keyboard.clr -text {C} -font {Helvetica 14} + button .topwindow.keyboard.clk -text {CLK} -font {Helvetica 14} + button .topwindow.keyboard.ent -text {ENT} -font {Helvetica 14} + + + grid .topwindow.keyboard.num0 .topwindow.keyboard.num1 .topwindow.keyboard.num2 .topwindow.keyboard.add -row 1 -ipadx 20 -ipady 10 + grid .topwindow.keyboard.num3 .topwindow.keyboard.num4 .topwindow.keyboard.num5 .topwindow.keyboard.sub -row 2 -ipadx 20 -ipady 10 + grid .topwindow.keyboard.num6 .topwindow.keyboard.num7 .topwindow.keyboard.num8 .topwindow.keyboard.mul -row 3 -ipadx 20 -ipady 10 + grid .topwindow.keyboard.num9 .topwindow.keyboard.clr .topwindow.keyboard.ent .topwindow.keyboard.div -row 4 -ipadx 20 -ipady 10 + + grid .topwindow.keyboard.clk .topwindow.keyboard.pb1 .topwindow.keyboard.exit -row 5 -ipadx 20 -ipady 10 + + bind .topwindow.keyboard.num0 { run_command num0pressed } + bind .topwindow.keyboard.num0 { run_command num0released } + bind .topwindow.keyboard.num1 { run_command num1pressed } + bind .topwindow.keyboard.num1 { run_command num1released } + bind .topwindow.keyboard.num2 { run_command num2pressed } + bind .topwindow.keyboard.num2 { run_command num2released } + bind .topwindow.keyboard.num3 { run_command num3pressed } + bind .topwindow.keyboard.num3 { run_command num3released } + bind .topwindow.keyboard.num4 { run_command num4pressed } + bind .topwindow.keyboard.num4 { run_command num4released } + bind .topwindow.keyboard.num5 { run_command num5pressed } + bind .topwindow.keyboard.num5 { run_command num5released } + bind .topwindow.keyboard.num6 { run_command num6pressed } + bind .topwindow.keyboard.num6 { run_command num6released } + bind .topwindow.keyboard.num7 { run_command num7pressed } + bind .topwindow.keyboard.num7 { run_command num7released } + bind .topwindow.keyboard.num8 { run_command num8pressed } + bind .topwindow.keyboard.num8 { run_command num8released } + bind .topwindow.keyboard.num9 { run_command num9pressed } + bind .topwindow.keyboard.num9 { run_command num9released } + + bind .topwindow.keyboard.add { run_command addpressed } + bind .topwindow.keyboard.add { run_command addreleased } + bind .topwindow.keyboard.sub { run_command subpressed } + bind .topwindow.keyboard.sub { run_command subreleased } + bind .topwindow.keyboard.mul { run_command mulpressed } + bind .topwindow.keyboard.mul { run_command mulreleased } + bind .topwindow.keyboard.div { run_command divpressed } + bind .topwindow.keyboard.div { run_command divreleased } + bind .topwindow.keyboard.clr { run_command clrpressed } + bind .topwindow.keyboard.clr { run_command clrreleased } + bind .topwindow.keyboard.clk { run_command clkpressed } + bind .topwindow.keyboard.clk { run_command clkreleased } + bind .topwindow.keyboard.ent { run_command entpressed } + bind .topwindow.keyboard.ent { run_command entreleased } +# paint_displays +} + +proc Create_Menubar { toplevel menubar } { + + global tk_version + + if { $tk_version >= 8.0 } { + menu $menubar -type menubar + $toplevel configure -menu $menubar + } else { + + frame $menubar -borderwidth 1 -relief raised + pack $menubar -side top -fill x -expand true + } + +} + +proc Create_Menu { menubar basename text mnemonic } { +# global +} + +proc close_window {} { + global clock_running + set clock_running 0 + after 100 { + quit -sim; noview wave + destroy .topwindow + } +} + +proc create_display { display_widget } { +# a black canvas with seven different rectangles to form an 8 + canvas $display_widget -bg #000000 -width 80 -height 120 + $display_widget create poly 30 20 35 15 65 15 69 19 63 25 35 25 -fill IndianRed -tag segment0 + $display_widget create poly 70 21 74 25 71 55 66 59 61 53 64 26 -fill IndianRed -tag segment1 + $display_widget create poly 66 61 69 64 66 95 62 99 56 94 59 66 -fill IndianRed -tag segment2 + $display_widget create poly 60 101 56 105 25 105 21 101 27 95 54 95 -fill IndianRed -tag segment3 + $display_widget create poly 19 99 16 96 19 65 24 61 29 66 26 94 -fill IndianRed -tag segment4 + $display_widget create poly 25 59 21 55 24 25 28 21 34 26 31 54 -fill IndianRed -tag segment5 + $display_widget create poly 27 60 31 65 58 65 64 60 60 55 32 55 -fill IndianRed -tag segment6 + $display_widget create poly 70 95 80 95 78 105 68 105 -fill IndianRed -tag segment7 +} + +proc update_display { display_widget pattern } { + global colours + foreach bit { 0 1 2 3 4 5 6 7} { + $display_widget itemconfigure segment$bit -fill [lindex $colours [string index $pattern $bit]] + } +} + +proc run_command {command {param 0} } { + +global tb clock_running +set tb tms1000_tb +set sec 1ns + +switch $command { + + exit { close_window } + + pb1pressed { start_running } + pb1released { force /$tb/reset_n 1'b1 } + + pb2pressed { force /$tb/reset_n 1'b0 } + pb2released { after 100 force /$tb/reset_n 1'b1 } + + clock0 { force /$tb/clk 1'b0 } + clock1 { force /$tb/clk 1'b1 } + + examine_display_1 { examine -value -radix bin /$tb/d0 } + examine_display_2 { examine -value -radix bin /$tb/d1 } + examine_display_3 { examine -value -radix bin /$tb/d2 } + examine_display_4 { examine -value -radix bin /$tb/d3 } + examine_display_5 { examine -value -radix bin /$tb/d4 } + examine_display_6 { examine -value -radix bin /$tb/d5 } + + num0pressed { force /$tb/key0 1'b1 } + num0released { force /$tb/key0 1'b0 } + num1pressed { force /$tb/key1 1'b1 } + num1released { force /$tb/key1 1'b0 } + num2pressed { force /$tb/key2 1'b1 } + num2released { force /$tb/key2 1'b0 } + num3pressed { force /$tb/key3 1'b1 } + num3released { force /$tb/key3 1'b0 } + num4pressed { force /$tb/key4 1'b1 } + num4released { force /$tb/key4 1'b0 } + num5pressed { force /$tb/key5 1'b1 } + num5released { force /$tb/key5 1'b0 } + num6pressed { force /$tb/key6 1'b1 } + num6released { force /$tb/key6 1'b0 } + num7pressed { force /$tb/key7 1'b1 } + num7released { force /$tb/key7 1'b0 } + num8pressed { force /$tb/key8 1'b1 } + num8released { force /$tb/key8 1'b0 } + num9pressed { force /$tb/key9 1'b1 } + num9released { force /$tb/key9 1'b0 } + + addpressed { force /$tb/keyplus 1'b1 } + addreleased { force /$tb/keyplus 1'b0 } + subpressed { force /$tb/keyminus 1'b1 } + subreleased { force /$tb/keyminus 1'b0 } + mulpressed { force /$tb/keymul 1'b1 } + mulreleased { force /$tb/keymul 1'b0 } + divpressed { force /$tb/keydiv 1'b1 } + divreleased { force /$tb/keydiv 1'b0 } + clrpressed { force /$tb/keyc 1'b1 } + clrreleased { force /$tb/keyc 1'b0 } + clkpressed { force /$tb/keyclk 1'b1 } + clkreleased { force /$tb/keyclk 1'b0 } + entpressed { force /$tb/keyent 1'b1 } + entreleased { force /$tb/keyent 1'b0 } + + run100 { run $sec } + default { puts " This option $command not enabled " } + + } +### display_l and pb2_pressed to be made options... +# commands for dip3 to dip8 can also be added in the above switch +} + +proc initialize {} { + global tb + set tb tms1000_tb + if { [file exists work]== 0} { + vlib work + } + #vmap work work + vlog +acc tms1000.v tms1000_tb.v + vsim +acc work.tms1000_tb + CreateWindow. + + view wave + onerror {resume} + quietly WaveActivateNextPane {} 0 + add wave -noupdate -format Logic /$tb/clk + add wave -noupdate -format Logic /$tb/reset_n + add wave -noupdate -format Literal -radix hexadecimal /$tb/q + add wave -noupdate -format Literal -radix hexadecimal /$tb/k + add wave -noupdate -format Literal -radix hexadecimal /$tb/r + add wave -noupdate -format Literal -radix hexadecimal /$tb/tms1000/ram/Xreg_0 + add wave -noupdate -format Literal -radix hexadecimal /$tb/tms1000/ram/Xreg_1 + add wave -noupdate -format Literal -radix hexadecimal /$tb/tms1000/ram/Xreg_2 + add wave -noupdate -format Literal -radix hexadecimal /$tb/tms1000/ram/Xreg_3 + add wave -noupdate -format Literal -radix hexadecimal /$tb/count + add wave -noupdate -format Logic /$tb/clk_60 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d0 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d1 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d2 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d3 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d4 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d5 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d6 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d7 + add wave -noupdate -format Literal -radix hexadecimal /$tb/d8 + + run -all +# paint_displays +} + +set clock_running 0 +set clk_count 0 +set colours {#330000 #cc0000} + +initialize + +#uncomment this next line to start the right display with a value; +#update_display .topwindow.display_r 0111101 Index: tms1000/trunk/rtl/tms1000.v =================================================================== --- tms1000/trunk/rtl/tms1000.v (nonexistent) +++ tms1000/trunk/rtl/tms1000.v (revision 2) @@ -0,0 +1,890 @@ +// This file is part of TMS1000 CPU +// +// tms1000.v - Hadrware description of the TMS1000 processor +// +// Written By - Nand Gates (2021) +// +// This program is free software; you can redistribute it and/or modify it +// under the terms of the GNU General Public License as published by the +// Free Software Foundation; either version 2, or (at your option) any +// later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// In other words, you are welcome to use, share and improve this program. +// You are forbidden to forbid anyone else to use, share and improve +// what you give them. Help stamp out software-hoarding! + +module tms1000(/*AUTOARG*/ + // Outputs + r, q, + // Inputs + clk, reset_n, k + ); + input clk, reset_n; + output [10:0] r; + input [3:0] k; + output [7:0] q; + + reg [7:0] q; + reg [10:0] r, r_nx; + reg [3:0] pa, pa_nx; // Page address register + reg [3:0] pb, pb_nx; // Page buffer register + //reg [5:0] pc, pc_nx; // Program counter + reg [5:0] sr, sr_nx; // Subroutine return register + reg cl, cl_nx; // Call latch + reg [1:0] xx, xx_nx; // + reg [3:0] y , y_nx ; // pointer/storage register + reg s , s_nx ; // Logic status + reg sl, sl_nx; // Conditional branch status + reg [3:0] a , a_nx ; // Accumulator + reg [3:0] k_reg; + + reg [7:0] out_pla [0:31]; // simulation of output PLA + //microinstructions + reg ckp ; + reg ytp ; + reg mtp ; + reg atn ; + reg natn ; + reg mtn ; + reg ftn ; + reg ckn ; + reg cin ; + reg ne ; + reg c8 ; + reg sto ; + reg ckm ; + reg auta ; + reg auty ; + reg stsl ; + + reg [3:0] n_mux; // Multiplexer downto adder + reg [3:0] p_mux; // Multiplexer downto adder + + reg br ; + reg call ; + reg clo ; + reg comx ; + reg ldp ; + reg ldx ; + reg sbit ; + reg rbit ; + reg retn ; + reg rstr ; + reg setr ; + reg tdo ; + reg alec ; + reg alem ; + reg amaac ; + reg a6aac ; + reg a8aac ; + reg a10aac; + reg cla ; + reg cpaiz ; + reg dan ; + reg dman ; + reg dyn ; + reg ia ; + reg imac ; + reg iyc ; + reg knez ; + reg mnez ; + reg saman ; + reg tam ; + reg tamiy ; + reg tamza ; + reg tay ; + reg tbit1 ; + reg tcy ; + reg tcmiy ; + reg tka ; + reg tma ; + reg tmy ; + reg tya ; + reg xma ; + reg ynea ; + reg ynec ; + //T state generator + reg [2:0] count; + wire t1 = count[0]; + wire t2 = count[1]; + wire t3 = count[2]; + //wire t4 = count[3]; + + wire [3:0] ram_do; + wire [5:0] pc; + + reg w2pc ; + reg sr2pc ; + reg ld_sr ; + reg ld_pa ; + reg ld_pb ; + reg cl_set; + reg cl_reset; + reg set_s; + reg [4:0] o, o_nx; + + wire status; + wire [3:0] alu_out; + wire [7:0] i_bus; + reg [3:0] cki_bus; + reg [3:0] ram_din; + wire ram_wr; + + always @(posedge clk or negedge reset_n) + if (!reset_n) + count <= 0; + else + count <= {count[1:0],~|count[1:0]}; +/* -----\/----- EXCLUDED -----\/----- +RETN + pa = pb; + if (cl == 1) + pc = sr; + cl = 0; + else if (cl = 0) + pc = pc + 1; + +BR + if (s == 1) + pc = w; + if (cl==0) + pa = pb; + else if (s == 0) + pc = pc+1; + s = 1; + +CALL + if (s == 1) & (cl == 0) + sr = pc + 1; + pc = w; + pb = pa; + pa = pb; + cl = 1; + else if (s == 1) & (cl == 1) + pc = w; + pb = pa; + else if (s == 0) + pc = pc + 1; + s = 1; + -----/\----- EXCLUDED -----/\----- */ + + always @(/*AS*/br or call or cl or ldx or retn or s) begin + //PC select + w2pc = (br | call) & s; + sr2pc = retn & cl; + //sr select + ld_sr = call & s & ~cl; + //pa select + ld_pa = retn | (((br & ~cl)|call) & s); + //pb select + ld_pb = (call & s); + //cl select + cl_set = call & s & ~cl; + cl_reset = retn & cl; + //s + set_s = br | call | ldx | comx | + tam | tamza | tka | tdo | clo | + rstr | setr | ia | retn | ldp | + tamiy | tma | tmy | tya | tay | + xma | cla | sbit | rbit | ldx | + tcy | tcmiy; + end + + // Main registers + always @(posedge clk or negedge reset_n) begin + if (!reset_n) begin + pa <= 4'b1111;//4'b1111; + pb <= 4'b1111;//4'b1111; + sr <= 6'b00_0000; + r <= 11'b00000000000; + o <= 5'b00000; + cl <= 1'b0; + s <= 1'b1; // s=0 on power on + sl <= 1'b0; + a <= 4'b0000; + y <= 4'b0000; + xx <= 2'b00; + k_reg <= 4'b0000; + end else begin // if (!reset_n) + pa <= pa_nx; + pb <= pb_nx; + sr <= sr_nx; + r <= r_nx; + o <= o_nx; + a <= a_nx; + y <= y_nx; + xx <= xx_nx; + sl <= sl_nx; + cl <= cl_nx; + s <= s_nx; + k_reg <= k; + end + end // always @ (posedge clk or negedge reset_n) + + //pa pb sr cl + always @(/*AS*/c8 or cl or cl_reset or cl_set or ld_pa or ld_pb or ld_sr + or ne or pa or pb or pc or s or set_s or sr or status or t3 or t3) begin + pa_nx = pa; + pb_nx = pb; + sr_nx = sr; + cl_nx = cl; + s_nx = s; + + if (ld_sr & t3) + sr_nx = {pc[4:0], !((pc != 31) && (|pc[5:4]) && ((pc[3:0] == 15) || (pc[5:4] != 3)))}; + + if (ld_pa & t3) + pa_nx = pb; + + if (ld_pb & t3) + pb_nx = pa; + else if (ldp & t3) + pb_nx = {i_bus[0],i_bus[1],i_bus[2],i_bus[3]}; + + if (cl_set & t3) + cl_nx = 1'b1; + else if (cl_reset & t3) + cl_nx = 1'b0; + + if (t3 & (c8 | ne)) + s_nx = status; + else if (set_s & t3) + s_nx = 1'b1; + end // always @ (... + + always @(/*AS*/a or alu_out or auta or t3) begin + a_nx = a; + if (auta & t3) + a_nx = alu_out; + end + + always @(/*AS*/alu_out or auty or t3 or y) begin + y_nx = y; + if (auty & t3) + y_nx = alu_out; + end + + always @ (/*AS*/status or sl or stsl) begin + sl_nx = sl; + if (stsl) + sl_nx = status; + end + + always @(/*AS*/comx or i_bus or ldx or t3 or xx) begin + xx_nx = xx; + if (ldx & t3) + xx_nx = {i_bus[0],i_bus[1]}; + else if (comx & t3) + xx_nx = ~xx; + end + + always @(/*AS*/a or clo or o or sl or tdo) begin + o_nx = o; + if (clo) + o_nx = 0; + else if (tdo) + o_nx = {sl, a}; + end + + // Instruction decoder CPLD and logic + always @(/*AS*/i_bus) begin + br = 1'b0; + call = 1'b0; + clo = 1'b0; + comx = 1'b0; + ldp = 1'b0; + ldx = 1'b0; + sbit = 1'b0; + rbit = 1'b0; + retn = 1'b0; + rstr = 1'b0; + setr = 1'b0; + tdo = 1'b0; + alec = 1'b0; + alem = 1'b0; + amaac = 1'b0; + a6aac = 1'b0; + a8aac = 1'b0; + a10aac = 1'b0; + cla = 1'b0; + cpaiz = 1'b0; + dan = 1'b0; + dman = 1'b0; + dyn = 1'b0; + ia = 1'b0; + imac = 1'b0; + iyc = 1'b0; + knez = 1'b0; + mnez = 1'b0; + saman = 1'b0; + tam = 1'b0; + tamiy = 1'b0; + tamza = 1'b0; + tay = 1'b0; + tbit1 = 1'b0; + tcy = 1'b0; + tcmiy = 1'b0; + tka = 1'b0; + tma = 1'b0; + tmy = 1'b0; + tya = 1'b0; + xma = 1'b0; + ynea = 1'b0; + ynec = 1'b0; + casex(i_bus[7:0]) + //Fixed instructions + 8'b10xx_xxxx : br = 1'b1; + 8'b11xx_xxxx : call = 1'b1; + 8'b0000_1011 : clo = 1'b1; + 8'b0000_0000 : comx = 1'b1; + 8'b0001_xxxx : ldp = 1'b1; + 8'b0011_11xx : ldx = 1'b1; + 8'b0011_00xx : sbit = 1'b1; + 8'b0011_01xx : rbit = 1'b1; + 8'b0000_1111 : retn = 1'b1; + 8'b0000_1100 : rstr = 1'b1; + 8'b0000_1101 : setr = 1'b1; + 8'b0000_1010 : tdo = 1'b1; + // Programable instructions + 8'b0111_xxxx : alec = 1'b1; + 8'b0010_1001 : alem = 1'b1; + 8'b0010_0101 : amaac = 1'b1; + 8'b0000_0110 : a6aac = 1'b1; + 8'b0000_0001 : a8aac = 1'b1; + 8'b0000_0101 : a10aac = 1'b1; + 8'b0010_1111 : cla = 1'b1; + 8'b0010_1101 : cpaiz = 1'b1; + 8'b0000_0111 : dan = 1'b1; + 8'b0010_1010 : dman = 1'b1; + 8'b0010_1100 : dyn = 1'b1; + 8'b0000_1110 : ia = 1'b1; + 8'b0010_1000 : imac = 1'b1; + 8'b0010_1011 : iyc = 1'b1; + 8'b0000_1001 : knez = 1'b1; + 8'b0010_0110 : mnez = 1'b1; + 8'b0010_0111 : saman = 1'b1; + 8'b0000_0011 : tam = 1'b1; + 8'b0010_0000 : tamiy = 1'b1; + 8'b0000_0100 : tamza = 1'b1; + 8'b0010_0100 : tay = 1'b1; + 8'b0011_10xx : tbit1 = 1'b1; + 8'b0100_xxxx : tcy = 1'b1; + 8'b0110_xxxx : tcmiy = 1'b1; + 8'b0000_1000 : tka = 1'b1; + 8'b0010_0001 : tma = 1'b1; + 8'b0010_0010 : tmy = 1'b1; + 8'b0010_0011 : tya = 1'b1; + 8'b0010_1110 : xma = 1'b1; + 8'b0000_0010 : ynea = 1'b1; + 8'b0101_xxxx : ynec = 1'b1; + default : ;//nop + endcase // case(i_bus[7:0]) + end // always @ (... + + // Instruction decoder PLA OR logic + always @(/*AS*/a10aac or a6aac or a8aac or alec or alem or amaac or br + or call or cla or clo or comx or cpaiz or dan or dman or dyn or ia + or imac or iyc or knez or ldp or ldx or mnez or rbit or retn + or rstr or saman or sbit or setr or tam or tamiy or tamza or tay + or tbit1 or tcmiy or tcy or tdo or tka or tma or tmy or tya or xma + or ynea or ynec) begin + //active in t1 + ckp = 1'b0; + ytp = 1'b0; + mtp = 1'b0; + atn = 1'b0; + natn = 1'b0; + mtn = 1'b0; + ftn = 1'b0; + ckn = 1'b0; + cin = 1'b0; + ne = 1'b0; + c8 = 1'b0; + // acrive during t2 + sto = 1'b0; + ckm = 1'b0; + //active during t3 + auta = 1'b0; + auty = 1'b0; + stsl = 1'b0; + case(1'b1) + // Fixded instructions + br : begin + end + call : begin + end + clo : begin + end + comx : begin + end + ldp : begin + end + ldx : begin + end + sbit : begin + end + rbit : begin + end + retn : begin + end + rstr : begin + end + setr : begin + end + tdo : begin + end + //Programable instructions + alec : begin + ckp = 1'b1; + natn = 1'b1; + cin = 1'b1; + c8 = 1'b1; + end + alem : begin + mtp = 1'b1; + natn = 1'b1; + cin = 1'b1; + c8 = 1'b1; + end + amaac : begin + mtp = 1'b1; + atn = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + a6aac : begin + ckp = 1'b1; + atn = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + a8aac : begin + ckp = 1'b1; + atn = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + a10aac : begin + ckp = 1'b1; + atn = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + cla : begin + auta = 1'b1; + end + cpaiz : begin + natn = 1'b1; + cin = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + dan : begin + ckp = 1'b1; + atn = 1'b1; + cin = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + dman : begin + mtp = 1'b1; + ftn = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + dyn : begin + ytp = 1'b1; + ftn = 1'b1; + c8 = 1'b1; + auty = 1'b1; + end + ia : begin + atn = 1'b1; + cin = 1'b1; + auta = 1'b1; + end + imac : begin + mtp = 1'b1; + cin = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + iyc : begin + ytp = 1'b1; + cin = 1'b1; + c8 = 1'b1; + auty = 1'b1; + end + knez : begin + ckp = 1'b1; + ne = 1'b1; + end + mnez : begin + mtp = 1'b1; + ne = 1'b1; + end + saman : begin + mtp = 1'b1; + natn = 1'b1; + cin = 1'b1; + c8 = 1'b1; + auta = 1'b1; + end + tam : begin + sto = 1'b1; + end + tamiy : begin + ytp = 1'b1; + cin = 1'b1; + sto = 1'b1; + auty = 1'b1; + end + tamza : begin + sto = 1'b1; + auta = 1'b1; + end + tay : begin + atn = 1'b1; + auty = 1'b1; + end + tbit1 : begin + ckp = 1'b1; + mtp = 1'b1; + ckn = 1'b1; + ne = 1'b1; + end + tcy : begin + ckp = 1'b1; + auty = 1'b1; + end + tcmiy : begin + ytp = 1'b1; + cin = 1'b1; + ckm = 1'b1; + auty = 1'b1; + end + tka : begin + ckp = 1'b1; + auta = 1'b1; + end + tma : begin + mtp = 1'b1; + auta = 1'b1; + end + tmy : begin + mtp = 1'b1; + auty = 1'b1; + end + tya : begin + ytp = 1'b1; + auta = 1'b1; + end + xma : begin + mtp = 1'b1; + sto = 1'b1; + auta = 1'b1; + end + ynea : begin + ytp = 1'b1; + atn = 1'b1; + ne = 1'b1; + stsl = 1'b1; + end + ynec : begin + ytp = 1'b1; + ckn = 1'b1; + ne = 1'b1; + end + endcase // case(1'b1) + end + //R-logic + always @(/*AS*/r or rstr or setr or y) begin + r_nx = r; + if (setr | rstr) + case (y) + 0 : r_nx[ 0] = setr & (~rstr); + 1 : r_nx[ 1] = setr & (~rstr); + 2 : r_nx[ 2] = setr & (~rstr); + 3 : r_nx[ 3] = setr & (~rstr); + 4 : r_nx[ 4] = setr & (~rstr); + 5 : r_nx[ 5] = setr & (~rstr); + 6 : r_nx[ 6] = setr & (~rstr); + 7 : r_nx[ 7] = setr & (~rstr); + 8 : r_nx[ 8] = setr & (~rstr); + 9 : r_nx[ 9] = setr & (~rstr); + 10 : r_nx[10] = setr & (~rstr); + endcase + end // always @ (... + + //Q output logic + always @(/*AS*/o) begin + case(o[3:0]) // abcd efg- + 0 : q = {7'b1111_110,o[4]}; // seven-seg 0 a + 1 : q = {7'b0110_000,o[4]}; // seven-seg 1 f b + 2 : q = {7'b1101_101,o[4]}; // seven-seg 2 g + 3 : q = {7'b1111_001,o[4]}; // seven-seg 3 e c + 4 : q = {7'b0110_011,o[4]}; // seven-seg 4 d + 5 : q = {7'b1011_011,o[4]}; // seven-seg 5 + 6 : q = {7'b1011_111,o[4]}; // seven-seg 6 + 7 : q = {7'b1110_000,o[4]}; // seven-seg 7 + 8 : q = {7'b1111_111,o[4]}; // seven-seg 8 + 9 : q = {7'b1111_011,o[4]}; // seven-seg 9 + 10 : q = {7'b1110_111,o[4]}; // seven-seg A + 11 : q = {7'b1111_100,o[4]}; // seven-seg B + 12 : q = {7'b0111_001,o[4]}; // seven-seg C + 13 : q = {7'b1011_110,o[4]}; // seven-seg D + 14 : q = {7'b1111_001,o[4]}; // seven-seg E + 15 : q = {7'b0000_000,o[4]}; // seven-seg Blank + endcase + end // always @ (... + + //cki_bus logic + always @ (/*AS*/i_bus or k_reg) begin + if (i_bus[7:3] == 5'b00000|| i_bus[7:6] == 2'b01) + cki_bus = {i_bus[0],i_bus[1],i_bus[2],i_bus[3]}; + else if (i_bus[7:3] == 5'b00001) + cki_bus = k_reg; + else if (i_bus[7:4] == 4'h3) + case ({i_bus[0],i_bus[1]}) + 0 : cki_bus = 4'b1110; + 1 : cki_bus = 4'b1101; + 2 : cki_bus = 4'b1011; + 3 : cki_bus = 4'b0111; + endcase // case ({i_bus[0],i_bus[1]}) + else //if (i_bus[7:4] == 4'h2) + cki_bus = 0; + end + + // N-mux + always @ (/*AS*/a or atn or cki_bus or ckn or ftn or mtn or natn or ram_do) begin + n_mux = (a & {4{atn}}) | (~a & {4{natn}}) | + (ram_do & {4{mtn}}) | ({4{ftn}}) | + (cki_bus & {4{ckn}}); + end + + //P-mux + always @ (/*AS*/cki_bus or ckp or mtp or ram_do or y or ytp) begin + p_mux = (cki_bus & {4{ckp}}) | (y & {4{ytp}}) | + (ram_do & {4{mtp}}); + end + + assign ram_wr = (sto | ckm | sbit | rbit) & t3; + //write mux + always @(/*AS*/a or cki_bus or ckm or ram_do or rbit or sbit or sto)begin + ram_din = cki_bus & {4{ckm}} | (a & {4{sto}}) | + {4{sbit}} & (~cki_bus | ram_do) | + {4{rbit}} & (cki_bus & ram_do); + end + alu alu( + // Outputs + .sum (alu_out), + .status (status), + // Inputs + .a (n_mux), + .b (p_mux), + .cin (cin), + .cy_out (c8), + .comp_out (ne) + ); + + rom rom ( + // Outputs + .data (i_bus), + // Inputs + .address ({pa,pc}) + ); + + ram ram ( + // Outputs + .dout (ram_do), + // Inputs + .clk (clk), + .reset_n (reset_n), + .wr (ram_wr), + .din (ram_din), + .addr ({xx,y}) + ); + tms1000_pc tms1000_pc( + // Outputs + .pc (pc), + // Inputs + .clk (clk), + .reset_n (reset_n), + .ld_pc ((w2pc | sr2pc) & t3), + .pc_en (t3), + .din (({6{w2pc}} & i_bus[5:0]) | ({6{sr2pc}} & sr)) + ); + + // for debug +/* -----\/----- EXCLUDED -----\/----- + //reg [100*8:1] instruction[0:2047]; + reg [100*8:1] instruction; + reg [3:0] imm; + reg imm_f; + initial $readmemh("icalc.mem",instruction); + always @(pa or pc) begin + $write ($time,,"%x %0s\t",{pa,pc},instruction[{pa,pc}]); + end + always @(negedge t3) begin + $display("x=%x y=%x a=%x m(%0d,%0d)=%x s=%b pa=%x pb=%x cl=%b", xx, y, a, xx, y, ram_do, s, pa, pb, cl); + end + + always @(negedge clk) begin + if (t1) begin + case(1'b1) + // Fixded instructions + br : begin instruction = "br "; imm_f = 1; imm = i_bus[7:4];end + call : begin instruction = "call "; imm_f = 1; imm = i_bus[7:4];end + clo : begin instruction = "clo "; imm_f = 0; imm = 0;end + comx : begin instruction = "comx "; imm_f = 0; imm = 0;end + ldp : begin instruction = "ldp "; imm_f = 1; imm = {i_bus[0],i_bus[1],i_bus[2],i_bus[3]};end + ldx : begin instruction = "ldx "; imm_f = 1; imm = {i_bus[0],i_bus[1]};end + sbit : begin instruction = "sbit "; imm_f = 1; imm = {i_bus[0],i_bus[1]};end + rbit : begin instruction = "rbit "; imm_f = 1; imm = {i_bus[0],i_bus[1]};end + retn : begin instruction = "retn "; imm_f = 0; imm = 0;end + rstr : begin instruction = "rstr "; imm_f = 0; imm = 0;end + setr : begin instruction = "setr "; imm_f = 0; imm = 0;end + tdo : begin instruction = "tdo "; imm_f = 0; imm = 0;end + alec : begin instruction = "alec "; imm_f = 1; imm = {i_bus[0],i_bus[1],i_bus[2],i_bus[3]};end + alem : begin instruction = "alem "; imm_f = 0; imm = 0;end + amaac : begin instruction = "amaac "; imm_f = 0; imm = 0;end + a6aac : begin instruction = "a6aac "; imm_f = 0; imm = 0;end + a8aac : begin instruction = "a8aac "; imm_f = 0; imm = 0;end + a10aac : begin instruction = "a10aac"; imm_f = 0; imm = 0;end + cla : begin instruction = "cla "; imm_f = 0; imm = 0;end + cpaiz : begin instruction = "cpaiz "; imm_f = 0; imm = 0;end + dan : begin instruction = "dan "; imm_f = 0; imm = 0;end + dman : begin instruction = "dman "; imm_f = 0; imm = 0;end + dyn : begin instruction = "dyn "; imm_f = 0; imm = 0;end + ia : begin instruction = "ia "; imm_f = 0; imm = 0;end + imac : begin instruction = "imac "; imm_f = 0; imm = 0;end + iyc : begin instruction = "iyc "; imm_f = 0; imm = 0;end + knez : begin instruction = "knez "; imm_f = 0; imm = 0;end + mnez : begin instruction = "mnez "; imm_f = 0; imm = 0;end + saman : begin instruction = "saman "; imm_f = 0; imm = 0;end + tam : begin instruction = "tam "; imm_f = 0; imm = 0;end + tamiy : begin instruction = "tamiy "; imm_f = 0; imm = 0;end + tamza : begin instruction = "tamza "; imm_f = 0; imm = 0;end + tay : begin instruction = "tay "; imm_f = 0; imm = 0;end + tbit1 : begin instruction = "tbit1 "; imm_f = 1; imm = {i_bus[0],i_bus[1]};end + tcy : begin instruction = "tcy "; imm_f = 1; imm = {i_bus[0],i_bus[1],i_bus[2],i_bus[3]};end + tcmiy : begin instruction = "tcmiy "; imm_f = 1; imm = {i_bus[0],i_bus[1],i_bus[2],i_bus[3]};end + tka : begin instruction = "tka "; imm_f = 0; imm = 0;end + tma : begin instruction = "tma "; imm_f = 0; imm = 0;end + tmy : begin instruction = "tmy "; imm_f = 0; imm = 0;end + tya : begin instruction = "tya "; imm_f = 0; imm = 0;end + xma : begin instruction = "xma "; imm_f = 0; imm = 0;end + ynea : begin instruction = "ynea "; imm_f = 0; imm = 0;end + ynec : begin instruction = "ynec "; imm_f = 1; imm = {i_bus[0],i_bus[1],i_bus[2],i_bus[3]};end + endcase // case(1'b1) + + if (imm_f) + $display($time,,"%x %0s %d",{pa,pc},instruction, imm); + else + $display($time,,"%x %0s ",{pa,pc},instruction); + end // if (t1) + end // always @ (... + -----/\----- EXCLUDED -----/\----- */ +endmodule // tms1000 + +module alu (/*AUTOARG*/ + // Outputs + sum, status, + // Inputs + a, b, cin, cy_out, comp_out + ); + input [3:0] a; + input [3:0] b; + input cin, cy_out, comp_out; + output [3:0] sum; + output status; + wire cy; + wire ne = (a != b); //comparator + assign {cy, sum} = a + b + cin; // adder + assign status = (cy & cy_out) | (ne & comp_out); +endmodule // alu + +module rom (/*AUTOARG*/ + // Outputs + data, + // Inputs + address + ); + input [9:0] address; + output [7:0] data; + reg [7:0] memory [0:1023]; + initial $readmemh("icalc.mem", memory); + assign data = memory [address]; +endmodule // rom + +module ram (/*AUTOARG*/ + // Outputs + dout, + // Inputs + clk, reset_n, wr, din, addr + ); + input clk, reset_n; + input wr; + input [3:0] din; + output [3:0] dout; + input [5:0] addr; + reg [3:0] ram_mem [0:63]; + assign dout = ram_mem[addr]; + //For debug only Comment out if not required +/* -----\/----- EXCLUDED -----\/-----*/ + wire [16*4-1:0] Xreg_0 = {ram_mem[15], ram_mem[14], ram_mem[13], ram_mem[12], ram_mem[11], ram_mem[10], ram_mem[9], ram_mem[8], ram_mem[7], ram_mem[6], ram_mem[5], ram_mem[4], ram_mem[3], ram_mem[2], ram_mem[1], ram_mem[0]}; + wire [16*4-1:0] Xreg_1 = {ram_mem[31], ram_mem[30], ram_mem[29], ram_mem[28], ram_mem[27], ram_mem[26], ram_mem[25], ram_mem[24], ram_mem[23], ram_mem[22], ram_mem[21], ram_mem[20], ram_mem[19], ram_mem[18], ram_mem[17], ram_mem[16]}; + wire [16*4-1:0] Xreg_2 = {ram_mem[47], ram_mem[46], ram_mem[45], ram_mem[44], ram_mem[43], ram_mem[42], ram_mem[41], ram_mem[40], ram_mem[39], ram_mem[38], ram_mem[37], ram_mem[36], ram_mem[35], ram_mem[34], ram_mem[33], ram_mem[32]}; + wire [16*4-1:0] Xreg_3 = {ram_mem[63], ram_mem[62], ram_mem[61], ram_mem[60], ram_mem[59], ram_mem[58], ram_mem[57], ram_mem[56], ram_mem[55], ram_mem[54], ram_mem[53], ram_mem[52], ram_mem[51], ram_mem[50], ram_mem[49], ram_mem[48]}; +/* -----/\----- EXCLUDED -----/\----- */ + + always @(posedge clk or negedge reset_n) begin + if (!reset_n ) begin + begin : mem_init_loop + integer i; + for (i=0; i<64; i=i+1) + ram_mem[i] <= i; + end + end else begin + if (wr) + ram_mem[addr] <= din; + end + end +endmodule // ram + + +module tms1000_pc (/*AUTOARG*/ + // Outputs + pc, + // Inputs + clk, reset_n, ld_pc, pc_en, din + ); + input clk, reset_n; + input ld_pc, pc_en; + input [5:0] din; + output [5:0] pc; + reg [5:0] pc; + wire a = ~&{~pc[5], pc[4:0]}; + wire b = |pc[5:4]; + wire c = ~&{(~&pc[3:0]),pc[5:4]}; + wire sin = ~&{a, b, c}; + always @(posedge clk or negedge reset_n) begin + if (!reset_n) + pc <= 0; + else + if (ld_pc) + pc <= din; + else if (pc_en) + pc <= {pc[4:0], sin}; + end +endmodule // tms1000_pc + + + + + Index: tms1000/trunk/rtl/tms1000_tb.v =================================================================== --- tms1000/trunk/rtl/tms1000_tb.v (nonexistent) +++ tms1000/trunk/rtl/tms1000_tb.v (revision 2) @@ -0,0 +1,221 @@ +// This file is part of TMS1000 CPU +// +// tms1000_tb.v - Testbench for the TMS1000 processor +// +// Written By - Nand Gates (2021) +// +// This program is free software; you can redistribute it and/or modify it +// under the terms of the GNU General Public License as published by the +// Free Software Foundation; either version 2, or (at your option) any +// later version. +// +// This program is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// In other words, you are welcome to use, share and improve this program. +// You are forbidden to forbid anyone else to use, share and improve +// what you give them. Help stamp out software-hoarding! + +module tms1000_tb(); + /*AUTOREGINPUT*/ + // Beginning of automatic reg inputs (for undeclared instantiated-module inputs) + reg clk; // To tms1000 of tms1000.v + tri0 [3:0] k; // To tms1000 of tms1000.v + reg reset_n; // To tms1000 of tms1000.v + // End of automatics + /*AUTOWIRE*/ + // Beginning of automatic wires (for undeclared instantiated-module outputs) + wire [7:0] q; // From tms1000 of tms1000.v + wire [10:0] r; // From tms1000 of tms1000.v + // End of automatics + parameter key_0 = 5'h00; + parameter key_1 = 5'h01; + parameter key_2 = 5'h02; + parameter key_3 = 5'h03; + parameter key_4 = 5'h04; + parameter key_5 = 5'h05; + parameter key_6 = 5'h06; + parameter key_7 = 5'h07; + parameter key_8 = 5'h08; + parameter key_9 = 5'h09; + parameter key_clk = 5'h0a; + parameter key_c = 5'h0b; + parameter key_ent = 5'h0c; + parameter key_plus = 5'h0d; + parameter key_minus = 5'h0e; + parameter key_mul = 5'h0f; + parameter key_div = 5'h10; + + reg key0 ; + reg key1 ; + reg key2 ; + reg key3 ; + reg key4 ; + reg key5 ; + reg key6 ; + reg key7 ; + reg key8 ; + reg key9 ; + reg keyclk ; + reg keyc ; + reg keyent ; + reg keyplus ; + reg keyminus ; + reg keymul ; + reg keydiv ; + reg clk_60; + integer count; + + reg [7:0] d0, d1, d2, d3, d4, d5, d6, d7, d8; + + tms1000 tms1000(/*AUTOINST*/ + // Outputs + .r (r[10:0]), + .q (q[7:0]), + // Inputs + .clk (clk), + .reset_n (reset_n), + .k (k[3:0])); + + bufif1 buf0 (k[2], key0 , r[0]); + bufif1 buf1 (k[2], key1 , r[1]); + bufif1 buf2 (k[2], key2 , r[2]); + bufif1 buf3 (k[2], key3 , r[3]); + bufif1 buf4 (k[2], key4 , r[4]); + bufif1 buf5 (k[2], key5 , r[5]); + bufif1 buf6 (k[2], key6 , r[6]); + + bufif1 buf7 (k[1], key7 , r[1]); + bufif1 buf8 (k[1], key8 , r[2]); + bufif1 buf9 (k[1], key9 , r[3]); + + bufif1 buf10(k[0], keyclk , r[0]); + bufif1 buf11(k[0], keyc , r[1]); + bufif1 buf12(k[0], keyent , r[2]); + bufif1 buf13(k[0], keyplus , r[3]); + bufif1 buf14(k[0], keyminus, r[4]); + bufif1 buf15(k[0], keymul , r[5]); + bufif1 buf16(k[0], keydiv , r[6]); + + bufif1 bufclk (k[3], clk_60 , 1'b1); + + task do_key; + input [4:0] key; + begin + case (key) + key_0 : begin key0 <= 1'b1 ; #25000; key0 <= 1'b0; end + key_1 : begin key1 <= 1'b1 ; #25000; key1 <= 1'b0; end + key_2 : begin key2 <= 1'b1 ; #25000; key2 <= 1'b0; end + key_3 : begin key3 <= 1'b1 ; #25000; key3 <= 1'b0; end + key_4 : begin key4 <= 1'b1 ; #25000; key4 <= 1'b0; end + key_5 : begin key5 <= 1'b1 ; #25000; key5 <= 1'b0; end + key_6 : begin key6 <= 1'b1 ; #25000; key6 <= 1'b0; end + key_7 : begin key7 <= 1'b1 ; #25000; key7 <= 1'b0; end + key_8 : begin key8 <= 1'b1 ; #25000; key8 <= 1'b0; end + key_9 : begin key9 <= 1'b1 ; #25000; key9 <= 1'b0; end + key_clk : begin keyclk <= 1'b1 ; #25000; keyclk <= 1'b0; end + key_c : begin keyc <= 1'b1 ; #25000; keyc <= 1'b0; end + key_ent : begin keyent <= 1'b1 ; #25000; keyent <= 1'b0; end + key_plus : begin keyplus <= 1'b1 ; #25000; keyplus <= 1'b0; end + key_minus : begin keyminus<= 1'b1 ; #25000; keyminus<= 1'b0; end + key_mul : begin keymul <= 1'b1 ; #25000; keymul <= 1'b0; end + key_div : begin keydiv <= 1'b1 ; #25000; keydiv <= 1'b0; end + endcase // case(key) + end + endtask // do_key + + initial begin + clk = 0; + key0 = 0; + key1 = 0; + key2 = 0; + key3 = 0; + key4 = 0; + key5 = 0; + key6 = 0; + key7 = 0; + key8 = 0; + key9 = 0; + keyclk = 0; + keyc = 0; + keyent = 0; + keyplus = 0; + keyminus = 0; + keymul = 0; + keydiv = 0; + clk_60 = 0; + count = 0; + + d0 = 0; + d1 = 0; + d2 = 0; + d3 = 0; + d4 = 0; + d5 = 0; + d6 = 0; + d7 = 0; + d8 = 0; + reset_n = 0; + #33 reset_n = 1; + +/* -----\/----- EXCLUDED -----\/----- + #28000; + do_key(key_1); + #28000; + do_key(key_2); + #28000; + do_key(key_3); + #28000; + do_key(key_4); + #28000; + do_key(key_5); + #28000; + do_key(key_6); + #28000; + do_key(key_7); + #28000; + do_key(key_8); + #28000; + do_key(key_9); + + -----/\----- EXCLUDED -----/\----- */ +/* -----\/----- EXCLUDED -----\/----- + do_key(key_2); + #28000; + do_key(key_ent); + #28000; + do_key(key_4); + #28000; + do_key(/-*key_minus key_plus*-/ key_mul); + #80000; + $display("Xreg_0 = %h",tms1000_tb.tms1000.ram.Xreg_0[63:0]); + $display("Xreg_1 = %h",tms1000_tb.tms1000.ram.Xreg_1[63:0]); + $display("Xreg_2 = %h",tms1000_tb.tms1000.ram.Xreg_2[63:0]); + $display("Xreg_3 = %h",tms1000_tb.tms1000.ram.Xreg_3[63:0]); + $finish; + -----/\----- EXCLUDED -----/\----- */ + end // initial begin + always @(r) begin + case (1'b1) + r[0] : d0 = q; + r[1] : d1 = q; + r[2] : d2 = q; + r[3] : d3 = q; + r[4] : d4 = q; + r[5] : d5 = q; + r[6] : d6 = q; + r[7] : d7 = q; + r[8] : d8 = q; + endcase + end + + always #5 clk = ~clk; + always @(posedge clk) + if (count == 1000) begin + clk_60 <= ~clk_60; + count <= 0; + end else + count <= count + 1; +endmodule // tms1000_tb