Перейти к содержанию
    

Примерно так (может где-то в мелочах только неточности за давностью лет ;)

DATAcodec .sect     ".dual:.DATAcodec"
txPhasa   .long     0
stepPhasa .long     ...
coefC3C4  .long     -21812 << 16 | 2231
coefC1C2  .long     12864 << 16 | 83
coefC5    .word     7374
txAmpl    .word     -32768

          .text
          .dp       DATAcodec

          AMOV      #DATAcodec, XDP
          MOV       #stepPhasa, AR2
          MOV       #outbuf, AR0
          BSET      SXMD
          BSET      ARMS
          BCLR      SATD
          BCLR      M40
          BSET      FRCT
          .arms_on

          MOV       dbl(txPhasa), AC2
          SFTL      AC2, #1, AC0
          SFTS      AC0, #-17
          ABS       AC0, T3
        ||MOV       dbl(coefC3C4), pair(hi(AC0))
          RPTBLOCAL cdc_1
          ADD       dbl(*AR2), AC2
        ||MOV       hi(AC2), AR1
          MACMR     coefC5, T3, AC1, AC3
        ||BSET      SATD
          MACR      AC3, T3, AC0, AC3
        ||MOV       dbl(coefC1C2), pair(hi(AC0))
          MACR      AC3, T3, AC1, AC3
        ||MOV       hi(AC2), T2
          MACR      AC3, T3, AC0, AC0
        ||SFTL      T2, #1
          MPYR      T3, AC0, AC3
        ||MOV       dbl(coefC3C4), pair(hi(AC0))
          SFTS      AC3, #3
        ||SFTS      T2, #-1
          XCC       AR1 < #0
        ||NEG       AC3
          MPYMR     txAmpl, AC3
        ||BCLR      SATD
cdc_1:    MOV       hi(AC3), *AR0+
        ||ABS       T2, T3

 

Крутой прогрммист ?

Мог денег заработать, а отдал свой код за бесплатно. Зачем тебе теперь платить - ты ведь всех научил своему ремеслу.

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

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Крутой прогрммист ?

Мог денег заработать, а отдал свой код за бесплатно. Зачем тебе теперь платить - ты ведь всех научил своему ремеслу.

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

..понимаю что это было давно, но что это было? ..жадность? зависть?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
К сожалению, ваш контент содержит запрещённые слова. Пожалуйста, отредактируйте контент, чтобы удалить выделенные ниже слова.
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...