-
Notifications
You must be signed in to change notification settings - Fork 0
/
ManualFoob3.disasm.j
92 lines (79 loc) · 1.88 KB
/
ManualFoob3.disasm.j
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
.class public synchronized ManualFoob3
.super Procedure
.field public static stringers Ljava/lang/String;
.method public toString()Ljava/lang/String;
.limit locals 1
.limit stack 3
new java/lang/StringBuilder
dup
invokenonvirtual java/lang/StringBuilder.<init>()V
getstatic ManualFoob3/stringers Ljava/lang/String;
invokevirtual java/lang/StringBuilder.append(Ljava/lang/String;)Ljava/lang/StringBuilder;
invokestatic java/lang/Math.random()D
invokevirtual java/lang/StringBuilder.append(D)Ljava/lang/StringBuilder;
invokevirtual java/lang/StringBuilder.toString()Ljava/lang/String;
areturn
.end method
.method public <init>()V
.limit locals 1
.limit stack 2
aload_0
ldc "BLARGH"
invokenonvirtual Procedure.<init>(Ljava/lang/String;)V
return
.end method
.method public run([LLispObject;)LLispObject;
.limit locals 3
.limit stack 10
aload_1
iconst_0
aaload
astore_2
aload_0
iconst_1
anewarray LispObject
dup
iconst_0
aload_2
checkcast LispNumber
new LispFixnum
dup
lconst_1
invokenonvirtual LispFixnum.<init>(J)V
invokevirtual LispNumber.sub(LLispNumber;)LLispNumber;
aastore
invokevirtual ManualFoob3.run([LLispObject;)LLispObject;
checkcast LispNumber
aload_0
iconst_1
anewarray LispObject
dup
iconst_0
aload_2
checkcast LispNumber
new LispFixnum
dup
ldc2_w 2
invokenonvirtual LispFixnum.<init>(J)V
invokevirtual LispNumber.sub(LLispNumber;)LLispNumber;
aastore
invokevirtual ManualFoob3.run([LLispObject;)LLispObject;
checkcast LispNumber
invokevirtual LispNumber.add(LLispNumber;)LLispNumber;
areturn
.end method
.method public volatile printObject(LLispStream;)V
.limit locals 2
.limit stack 2
aload_0
aload_1
invokenonvirtual Procedure.printObject(LLispStream;)V
return
.end method
.method static <clinit>()V
.limit locals 0
.limit stack 1
ldc "Wee a weirdo mockup yay!"
putstatic ManualFoob3/stringers Ljava/lang/String;
return
.end method