3 (define ei-magic '(#x7f #\E #\L #\F))
4 ;;(define ei-magic '(#x7f #x45 #x4c #x46))
5 (define ei-class '(#x01)) ;; 32 bit
6 (define ei-data '(#x01)) ;; little endian
7 (define ei-version '(#x01))
8 (define ei-osabi '(#x00))
9 (define ei-pad '(#x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0))
19 (define e-type '(#x02 #x00)) ;; ET_EXEC
20 (define e-machine '(#x03 #x00))
21 (define e-version '(#x01 #x00 #x00 #x00))
22 (define e-entry '(#xb0 #x00 #x40 #x00 #x00 #x00 #x00 #x00))
23 (define e-type '(#x02 #x00))
24 (define e-phoff '(#x40 #x00 #x00 #x00 #x00 #x00 #x00 #x00))
25 (define e-shoff '(#x00 #x00 #x00 #x00 #x00 #x00 #x00 #x00))
26 (define e-flags '(#x00 #x00 #x00 #x00))
27 (define e-ehsize '(#x40 #x00))
28 (define e-phentsize '(#x38 #x00))
29 (define e-phnum '(#x02 #x00))
30 (define e-shentsize '(#x00 #x00))
31 (define e-shnum '(#x00 #x00))
32 (define e-shstrndx '(#x03 #x00))
52 ;;(define elf-header '(#x7f #x45 #x4c #x46 #x01))
53 (define program-header
66 (map write-char elf-header)