| Line 84... |
Line 84... |
|
|
switch ($inst) {
|
switch ($inst) {
|
|
|
case END { $temp = 0; $opcod = $temp.$temp.$temp.$temp.$temp;};
|
case END { $temp = 0; $opcod = $temp.$temp.$temp.$temp.$temp;};
|
case JMP { $temp = 1; $opcod = $zero.$zero.$zero.$zero.$temp;};
|
case JMP { $temp = 1; $opcod = $zero.$zero.$zero.$zero.$temp;};
|
case Ld { $temp = 10; $opcod = $zero.$zero.$zero.$temp;};
|
case LD { $temp = 10; $opcod = $zero.$zero.$zero.$temp;};
|
case Ldi { $temp = 11; $opcod = $zero.$zero.$zero.$temp;};
|
case LDi { $temp = 11; $opcod = $zero.$zero.$zero.$temp;};
|
case ST { $temp = 100; $opcod = $zero.$zero.$temp;};
|
case ST { $temp = 100; $opcod = $zero.$zero.$temp;};
|
case ADD { $temp = 101; $opcod = $zero.$zero.$temp;};
|
case ADD { $temp = 101; $opcod = $zero.$zero.$temp;};
|
case SUB { $temp = 110; $opcod = $zero.$zero.$temp;};
|
case SUB { $temp = 110; $opcod = $zero.$zero.$temp;};
|
case MUL { $temp = 111; $opcod = $zero.$zero.$temp;};
|
case MUL { $temp = 111; $opcod = $zero.$zero.$temp;};
|
case DIV { $temp = 1000; $opcod = $zero.$temp;};
|
case DIV { $temp = 1000; $opcod = $zero.$temp;};
|
| Line 158... |
Line 158... |
print "\n Jump to address :\t";
|
print "\n Jump to address :\t";
|
$fld = ;
|
$fld = ;
|
chop($fld);
|
chop($fld);
|
};
|
};
|
|
|
case Ld {
|
case LD {
|
$fld = sub1();
|
$fld = sub1();
|
};
|
};
|
|
|
|
|
case Ldi {
|
case LDi {
|
print "\nImmediate Data (8-bit):\t";
|
print "\nImmediate Data (8-bit):\t";
|
$temp = ; chop($temp);
|
$temp = ; chop($temp);
|
$fld = $zero.$zero.$temp;
|
$fld = $zero.$zero.$temp;
|
}
|
}
|
|
|
| Line 222... |
Line 222... |
my $addr = sub2(); my $zero = 0;
|
my $addr = sub2(); my $zero = 0;
|
|
|
$fld = $zero.$zero.$zero.$zero.$resp2.$addr;
|
$fld = $zero.$zero.$zero.$zero.$resp2.$addr;
|
};
|
};
|
case RST {
|
case RST {
|
print "\nAssert (1) or De-assert (0) Reset signal?\t";
|
|
my $resp = ; chop($resp);
|
|
my $zero = 0;
|
my $zero = 0;
|
my $addr = sub2();
|
my $addr = sub2();
|
$fld = $zero.$zero.$zero.$zero.$zero.$resp.$addr;
|
$fld = $zero.$zero.$zero.$zero.$zero.$zero.$addr;
|
};
|
};
|
case LdTC {
|
case LdTC {
|
my $addr = sub2(); my $zero = 0;
|
my $addr = sub2(); my $zero = 0;
|
$fld = $zero.$zero.$zero.$zero.$zero.$zero.$addr;
|
$fld = $zero.$zero.$zero.$zero.$zero.$zero.$addr;
|
};
|
};
|
| Line 289... |
Line 287... |
print "\nNegate? Y or N\t";
|
print "\nNegate? Y or N\t";
|
$response = ; chop($response);
|
$response = ; chop($response);
|
if ($response eq Y){ $negate = 1;}
|
if ($response eq Y){ $negate = 1;}
|
else {$negate = 0};
|
else {$negate = 0};
|
|
|
print "\nInput (i) / Output (o) / bitRAM (b) / ByteRAM (B)?";
|
print "\nInput (i) / Output (o) / bitRAM (b) / ByteRAM (B)?\t";
|
my $select = ; chop($select);
|
my $select = ; chop($select);
|
if ($select eq i){
|
if ($select eq i){
|
my $zero = 0; $iomem = $zero.$zero;
|
my $zero = 0; $iomem = $zero.$zero;
|
print "\ninput address :\t";
|
print "\ninput address :\t";
|
$iomemaddr = ; chop($iomemaddr);
|
$iomemaddr = ; chop($iomemaddr);
|
