blob: 869de31f65846bc6bd05932e9425907a0760f91f (
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
|
~ (cat labels.e elf.e transform.e execution.e \
~ echo 65536 read-to-buffer; \
~ cat core.e core-plus.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
|