count-chars - Zeichen zählen

Dieses Programm zählt alle Zeichen in der Eingabe
Auch hier werden wieder die C-Funktionen für die eingentliche Ein- und Ausgabe zu Hilfe genommen


@Def(| ./c-asm.sh count-chars)

@put(data)

@put(code)

@end(| ./c-asm.sh count-chars)

Neben dem Code-Block, der die Maschinensprach-Befehle enthält, gibt es noch einen Datenblock
Dieser enthält eine Zeichenkette zur Ausgabe von Zahlen


@def(data)

.data

@put(data entries)

@end(data)


@def(code)

.text

@put(main)

@end(code)


@def(main)

.global main

main:

mov r4, lr



@put(setup)

@put(loop)

@Mul(reply)



mov r0, #0

mov pc, r4

@end(main)

main ist global sichtbar und kann so vom Startup-Code aufgerufen werden
Die Rücksprung-Adresse wird wieder in r4 gesichert
Da das lr-Register bei Funktionsaufrufen überschrieben wird
Zum Schluss wird der Return-Code auf 0 gesetzt
Und an die ursprüngliche Adresse zurück gesprungen
Dazwischen wird der Zustand initialisiert, die Zeichen abgearbeitet und das Ergebnis ausgegeben


@def(setup)

mov r5, #0

@end(setup)


@def(loop)

loop:

bl getchar

cmp r0, #0

blt done

add r5, r5, #1

b loop

done:

@end(loop)


@def(data entries)

@Mul(reply format)

@end(data entries)


@Def(reply format)

reply:

.string "%d\n"

@end(reply format)


@Def(reply)

ldr r0, =reply

mov r1, r5

bl printf

@end(reply)