blob: df59a2a1c41d04771878fbdc1104ecaeff216ee9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
~ (cat labels.e elf.e transform.e execution.e \
~ echo 131072 read-to-buffer; \
~ cat core.e core-plus.e linux.e output.e \
~ amd64.e execution-support.e log-load.e; \
~ echo pyrzqxgl; \
~ cat evoke.e) \
~ | ./quine > evoke && chmod 755 evoke && ./evoke
s" source-to-precompile" variable
~ : fooze 4 . ; fooze
1024 read-to-buffer
here @
dup L!' docol-codeword-value
:rsi pack-pushcontrol
8 :rax add-reg64-imm8
:rax :rsi mov-reg64-reg64
pack-next
8 packalign
here !
: docol
[ here @
L@' docol-codeword-value :rax mov-reg64-imm64
:rax push-reg64
here ! ] ;asm
: exit
[ here @
:rsi pack-popcontrol
here ! ] ;asm
: foo 1 2 + ;
0 sys-exit
pyrzqxgl
s" source-to-copy-to-log" variable
~ (output memory start, current output point
~ -- output memory start, current output point)
~ (output memory start, current output point
~ -- output memory start, current output point)
~
~ Everything directly called by all-contents has this same interface.
~
: all-contents
0x08000000 L!' origin
elf-file-header
elf-program-header
output-cold-start
source-to-copy-to-log output-warm-start
source-to-precompile label-transform
0 L!' final-word-name
current-offset L!' total-size
0 L!' :
0 L!' ;
0 L!' ;asm
;
' all-contents entry-to-execution-token label-loop
swap sys-write bye
|