ZX Like Pascal

[Andrew771]

Ок, перепроверю Z.

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

Тут лежит исходник ZX Like Pascal, в нем, кажется, обновленный Z, где не нужно ничего колдовать: http://zx-pk.ru/threads/54-podderzhi...l=1#post810433

[Advertiser]

[ALKO]

Есть bat-ник для демо Z

Компилил через БАТ-ник

[Andrew771]

Компилил через БАТ-ник

Возьми обновленный исходник Z тут в исходниках ZX Like Pascal, он должен без проблем запускаться.

[Bolt]

Задам вопрос в этой теме.
Меня в demo_z.prg смущает этот код:

		if y_put>(y_map_scr-y_max_obj)
			then y_min_lim:=y_map_scr-y_max_obj
			else y_min_lim:=1;

При запуске y_map_scr=3, y_max_obj=5.
Результат вычитания в скобках отрицательный, результат сравнения будет true и в переменную y_min_lim, которая типа byte, запишется "отрицательное" число 254.
А дальше сравнение

... and (y_put>=y_min_lim) and ...

которое даст false и вывод спрайта не произойдёт.
Объясни, пожалуйста, как это работает в твоём компиляторе.

[Andrew771]

Результат вычитания в скобках отрицательный

В ZX Like Pascal нет отрицательных чисел, интерпретируется как положительное. Компилируется в код:

L18
      ld    a,(_Y_PUT)
      ld    l,a
      ld    h,0
      push  hl
      ld    a,(_Y_MAP_SCR)
      ld    l,a
      ld    h,0
      ld    de,5
      and   a
      sbc   hl,de
      pop   de
      and   a
      sbc   hl,de
      jp    nc,L19

[Bolt]

В ZX Like Pascal нет отрицательных чисел, интерпретируется как положительное.

Вон оно чо...

[Andrew771]

Ну насколько я помню, в TurboPascal, если тип переменных в выражениях byte или word, тоже нет отрицательных чисел, а проворачивается. Например, 5-6=255, насколько помню
А ты можешь тогда ввести функцию abs:

if y_put>abs(y_map_scr-y_max_obj)
			then y_min_lim:=y_map_scr-y_max_obj
			else y_min_lim:=1;

[Shiny]

для справочки: как HitechC обходится:

main()
{
	int xm=-127;
	int ym=96;

	if (xm>ym) xm=-xm;

}

RAM:80F7                 ld      (ix+0FEh), 81h ; 'Á'
RAM:80FB                 ld      (ix+0FFh), 0FFh
RAM:80FF                 ld      (ix+0FCh), 60h ; '`'
RAM:8103                 ld      (ix+0FDh), 0
RAM:8107                 ld      e, (ix+0FEh)
RAM:810A                 ld      d, (ix+0FFh)
RAM:810D                 ld      l, (ix+0FCh)
RAM:8110                 ld      h, (ix+0FDh)
RAM:8113                 call    sub_813D        ; if (xm>ym) xm=-xm;
RAM:8116                 jp      p, loc_812B
RAM:8119                 ld      e, (ix+0FEh)    ; xm=-xm
RAM:811C                 ld      d, (ix+0FFh)
RAM:811F                 ld      hl, 0
RAM:8122                 or      a
RAM:8123                 sbc     hl, de
RAM:8125                 ld      (ix+0FEh), l
RAM:8128                 ld      (ix+0FFh), h
RAM:812B
RAM:812B loc_812B:                               ; CODE XREF: sub_80F4+22j

;
RAM:813D sub_813D:                               ; CODE XREF: sub_80F4+1Fp
RAM:813D                 ld      a, h
RAM:813E                 xor     d
RAM:813F                 jp      m, loc_8145
RAM:8142                 sbc     hl, de
RAM:8144                 ret
RAM:8145 ; ---------------------------------------------------------------------------
RAM:8145
RAM:8145 loc_8145:                               ; CODE XREF: sub_813D+2j
RAM:8145                 ld      a, h
RAM:8146                 and     80h ; 'À'
RAM:8148                 sbc     hl, de
RAM:814A                 inc     a
RAM:814B                 ret

[Andrew771]

Свежий исходник демо игры Z на ZX Like Pascal тут

[Bolt]

Текущее демо Z и исходник на ZX Like Pascal. Т.к. теперь появилась инициализация массивов при объявлении, экономится много места в памяти, еще есть 13 кб свободных примерно.

Напиши, пожалуйста, как распределена память и как там 13 килобайт свободных осталось. 14 килобайт экраны, таблиц и спрайтов килобайт 18, остаётся 16 килобайт для кода. Он что, в 3 килобайта уместился?