Remove .gitignore from itself and clarify some comments in the disassembler
This commit is contained in:
parent
75123a629a
commit
da55d3b7cf
|
@ -0,0 +1,6 @@
|
||||||
|
/*
|
||||||
|
!/disassembler.pas
|
||||||
|
!/emulator.pas
|
||||||
|
!/.gitignore
|
||||||
|
!/license.md
|
||||||
|
!/readme.md
|
|
@ -3,8 +3,8 @@ program Disassembler;
|
||||||
uses Crt, Sysutils;
|
uses Crt, Sysutils;
|
||||||
|
|
||||||
var
|
var
|
||||||
Op, Regs: 0 .. $f; //Opcode
|
Op, Regs: 0 .. $f; //Opcode, and register arguments in a single variable
|
||||||
X, Y: 0 .. 3; //Register arguments
|
X, Y: 0 .. 3; //Register arguments in separate variables
|
||||||
Addr, IP, EP: word; //Address argument and instruction and end pointers
|
Addr, IP, EP: word; //Address argument and instruction and end pointers
|
||||||
Opcodes: array [0 .. $f] of string; //Opcodes in human readable form
|
Opcodes: array [0 .. $f] of string; //Opcodes in human readable form
|
||||||
Bin: array [0 .. $ffef] of byte; //Program in binary form
|
Bin: array [0 .. $ffef] of byte; //Program in binary form
|
||||||
|
@ -30,7 +30,7 @@ begin
|
||||||
Opcodes [$e] := 'CLEQ ';
|
Opcodes [$e] := 'CLEQ ';
|
||||||
Opcodes [$f] := 'CLNEQ ';
|
Opcodes [$f] := 'CLNEQ ';
|
||||||
|
|
||||||
//Initialise the pointer
|
//Initialise the instruction pointer
|
||||||
IP := 0;
|
IP := 0;
|
||||||
|
|
||||||
//Read a program file and check for errors
|
//Read a program file and check for errors
|
||||||
|
|
Loading…
Reference in New Issue