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

[breeze]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

[andrews]

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

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

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

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

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

[CodeMaster]

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

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

[breeze]

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

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

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



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

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

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

[andrews]

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

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

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

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

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

[breeze]

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



Есть статусный порт 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()
		}
	}


}

[Shiny]

хм

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){}
}

[breeze]

хм

Ну я взял асмовскую процедуру и попытался её натянуть на 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 его учитывает при сложении?

[Shiny]

Вот не совсем понятно что делает «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.

[Shiny]

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

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

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