Язык Cowgol и компилятор для 6502, 8080, Z80, 8086, 80386, PDP-11, ARM(thumb2) и в Си

[Кря Кря]

Да, спасибо. Очень приятно услышать конструктивную критику от тролля в свой собственный адрес)

Вот смотри, я 2 или 3 сообщения написал тебе, нормально написал, еще несколько не тебе, но ты вылез из своего чулана и начал меня оскорблять, по всей видимости пытаясь спровоцировать и накидать жалоб.
И о какой критике речь? Ты просто решил еще раз меня оскорбить, даже там где от меня не было сообщений. Ты просто жалок. Тебя даже обероновцы с своего форума выпхали, ты их и там достал своим постоянным нытьем.

Можешь дальше размазывать, мне побоку на тебя.

[Oleg N. Cher]

Крякушенька,

ты не можешь нормально писать, ты для этого не подходишь. Ты можешь только пить кровь из тех, кто с тобой соприкасается.

Ты человек абсолютно иных от моих ценностей, и не можешь сказать мне ничего полезного. Уж за 45 лет я научился разбираться в людях. От таких как ты исходит только тлен и хаос.

Я не вижу, чтобы ты делал хоть что-то полезное даже здесь на форуме. Ты не кодишь, не конструируешь. Ты даже не рисуешь карты к играм. Ты не пытаешься что-то предложить вместо асма, как хотя бы пытаюсь делать это я. Ты именно ноешь и ноешь, и от этого уже всем тошно.

И да, никто меня ниоткуда не выпихивал, это твои влажные фантазии. А на конкретно этом форуме было немного чище пока ты не прилез снова замусоривать темы.

[Oleg N. Cher]

Кстати, здесь на форуме каждый второй, если не первый, пост люди дискутируют и обозначают проблемы. Именно эти термины я употребляю вместо твоих "размазывают" и "ноют". А что, что ты обвиняешь в этом только меня, говорит о твоём врождённом лицемерии.

[Hunta]

Поэтому всем, кто жаждет писать на асме

Язык ассемблера:

  PROCEDURE MULBLK
  BEGIN
    LET R0     := BLKBEG
    LET R2     := CAPTR
    LET R3     := ACTCNT

    THRU R3					; blocks count

      ; INIT
      LET R4 := (R2)				; block words count
      IF RESULT IS NE THEN
        LET R5 := 2(R2)				; first word command pointer
        THRU R4
          LET (R0)+ := (R5)+			; copy next block
        END
      ELSE
        LET (R0)+ := #NOP
      END

      IF APHASE NE #0 THEN			; if not init calculating

        ; ACTION
        LET R4 := 4(R2)
        IF RESULT IS NE THEN
          LET R5 := 6(R2)			; first word command pointer
          THRU R4
            LET (R0)+ := (R5)+			; copy next block
          END
        END

      END

    END

    LET (R0)+ := (PC) 				; and return at end
    RETURN
  END MULBLK

[Bedazzle]

Язык ассемблера

сурово

[Hunta]

сурово

Да не особо. Просто ассемблер MACRO-11 поддерживает макросы, причём механизм настолько эффективен, что позволяет реализовать макросы для структурных операторов.

Исходно этот пакет макросов написал кто-то (EDWIN H. MARISON) в DEC (?), ну а когда мне он попался на глаза, я понял, что с его помошью можно решить некоторое количество проблем (в первую очередь - кучи одноразовых меток) и, скорее всего, сильно ускорить написание программ (да, на языках ассемблера программы пишутся медленней, зато работают и трятят ресурсов (при наличии опыта у писателя) меньше.

Исходный вариант я доработал (и дорабатываю), так что сейчас у меня есть MODULE, IMPORT, EXPORT, PROCEDURE, IF, ELSIF, ELSE, WHILE, REPEAT-UNTIL, FOR (но вот с ним я толком не разобрался), LOOP, THRU (цикл с определённым количеством повторений), CASE (такое впечатление, что недоделанная заготовка - не разбирался) ну и плюс умение (до определённой степени) парсить выражение, так что проходит что-то типа

      LET R0  := R1 + R0 + R0 + R1  + #CMDPTR + #2 ; R0 := TCURR*8+TCURR*2 (Message, init(2), action(2), skip title
...
      IF R2 EQ #0 AND R3 EQ #0 LEAVE LOOP

[Dart Alver]

Просто ассемблер MACRO-11 поддерживает макросы, причём механизм настолько эффективен, что позволяет реализовать макросы для структурных операторов.

Даже любопытно стало, можно ли чтото похожее сбацать в SjASMе, если поковырять макросы и Lua ?

[Hunta]

можно ли чтото похожее сбацать

Вот тут ничего подсказать не могу, но учитывая, что на MACRO-11 делали макросы для генерации кода под 6502 (только, похоже, они утеряны - но нард на vcfed пытается найти) и, если мне не изменяет память, я видел и под 8080 (надо будет покопаться в своей файло-помойку) - что-то мне подсказывает, что подобный трюк можно будет провернуть на MACRO-11

[Andrew771]

Andrew771, ты подумай как можно сделать задачи по оптимизации качества кода маленькими и законченными подзадачами. Если каждый напишет своё золотое правило - вот и получится классная кодогенерация. Я понимаю насколько это сложно. Ну так может хватит просто передирать у Вирта, а вместо этого сделать лучше, чем Вирт? Пусть это будет скриптовый мини-язык оптимизаций или щелевой (peephole) оптимизатор. Ты просто пойми барьер тех, кто не хочет влезать в весь твой код, кому не нравится Паскаль, кому не нравится Z80. А хотя да, пустое пишу.

Не пустое. Со времен своей статьи по генерации и оптимизации кода 2015 года (стр.52) я уже серьезно продвинулся дальше. Первые оптимизации действительно делал по книге Вирта "Построение компиляторов". В ней только общими словами на 2-3 страницы было описано. а я перевел в код асма Спектрума. А после делал свои оптимизации (не описаны в книге), последние летом 2023 года - нахождение одинаковых кусков кода и оформление их в процедуры. До этого оптимизировал индексы массивов и быстрое умножение. Подумывал уже про байт-код java, место сэкономлю еще, но производительность немного упадет. Думаю как опцию сделать. Нужно уже новую статью писать

[Oleg N. Cher]

Извини, что я обобщаю. На самом деле в плане оптимизации ты продвинулся даже несколько дальше Вирта. Вирт оптимизациями особо не заморачивался.