I8080 TO Z80 SOURCE TRANSLATOR

Вид для печати

29.11.2015, 13:14
Sergey

Вложений: 1

I8080 TO Z80 SOURCE TRANSLATOR

Борясь на работе со стрессом, набросал примитивненький транслятор иcходного текста на ассемблере Intel 8080 в текст для Z80.
Прошу прощения, но на REXX.

Сохранение исходного форматирования не обеспечивается.
Исходный текст:

Код:

spcash: push psw call spcs2 pop psw ret spcs2: lhld svv1 ;if INFO1 is the constant: shld sr0 ;<constant value> into sr0 call cmh shld sr2 ;-<constant value> into sr2 dcx h shld sr4 ;-<constant value + 1> into sr4

Текст после трансляции:

Код:

spcash: push af call spcs2 pop af ret spcs2: ld hl,(svv1) ;if INFO1 is the constant: ld (sr0),hl ;<constant value> into sr0 call cmh ld (sr2),hl ;-<constant value> into sr2 dec hl ld (sr4),hl ;-<constant value + 1> into sr4
29.11.2015, 17:14
Ewgeny7

Цитата:

Сообщение от Sergey

Прошу прощения, но на REXX

Кто такой Рекс?
29.11.2015, 17:21
perestoronin

https://ru.wikipedia.org/wiki/REXX
29.11.2015, 17:25
perestoronin

Тот не знает Рекс, кому не довелось написать хотя бы один командный файл для больших машин, списанных в 90е.
И для диалоговых панелей очень удобный инструментарий был и тоже опирался на Рекс.

И сейчас развивается Рекс,, хотя всякие поделия, лоббируемые руководствами оазличных ТНК, оттеснили Рекс.

Но в любом случае, Рекс не самый оптимальный выбор для написания транслятора.
30.11.2015, 00:37
Sergey

Цитата:

Сообщение от krt17

Ха ХА ХА, я же говорил. Спасибо Ewgeny7, за такой лютый вин.
Немного объясню, недавно с пол года назад, Sergey, мне заливал что рекскс знает последний ... ну а коли я его не знаю то я вообще пропащий индивид для всего прогрессивного человечества, что как бы не исключает одно другого тем не менее не является показателем.

:v2_laugh: :v2_lol:
09.01.2016, 23:59
Sergey

