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

isPrime FILL    1000,".",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 r2,#2                           ;r2= primFaktor
                mov r3,#32                          ;r3= maxValue(Wurzel 1000)
                add r3,r3,r0;                       ;
                mov r4,#1                           ;r4= counterFindNext
                mov r10,#"x"                          ;
                mov r11,#1000

aussen          cmp r1,r3
                ble hochrechnensch
                b forever

hochrechnensch  mov r5,r1
hochrechnen     add r5,r1
                mov r12,r0
                add r12,r12,r5
                strb r10,[r12]
                cmp r5,r11                      ;r2 resetten
                bmi hochrechnen

findeprim       add r1,r1,#1                    ;
                add r4,r1,r0
                ldrb r2,[r4]
                cmp r2,r3                       ;
                bhs speichereum                 ;
                cmp r2,#"."                     ;
                beq hochrechnensch                  ;
                b findeprim                     ;

speichereum

forever

                b   forever                         ;
                ENDP
                END