.syntax unified
.equ L152,1
.include "../Core/src/regs.s"
.global mainasm
mainasm:


.equ Einerstelle,Bit12
.equ Zehnerstelle,Bit13
.equ Taste,Bit1		//Low Aktiv

main:
		bl		MFS_serial_init
		ldr		R3,=GPIOA
		mov		R1,#1
schleife:
		ldrb 	R0,[R3,IDR]
		tst		R0,Taste
		bne		weiter
		lsl		R1,1
warte:
		ldrb 	R0,[R3,IDR]
		tst		R0,Taste
		beq		warte
weiter:
		mov		R0,R1
		add	 	R0,Einerstelle
		bl	 	MFS_sendWord
		b schleife
.end
