Redstone computer code

    ld 3, R2            ; 000 0001 0010
                        ; 001 0000 0011
    ld $80, OR          ; 002 0001 1000
                        ; 003 1000 0000
.outerloop
    ld 3, R3            ; 004 0001 0011
                        ; 005 0000 0011
    ld 1, R4            ; 006 0001 0100
                        ; 007 0000 0001
    ld R2, R5           ; 008 0010 0101
    ld .shift, TNZ      ; 009 0001 1101
                        ; 010 0000 1111
    ld .innerloop, TZ   ; 011 0001 1111
                        ; 012 0001 0111
.getmax
    ld R5, TEST         ; 013 0101 1110
    ld TEST, PC         ; 014 1110 0000
.shift
    ld R5, RSHF         ; 015 0101 0111
    ld RSHF, RSHF       ; 016 0111 0111
    ld RSHF, R5         ; 017 0111 0101
    ld R4, ADD          ; 018 0100 1010
    ld R4, NEG          ; 019 0100 1011
    ld ADD, R4          ; 020 1010 0100
    ld .getmax, PC      ; 021 0001 0000
                        ; 022 0000 1101
.innerloop
    ld R2, R5           ; 023 0010 0101
    ld R3, R6           ; 024 0011 0110
.modulo
    ld .loop, TNZ       ; 025 0001 1101
                        ; 026 0010 0110
    ld .shiftleft, TZ   ; 027 0001 1111
                        ; 028 0010 0000
    ld R6, AND          ; 029 0110 1001
    ld AND, TEST        ; 030 1001 1110
    ld TEST, PC         ; 031 1110 0000
.shiftleft
    ld R6, ADD          ; 032 0110 1010
    ld R6, NEG          ; 033 0110 1011
    ld ADD, R6          ; 034 1010 0110
    ld ADD, AND         ; 035 1010 1001
    ld AND, TEST        ; 036 1001 1110
    ld TEST, PC         ; 037 1110 0000
.loop
    ld .nocarry, TZ     ; 038 0001 1111
                        ; 039 0011 0000
    ld .carry, TNZ      ; 040 0001 1101
                        ; 041 0011 0001
    ld R5, ADD          ; 042 0101 1010
    ld R6, NEG          ; 043 0110 1011
    ld NEG, NEG         ; 044 1011 1011
    ld RSHF, AND        ; 045 0111 1001
    ld AND, TEST        ; 046 1001 1110
    ld TEST, PC         ; 047 1110 0000
.carry
    ld ADD, R5          ; 048 1010 0101
.nocarry
    ld .endmodulo, TZ   ; 049 0001 1111
                        ; 050 0011 1110
    ld .continue, TNZ   ; 051 0001 1101
                        ; 052 0011 1010
    ld R6, ADD          ; 053 0110 1010
    ld R3, NEG          ; 054 0011 1011
    ld NEG, NEG         ; 055 1011 1011
    ld ADD, TEST        ; 056 1010 1110
    ld TEST, PC         ; 057 1110 0000
.continue
    ld R6, RSHF         ; 058 0110 0111
    ld RSHF, R6         ; 059 0111 0110
    ld .loop, PC        ; 060 0001 0000
                        ; 061 0010 0110
.endmodulo
    ld .candivide, TZ   ; 062 0001 1111
                        ; 063 0101 0011
    ld .cantdivide, TNZ ; 064 0001 1101
                        ; 065 0100 0100
    ld R5, TEST         ; 066 0101 1110
    ld TEST, PC         ; 067 1110 0000
.cantdivide
    ld .innerloop, TZ   ; 068 0001 1111
                        ; 069 0001 0111
    ld .isprime, TNZ    ; 070 0001 1101
                        ; 071 0101 0010
    ld R3, ADD          ; 072 0011 1010
    ld 2, NEG           ; 073 0001 1011
                        ; 074 0000 0010
    ld ADD, R3          ; 075 1010 0011
    ld R3, ADD          ; 076 0011 1010
    ld R4, NEG          ; 077 0100 1011
    ld NEG, NEG         ; 078 1011 1011
    ld RSHF, AND        ; 079 0111 1001
    ld AND, TEST        ; 080 1001 1110
    ld TEST, PC         ; 081 1110 0000
.isprime
    ld R2, DISP         ; 082 0010 0001
.candivide
    ld .outerloop, TZ   ; 083 0001 1111
                        ; 084 0000 0100
    ld .done, TNZ       ; 085 0001 1101
                        ; 086 0101 1110
    ld R2, ADD          ; 087 0010 1010
    ld 2, NEG           ; 088 0001 1011
                        ; 089 0000 0010
    ld ADD, R2          ; 090 1010 0010
    ld RSHF, AND        ; 091 0111 1001
    ld AND, TEST        ; 092 1001 1110
    ld TEST, PC         ; 093 1110 0000
.done
    halt                ; 094 0000 0000