текст (hex) в бинарник

[macomics]

Только что на board.flatassembler.net попросили программу перевода текста (шестнадцатеричных цифр) в бинарный файл. Я набросал за несколько минут вариант этой программы.

format binary as "bin"
virtual at 0
translate::
db $30 dup $80
.A db $0A dup $ - .A
db $07 dup $80
.B db $06 dup $ + $0A - .B
db $1A dup $80
.C db $06 dup $ + $0A - .C
db $9A dup $80
store byte $F0 at $09
store byte $F0 at $0A
store byte $F0 at $0D
store byte $F0 at $20
end virtual
virtual at 0
text::
match text, INPUT_FILE { file `text }
text.Length = $
end virtual
value = 0
index = 0
while index < text.Length
  load alpha byte from text:index
  load digit byte from translate:alpha
  if digit and $F0 = $F0
    if value and $1100 >= $0100
      db value and $FF
      value = 0
    end if
  else if digit and $80 = 0
    value = value shl 4 or digit or $100
    if value and $1100 = $1100
      db value and $FF
      value = 0
    end if
  else
    break
  end if
  index = index + 1
end while
if index < text.Length
  display "Error symbol '", alpha, "' at "
  digit = $0A
  while digit < index
    digit = digit * $0A
  end while
  while digit > 1
    digit = digit / $0A
    display (index / digit) mod $0A + $30
  end while
  display "!", $0D, $0A
  err
else if value and $1100 >= $0100
  db value and $FF
end if

Сохраняете в source.asm и запускаете

fasm source.asm [выходной файл] -m <лимит памяти, кб> -d INPUT_FILE="<текстовый файл>"

[выходной файл] - указывать не обязательно, но тогда вывод будет в файле source.bin
-m <лимит памяи, кб> под Windows можно тоже не указывать, но под Linux fasm выделяет обычно не более 16 Мб и этого может не хватить
<текстовый файл> - файл содержащий 16-ые числа, возможно разделенные пробелами и знаками табуляции, а так же разделенные на произвольное число строк произвольной длины

При ошибке fasm не создаст выходной файл, а в консоль будет напечатан символ с ошибкой и его смещение от начала файла

ADD: Эх. Не в тот раздел. Закиньте в Assembler пожалуйста
ADD: Спасибо.