diff options
author | Bad Diode <bd@badd10de.dev> | 2023-08-31 09:24:29 +0200 |
---|---|---|
committer | Bad Diode <bd@badd10de.dev> | 2023-08-31 09:24:29 +0200 |
commit | ea85184fdadf08760aa8f88871f96ddf8dde2914 (patch) | |
tree | 7cefaf976881d3d4a1035e2213689dfb982b8f88 /src/uxn-core.s | |
parent | 7a02b549a38dadb48c43143ff94c9094abf25555 (diff) | |
download | uxngba-ea85184fdadf08760aa8f88871f96ddf8dde2914.tar.gz uxngba-ea85184fdadf08760aa8f88871f96ddf8dde2914.zip |
Fix dup(2kr) and ovr(2kr) behaviour
Diffstat (limited to 'src/uxn-core.s')
-rw-r--r-- | src/uxn-core.s | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/uxn-core.s b/src/uxn-core.s index 7d73b18..255bb99 100644 --- a/src/uxn-core.s +++ b/src/uxn-core.s | |||
@@ -1922,6 +1922,7 @@ rot2k: | |||
1922 | dupk: | 1922 | dupk: |
1923 | wpeek8 r3, #-1 | 1923 | wpeek8 r3, #-1 |
1924 | wpush8 r3 | 1924 | wpush8 r3 |
1925 | wpush8 r3 | ||
1925 | b uxn_decode | 1926 | b uxn_decode |
1926 | 1927 | ||
1927 | dup2k: | 1928 | dup2k: |
@@ -1929,16 +1930,27 @@ dup2k: | |||
1929 | wpeek8 r4, #-1 | 1930 | wpeek8 r4, #-1 |
1930 | wpush8 r3 | 1931 | wpush8 r3 |
1931 | wpush8 r4 | 1932 | wpush8 r4 |
1933 | wpush8 r3 | ||
1934 | wpush8 r4 | ||
1932 | b uxn_decode | 1935 | b uxn_decode |
1933 | 1936 | ||
1934 | ovrk: | 1937 | ovrk: |
1935 | wpeek8 r3, #-2 | 1938 | wpeek8 r3, #-2 |
1939 | wpeek8 r4, #-1 | ||
1940 | wpush8 r3 | ||
1941 | wpush8 r4 | ||
1936 | wpush8 r3 | 1942 | wpush8 r3 |
1937 | b uxn_decode | 1943 | b uxn_decode |
1938 | 1944 | ||
1939 | ovr2k: | 1945 | ovr2k: |
1940 | wpeek8 r3, #-4 | 1946 | wpeek8 r3, #-4 |
1941 | wpeek8 r4, #-3 | 1947 | wpeek8 r4, #-3 |
1948 | wpeek8 r5, #-2 | ||
1949 | wpeek8 r6, #-1 | ||
1950 | wpush8 r3 | ||
1951 | wpush8 r4 | ||
1952 | wpush8 r5 | ||
1953 | wpush8 r6 | ||
1942 | wpush8 r3 | 1954 | wpush8 r3 |
1943 | wpush8 r4 | 1955 | wpush8 r4 |
1944 | b uxn_decode | 1956 | b uxn_decode |
@@ -2342,6 +2354,7 @@ rot2kr: | |||
2342 | dupkr: | 2354 | dupkr: |
2343 | rpeek8 r3, #-1 | 2355 | rpeek8 r3, #-1 |
2344 | rpush8 r3 | 2356 | rpush8 r3 |
2357 | rpush8 r3 | ||
2345 | b uxn_decode | 2358 | b uxn_decode |
2346 | 2359 | ||
2347 | dup2kr: | 2360 | dup2kr: |
@@ -2349,16 +2362,27 @@ dup2kr: | |||
2349 | rpeek8 r4, #-1 | 2362 | rpeek8 r4, #-1 |
2350 | rpush8 r3 | 2363 | rpush8 r3 |
2351 | rpush8 r4 | 2364 | rpush8 r4 |
2365 | rpush8 r3 | ||
2366 | rpush8 r4 | ||
2352 | b uxn_decode | 2367 | b uxn_decode |
2353 | 2368 | ||
2354 | ovrkr: | 2369 | ovrkr: |
2355 | rpeek8 r3, #-2 | 2370 | rpeek8 r3, #-2 |
2371 | rpeek8 r4, #-1 | ||
2372 | rpush8 r3 | ||
2373 | rpush8 r4 | ||
2356 | rpush8 r3 | 2374 | rpush8 r3 |
2357 | b uxn_decode | 2375 | b uxn_decode |
2358 | 2376 | ||
2359 | ovr2kr: | 2377 | ovr2kr: |
2360 | rpeek8 r3, #-4 | 2378 | rpeek8 r3, #-4 |
2361 | rpeek8 r4, #-3 | 2379 | rpeek8 r4, #-3 |
2380 | rpeek8 r5, #-2 | ||
2381 | rpeek8 r6, #-1 | ||
2382 | rpush8 r3 | ||
2383 | rpush8 r4 | ||
2384 | rpush8 r5 | ||
2385 | rpush8 r6 | ||
2362 | rpush8 r3 | 2386 | rpush8 r3 |
2363 | rpush8 r4 | 2387 | rpush8 r4 |
2364 | b uxn_decode | 2388 | b uxn_decode |