I8080 TO Z80 SOURCE TRANSLATOR

Цитата:

---

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

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

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

---

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

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

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

Цитата:

---

Сообщение от 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
И желательно чтобы метки не выравнивал вместе с кодом, хотя это меньшая проблема.
Масштабирование окна тоже желательно включить.

спасибо, отправил g0blinish'у. сказал, пофиксит.

Цитата:

---

Сообщение от 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++ это достаточно удобно.
Если, действительно, есть спрос на мой скрипт, постараюсь довести до ума.

Цитата:

---

Сообщение от 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)

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

Цитата:

---

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

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

---

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

Цитата:

---

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

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

---

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

Нашелся еще один

Цитата:

---

Сообщение от 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 исправил

Цитата:

---

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

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

---

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

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

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

0+

http://s2.micp.ru/SjYih.jpg

[свернуть]

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