... | ... |
@@ -1,7 +1,5 @@ |
1 | 1 |
( dev/audio ) |
2 | 2 |
|
3 |
-%4** { #20 SFT2 } |
|
4 |
-%8** { #30 SFT2 } |
|
5 | 3 |
%MOD { DUP2 DIV MUL SUB } |
6 | 4 |
|
7 | 5 |
( devices ) |
... | ... |
@@ -55,7 +53,7 @@ BRK |
55 | 53 |
|
56 | 54 |
@on-frame ( -> ) |
57 | 55 |
|
58 |
- ( incr ) .timer LDZ #01 ADD .timer STZ |
|
56 |
+ ( incr ) .timer LDZ INC .timer STZ |
|
59 | 57 |
( skip ) .timer LDZ #10 EQU #01 JCN [ BRK ] |
60 | 58 |
|
61 | 59 |
( get note ) |
... | ... |
@@ -1,7 +1,6 @@ |
1 | 1 |
( GUI Shapes ) |
2 | 2 |
|
3 | 3 |
%RTN { JMP2r } |
4 |
-%++ { #0001 ADD2 } |
|
5 | 4 |
%-- { #0001 SUB2 } |
6 | 5 |
%8++ { #0008 ADD2 } |
7 | 6 |
%2** { #10 SFT2 } |
... | ... |
@@ -79,7 +78,7 @@ RTN |
79 | 78 |
( save ) OVR2 .Screen/y DEO2 |
80 | 79 |
( draw ) .rect/x1 LDZ2 .Screen/x DEO2 .color LDZ DUP .Screen/pixel DEO |
81 | 80 |
( draw ) .rect/x2 LDZ2 .Screen/x DEO2 .Screen/pixel DEO |
82 |
- ( incr ) SWP2 ++ SWP2 |
|
81 |
+ ( incr ) SWP2 INC2 SWP2 |
|
83 | 82 |
OVR2 OVR2 LTS2 ,&ver JCN |
84 | 83 |
POP2 POP2 |
85 | 84 |
.rect/x1 LDZ2 .rect/x2 LDZ2 |
... | ... |
@@ -87,8 +86,8 @@ RTN |
87 | 86 |
( save ) OVR2 .Screen/x DEO2 |
88 | 87 |
( draw ) .rect/y1 LDZ2 .Screen/y DEO2 .color LDZ DUP .Screen/pixel DEO |
89 | 88 |
( draw ) .rect/y2 LDZ2 .Screen/y DEO2 .Screen/pixel DEO |
90 |
- ( incr ) SWP2 ++ SWP2 |
|
91 |
- OVR2 OVR2 ++ LTS2 ,&hor JCN |
|
89 |
+ ( incr ) SWP2 INC2 SWP2 |
|
90 |
+ OVR2 OVR2 INC2 LTS2 ,&hor JCN |
|
92 | 91 |
POP2 POP2 |
93 | 92 |
|
94 | 93 |
RTN |
... | ... |
@@ -103,10 +102,10 @@ RTN |
103 | 102 |
&hor |
104 | 103 |
( save ) OVR2 .Screen/x DEO2 |
105 | 104 |
( draw ) .color LDZ .Screen/pixel DEO |
106 |
- ( incr ) SWP2 ++ SWP2 |
|
105 |
+ ( incr ) SWP2 INC2 SWP2 |
|
107 | 106 |
OVR2 OVR2 LTS2 ,&hor JCN |
108 | 107 |
POP2 POP2 STH2r STH2r |
109 |
- ( incr ) SWP2 ++ SWP2 |
|
108 |
+ ( incr ) SWP2 INC2 SWP2 |
|
110 | 109 |
OVR2 OVR2 LTS2 ,&ver JCN |
111 | 110 |
POP2 POP2 POP2 POP2 |
112 | 111 |
|
... | ... |
@@ -119,7 +118,7 @@ RTN |
119 | 118 |
.circle/r LDZ2 2** .circle/d STZ2 |
120 | 119 |
( draw ) ;&seg JSR2 |
121 | 120 |
&loop |
122 |
- ( incr ) .circle/x LDZ2 ++ .circle/x STZ2 |
|
121 |
+ ( incr ) .circle/x LDZ2 INC2 .circle/x STZ2 |
|
123 | 122 |
.circle/d LDZ2 #0001 LTS2 ,&else JCN |
124 | 123 |
( decr ) .circle/y LDZ2 -- .circle/y STZ2 |
125 | 124 |
.circle/x LDZ2 .circle/y LDZ2 SUB2 4** .circle/d LDZ2 ADD2 .circle/d STZ2 |
... | ... |
@@ -167,7 +166,7 @@ RTN |
167 | 166 |
&loop |
168 | 167 |
( save ) OVR2 .Screen/x DEO2 |
169 | 168 |
( draw ) STHkr .Screen/pixel DEO |
170 |
- ( incr ) SWP2 #0002 ++ SWP2 |
|
169 |
+ ( incr ) SWP2 #0002 INC2 SWP2 |
|
171 | 170 |
LTH2k ,&loop JCN |
172 | 171 |
POP2 POP2 POPr |
173 | 172 |
|
... | ... |
@@ -179,7 +178,7 @@ RTN |
179 | 178 |
&loop |
180 | 179 |
( save ) OVR2 .Screen/y DEO2 |
181 | 180 |
( draw ) STHkr .Screen/pixel DEO |
182 |
- ( incr ) SWP2 #0002 ++ SWP2 |
|
181 |
+ ( incr ) SWP2 #0002 INC2 SWP2 |
|
183 | 182 |
LTH2k ,&loop JCN |
184 | 183 |
POP2 POP2 POPr |
185 | 184 |
|