Переключение видеорежимов:
Грузим ассемблер XAS 9.10, все примеры делаю на нём. Если вы работаете на эмуляторах то ставьте себе sjasm. Длинна меток адаптирована под XAS в 7 символов. Файл TSCONFI2 находится на диске вместе с XAS 9.10
LTEXT "TSCONFI2"; подгружаем файл с портами
ORG 26000; расположение нашей программы в памяти
CALL codesta; set video resolution вызов процедуры переключения видеорежимов
Corn; цикл
XOR A; опрашиваем клаву
IN A,(254)
CPL
AND #1F
RET NZ ; выход при нажатии любой клавиши
JR Corn
Codesta LD BC,VCONFIG; change video переключаем видеорежим
LD A,VID256X+VIDZX
OUT(C),A
RET
Виды видеорежимов, которыми можно поиграться в строке LD A,VID256X+VIDZX:
VID256X EQU #00; 256x129
VID320X EQU #40; 320x200
VID321X EQU #80; 320x240
VID360X EQU #C0; 360x288
VIDZX EQU #00; spectrum color
VID16C EQU #01; 16 colors
VID256C EQU #02; 256 colors
VIDTEXT EQU #03; text resolution
Второй способ без файла TSCONFI2 :
ORG 26000
CALL codesta; set video resolution вызов процедуры переключения видеорежимов
Corn; цикл
XOR A; опрашиваем клаву
IN A,(254)
CPL
AND #1F
RET NZ ; выход при нажатии любой клавиши
JR Corn
Codesta
LD BC,#00AF; VCONFIG LD A,(VCONFIG)
OUT (C),A
RET
VCONFIG DW %00000001; size screen and color
; теперь просто в строке VCONFIG DW меняем биты для переключения режимов
; bits 0-1 set size
; bits 6-7 set colors
; 00-256x192
; 01-320x200
; 10-320x240
; 11-360x288
; 00-zx colors
; 01-16 colors
Привет! Спасибо за статьи. Вот только здесь я подвис ))) По ссылке на ассемблер XAS 9.10 лежит диск с игрой в самолетики test.trd, обновите плиз ссылку
ОтветитьУдалитьИ тут исправил.
Удалить