URL
https://opencores.org/ocsvn/lem1_9min/lem1_9min/trunk
Subversion Repositories lem1_9min
[/] [lem1_9min/] [trunk/] [Form1.cs] - Rev 7
Compare with Previous | Blame | View Log
using System;using System.IO;using System.Drawing;using System.Collections;using System.ComponentModel;using System.Windows.Forms;namespace lem9_1min_asm{/// <summary>/// Summary description for Form1./// </summary>public class Form1 : System.Windows.Forms.Form{private int IP;private System.Windows.Forms.ListBox listBox1;private int[] mem = new int[2048];private void HLT() {mem[IP++]=0;} //DEF 9B#000000000 ; wait for system clockprivate void CACC() {mem[IP++]=0x10;} //DEF 9B#000010000 ; clear A, clear Cprivate void CASC() {mem[IP++]=0x11;} //DEF 9B#000010001 ; clear A. set Cprivate void SACC() {mem[IP++]=0x12;} //DEF 9B#000010010 ; set A, clear Cprivate void SASC() {mem[IP++]=0x13;} //DEF 9B#000010011 ; set A, set Cprivate void CC() {mem[IP++]=0x14;} //DEF 9B#000010100 ; clear Cprivate void SC() {mem[IP++]=0x15;} //DEF 9B#000010101 ; set Cprivate void CA() {mem[IP++]=0x16;} //DEF 9B#000010110 ; clear Aprivate void SA() {mem[IP++]=0x17;} //DEF 9B#000010111 ; set Aprivate void OR2C() {mem[IP++]=0x18;} //DEF 9B#000011000 ; A | C to Cprivate void NA() {mem[IP++]=0x19;} //DEF 9B#000011001 ; negate Aprivate void NC() {mem[IP++]=0x1a;} //DEF 9B#000011010 ; negate Cprivate void NANC() {mem[IP++]=0x1b;} //DEF 9B#000011011 ; negate A, negate Cprivate void AND2C(){mem[IP++]=0x1c;} //DEF 9B#000011100 ; A & C to Cprivate void C2A() {mem[IP++]=0x1d;} //DEF 9B#000011101 ; copy C to Aprivate void A2C() {mem[IP++]=0x1e;} //DEF 9B#000011110 ; copy A to Cprivate void XAC() {mem[IP++]=0x1f;} //DEF 9B#000011111 ; swap A and Cprivate void ST(int x) {mem[IP++]=0x040 | x;} //DEF ST,6VB#000000 ; store A at memory locationprivate void LD(int x) {mem[IP++]=0x080 | x;} //DEF LD,6VB#000000 ; load A from memory locationprivate void LDC(int x) {mem[IP++]=0x0c0 | x;} //DEF LDC,6VB#000000 ; load A complement from memory locationprivate void AND(int x) {mem[IP++]=0x100 | x;} //DEF AND,6VB#000000 ; AND memory location into Aprivate void OR(int x) {mem[IP++]=0x140 | x;} //DEF OR,6VB#000000 ; OR memory location into Aprivate void XOR(int x) {mem[IP++]=0x180 | x;} //DEF EOR,6VB#000000 ; XOR memory location into Aprivate void ADC(int x) {mem[IP++]=0x1c0 | x;}private System.Windows.Forms.Label label1;private System.Windows.Forms.TextBox textBox2;private System.Windows.Forms.Button button1;private System.Windows.Forms.Label label2;private System.Windows.Forms.TextBox textBox3;private System.Windows.Forms.Button button2;/// <summary>/// Required designer variable./// </summary>private System.ComponentModel.Container components = null;public Form1(){//// Required for Windows Form Designer support//InitializeComponent();//// TODO: Add any constructor code after InitializeComponent call//}/// <summary>/// Clean up any resources being used./// </summary>protected override void Dispose( bool disposing ){if( disposing ){if (components != null){components.Dispose();}}base.Dispose( disposing );}/// <summary>/// The main entry point for the application./// </summary>[STAThread]static void Main(){Application.Run(new Form1());}#region Windows Form Designer generated code/// <summary>/// Required method for Designer support - do not modify/// the contents of this method with the code editor./// </summary>private void InitializeComponent(){this.label1 = new System.Windows.Forms.Label();this.textBox2 = new System.Windows.Forms.TextBox();this.button1 = new System.Windows.Forms.Button();this.label2 = new System.Windows.Forms.Label();this.textBox3 = new System.Windows.Forms.TextBox();this.button2 = new System.Windows.Forms.Button();this.listBox1 = new System.Windows.Forms.ListBox();this.SuspendLayout();//// label1//this.label1.Location = new System.Drawing.Point(152, 128);this.label1.Name = "label1";this.label1.Size = new System.Drawing.Size(56, 16);this.label1.TabIndex = 1;this.label1.Text = "File Name";//// textBox2//this.textBox2.Location = new System.Drawing.Point(16, 152);this.textBox2.Name = "textBox2";this.textBox2.Size = new System.Drawing.Size(280, 20);this.textBox2.TabIndex = 2;this.textBox2.Text = "lem1_9min_hw_041127";//// button1//this.button1.Location = new System.Drawing.Point(16, 184);this.button1.Name = "button1";this.button1.Size = new System.Drawing.Size(64, 23);this.button1.TabIndex = 3;this.button1.Text = "save xmt";this.button1.Click += new System.EventHandler(this.button1_Click);//// label2//this.label2.Font = new System.Drawing.Font("Microsoft Sans Serif", 10F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((System.Byte)(0)));this.label2.Location = new System.Drawing.Point(96, 0);this.label2.Name = "label2";this.label2.Size = new System.Drawing.Size(112, 23);this.label2.TabIndex = 5;this.label2.Text = "lem1_9min_asm";//// textBox3//this.textBox3.AcceptsReturn = true;this.textBox3.AcceptsTab = true;this.textBox3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle;this.textBox3.Location = new System.Drawing.Point(320, 0);this.textBox3.Multiline = true;this.textBox3.Name = "textBox3";this.textBox3.ScrollBars = System.Windows.Forms.ScrollBars.Both;this.textBox3.Size = new System.Drawing.Size(368, 616);this.textBox3.TabIndex = 3;this.textBox3.Text = "; lem1_9min listing";//// button2//this.button2.Location = new System.Drawing.Point(16, 104);this.button2.Name = "button2";this.button2.Size = new System.Drawing.Size(64, 23);this.button2.TabIndex = 6;this.button2.Text = "assemble";this.button2.Click += new System.EventHandler(this.button2_Click);//// listBox1//this.listBox1.Items.AddRange(new object[] {"toggle","cntr24","HEllo UJord"});this.listBox1.Location = new System.Drawing.Point(16, 32);this.listBox1.Name = "listBox1";this.listBox1.Size = new System.Drawing.Size(176, 56);this.listBox1.TabIndex = 8;//// Form1//this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);this.ClientSize = new System.Drawing.Size(696, 630);this.Controls.AddRange(new System.Windows.Forms.Control[] {this.listBox1,this.button2,this.textBox3,this.label2,this.button1,this.textBox2,this.label1});this.Name = "Form1";this.Text = "Form1";this.ResumeLayout(false);}#endregionprivate void toggle() // toggle Accum & Carry{CACC(); SASC(); HLT();}private void INC(int loc) // increment memory bit "macro"{ADC(loc); ST(loc); CA();}private void CNTR24() // 24 bit incrementing counter "macro"{CASC(); for(int i=23; i>0; i--)INC(i); ADC(0); ST(0);}private void cntr24(){CNTR24(); HLT();} // 24 bit incrementing counter programprivate void HEllo_UJorld() // sliding 7-segment "hello world" with w via reversed & forward "j"{ CNTR24(); // lsb at location 23, msb at location 0// add segment position ("00"+14..15) to counter position (4..7)const int LT0=56, LT1=57, LT2=58, LT3=59, CT14=14, CT15=15, CT7=5, CT6=4, CT5=3, CT4=2;CACC(); LD(CT15); ADC(CT7); ST(LT0);LD(CT14); ADC(CT6); ST(LT1);CA(); ADC(CT5); ST(LT2);CA(); ADC(CT4); ST(LT3);// digit select decode, from 14..15, acitve lowconst int DIG3 = 60, DIG2 = 61, DIG1 = 62, DIG0 = 63, BT0 = 15, BT1 = 14;LD(BT1); OR(BT0); ST(DIG0);LDC(BT1); OR(BT0); ST(DIG2);XOR(BT1); ST(DIG3);XOR(BT0); ST(DIG1);// segment logic, segments: 0:top, 1:top right, 2:bottom right; 3:bottom, 4:bottom left,// 5:top left, 6:middle, 7:decimal pointconst int SEG0=55, SEG1=54, SEG2=53, SEG3=52, SEG4=51, SEG5=50, SEG6=49, DP=48;const int A0=LT3, B0=LT2, C0=LT1, D0=LT0;// LD(LT0); OR(LT1); OR(LT2); OR(LT3); ST(DP); // rotating decimal pointSA(); ST(DP); // no decimal point// rotating HELLO UJOrLdconst int AB=47, AD=46, BD=45, NCD=44, BNCD=43, NANB=42, CND=41, t=40;LD(A0); AND(B0); ST(AB); //abLD(A0); AND(D0); ST(AD); //adLD(B0); AND(D0); ST(BD); //bdLDC(C0); AND(D0); ST(NCD); AND(B0); ST(BNCD); //ncd, bncdLD(A0); OR(B0); NA(); ST(NANB); //nanbLDC(D0); AND(C0); ST(CND); //cndLDC(D0); AND(NANB); OR(C0); OR(BD); OR(AD); OR(AB); ST(SEG0); //nanbnd+c+bd+ad+abLD(NANB); AND(D0); OR(NCD); OR(CND); OR(AB); ST(SEG1); // ncd+cnd+ab+nanbdLD(NANB); AND(C0); ST(t); LDC(B0); AND(CND); OR(t); OR(NCD); OR(AB); ST(SEG2); //ncd+ab+nanbc+nbcndLD(C0); OR(D0); NA(); AND(NANB); ST(t); LD(A0); AND(NCD); OR(t); OR(BNCD); OR(AB); ST(SEG3);// nanbncnd+bncd+ancd+abLD(BNCD); OR(AB); ST(SEG4); // bncd+abLD(BD); OR(AD); OR(AB); ST(SEG5); // bd+ad+abLDC(A0); AND(C0); ST(t); LDC(D0); AND(A0); OR(B0); OR(t); ST(SEG6); //nac+b+and// // rotating HEllo UJorld// const int t1=47, t2=46, t3=45, t4=44, t5=43, t6=42;// LDC(D0); OR(A0); OR(B0); OR(C0); ST(SEG0);// LD(A0); OR(B0); OR(C0); OR(D0); ST(t1);// LD(B0); AND(C0); AND(D0); NA(); OR(A0); AND(t1); ST(t1);// LD(A0); AND(C0); AND(D0); NA(); OR(B0); AND(t1); ST(SEG1);// LD(B0); AND(C0); NA(); OR(A0); ST(t2);// LD(B0); OR(C0); OR(D0); AND(t2); ST(t2);// LD(A0); AND(C0); AND(D0); NA(); OR(B0); AND(t2); ST(t2);// LD(A0); OR(C0); OR(D0); AND(t2); ST(SEG2);// LDC(B0); OR(A0); OR(D0); ST(t3);// LD(B0); AND(C0); NA(); OR(A0); AND(t3); ST(t3);// LDC(A0); OR(B0); OR(C0); OR(D0); AND(t3); ST(t3);// LD(A0); AND(C0); AND(D0); NA(); OR(B0); AND(t3);// AND(SEG0); ST(SEG3);// LD(A0); OR(D0); ST(t4);// LDC(C0); OR(A0); AND(t4); AND(B0); ST(SEG4);// LD(A0); OR(B0); ST(t5);// LDC(C0); OR(A0); OR(D0); AND(t5); ST(t5);// LDC(C0); OR(B0); OR(D0); AND(t5); ST(SEG5);// LD(B0); OR(C0); ST(t6);// LD(A0); OR(C0); OR(D0); AND(t6); ST(t6);// LD(A0); AND(D0); NA(); OR(B0); AND(t6); ST(SEG6);// // rotating HEllo UJorld//const int AB=47, BD=46, BNC=45, BNCD=44, ANC=43, NANB=42, NANBC=41, NANBD=40, NANBND=39,// CND=38, NBCND=37, NCD=36, NBND=35;// LD(A0); AND(B0); ST(AB); LDC(D0); AND(C0); ST(CND); LD(A0); OR(B0); NA(); ST(NANB); AND(D0); ST(NANBD);// LDC(C0); AND(B0); ST(BNC); LDC(C0); AND(A0); ST(ANC); OR(BNC); OR(NANBD); OR(CND); OR(AB); ST(SEG1);// LDC(C0); AND(D0); ST(NCD); LD(NANB); AND(C0); ST(NANBC); LD(B0); OR(D0); NA(); ST(NBND); AND(C0);// OR(NANBC); OR(AB); OR(NCD); ST(SEG2);// LDC(C0); AND(B0); AND(D0); A2C(); LD(A0); AND(B0); OR2C(); C2A(); ST(SEG4);// LDC(C0); AND(B0); AND(D0); ST(SEG4); LD(A0); AND(B0); OR(SEG4); ST(SEG4);// SA(); ST(SEG3); SA(); ST(SEG4); SA(); ST(SEG5); SA(); ST(SEG6);// ST(SEG1); ST(SEG2);// LD(A0); AND(B0); ST(AB);// LD(B0); AND(D0); ST(BD);// LDC(C0); AND(B0); ST(BNC); AND(D0); ST(BNCD);// LDC(C0); AND(A0); ST(ANC);// LD(A0); OR(B0); NA(); ST(NANB); AND(C0); ST(NANBC);// LD(NANB); AND(D0); ST(NANBD);// LDC(D0); AND(NANB); ST(NANBND); NA(); OR(C0); ST(SEG0); // seg A = a+b+c+nd// LDC(D0); AND(C0); ST(CND);// LDC(B0); AND(CND); ST(NBCND);// LDC(A0); AND(C0); OR(BD); OR(CND); OR(AB); ST(SEG6); // seg G = nac+bd+cnd+ab// LDC(C0); AND(D0); OR(AB); OR(NANBC); OR(NBCND); ST(SEG2); // seg C = ncd+ab+nabc+nbcd// LD(A0); AND(D0); OR(BNC); OR(BD); OR(ANC); OR(AB); ST(SEG5); // seg F = bnc+bd+anc+ad+ab// LDC(C0); AND(A0); AND(D0);// OR(NANBND); OR(NANBC); OR(BNCD); OR(AB); OR(NBCND); ST(SEG3); // seg D = nanbnd+nanbc+bncd+ancd+ab+nbcnd// LD(NANBD); OR(AB); OR(CND); OR(BNC); OR(ANC); ST(SEG1); // seg B = ab+cnd+nanbd+bnc+anc// LD(NBCND); OR(AB); ST(SEG4); // seg E = bncd+abHLT();}private void listBox1_SelectedIndexChanged(object sender, System.EventArgs e){}private void button1_Click(object sender, System.EventArgs e){ // wirte assembled binary to Xilinx "RAMB16_S9 generic map(" initialization textFileInfo cvf = new FileInfo(@"C:\br\digilent_projs\d3_lem1_9min_hw\"+textBox2.Text+".xmt");StreamWriter stmw = cvf.CreateText();int nwds = IP;int nlines = (nwds+31)/32;int nplines = (nwds+255)/256;byte[] wds = new byte[nlines*32];byte[] pbits = new byte[nplines*256];for (int i=0; i<nwds; i++){wds[i] = (byte)(mem[i] & 0xff);pbits[i] = (byte)(mem[i] >> 8 & 1);}for (int i=0; i<nlines; i++) // write the 8-bit part{ stmw.Write(" INIT_{0:X2} => X\"",i);for (int j=31; j>=0; j--) stmw.Write("{0:X2}",wds[i*32+j]);stmw.WriteLine("\",");}for (int i=0; i<nplines; i++) // write the parity-bit part{ stmw.Write(" INITP_{0:X2} => X\"",i);for (int j=63; j>=0; j--) stmw.Write("{0:X1}",pbits[i*256+j*4+3]*8 + pbits[i*256+j*4+2]*4 +pbits[i*256+j*4+1]*2 + pbits[i*256+j*4]);stmw.WriteLine((i == (nplines-1)) ? "\")" : "\",");}stmw.Close();}private void button2_Click(object sender, System.EventArgs e){ int prog = listBox1.SelectedIndex;IP = 0;switch (prog){ case 0: toggle(); break;case 1: cntr24(); break;case 2: HEllo_UJorld(); break;}string[] xx = new String[IP+1];xx[0] = listBox1.SelectedItem + " listing";for (int i=0; i<IP; i++)xx[i+1] = i.ToString("X3").PadLeft(3,'0') +": " + mem[i].ToString("X3").PadLeft(3,'0');textBox3.Lines = xx;}}}