From da55d3b7cf13730fa37a46e8e1bd7fa89b39b0ef Mon Sep 17 00:00:00 2001 From: CrazyEttin <> Date: Sat, 23 Jul 2022 23:19:58 +0300 Subject: [PATCH] Remove .gitignore from itself and clarify some comments in the disassembler --- .gitignore | 6 ++++++ disassembler.pas | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) create mode 100644 .gitignore diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..40a2eaf --- /dev/null +++ b/.gitignore @@ -0,0 +1,6 @@ +/* +!/disassembler.pas +!/emulator.pas +!/.gitignore +!/license.md +!/readme.md diff --git a/disassembler.pas b/disassembler.pas index 7e04a70..9b1a76c 100644 --- a/disassembler.pas +++ b/disassembler.pas @@ -3,8 +3,8 @@ program Disassembler; uses Crt, Sysutils; var - Op, Regs: 0 .. $f; //Opcode - X, Y: 0 .. 3; //Register arguments + Op, Regs: 0 .. $f; //Opcode, and register arguments in a single variable + X, Y: 0 .. 3; //Register arguments in separate variables Addr, IP, EP: word; //Address argument and instruction and end pointers Opcodes: array [0 .. $f] of string; //Opcodes in human readable form Bin: array [0 .. $ffef] of byte; //Program in binary form @@ -30,7 +30,7 @@ begin Opcodes [$e] := 'CLEQ '; Opcodes [$f] := 'CLNEQ '; - //Initialise the pointer + //Initialise the instruction pointer IP := 0; //Read a program file and check for errors