... | ... |
@@ -29,6 +29,8 @@ Read more in the [Uxambly Guide](https://wiki.xxiivv.com/site/uxambly.html). |
29 | 29 |
``` |
30 | 30 |
( hello world ) |
31 | 31 |
|
32 |
+%RTN { JMP2r } |
|
33 |
+ |
|
32 | 34 |
@RESET |
33 | 35 |
|
34 | 36 |
,text1 ,print-label JSR2 |
... | ... |
@@ -43,7 +45,7 @@ BRK |
43 | 45 |
$loop NOP |
44 | 46 |
( send ) DUP2 LDR =Console.char |
45 | 47 |
( incr ) #0001 ADD2 |
46 |
- ( loop ) DUP2 LDR #00 NEQ ^$loop MUL JMP |
|
48 |
+ ( loop ) DUP2 LDR #00 NEQ ^$loop MUL JMP |
|
47 | 49 |
POP2 |
48 | 50 |
|
49 | 51 |
RTN |
... | ... |
@@ -77,13 +79,6 @@ RTN |
77 | 79 |
- Keep ref counts in macros |
78 | 80 |
- A fast way(2 bytes) to read from the zero page #aa LDR. |
79 | 81 |
|
80 |
-### Macros |
|
81 |
- |
|
82 |
-``` |
|
83 |
-&RTS { RSW JMP } |
|
84 |
-&JSR { PRG WSR JMP } |
|
85 |
-``` |
|
86 |
- |
|
87 | 82 |
## Notes |
88 | 83 |
|
89 | 84 |
### Conditional Jumping |
... | ... |
@@ -45,9 +45,9 @@ Program p; |
45 | 45 |
/* clang-format off */ |
46 | 46 |
|
47 | 47 |
char ops[][4] = { |
48 |
- "BRK", "NOP", "LIT", "LDR", "STR", "JMP", "JSR", "---", |
|
48 |
+ "BRK", "NOP", "LIT", "LDR", "STR", "---", "JMP", "JSR", |
|
49 | 49 |
"EQU", "NEQ", "GTH", "LTH", "AND", "XOR", "ROL", "ROR", |
50 |
- "POP", "DUP", "SWP", "OVR", "ROT", "CLN", "WSR", "RSW", |
|
50 |
+ "POP", "DUP", "SWP", "OVR", "ROT", "---", "CLN", "WSR", |
|
51 | 51 |
"ADD", "SUB", "MUL", "DIV", "---", "---", "---", "---" |
52 | 52 |
}; |
53 | 53 |
|
... | ... |
@@ -1,31 +1,10 @@ |
1 | 1 |
( tests/cond ) |
2 | 2 |
|
3 |
-%RTN { RSW2 JMP2 } |
|
4 |
-%RTN? { CLN2 JMP2? } |
|
5 |
- |
|
6 | 3 |
|0100 @RESET |
7 | 4 |
|
8 |
- #00 #d0 |
|
9 |
- |
|
10 |
- $loop NOP |
|
11 |
- ( incr ) SWP #01 ADD SWP |
|
12 |
- DUP2 LTH ^$loop SWP JMP? |
|
13 |
- POP =Console.byte |
|
14 |
- |
|
15 |
- ,routine JSR2 |
|
16 | 5 |
|
17 | 6 |
BRK |
18 | 7 |
|
19 |
-@routine |
|
20 |
- |
|
21 |
- |
|
22 |
- CLN2 JMP2 |
|
23 |
- |
|
24 |
- #aa |
|
25 |
- |
|
26 |
- |
|
27 |
-RTN |
|
28 |
- |
|
29 | 8 |
|c000 @FRAME |
30 | 9 |
|d000 @ERROR |
31 | 10 |
|
... | ... |
@@ -35,7 +35,6 @@ void op_lit(Uxn *u) { u->literal += 1; } |
35 | 35 |
void op_nop(Uxn *u) { (void)u; } |
36 | 36 |
void op_jmp(Uxn *u) { Uint8 a = pop8(u->src); u->ram.ptr += (Sint8)a; } |
37 | 37 |
void op_jsr(Uxn *u) { Uint8 a = pop8(u->src); push16(u->dst, u->ram.ptr); u->ram.ptr += (Sint8)a; } |
38 |
-void op_rtn(Uxn *u) { u->ram.ptr = pop16(u->dst); } |
|
39 | 38 |
void op_ldr(Uxn *u) { Uint16 a = pop16(u->src); push8(u->src, mempeek8(u, a)); } |
40 | 39 |
void op_str(Uxn *u) { Uint16 a = pop16(u->src); Uint8 b = pop8(u->src); mempoke8(u, a, b); } |
41 | 40 |
/* Logic */ |
... | ... |
@@ -50,8 +49,7 @@ void op_swp(Uxn *u) { Uint8 b = pop8(u->src), a = pop8(u->src); push8(u->src, b) |
50 | 49 |
void op_ovr(Uxn *u) { push8(u->src, peek8(u->src, 1)); } |
51 | 50 |
void op_rot(Uxn *u) { Uint8 c = pop8(u->src), b = pop8(u->src), a = pop8(u->src); push8(u->src, b); push8(u->src, c); push8(u->src, a); } |
52 | 51 |
void op_cln(Uxn *u) { push8(u->src, peek8(u->dst, 0)); } |
53 |
-void op_wsr(Uxn *u) { Uint8 a = pop8(u->src); push8(u->dst, a); } |
|
54 |
-void op_rsw(Uxn *u) { Uint8 a = pop8(u->dst); push8(u->src, a); } |
|
52 |
+void op_sth(Uxn *u) { Uint8 a = pop8(u->src); push8(u->dst, a); } |
|
55 | 53 |
/* Arithmetic */ |
56 | 54 |
void op_add(Uxn *u) { Uint8 a = pop8(u->src), b = pop8(u->src); push8(u->src, b + a); } |
57 | 55 |
void op_sub(Uxn *u) { Uint8 a = pop8(u->src), b = pop8(u->src); push8(u->src, b - a); } |
... | ... |
@@ -79,8 +77,7 @@ void op_swp16(Uxn *u) { Uint16 b = pop16(u->src), a = pop16(u->src); push16(u->s |
79 | 77 |
void op_ovr16(Uxn *u) { push16(u->src, peek16(u->src, 1)); } |
80 | 78 |
void op_rot16(Uxn *u) { Uint16 c = pop16(u->src), b = pop16(u->src), a = pop16(u->src); push16(u->src, b); push16(u->src, c); push16(u->src, a); } |
81 | 79 |
void op_cln16(Uxn *u) { push16(u->src, peek16(u->dst, 0)); } |
82 |
-void op_wsr16(Uxn *u) { Uint16 a = pop16(u->src); push16(u->dst, a); } |
|
83 |
-void op_rsw16(Uxn *u) { Uint16 a = pop16(u->dst); push16(u->src, a); } |
|
80 |
+void op_sth16(Uxn *u) { Uint16 a = pop16(u->src); push16(u->dst, a); } |
|
84 | 81 |
/* Arithmetic(16-bits) */ |
85 | 82 |
void op_add16(Uxn *u) { Uint16 a = pop16(u->src), b = pop16(u->src); push16(u->src, b + a); } |
86 | 83 |
void op_sub16(Uxn *u) { Uint16 a = pop16(u->src), b = pop16(u->src); push16(u->src, b - a); } |
... | ... |
@@ -92,14 +89,14 @@ void op_gth16(Uxn *u) { Uint16 a = pop16(u->src), b = pop16(u->src); push8(u->sr |
92 | 89 |
void op_lth16(Uxn *u) { Uint16 a = pop16(u->src), b = pop16(u->src); push8(u->src, b < a); } |
93 | 90 |
|
94 | 91 |
void (*ops[])(Uxn *u) = { |
95 |
- op_brk, op_nop, op_lit, op_ldr, op_str, op_jmp, op_jsr, op_rtn, |
|
92 |
+ op_brk, op_nop, op_lit, op_ldr, op_str, op_nop, op_jmp, op_jsr, |
|
96 | 93 |
op_equ, op_neq, op_gth, op_lth, op_and, op_xor, op_rol, op_ror, |
97 |
- op_pop, op_dup, op_swp, op_ovr, op_rot, op_cln, op_wsr, op_rsw, |
|
94 |
+ op_pop, op_dup, op_swp, op_ovr, op_rot, op_nop, op_cln, op_sth, |
|
98 | 95 |
op_add, op_sub, op_mul, op_div, op_nop, op_nop, op_nop, op_nop, |
99 | 96 |
/* 16-bit */ |
100 |
- op_brk, op_nop16, op_lit16, op_ldr16, op_str16, op_jmp16, op_jsr16, op_rtn, |
|
97 |
+ op_brk, op_nop16, op_lit16, op_ldr16, op_str16, op_nop, op_jmp16, op_jsr16, |
|
101 | 98 |
op_equ16, op_neq16, op_gth16, op_lth16, op_and16, op_xor16, op_rol16, op_ror16, |
102 |
- op_pop16, op_dup16, op_swp16, op_ovr16, op_rot16, op_cln16, op_wsr16, op_rsw16, |
|
99 |
+ op_pop16, op_dup16, op_swp16, op_ovr16, op_rot16, op_nop, op_cln16, op_sth16, |
|
103 | 100 |
op_add16, op_sub16, op_mul16, op_div16, op_nop, op_nop, op_nop, op_nop |
104 | 101 |
}; |
105 | 102 |
|