diff options
author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2024-08-21 03:18:35 -0500 |
---|---|---|
committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2024-08-21 03:18:35 -0500 |
commit | ccc04526f14764d856ad37b1f517308fccf886a6 (patch) | |
tree | 7c25442967b071a485a44c1da73b16ba84adc9af /newasm/symbol.s | |
parent | ed6f1106322f8ca4a6e26d08365bb9558ffa9d09 (diff) |
Add label and opcode parsers
Diffstat (limited to 'newasm/symbol.s')
-rw-r--r-- | newasm/symbol.s | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/newasm/symbol.s b/newasm/symbol.s new file mode 100644 index 0000000..0677f6a --- /dev/null +++ b/newasm/symbol.s @@ -0,0 +1,48 @@ +.syntax unified +.cpu cortex-m0plus +.thumb + +.type symbol, %function +.global symbol + +// 1 unexpected begin char + +// R1 input buffer +// R2 output buffer + +symbol: PUSH {LR} + LDRB R0, [R1] // get a char + BL goodchar // check if valid symbol char + BEQ loop + MOVS R0, #1 // unexpected begin char + POP {PC} +loop: ADDS R1, 1 // consume the character + STRB R0, [R2] // store in temp buffer + ADDS R2, 1 // advance temp buffer pointer + LDRB R0, [R1] // get another character + BL goodchar // check if valid symbol char + BEQ loop // if so keep getting chars + MOVS R0, #0 // return code success + STRB R0, [R2] // write null byte + POP {PC} + +goodchar: CMP R0, '$ + BEQ good + CMP R0, '. + BEQ good + CMP R0, '0 + BLO bad + CMP R0, '9 + BLS good + CMP R0, 'A + BLO bad + CMP R0, 'Z + BLS good + CMP R0, '_ + BEQ good + CMP R0, 'a + BLO bad + CMP R0, 'z + BHI bad +good: CMP R0, R0 +bad: BX LR |