diff options
| author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2024-07-20 01:08:03 -0500 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2024-07-20 01:08:03 -0500 |
| commit | ce3ddfefd39e556f2dc81806fe8560455cf948b4 (patch) | |
| tree | b41f29be6f948f0423650b8345ea872bd064e79a /better_assembler/string.as | |
| parent | c4bd010cf5f55ff7d12e0b9c5cc69e871d590e2c (diff) | |
Add string functions for stage 3 editor
Diffstat (limited to 'better_assembler/string.as')
| -rw-r--r-- | better_assembler/string.as | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/better_assembler/string.as b/better_assembler/string.as new file mode 100644 index 0000000..35f9248 --- /dev/null +++ b/better_assembler/string.as @@ -0,0 +1,48 @@ +<0100 putstr +register zero : string offset +register one : current character, uart status +register two : tx fifo full bitmask +register three : uart zero base +LL R3 5 load uart zero base +DI R2 40 tx fifo full bitmask +LI5 R1 R3 6 get uart status +BT R1 R2 check if ready to send +JN 374 loop if not ready +LBI R1 R0 0 load one char from memory +BT R1 R1 test byte +JE 2 done if zero +SBI R1 R3 0 send one byte +AAI8 R0 1 increment string pointer +JA 3766 next char +JR R14 jump to link register +Q 0400 00 uart zero base +Q 0400 03 +<0200 getstr +register zero : string offset +register one : current character, uart status +register two : rx fifo empty bitmask +register three : uart zero base +LL R3 12 load uart zero base +DI R2 60 rx fifo empty or tx fifo full bitmask +LI5 R1 R3 6 get uart status +BT R1 R2 check if ready to receive and transmit +JN 374 loop if not ready +LBI R1 R3 0 get one char +SBI R1 R3 0 echo the char +CI R1 015 compare to carriage return +JE 2 done if equal +SBI R1 R0 0 write one char to memory +AAI8 R0 1 increment string pointer +JA 3764 next char +DI R1 000 null byte +SBI R1 R0 0 store null byte +DI R2 40 tx fifo full bitmask +LI5 R1 R3 6 get uart status +BT R1 R2 check if ready to transmit +JN 374 loop if not ready +DI R1 012 newline +SBI R1 R3 0 send newline +JR R14 jump to link register +Q 0000 00 alignment +Q 0400 00 uart zero base +Q 0400 03 |