f2c4dc81
 Salvador Abreu
added most of the...
|
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
.globl readInt
.globl writeInt
.globl readBool
.globl writeBool
.globl readReal
.globl writeReal
.globl readString
.globl writeString
.globl writeChar
.globl MC
.text
MC:
.long 3
.globl NC
.text
NC:
.long 8
.globl acker
.text
acker:
Lp_1:
# args: 8 bytes
# result: 4 bytes
# locals: 0 bytes
# temps: 16 bytes
#
# m: argument (4 bytes) at (ap)
# n: argument (4 bytes) at 4(ap)
#
movl sp, fp
subl2 $16, sp
Lbg_1:
movl (ap), r0
cmpl r0, $0
jneq Lel_1
movl 4(ap), r0
addl3 $1, r0, (r11)
jbr Leg_1
Lel_1:
movl 4(ap), r0
cmpl r0, $0
jneq Lel_2
movl (ap), r0
subl3 $1, r0, -8(fp)
movl $1, -4(fp)
pushr $0x3800
moval (r11), r11
movab -8(fp), ap
jsb Lp_1
popr $0x3800
jbr Leg_1
Lel_2:
movl (ap), r0
subl3 $1, r0, -8(fp)
movl (ap), -16(fp)
movl 4(ap), r0
subl3 $1, r0, -12(fp)
pushr $0x3800
moval -4(fp), r11
movab -16(fp), ap
jsb Lp_1
popr $0x3800
pushr $0x3800
moval (r11), r11
movab -8(fp), ap
jsb Lp_1
popr $0x3800
Leg_1:
movl fp, sp
rsb
.globl program
.text
program:
Lp_2:
# args: 0 bytes
# result: 0 bytes
# locals: 0 bytes
# temps: 12 bytes
#
#
movl sp, fp
subl2 $12, sp
movl MC, -8(fp)
movl NC, -4(fp)
pushr $0x3800
moval -12(fp), r11
movab -8(fp), ap
jsb acker
popr $0x3800
pushr $0x3800
movab -12(fp), r11
moval -12(fp), ap
jsb writeInt
popr $0x3800
movl $10, -12(fp)
pushr $0x3800
movab -12(fp), r11
moval -12(fp), ap
jsb writeChar
popr $0x3800
movl fp, sp
rsb
|