The standard string to number conversion in Retro only supports decimal values. But it's pretty easy to extend this to handle arbitrary bases.
#10 'Base var<n>
:digit (c-s)
'0123456789ABCDEF swap s:index-of ;
:s:to-number (s-s)
| ; ============================================== | |
| ; AutoHotkey Script to remap a standard layout | |
| ; to Tauru for testing. | |
| ; | |
| ; Todo: | |
| ; - disable remaining additional keys beyond the | |
| ; 30 that this layout uses | |
| ; - become faster at touch typing using the | |
| ; layout | |
| ; ============================================== |
| http://www.keyboard-layout-editor.com/#/gists/798c1933f6b7a5bc7093d92c062f918b |
The standard string to number conversion in Retro only supports decimal values. But it's pretty easy to extend this to handle arbitrary bases.
#10 'Base var<n>
:digit (c-s)
'0123456789ABCDEF swap s:index-of ;
:s:to-number (s-s)
| :square | |
| as{ | |
| 'dumu.... i | |
| }as ; | |
| :test | |
| as{ | |
| 'lilica.. i | |
| #12 d | |
| 'square r |
| ```` | |
| 'Amps var | |
| 'Volts var | |
| 'Watts var | |
| #1 'Phase var<n> | |
| :new (-) | |
| #1 !Phase | |
| #0 !Volts | |
| #0 !Watts |
| : next | |
| i lica.... | |
| r fetch-next | |
| i zr...... | |
| i lisuswpu | |
| d 48 | |
| i swlimuad | |
| d 10 | |
| i poliju.. | |
| r next |
| lib_addr dd 0 | |
| ; void *dlopen(const char *file, int mode); | |
| code 'from', _from | |
| upsh 32 | |
| call parse | |
| embed 'zt' | |
| upop edx | |
| pusha | |
| push 0 | |
| push edx |
_
_ __ ___ _ _ _ __(_)
| '_ ` _ \| | | | '__| |
| | | | | | |_| | | | |
|_| |_| |_|\__,_|_| |_|
Muri is a minimalistic assembler for Nga.
The standard assembler for Nga is Naje. This is an attempt at making a much smaller assembler at a cost of requiring more manual knowledge of the Nga virtual machine and its encodings.
| #include <stdio.h> | |
| #include <stdlib.h> | |
| #include <string.h> | |
| #include <ctype.h> | |
| #define KiB * 1024 | |
| #define MAX_NAMES 1024 | |
| #define STRING_LEN 64 | |
| int32_t target[128 KiB]; |