;************************************************
;* Beginn der globalen Daten *
;************************************************
                   AREA MyData, DATA, align = 2

isPrime FILL    1000,"x",1                          ;

;***********************************************
;* Beginn des Programms *
;************************************************
    AREA |.text|, CODE, READONLY, ALIGN = 3
; ----- S t a r t des Hauptprogramms -----
                EXPORT main
                EXTERN Init_TI_Board
main            PROC
                bl    Init_TI_Board                 ;HW Initialisieren
;Laden von Konstanten in Register
                ldr r0,=isPrime                     ;Primzahlenfeld füllen

;Zur Übersicht laden der Konstanten
                mov r1,#2                           ;r1= thisPrime
                mov r3,#32                          ;r3= maxValue(Wurzel 1000)
                add r3,r3,r0;                       ;Startpunkt+MaxValue
                mov r4,#1                           ;r4= counterFindNext
                mov r10,#"."                        ;Keine Primzahl
                mov r11,#1000                       ;höchste Zahl
;erste schleife
                cmp r1,r3                           ;ob thisPrime>maxValue(Wurzel 1000)
                ble starthochrechn                  ;gehe zu starthochrechn
                b forever                           ;beende Programm
starthochrechn  mov r5,r1                           ;bereite Sieb vor
                mul r5,r1
                sub r5,r1
;zweite Schleife
hochrechnen     add r5,r1                           ;rechne um Primzahl hoch
                mov r12,r0                          ;Primzahlenfeld fuellen
                add r12,r12,r5                      ;Bestimmung Vielfaches
                strb r10,[r12]                      ;Vielfaches speichern
                cmp r5,r11                          ;Pruefen ob Feldende
                bmi hochrechnen                     ;gehe zu hochrechnen
;dritte schleife
findeprim       add r1,r1,#1                        ;Erhoehe die letzte Primzahl um 1
                add r4,r1,r0                        ;Primzahl+Offset
                ldrb r2,[r4]                        ;Lade Wert in r2
                cmp r4,r3                           ;Pruefung ob thisPrime<=maxValue
                bhs speichereum                     ;gehe zu speichereum
                cmp r2,#"x"                         ;Markieren von Primzahlen mit "x"
                beq starthochrechn                  ;gehe zu starthochrechn
                b findeprim                         ;gehe zu Schleifenanfang

speichereum     add r0,#2                           ;Speichere:Start bei 2

forever

                b   forever                     ;
                ENDP
                END