Ether разработка процессора и ПО

format binary

include "ISA.inc"

in r:0
ins r:2
out r:2
; --- Стартовая метка ---
.start:
  ins r:2
  mov r:3, 0FFh
  and r:2, r:2, r:3
  mov r:3, 01h
  cmpb r:2, r:2, r:3
  cmovnz r:31, r:2, .start addr
  in r:0
  out r:0
  ; --- Выход из программы ---
  mov r:1, exits addr
  lds r:1, [r:1]
  cmpe r:1, r:0, r:1  
  mov r:2, .stop addr
  cmovnz r:31, r:1, r:2
  ; --- Сложение ---
  mov r:1, pluss addr
  lds r:1, [r:1]
  cmpe r:1, r:0, r:1  
  mov r:2, .plus addr
  cmovnz r:31, r:1, r:2
  ; --- Вычитание
  mov r:1, minuss addr
  lds r:1, [r:1]
  cmpe r:1, r:0, r:1  
  mov r:2, .minus addr
  cmovnz r:31, r:1, r:2
  ; --- Если команда неправильная --- 
  mov r:31, .start addr


; ------- Функция сложения
.plus:
  ; --- Получение цифр
  ins r:2
  mov r:3, 0FFh
  and r:2, r:2, r:3
  mov r:3, 02h
  cmpb r:2, r:2, r:3
  cmovnz r:31, r:2, .plus addr
  ; --- Вычисление
  mov r:0, 00h
  mov r:1, 00h
  in r:0
  out r:0
  in r:1
  out r:1
  add r:1, r:1, r:0
  out r:1
  mov r:31, .start addr


; ------- Функция сложения
.minus:
  ; --- Получение цифр
  ins r:2
  mov r:3, 0FFh
  and r:2, r:2, r:3
  mov r:3, 02h
  cmpb r:2, r:2, r:3
  cmovnz r:31, r:2, .minus addr
  ; --- Вычисление
  mov r:0, 00h
  mov r:1, 00h
  in r:0
  out r:0
  in r:1
  out r:1
  sub r:1, r:0, r:1
  out r:1
  mov r:31, .start addr


; ------- Функция остановки
.stop:
  out r:31
  hlt


; ------ Данные
hlt
exits dd 02fh
pluss dd 02Bh
minuss dd 02Dh