U-Code-Interpreter/test.uco at main · Seol-JY/U-Code-Interpreter · GitHub

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
main       proc 12
           sym 0 1
           sym 1 10
           sym 11 1
           ldc 0
           dup
           str 11
           str 0
$$0        nop
           lod 0
           ldc 10
           lt
           fjp $$1
           lod 11
           ldp
           lod 0
           lda 1
           call sub
           add
           str 11
           lod 0
           inc
           str 0
           ujp $$0
$$1        nop
           ldp
           lod 11
           call write
           end
           sub
sub        proc 2
           sym 12 1
           sym 13 1
           str 13
           str 12
           lod 12
           ldc 100
           add
           lod 12
           lod 13
           add
           swp
           sti
           lod 12
           lod 13
           add
           ldi
           retv
           end
           bgn
           ldp
           call main
           end