; Игра "угадай число": машина угадывает
; загаданное машиной число.
; Регистр 1 - загаданное число.
; Регистр 2 - результат в данный момент.
;;;;;
;;;;; Присваивание регистрам 55-162
;;;;; случайных значений (0 или 1).
;;;;;
LOAD 162 55      ; С какого регистра начинаем заполнение.
LOAD 161 162     ; На каком регистре заканчиваем заполнение.
LOAD 160 1       ; Константа 1.
LOOPI 162 < 161  ; Цикл, пока мы не достигнем последнего регистра.
ADD 162 162 160  ; Добавляем к текущему регистру 1 (регистр 160).
; Заносим случайное значение в регистр согласно значению регистра 162:
RAND *162
END              ; Конец цикла.
;;;;;
;;;;; Игра.
;;;;;
; Число, загаднное машиной:
RAND 1 1 100
LOAD 2 0         ; Текущая попытка (число).
SUB 3 2 1        ; Заносим в регистр 3 результат вычитания регистра 1 из регистра 2.
MUL 4 3 3        ; Возводим в квадрат регистр 3 и записываем результат в регистр 4.
LOAD 5 0         ; Константа 0.
LOAD 6 1         ; Константа 1.
LOOPI 4 > 5      ; Пока результат деления умножения попытки и загаданного числа не стал больше 0.
ADD 2 2 6        ; Увеличиваем регистр попытки (можно заменить на RAND 6 1 100).
SUB 3 2 1        ; Вычитаем в регистр 3 регистр 1 из регистра 2.
MUL 4 3 3        ; Умножаем регистр 3 на себя в регистр 4.
SLEEP 100        ; Ожидание 0.1 сек.
END              ; Конец цикла.
JUMP 1           ; Начинаем игру заново.
;;;;;
;;;;; Конец программы.
;;;;;