Smartzkid
2009-09-29 04:07:21
This is a collection of 2 a few scripts - an assembler, and an emulator (which is made up of a couple scripts). The assembler script will take an assembly file and compile it into an executable, which can then be run by the emulator.
Two important things to note:
LATEST UPDATE (Rev 4)
Rev 3
Rev 2
Rev 1:
Sample Script (C:\datfile.asm)
Two important things to note:
- A processor that will execute this code does not exist (it does however run on a special processor in my brain.. the Smartzgrid 2000)
- I don't know assembly very well and as such I am open to all constructive criticism at everything I have done incorrectly, left out, or done inefficiently.
LATEST UPDATE (Rev 4)
Rev 3
Rev 2
Rev 1:
program Assembler;
const
SourceFile = 'C:\datfile'; //Input file is .asm, output file is .bxe
var
prog: string;
function ReadSource: string;
var
h: integer;
begin
h := OpenFile(SourceFile + '.asm', false);
ReadFileString(h, result, FileSize(h));
CloseFile(h);
end;
function Thick2(x: integer): string;
begin
result := IntToStr(x);
if(length(result) mod 2 = 1) then
result := '0' + result;
end;
procedure ParseInstructions(var data: string);
var
Instructions: Array of String; //Must be in order!!!
Registers: Array of String; //Must be in order!!!
i: integer;
begin
Instructions := ['INIT', 'DIS1', 'JMP', 'TERM', 'PUSH',
'POP', 'JIE', 'INX', 'MOV'];
for i := 0 to high(Instructions)do
data := Replace(data, Instructions[i], Thick2(i));
Registers := ['EAX', 'EBX', 'ECX', 'EDX', 'ESP'];
for i := 0 to high(Registers)do
data := Replace(data, Registers[i], Thick2(i));
for i := 0 to 9 do
data := Replace(data, ' ' + inttostr(i) + Chr(13), ' 0' + inttostr(i) + Chr(13));
end;
procedure ConsolidateSpace(var data: string);
begin
data := Replace(data, Chr(10), '');
data := Replace(data, Chr(13), '');
data := Replace(data, ',', '');
data := Replace(data, ' ', '');
end;
procedure WriteFile(data: string);
var
h, i: integer;
begin
// data := '00200800010601021507010142020503';
h := RewriteFile(SourceFile + '.bxe', false);
for i := 1 to length(data)/2 do
WriteFileByte(h, strtoint(data[i*2 - 1] + data[i*2]));
CloseFile(h);
end;
begin
prog := readSource;
ParseInstructions(prog);
ConsolidateSpace(prog);
writeFile(prog);
end.
program Emulator;
const
datafile = 'C:\datfile.bxe';
var
RAM: Array [0..63] of Byte; //0-3 = EAX - EDX, 4 = ESP, 5-47 = Program, 48-63 = Stack
Counter: Integer;
PC: Integer;
OpCode: Byte;
CPUIsntRunning: Boolean;
StackPointer: Byte;
const
//RAM locations
EAX = 0;
EBX = 1;
ECX = 2;
EDX = 3;
ESP = 4;
//Program is @ 5-47
//Stack is @ 48-63
INIT = $00;
DIS1 = $01;
JMP = $02;
TERM = $03;
PUSH = $04;
POP = $05;
JIE = $06;
INX = $07;
MOV = $08;
function nem: Byte;
begin
result := RAM[PC];
inc(PC);
end;
procedure ReadFileIntoRAM(theFile: String);
var
hFile, i: integer;
data: byte;
begin
hFile := OpenFile(theFile, true);
repeat
ReadFileByte(hFile, data);
RAM[i + 5] := data;
inc(i);
until(EndOfFile(hFile));
writeln('Program loaded');
end;
begin
{ ASM Instructions
INIT 0x00, InitialCounter
DIS1 0x01, OneByte
JMP 0x02, MemoryLocation
TERM 0x03
PUSH 0x04, Value
POP 0x05, Register
JIE 0x06, Register, Value, JumpLocation
INX 0x07, Register
MOV 0x08, Register, Value //Yes I know this is backwards
INP 0x09, Register
}
readFileIntoRAM(datafile);
PC := 5;
StackPointer := 64;
repeat
OpCode := nem;
case OpCode of
INIT:
CPUIsntRunning := false;
DIS1:
writeln(RAM[nem]);
JMP:
PC := nem;
TERM:
CPUIsntRunning := true;
POP:
begin
RAM[ESP] := RAM[StackPointer];
inc(StackPointer);
end;
PUSH:
begin
dec(StackPointer);
RAM[StackPointer] := nem;
end;
JIE:
if(RAM[nem] = nem)then
PC := nem;
INX:
RAM[nem] := RAM[PC] + 1;
MOV:
RAM[nem] := nem;
else
writeln('INVALID OPCODE: ' + inttostr(OPCODE));
end;
inc(Counter);
until(CPUIsntRunning)
end.Sample Script (C:\datfile.asm)
INIT
PUSH 20
PUSH 16
POP
DIS1 ESP
POP
DIS1 ESP
TERM