19 Blocks Sources: https://en.wikipedia.org/wiki/One-instruction_set_computer#Subtract_and_branch_if_less_than_or_equal_to_zero https://esolangs.org/wiki/Subleq#Subleq2 Sample program, Counter in address 14: 15 3 15 5 13 7 14 9 15 11 15 1 -1 0 0 Source for sample program (. defines constants, if no jump address then its set to the next instruction automatically): Loop: T; T; negone; X; T; T Loop; . negone: -1 . X: 0 . T: 0
Originally, i was gonna make a MiniMAX interpreter, but that didnt work out because i didnt know any programs for MiniMAX nor where to find them. so instead of that, i made subleq2 in the same amount of blocks. however, this program cant run known subleq2 programs because the indexing starts at 1 rather than 0 because scratch is weird and dumb.