Добавил в первый пост новую версию транслятора. Теперь числовые шестнадцатеричные аргументы команд, в т.ч. операторов "DB" и "DW" переводятся из вида "0xxh" в принятый на спектруме "#xx". Исключение составляют аргументы, представляющие собой арифметические выражения, - пока не осилил. :(
10.01.2016, 09:22
creator

Простите, а можно повыпендриваться не совсем по теме?

Ломаю голову над этой записью:
mov ax,020h shl 8
Это что? Догадываюсь что можно было проще 2000h написать, но зачем так людей гнобить?
10.01.2016, 23:30
jerri

из контекста неясно где используется.
30.03.2016, 23:27
zebest

Цитата:

Сообщение от Sergey

примитивненький транслятор иcходного текста на ассемблере Intel 8080 в текст для Z80

Интересный транслятор, иногда нужный. Но крови немножко он мне попиль.
'sub e' транслирует в 'sub a,e', возможно в каких то ассемблерах такая запись и правильная, возможно, но ужасм это понимает как две команды ((((((
Ну и немного меньшая головная боль с DB
было _END: DB 0,0,0E6h
стало _END: DB 0,#,0E6
Так то жи правильно??
А так да, спасибо )
31.03.2016, 22:40
Error404

Цитата:

Сообщение от jerri

из контекста неясно где используется.

Да ладно, задача то нередкая - какой-нить листинг из ужасных интеловских мнемоник (а листингов немало - разных билиотечек полезных понаписано) перевести в нормальный вид (у Z80 самый красивый ассемблер на мой вкус, в особенности в классических реализациях, например пакете M80 от Microsoft). Эта задачка очень давняя и популярная - от реализаций в CP/M, например XLATE5 (а также XIZ/XZI - соответственно в обе стороны, еще ZCON и ITOZ были - тоже аналогичные) в прошлом веке, до сравнительно современных - например в компиляторе Z88dk

Кстати, и обратная задача тоже интересная, в частности для проверки совместим ли бинарно с 8080 код, написанный в мнемониках Z80. Т.е. запустится ли он, собранный ассемблером Z80, на 8080.
01.04.2016, 17:56
jerri

Цитата:

Сообщение от Error404

Да ладно, задача то нередкая - какой-нить листинг из ужасных интеловских мнемоник (а листингов немало - разных билиотечек полезных понаписано) перевести в нормальный вид (у Z80 самый красивый ассемблер на мой вкус, в особенности в классических реализациях, например пакете M80 от Microsoft). Эта задачка очень давняя и популярная - от реализаций в CP/M, например XLATE5 (а также XIZ/XZI - соответственно в обе стороны, еще ZCON и ITOZ были - тоже аналогичные) в прошлом веке, до сравнительно современных - например в компиляторе Z88dk

Кстати, и обратная задача тоже интересная, в частности для проверки совместим ли бинарно с 8080 код, написанный в мнемониках Z80. Т.е. запустится ли он, собранный ассемблером Z80, на 8080.

там creator, в предыдущем сообщении выпендривался. вопрос ему как бы был :)
01.04.2016, 20:09
denpopov

вроде бы есть такой:
http://forum.tslabs.info/viewtopic.php?f=9&t=621

пока в разработке.
01.04.2016, 22:52
zebest

Цитата:

Сообщение от denpopov

пока в разработке.

Проверял твой конвертер на том же самом исходнике, Вычисление числа Пи на ассемблере,
что и транслятор повыше.
Теперь то я знал, что должно получится в итоге, так что было чуточку побыстрее.
Комменты на великом и могучем игнорирует напрочь, ладно.
С комментами совсем бяда. Без зазрения совести вставляет их в аргументы. Например:
Было

Код:

ld (NINES),a ;NINES = 0; cpl ld (DIGIT),a ;DIGIT = -1; ld (DOT),a ;DOT = true; ld bc,N ;for(j=0;j<N;j++) {

стало

Код:

ld (NINES ; NINES = 0;),a cpl ld (DIGIT ; DIGIT = -1;),a ld (DOT ; DOT = true;),a ld bc,N ; for(j=0;j<N;j++) {

было cp h
стало call p,h
И желательно чтобы метки не выравнивал вместе с кодом, хотя это меньшая проблема.
Масштабирование окна тоже желательно включить.
02.04.2016, 08:23
denpopov

спасибо, отправил g0blinish'у. сказал, пофиксит.
07.04.2016, 21:53
Sergey

Цитата:

Сообщение от zebest

'sub e' транслирует в 'sub a,e', возможно в каких то ассемблерах такая запись и правильная, возможно, но ужасм это понимает как две команды ((((((

Ну, тут просто: поправь скрипт в текстовом редакторе, строки 235 и 239:
Так сейчас:

Код:

I2Z_13: if upper(cargs) = "M" then do cargs = "(hl)" end oline = label||" sub a,"||cargs||" "||comment return I2Z_14: oline = label||" sub a,"||cargs||" "||comment return

будет:

Код:

I2Z_13: if upper(cargs) = "M" then do cargs = "(hl)" end oline = label||" sub "||cargs||" "||comment return I2Z_14: oline = label||" sub "||cargs||" "||comment return

Цитата:

Сообщение от zebest

Ну и немного меньшая головная боль с DB
было _END: DB 0,0,0E6h
стало _END: DB 0,#,0E6
Так то жи правильно??
А так да, спасибо )

А здесь сложнее. Знаю что глючит, пофиксить пока ума не хватает. Придётся ручками дату переносить. Да и в NP++ это достаточно удобно.
Если, действительно, есть спрос на мой скрипт, постараюсь довести до ума.
07.04.2016, 23:24
zebest

Цитата:

Сообщение от Sergey

Если, действительно, есть спрос на мой скрипт, постараюсь довести до ума.

Ну у меня как бы есть, мне Z80 мнемоники понятнее и ужасм привычнее, но комуу-то - наеборот....
Upd
Еще какая-то заморочка с псевдооператорами HIGH\LOW
такой вариант
mvi m,low(SCR_BUF)
mvi m,high(SCR_BUF)
транслирует в
ld (hl),low(SCR_BUF)
ld (hl),high(SCR_BUF)
и получается как метка, а надо с пробелом между
ld (hl),low (SCR_BUF)
ld (hl),high (SCR_BUF)

Или он их вообще чистаа как метки транслирует?
Тут скорее проблемы исходного асма, который допускает слитное написание псевдооператора и аргумента, а ужасм это понимает по своему...тогда только ручками править ((((
11.04.2016, 01:33
Sergey

Цитата:

Сообщение от zebest

Или он их вообще чистаа как метки транслирует?

Естественно, как метки.

Цитата:

Сообщение от zebest

тогда только ручками править ((((

Целью написания скрипта было избавиться от рутинной работы по трансляции мнемоник. Можно, конечно, допилить скрипт.
Но, по-моему, для трансляции high/low достаточно двух операций замены в любом текстовом редакторе:
"заменить всё" "high(" на "high (" и "low(" на "low (".
17.04.2016, 13:02
denpopov

Вложений: 1

Нашелся еще один
11.04.2018, 15:26
Shiny

Вложений: 1

Цитата:

Сообщение от zebest

Проверял твой конвертер на том же самом исходнике, Вычисление числа Пи на ассемблере,
что и транслятор повыше.
Теперь то я знал, что должно получится в итоге, так что было чуточку побыстрее.
Комменты на великом и могучем игнорирует напрочь, ладно.
С комментами совсем бяда. Без зазрения совести вставляет их в аргументы. Например:
Было

Код:

ld (NINES),a ;NINES = 0; cpl ld (DIGIT),a ;DIGIT = -1; ld (DOT),a ;DOT = true; ld bc,N ;for(j=0;j<N;j++) {

стало

Код:

ld (NINES ; NINES = 0;),a cpl ld (DIGIT ; DIGIT = -1;),a ld (DOT ; DOT = true;),a ld bc,N ; for(j=0;j<N;j++) {

было cp h
стало call p,h
И желательно чтобы метки не выравнивал вместе с кодом, хотя это меньшая проблема.
Масштабирование окна тоже желательно включить.

А ты точно брал последнюю версию?
cp h исправил
11.04.2018, 16:52
zebest

Цитата:

Сообщение от Шынни

было cp h
стало call p,h

Где ты был два дня назад :((
а5 я на эти "ср" напнулся. Посмотрю на исправленной версии как

- - - Добавлено - - -

Неее, пока все плохо

0+

http://s2.micp.ru/SjYih.jpg
[свернуть]

Слева код после твоего конвертера, справа - после правильного. Красным соответственно различия.
Ну и табуляцию как бы желательно, после твоего много ручной работы
11.04.2018, 16:53
Shiny

Давай исходник тогда.
11.04.2018, 17:52
zebest

не знаю, чем поможет исходник, при ошибке в одной и той же инструкции, но - бери
http://zx-pk.ru/threads/23376-igra-2...k-apogeya.html
11.04.2018, 17:59
Shiny

а, понял. нужно быть телепатом, чтобы догадаться, что при конверсии из z80 в 8080 не работает cmp
11.04.2018, 18:01
zebest

ровно наеборот. из 8080 в z80
11.04.2018, 18:08
Shiny

http://i104.fastpic.ru/big/2018/0411...950a00a6d8.png

сегодня не мой день xD
11.04.2018, 18:31
zebest

Объясняю в п. раз для особо дневных
http://s1.micp.ru/9t2R4.jpg
справа код 8080 - "CMP C" Слева должОн быть "CP C"/ Впрочем ху дожнику виднее....
11.04.2018, 18:33
Shiny

я сказал из z80 в 8080, верно? завтра пофиксаю.
15.04.2018, 02:10
Alex Rider

@zebest,
1. Превращать тред в разговор Шынни с самим собой не будем. Восстановил твои сообщения.
2. "наеборот", "ху дожнику"... Я еще помню даже опечатку в слове "пробел" время назад. В общем, внимательнее надо быть при наборе текста.
15.04.2018, 02:56
zebest

завтра - это 12 число, а не 15, потому и было удалено, что правилами не возбраняется?...
и в очепятки, Ваши, я то жи мог бы ткнуть. Но это уже тянет на статью об оскорблении лица при исполнении??
Баньте сразу, чего уж.

- - - Добавлено - - -

дорога ложка к обеду
15.04.2018, 03:20
Alex Rider

Цитата:

Сообщение от zebest

что правилами не возбраняется?

Нет. Но делать так не надо - ты портишь этим тред.

Цитата:

Сообщение от zebest

и в очепятки, Ваши, я то жи мог бы ткнуть

Договорились. Я внимательно послежу за статистикой того, насколько часто твои опечатки похожи на мат.
15.04.2018, 08:54
Shiny

В общем, 8080 привел в порядок, с соблюдением форматирования оригинального текста.
Затык на:

Код:

OPORT: CALL READHL ;PORT MOV C,L CALL READHL ;DATA MVI A,OUTC ;OUT OPCODE

т.е. метка пропускается, иначе может получиться не пойми что. Как определить метку, нет мыслей.

Дело за z80, вышло, что при соблюдении форматирования сам код валится.

Похоже, что библиотека RegExp не поддерживает замену, иначе вышло бы очень просто.
22.04.2018, 07:52
Shiny

Вложений: 1

Как бы финал, но боюсь, что я проглядел возможные косяки.
19.05.2025, 14:35
Jason

Цитата:

Сообщение от Shiny

Как бы финал,

Пробую перегнать ZCPR2 под Z80.
Конкретно - zcpr8080.asm
Исходник заглавными буквами, на выходе получается мешанина из строчных и заглавных.
Надо всё править руками.
Там как-бы есть версия под Z80, но под неизвестный ассемблер и команды Z80 сделаны макросами.
m80 или ma80 не могут это переварить.
25.05.2025, 15:08
Shiny

Цитата:

Сообщение от Jason

Пробую перегнать ZCPR2 под Z80.
Конкретно - zcpr8080.asm
Исходник заглавными буквами, на выходе получается мешанина из строчных и заглавных.
Надо всё править руками.
m80 или ma80 не могут это переварить.

Ага, давайте подо все ассемблеры нагнемся и исправим.

Последняя версия была тут:
https://g0blinish.ucoz.ru/pb-dev/z808080_1.0e.zip
подсветка ошибок, исправлены глюки. На этом разработка и поддержка остановлена.

Текущее время: 00:41. Часовой пояс GMT +3.

I8080 TO Z80 SOURCE TRANSLATOR

0+