Browse code

Moved opcodes around

neauoire authored on 16/03/2021 16:27:51
Showing 4 changed files
... ...
@@ -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