Ретро-ЯП Millfork для Atari, Apple II, ZX Spectrum, MSX, CP/M, NES, Game Boy и MS-DOS

Цитата:

---

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

1)вертолет при движении вправо не разворачивается на экране.

---

Ну в оригинале (AirWolf II) он и летит в одну сторону только ;)

Цитата:

---

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

2)Какая кнопка fire на клавиатуре в Altirra?

---

Вообще надо смотреть настройки, у меня выбран в качестве управления блок на цифровой клавиатуре 8,4,6,2 и 0 огонь

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

Цитата:

---

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

Вообще это годный пример, но было б неплохо добавить несколько снарядов, как в SuperCobra

---

Ну если вдохновения хватит, то можно прикрутить, и 2 ракеты и что бы враги отстреливались ;)

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

Цитата:

---

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

Ну даже без фона вполне себе миниGame. Только пару-тройку звуков добавить( при попадании во врага и при гибели вертолетика и звук вращающихся лопастей). Как там с поддержкой звуков в этом софте?

---

Так же как и со спрайтами :) Пишите свои процедуры и дрюкайте 4х канальный синтезатор

Цитата:

---

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

Хорошо бы конечно и чтобы "рожа" периодически отпулькивалась.

---

Сделаю ещё одного врага, стреляющего

Цитата:

---

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

Ну и текст сделать размером поменьше никак нельзя?

---

Текст стандартный шрифт 8x8.

Цитата:

---

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

Вообще надо смотреть настройки, у меня выбран в качестве управления блок на цифровой клавиатуре 8,4,6,2 и 0 огонь

---

0 при установках по умолчанию не работает, а Ctrl работает.

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

Цитата:

---

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

Ну в оригинале (AirWolf II) он и летит в одну сторону только

---

просто хвостом вперед летать как-то не айс

Цитата:

---

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

просто хвостом вперед летать как-то не айс

---

Вертолёты так могут.

Цитата:

---

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

просто хвостом вперед летать как-то не айс

---

Блин :) Вы это сейчас серьёзно?

Не верю, что никогда не видели AirWolf 2 на спектруме o_O

https://www.youtube.com/watch?v=RNKUtmomF4I

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

Цитата:

---

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

Вертолёты так могут.

---

А в военное время число пи достигает четырёх! © :D

Цитата:

---

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

Вы это сейчас серьёзно?

---

здесь у противника цели прикреплены. А если цель летающая и может появится в 2d мире слева и справа, то и разворачивать вертолету хвост логично. Впрочем если Вашей целью было приблизится к прототипу - тогда да.

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

Цитата:

---

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

А в военное время число пи достигает четырёх!

---

это скорее у альпинистов "Мой дорогой сэр, абсолютно перпендикулярно-- 65°, нависающе -- 70°"

Поковырял я тут опрос клавиатуры для ATARI.
В принципе можно напрямую опрашивать кнопки напрямую из порта.

https://i.postimg.cc/g2g8GSvQ/xxx.png

Есть статусный порт 753, если значение там не 0, то значит что-то было нажато и последний код читаем из 53279.
Есть пару нюансов, опрашиваются в принципе все кнопки за исключением Start, Select, Option - они другим портом читаются (53279) причём биты ещё и инвертированы (0=если нажата)
Второй момент это повтор, как видно из скриншота, даже кратковременное нажатие дублит кнопку и тут уж надо думать как реализовать логику автоповтора.

Но как для теста пойдёт.

kbd.mfk:

Код:

---

import stdio


noinline asm void wait(byte register(a) f) {
        clc
        adc os_RTCLOK.b2
        .rt_check:
        cmp os_RTCLOK.b2
        bne .rt_check
        rts
}


void printHex(byte val) {
        byte c
        c = (val >> 4)
        if (c > 9) {
                c = c - 10 + $41
        } else {
                c = c + $30
        }
        putchar(c)
        c = (val & $0f)
        if (c > 9) {
                c = c - 10 + $41
        } else {
                c = c + $30
        }
        putchar(c)
       
}


void main() {
        byte kbd, kbd2, kbd3, keyDel


        putstrz("Key Test:"z)
        new_line()


        while (true) {
                wait(1)
                keyDel = peek(753)
                if (keyDel != 0) {
                        kbd = peek(53769)
                        putword(kbd)
                        putstrz("($"z)
                        printHex(kbd)
                        putstrz(")"z)
                        new_line()
                        poke(53769, 0)
                }
                kbd2 = peek(53279)
                if (kbd2 & %00000001 == 0) {
                        putstrz("Start"z)
                        new_line()
                }
                if (kbd2 & %00000010 == 0) {
                        putstrz("Select"z)
                        new_line()
                }
                if (kbd2 & %00000100 == 0) {
                        putstrz("Option"z)
                        new_line()
                }
        }


}

---

хм

Код:

---

import stdio
array hn="0123456789ABCDEF"
byte i


void main() {

        for i,0,to,255
        {
        putchar(hn[i>>4])
        putchar(hn[i&15])
        putchar(32)
        }

    while(true){}
}

---

Цитата:

---

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

хм

---

Ну я взял асмовскую процедуру и попытался её натянуть на millfork XD
Поскольку в оригинале она как бы работала, но в купе с mf не очень, пришлось извещениями страдать. :)

Код:

---

;  A = entry value

  sed        ;2  @2
  tax        ;2  @4
  and #$0F  ;2  @6
  cmp #9+1  ;2  @8
  adc #$30  ;2  @10
  tay        ;2  @12
  txa        ;2  @14
  lsr        ;2  @16
  lsr        ;2  @18
  lsr        ;2  @20
  lsr        ;2  @22
  cmp #9+1  ;2  @24
  adc #$30  ;2  @26
  cld        ;2  @28

;  A = MSN ASCII char
;  Y = LSN ASCII char

---

Вот не совсем понятно что делает «cmp #9+1»

выставляет флаг, а потом ADC его учитывает при сложении?

Цитата:

---

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

Вот не совсем понятно что делает «cmp #9+1»

выставляет флаг, а потом ADC его учитывает при сложении?

---

https://www.c64os.com/post/6502instructions
CMP Compare Accumulator
Compare sets processor flags as if a subtraction had been carried out.

If the accumulator and the compared value are equal, the result of the subtraction is zero and the Zero (Z) flag is set. If the accumulator is equal or greater than the compared value, the Carry (C) flag is set.

Неофициальное обновление
https://t.me/VintageSoftwareDevelopment/5/86844

Цитата:

---

к сожалению нет, но (по памяти)
- поправил генерацию asm (убрал лишнее, что не давала потом асм компилить в sjasm)
- поправил расчет переходов JR, было сломано
- поправил некоторые команды (редкие, неправильные опкоды были)
- из крупного, для asm макросов добавил форму типа DUP EDUP
asm macro aaa { ... }
+4 aaa()
развернет макрос 4 раза

---

Запасайтесь(: