;; This program prints all primes < 100.

    allocate-registers zero one done1 done2 over1 over2 maxn n test is_prime d r loop1 loop2 true

    li zero 0
    li one 1

    li loop1 loop1L
    li loop2 loop2L
    li done1 done1L
    li done2 done2L
    li over1 over1L
    li over2 over2L
    li true trueL

    li maxn 100
    li n 2
loop2L:
    slt test n maxn
    jeqz test done2

    li is_prime 1
    li d 2
loop1L:
    slt test d n
    jeqz test done1
    rem r n d
    jeqz r over1
    j true
over1L:
    add is_prime r zero
trueL:
    add d d one
    j loop1

done1L:
    jeqz is_prime over2
    write n
over2L:
    add n n one
    j loop2

done2L:
    halt