| ... | ... |
@@ -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 |
|