;; This program reads in a positive number n > 1.
;; It prints 1 if n is prime; it prints 0 otherwise.
;;
;; Date Written: 2008/02/15
;; Author: Samuel Rethwisch

allocate-registers n                         ; input register
allocate-registers end-true, end-false, loop ; label registers
allocate-registers one, zero                 ; constant registers
allocate-registers d, check, remainder       ; temporary registers

read n
li d 2
li end-true Lend-t
li end-false Lend-f
li one 1
li zero 0
li loop Lloop

Lloop:
slt check d n
jeqz check end-true
rem remainder n d
jeqz remainder end-false
add d d one
j loop

Lend-t:
write one
halt

Lend-f:
write zero
halt