Speccy - наш выбор! - Програмирование

Speccy - наш выбор! (http://zx-pk.ru/index.php)

- Для начинающих (http://zx-pk.ru/forumdisplay.php?f=43)

- - Програмирование (http://zx-pk.ru/showthread.php?t=7695)

Quote:

Originally Posted by AER (Post 233540)

Нужен скролл экрана с права на лево , по знакоместам с цветом , и удалением уехавшего за пределы экрана. При вызове процедуры сдвигает влево экран на одно знакоместо.

Поделитесь, пожалуйста.

Code:



ld hl,#5801

exx

ld hl,#4001

ld b,#18



l0

exx

ld d,h

ld e,l

dec e

dup 31

ldi

edup

inc hl

exx

push bc,hl



l1

ld d,h

ld e,l

dec e



push hl,de

dup 31

ldi

edup

pop de,hl



inc h

inc d

ld a,h

and #07

jr nz,l1



pop hl,bc

ld a,l

add a,#20

ld l,a

jr nc,$+6

ld a,h

add a,8

ld h,a

djnz l0

ret

как то так

Как-то так:)

Code:

ld hl,#4001

ld de,#4000

ld bc,6912

ldir

ld hl,#401f

ld de,32

ld b,27

clr_rig:

ld (hl),0

add hl,de

djnz clr_rig

тоже вариант :)
но некрасиво скролит :)

Завтра буду дома попробую. Так кака лучше будет.

Молодцы , что сказать я еще не силен в этом.

---------- Post added at 12:57 ---------- Previous post was at 12:49 ----------

Я писарь бейсик игр, куда выкладывать то желательно.

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

Quote:

Originally Posted by AER (Post 233813)

А что получается тогда?

Quote:

Originally Posted by AER (Post 233813)

тебе покороче? (с)

да хоть как, работало чтоб. тот скролл по кругу крутит

так тебе откуда и куда двигать то надо?
в демке - слева направо :)

---------- Post added at 11:25 ---------- Previous post was at 11:23 ----------

он не по кругу крутить - он двигает справа налево
а что там справа - ему по барабану

STE-это просто игру свою показал.

А вот работа вашей двигалки.

Quote:

Originally Posted by AER (Post 233540)

Твоё ТЗ?

Code:

ld hl,#4001

ld de,#4000

ld bc,6911

ldir





ld hl,#401f

ld de,32

ld b,192

clr_pix:

ld (hl),0

add hl,de

djnz clr_pix



ld b,24

clr_att

ld hl,7

add hl,de

djnz clr_att

ret

ну оно вообщето делает именно то что ты просил - сдвигает экран влево
справа тебе надо уже чемто заполнять

Это правый столбец значит мне очищать надо. Понятно.

Вы бы мне дописали его очистку после сдвига. Я буду заполнять не весь столбец а только отдельные элементы бейсиком.

Еще не достал там ?

Quote:

Originally Posted by AER (Post 234839)

Вы бы мне дописали его очистку после сдвига. Я буду заполнять не весь столбец а только отдельные элементы бейсиком.

В моем варианте как раз был отдельный цикл очистки правого столбца.

Че значит - твое тз: - ?

Quote:

Originally Posted by Vitamin (Post 234848)

В моем варианте как раз был отдельный цикл очистки правого столбца.

Code:

ld hl,#401f

ld de,32

ld b,27

clr_rig:

ld (hl),0

add hl,de

djnz clr_rig

а вот тут поподробнее - что чистит цикл? :)
он у тебя некорректно работает

---------- Post added at 15:01 ---------- Previous post was at 14:59 ----------

Quote:

Originally Posted by AER (Post 234850)

Че значит - твое тз: - ?

твое Техническое Задание
читай: описание того что должна делать заказанная программа.
тебе лет то сколько?

---------- Post added at 15:05 ---------- Previous post was at 15:01 ----------

Quote:

Originally Posted by AER (Post 234839)

Code:

; двигаем экран

ld hl,#4001

ld de,#4000

ld bc,6911

ldir





;чистим правый столбец

ld hl,#401f

ld de,32

ld b,192

clr_pix:

ld (hl),0

add hl,de

djnz clr_pix



;чистим атрибуты правого столбца

ld b,24

clr_att

ld (hl),7  ;вот здесь цвет атрибутов

add hl,de

djnz clr_att

ret

Quote:

Originally Posted by jerri (Post 234854)

а вот тут поподробнее - что чистит цикл?
он у тебя некорректно работает

А, да. Не до конца:) Атрибуты нулевым цветом- это фича такая)

27 для атрибутов - многовато ;)

Quote:

Originally Posted by Vitamin (Post 234877)

27 для атрибутов - многовато

Не. Меня переклинило- 27 секторов на экран, вот и зафигачил такое же число:)