Я создаю простую программу для изменения регистра букв в ASCII со строчного на заглавный. Приведённый ниже код работает как и ожидалось, за исключением сравнения символов (должны быть больше 97 и меньше 122, именно в этом промежутке находятся строчные латинские буквы).
.section .data
buff: .skip 64
example: .ascii "abcd"
.section .text
.globl _start
_start:
MOV R0, #0 @ дескриптор файла (stdin)
LDR R1, =buff @ указатель на буфер
MOV R2, #64 @ размер буфера
MOV R7, #3 @ вызываем read()
SWI #0
MOV R1, R0 @ проходим только по считанным символам
LDR R0, =buff
PUSH {R2} @ сохраняем кол-во символов в стеке
BL to_upper @ вызываем to_upper()
MOV R0, #1 @ дескриптор файла (stdout)
LDR R1, =buff @ указатель на буфер
POP {R2} @ получаем кол-во символов из стека
MOV R7, #4 @ вызываем write()
SWI #0
MOV R7, #1 @ вызываем exit()
SWI #0
@ ОПИСАНИЕ: преобразует все строчные символы в строке
@ в заглавные
@ ИСПОЛЬЗУЕМЫЕ РЕГИСТРЫ: R0, R1, R2, R3
@ АРГУМЕНТЫ: (R0)указатель на строку, (R1)длина строки
@ ВОЗВРАЩАЕМОЕ ЗНАЧЕНИЕ: (R0)
to_upper:
PUSH {LR}
MOV R2, #0 @ индекс
upperloop:
LDR R3, [R0, R2] @ выгружаем символ
CMP R3, #97 @ пропускаем символы меньше 'a'
BGT upperinc
CMP R3, #122 @ пропускаем символы больше 'z'
BLT upperinc
SUB R3, #32 @ делаем букву заглавной
STR R3, [R0, R2] @ возвращаем её обратно
upperinc:
CMP R2, R1 @ осторожно: длина строки должна быть как минимум 1
BEQ upperend @ (или возможно, получите segmentation fault)
ADD R2, #1 @ выполняем до конца строки
B upperloop
upperend:
POP {PC}