Prime number algorithm for redstone computer

    mov 3, R2                   ; 00 0001 0010
                                ; 01 0000 0011
    mov 0b10000000, OR          ; 02 0001 1000
                                ; 03 1000 0000
.outerloop
    mov 3, R3                   ; 04 0001 0011
                                ; 05 0000 0011
    mov 1, R4                   ; 06 0001 0100
                                ; 07 0000 0001
    mov R2, R5                  ; 08 0010 0101
    mov .upperlimitloop, TNZ    ; 09 0001 1101
                                ; 10 0000 1101
    mov .innerloop, TZ          ; 11 0001 1111
                                ; 12 0001 0101
.upperlimitloop
    mov R5, RSHF                ; 13 0101 0111
    mov RSHF, RSHF              ; 14 0111 0111
    mov RSHF, R5                ; 15 0111 0101
    mov R4, ADD                 ; 16 0100 1010
    mov R4, NEG                 ; 17 0100 1011
    mov ADD, R4                 ; 18 1010 0100
    mov R5, TEST                ; 19 0101 1110
    mov TEST, PC                ; 20 1110 0000
.innerloop
    mov R3, ADD                 ; 21 0011 1010
    mov R4, NEG                 ; 22 0100 1011
    mov NEG, NEG                ; 23 1011 1011
    mov RSHF, AND               ; 24 0111 1001
    mov AND, TEST               ; 25 1001 1110
    mov .isprime, TNZ           ; 26 0001 1101
                                ; 27 0101 0010
    mov .modulo, TZ             ; 28 0001 1111
                                ; 29 0001 1111
    mov TEST, PC                ; 30 1110 0000
.modulo
    mov R2, R5                  ; 31 0010 0101
    mov R3, R6                  ; 32 0011 0110
    mov R6, AND                 ; 33 0110 1001
    mov AND, TEST               ; 34 1001 1110
    mov .modloop, TNZ           ; 35 0001 1101
                                ; 36 0010 1110
    mov .shiftleft, TZ          ; 37 0001 1111
                                ; 38 0010 1000
    mov TEST, PC                ; 39 1110 0000
.shiftleft
    mov R6, ADD                 ; 40 0110 1010
    mov R6, NEG                 ; 41 0110 1011
    mov ADD, R6                 ; 42 1010 0110
    mov ADD, AND                ; 43 1010 1001
    mov AND, TEST               ; 44 1001 1110
    mov TEST, PC                ; 45 1110 0000
.modloop
    mov R5, ADD                 ; 46 0101 1010
    mov R6, NEG                 ; 47 0110 1011
    mov NEG, NEG                ; 48 1011 1011
    mov RSHF, AND               ; 49 0111 1001
    mov AND, TEST               ; 50 1001 1110
    mov .updateremainder, TNZ   ; 51 0001 1101
                                ; 52 0011 1000
    mov .dontupdate, TZ         ; 53 0001 1111
                                ; 54 0011 1001
    mov TEST, PC                ; 55 1110 0000
.updateremainder
    mov ADD, R5                 ; 56 1010 0101
.dontupdate
    mov R6, ADD                 ; 57 0110 1010
    mov R3, NEG                 ; 58 0011 1011
    mov NEG, NEG                ; 59 1011 1011
    mov ADD, TEST               ; 60 1010 1110
    mov .continue, TNZ          ; 61 0001 1011
                                ; 62 0100 0010
    mov .endmodloop, TZ         ; 63 0001 1111
                                ; 64 0100 0110
    mov TEST, PC                ; 65 1110 0000
.continue
    mov R6, RSHF                ; 66 0110 0111
    mov RSHF, R6                ; 67 0111 0110
    mov .modloop, PC            ; 68 0001 0000
                                ; 69 0010 1110
.endmodloop
    mov R5, TEST                ; 70 0101 1110
    mov .cantdivide, TNZ        ; 71 0001 1101
                                ; 72 0100 1100
    mov .candivide, TZ          ; 73 0001 1111
                                ; 74 0101 0011
    mov TEST, PC                ; 75 1110 0000
.cantdivide
    mov R3, ADD                 ; 76 0011 1010
    mov 2, NEG                  ; 77 0001 1011
                                ; 78 0000 0010
    mov ADD, R3                 ; 79 1010 0011
    mov .innerloop, PC          ; 80 0001 0000
                                ; 81 0001 0101
.isprime
    mov R2, DISP                ; 82 0010 0001
.candivide
    mov R2, ADD                 ; 83 0010 1010
    mov 2, NEG                  ; 84 0001 1011
                                ; 85 0000 0010
    mov ADD, R2                 ; 86 1010 0010
    mov RSHF, AND               ; 87 0111 1001
    mov AND, TEST               ; 88 1001 1110
    mov .done, TNZ              ; 89 0001 1101
                                ; 90 0101 1110
    mov .outerloop, TZ          ; 91 0001 1111
                                ; 92 0000 0100
    mov TEST, PC                ; 93 1110 0000
.done
    halt                        ; 94 0000 0000