path: root/02/in01

|| ELF Header
;jm;50;00;00;00  jump over data to code
;'i;'n;'0;'2;00   (0x40007d) input filename
;'o;'u;'t;'0;'2;00  (0x400082) output filename
;00;00;' ;'n;'o;'t;' ;'r;'e;'c;'o;'g;'n;'i;'z;'e;'d;\n;00;00;00;00;00;00 (0x400088) error message/where we read to
;48;b8;00 (0x4000a0) load immediate instruction
;00;00;00;00;00 
;00;00;00;00;00;00;00;00 (0x4000a8) used for output
;00;00;' ;'b;'a;'d;' ;'l;'a;'b;'e;'l;\n;00 (0x400090)
;00;00;' 'b;'a;'d;' ;'n;'u;'m;'b;'e;'r;\n;00 (0x40009e)
;00

;im;7d;00;40;00;00;00;00;00 pointer to input filename
;JA
;zA O_RDONLY
;IA
;im;02;00;00;00;00;00;00;00 syscall 2, open
;sy

;im;82;00;40;00;00;00;00;00 pointer to output filename
;JA
;im;41;02;00;00;00;00;00;00 O_WRONLY | O_CREAT | O_TRUNC
;IA
;im;ed;01;00;00;00;00;00;00 0o755
;DA
;im;02;00;00;00;00;00;00;00 open
;sy

begin by writing the elf header.
the segment we're loading in includes the ELF header at address 0x400000, so we can just read it from there
;im;04;00;00;00;00;00;00;00 out fd
;JA
;im;00;00;40;00;00;00;00;00 pointer to ELF header
;IA
;im;78;00;00;00;00;00;00;00 length of ELF header
;DA
;im;01;00;00;00;00;00;00;00 write
;sy

-- read command --
;im;03;00;00;00;00;00;00;00 input file descriptor
;JA
;im;88;00;40;00;00;00;00;00 where to read to
;IA
;im;02;00;00;00;00;00;00;00 read 2 bytes
;DA
;zA  read
;sy

;BA
;im;02;00;00;00;00;00;00;00
;jg;cd;cd;cd;cd  end of file

calculate the index in the command table
;im;88;00;40;00;00;00;00;00
;BA
;zA;lb
;<I;07
;CA
;im;89;00;40;00;00;00;00;00
;BA
;zA;lb
;BC
;+B
;RA store it away in rbp
;BA

let's check if it's a label definition
;im;3a;1d;00;00;00;00;00;00
;cm
;jn;cd;cd;cd;cd  skip label definition handling code

it's a label definition. first, let's get the position in the file.
we can do this with the lseek syscall.
it can be used to move to a different point in the file, but it can also be
used to get the current file offset, in bytes
;im;04;00;00;00;00;00;00;00 fd
;JA
;zA;IA   don't move
;im;01;00;00;00;00;00;00;00 SEEK_CUR (use the current position)
;DA
;im;08;00;00;00;00;00;00;00 lseek
;sy

our offset is now in rax. let's add the base address,
then store the label address away in rbp
;BA
;im;00;00;40;00;00;00;00;00
;+B
;RA

read 2-byte label name
;im;03;00;00;00;00;00;00;00 input fd
;JA
;im;88;00;40;00;00;00;00;00
;IA
;im;02;00;00;00;00;00;00;00
;DA
;zA
;sy

get the address of the entry in the label table
;im;88;00;40;00;00;00;00;00
;BA
;zA;lb
;<I;07
;CA
;im;89;00;40;00;00;00;00;00
;BA
;zA;lb
;BC
;+B
;BA
;im;00;00;43;00;00;00;00;00 label table offset = 0x430000
;+B

okay now let's write the current address there
;BA
;AR
;sq

;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding
;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding

;jm;cd;cd;cd;cd  skip to newline


okay it's not a label definition. let's look at the command table
;AB
;<I;03
;BA
;im;00;00;41;00;00;00;00;00 command table offset = 0x410000
;+B
;BA
;zA;lb
check if there's anything there
;te
;jn;cd;cd;cd;cd

okay there's nothing there. that's not good. let's print our error message.
;im;02;00;00;00;00;00;00;00 stderr
;JA
;im;88;00;40;00;00;00;00;00 error message
;IA
;im;12;00;00;00;00;00;00;00 length
;DA
;im;01;00;00;00;00;00;00;00 write
;sy


okay there *is* something here.
;DA
;im;01;00;00;00;00;00;00;00 add 1 to address to skip over length
;+B
;IA
;im;04;00;00;00;00;00;00;00  fd
;JA
;im;01;00;00;00;00;00;00;00 write
;sy

now let's check if it's a special instruction, i.e. im or a jump instruction
;BR
;im;ed;34;00;00;00;00;00;00
;cm
;jn;cd;cd;cd;cd jump over "im" handling code

read two bytes:
;im;03;00;00;00;00;00;00;00
;JA
;im;9e;00;40;00;00;00;00;00
;IA
;im;02;00;00;00;00;00;00;00
;DA
;zA
;sy

now look at the second byte (the first one should be a space):
;im;9f;00;40;00;00;00;00;00
;BA
;zA
;lb
;BA
;im;3a;00;00;00;00;00;00;00
;cm
;jn;cd;cd;cd;cd

It's a :. Let's look at the label.
Read 2 bytes.

;im;03;00;00;00;00;00;00;00
;JA
;im;90;00;40;00;00;00;00;00
;IA
;im;02;00;00;00;00;00;00;00
;DA
;zA
;sy

Now find the entry in the label table.

