********************************************************************
            ;Load adresses
            LDR         R0,=Speicher
            LDR         R1,=STRING

            ;Load String to DATA
            LDM         R1,{R2,R3,R4}   ;Load String in our Registers
            STM         R0,{R2,R3,R4}   ;Write String to DATA
            EOR         R1, R1, R1      ;Set Register to Zero
            EOR         R2, R2, R2      ;""
            EOR         R3, R3, R3      ;""
            EOR         R4, R4, R4      ;""

            ;Load const values
            LDR         R3,=0x19 ; (high - low) = 0x5A - 0x41 bzw 0x7A - 0x61
            LDR         R4,=0x41 ; low - capital
            LDR         R5,=0x61 ; low - little

            ;Check letters
loop
            LDRB        R6,[R0],#1
            CMP         R6, #0x00
            BEQ         ende
            ADD         R2, R2, #1
            SUBS        R8, R6, R4
            CMP         R8, R3
            ;<19 => capital letter (A-Z)
            ADDLS       R1,R1,#1 ;Increment capital counter
            BLS         loop     ;Next char
            SUBS        R8, R6, R5
            CMP         R8, R3
            ;<19 => little letter (a-z)
            SUBLS       R6, R6, #0x20 ;Convert to capital letter
            STRBLS      R6, [R0,#-1] ;Store at R0-1
            B           loop



ende