artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

elf.mes: error-free header, no program yet.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-08-12 15:54:15 +02:00
parent 2ffa9e2cdd
commit ecc1ebec1d
1 changed files with 58 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
elf.mes
View file

@ -19,17 +19,16 @@
(define e-type '(#x02 #x00)) ;; ET_EXEC (define e-type '(#x02 #x00)) ;; ET_EXEC
(define e-machine '(#x03 #x00)) (define e-machine '(#x03 #x00))
(define e-version '(#x01 #x00 #x00 #x00)) (define e-version '(#x01 #x00 #x00 #x00))
(define e-entry '(#xb0 #x00 #x40 #x00 #x00 #x00 #x00 #x00)) (define e-entry '(#x54 #x80 #x04 #x08))
(define e-type '(#x02 #x00)) (define e-phoff '(#x30 #x00 #x00 #x00))
(define e-phoff '(#x40 #x00 #x00 #x00 #x00 #x00 #x00 #x00)) (define e-shoff '(#x50 #x00 #x00 #x00))
(define e-shoff '(#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00))
(define e-flags '(#x00 #x00 #x00 #x00)) (define e-flags '(#x00 #x00 #x00 #x00))
(define e-ehsize '(#x40 #x00)) (define e-ehsize '(#x80 #x00))
(define e-phentsize '(#x38 #x00)) (define e-phentsize '(#x20 #x00))
(define e-phnum '(#x02 #x00)) (define e-phnum '(#x01 #x00))
(define e-shentsize '(#x00 #x00)) (define e-shentsize '(#x28 #x00))
(define e-shnum '(#x00 #x00)) (define e-shnum '(#x05 #x00))
(define e-shstrndx '(#x03 #x00)) (define e-shstrndx '(#x04 #x00))
(define elf-header (define elf-header
(append (append
@ -63,4 +62,52 @@
;; p-align ;; p-align
)) ))
(map write-char elf-header) (define rest
'(
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00
))
(define exe
(append
elf-header
rest))
(map write-char exe)