;im;90;00;40;00;00;00;00;00
;BA
;zA;lb
;<I;07
;CA
;im;91;00;40;00;00;00;00;00
;BA
;zA;lb
;BC
;+B
;<I;03
;BA
;im;00;00;43;00;00;00;00;00  Offset of label table = 0x430000
;+B
;BA
;zA
;lq
;te check if there's anything there
;jn;cd;cd;cd;cd

oh no there's nothing there
;im;02;00;00;00;00;00;00;00 stderr
;JA
;im;90;00;40;00;00;00;00;00 bad label error message
;IA
;im;0a;00;00;00;00;00;00;00 length
;DA
;im;01;00;00;00;00;00;00;00 write
;sy
;im;01;00;00;00;00;00;00;00 exit code
;JA
;im;3c;00;00;00;00;00;00;00 exit
;sy


okay let's output what's at that label
;BA
;im;a8;00;40;00;00;00;00;00
;xc
;sq
;IB pointer to data
;im;04;00;00;00;00;00;00;00 file descriptor
;JA
;im;08;00;00;00;00;00;00;00 length
;DA
;im;01;00;00;00;00;00;00;00 write
;sy

;jm;cd;cd;cd;cd  skip to newline

okay it's not a label
let's check if it's hexadecimal
;im;78;00;00;00;00;00;00;00  ascii 'x'
;cm
;jne;cd;cd;cd;cd

it's hexadecimal. we'll use rcx to store the number
;zA;CA
;im;03;00;00;00;00;00;00;00 input fd
;JA
;im;88;00;40;00;00;00;00;00
;IA
;im;01;00;00;00;00;00;00;00 read 1 byte at a time
;DA
;zA read
;sy

;im;88;00;40;00;00;00;00;00
;BA
;zA;lb
;BA
;im;30;00;00;00;00;00;00;00
;jl;cd;cd;cd;cd end of number
;im;39;00;00;00;00;00;00;00
;jg;cd;cd;cd;cd end of number

okay it's one of 0-9
;im;d0;ff;ff;ff;ff;ff;ff;ff
;+B
;BA
;AC
;<I;04
;+B
;CA
;jm;cd;cd;cd;cd  jump back to read the next digit

;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding

check if it's a-f
;im;61;00;00;00;00;00;00;00
;jl;cd;cd;cd;cd end of number
;im;66;00;00;00;00;00;00;00
;jg;cd;cd;cd;cd end of number

okay it is
;im;a9;ff;ff;ff;ff;ff;ff;ff
;+B
;BA
;AC
;<I;04
;+B
;CA
;jm;cd;cd;cd;cd  jump back to read the next digit

;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding

it's not hexadecimal, let's check if it's decimal
;im;64;00;00;00;00;00;00;00
;cm
;jne;cd;cd;cd;cd  bad number


it's decimal. we'll use rcx to store the number
;zA;CA
;im;03;00;00;00;00;00;00;00 input fd
;JA
;im;88;00;40;00;00;00;00;00
;IA
;im;01;00;00;00;00;00;00;00 read 1 byte at a time
;DA
;zA read
;sy

;im;88;00;40;00;00;00;00;00
;BA
;zA;lb
;BA

check if it's 0-9
;im;30;00;00;00;00;00;00;00
;jl;cd;cd;cd;cd end of number
;im;39;00;00;00;00;00;00;00
;jg;cd;cd;cd;cd end of number

okay it is
;im;d0;ff;ff;ff;ff;ff;ff;ff
;+B
;DA store digit away in rdx
;im;0a;00;00;00;00;00;00;00
;BC
;+*
;BD return digit to rbx
;+B
;CA
;jm;cd;cd;cd;cd  next digit

;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding


--- end of number ---
the number will be in rcx
;im;a8;00;40;00;00;00;00;00  this is where we'll put the number
;BA
;AC
;sq

now write it to the file
;im;04;00;00;00;00;00;00;00
;JA
;im;a8;00;40;00;00;00;00;00
;IA
;im;08;00;00;00;00;00;00;00
;DA
;im;01;00;00;00;00;00;00;00
;sy

;jm;cd;cd;cd;cd skip to newline

;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding


--- bad number ---
;im;02;00;00;00;00;00;00;00 stderr
;JA
;im;9e;00;40;00;00;00;00;00 bad number error message
;IA
;im;0b;00;00;00;00;00;00;00 length
;DA
;im;01;00;00;00;00;00;00;00 write
;sy
;im;01;00;00;00;00;00;00;00 exit code
;JA
;im;3c;00;00;00;00;00;00;00 exit
;sy

;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding

okay it's not an im instruction. let's check if it's a jump instruction
;AR
;>I;07
;BA
;im;6a;00;00;00;00;00;00;00
;cm
;jn;cd;cd;cd;cd skip to newline

it is a jump instruction. let's read in the label and write it to--
wait a minute! this is just like our immediate label code. let's just
read the space between the command and the label, and then jump there

;im;03;00;00;00;00;00;00;00
;JA
;im;88;00;40;00;00;00;00;00
;IA
;im;01;00;00;00;00;00;00;00
;DA
;zA
;sy

;jm;cd;cd;cd;cd

;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding
;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding


-- skip to newline --
read 1 byte into 0x400088
;im;03;00;00;00;00;00;00;00
;JA
;im;88;00;40;00;00;00;00;00
;IA
;im;01;00;00;00;00;00;00;00
;DA
;sy

;im;88;00;40;00;00;00;00;00
;BA
;zA;lb;BA
;im;0a;00;00;00;00;00;00;00
;cm
;jn;cd;cd;cd;cd  go back to the start of "skip to newline"
;jm;cd;cd;cd;cd  go all the way back and read the next two-byte command


;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding
;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding
;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding
;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00;00 unused padding

-- end of file --
;zA;JA  exit code 0
;im;3c;00;00;00;00;00;00;00 exit
;sy

;cc
;