diff options
| author | Bad Diode <bd@badd10de.dev> | 2023-08-28 15:56:17 +0200 |
|---|---|---|
| committer | Bad Diode <bd@badd10de.dev> | 2023-08-28 15:56:17 +0200 |
| commit | 4a98636f412b5bbcafdbc04e4780b9118170f201 (patch) | |
| tree | e1c381cd318f5f49631b25c8bdb5dd3ac4b1a4d9 /src/uxn-core.s | |
| parent | 36f915209713b8d7b79ac607f22f32c389ae2d67 (diff) | |
| download | uxngba-4a98636f412b5bbcafdbc04e4780b9118170f201.tar.gz uxngba-4a98636f412b5bbcafdbc04e4780b9118170f201.zip | |
Add sft operations
Diffstat (limited to 'src/uxn-core.s')
| -rw-r--r-- | src/uxn-core.s | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/uxn-core.s b/src/uxn-core.s index e6e58c3..9288ccf 100644 --- a/src/uxn-core.s +++ b/src/uxn-core.s | |||
| @@ -690,8 +690,22 @@ eor2: | |||
| 690 | b uxn_decode | 690 | b uxn_decode |
| 691 | 691 | ||
| 692 | sft: | 692 | sft: |
| 693 | wpop8 r4 | ||
| 694 | wpop8 r3 | ||
| 695 | lsr r5, r4, #4 | ||
| 696 | and r4, #0x0f | ||
| 697 | lsr r3, r3, r4 | ||
| 698 | lsl r3, r3, r5 | ||
| 699 | wpush8 r3 | ||
| 693 | b uxn_decode | 700 | b uxn_decode |
| 694 | 701 | ||
| 695 | sft2: | 702 | sft2: |
| 703 | wpop8 r4 | ||
| 704 | wpop16 r3, r5 | ||
| 705 | lsr r5, r4, #4 | ||
| 706 | and r4, #0x0f | ||
| 707 | lsr r3, r3, r4 | ||
| 708 | lsl r3, r3, r5 | ||
| 709 | wpush16 r3 | ||
| 696 | b uxn_decode | 710 | b uxn_decode |
| 697 | 711 | ||