MegaMove4D

Запрограммированный по: zx_fresh Или: В прошлом веке Полезность: Мало или нет?

Лицензия: Бесплатно. ? Открытый исходный код? S не может быть открыт M?.

Инструкции

Программа “рисования” память экране атрибутов (8×8 квадрат)

Ключ ‘ENTER’ выбрать цвет, с которым рисовать. После того, как выбран с помощью клавиш управления курсором (для перемещения влево или вправо), при нажатии “Enter”, чтобы рисовать на экране.

“Ключи курсор ‘двигаться во всех 4-х направлениях.

Ключ ‘1’para выйти из программы и возврат в BASIC.

4-WAY ПРОГРАММА MEGAMOVE

Зарядное устройство BASIC

10 при п = 0 TO 7

ЧИТАЙТЕ Row 20: POKE USR “” + н, ряд 30 Вперед N

ДАННЫЕ BIN 100 10000001 ДАННЫЕ BIN 110 11111111 CLS 120 RANDOMIZE USR 130 30000

ASM КОД

; ПРОГРАММА: MEGAMOVE 4-WAY

; ПРОГРАММА ВОДИТЕЛЯ ROCKER

ORG 30000

LD, 56 LD (60500), LD HL, 22528 ВОЗВРАТ LD, (60500) LD B, 0 LD C, 32 LD D, PON LD (HL), 249 LD, 0 LD (23560), KEY LD, (23560) КС 8 JR Z, MOVIZQDA КС 9 JR Z, MOVDCHA КС 10 JR Z, MOVABAJO КС 11 JR Z, MOVARRIBA CP 13 JR Z, ЦВЕТ CP 49; ключ ‘1’, чтобы выйти RET Z JR KEY MOVIZQDA LD (HL), D SUBTRACT декабря HL LD A, H CP 87 JR Z, SUM JR PON MOVDCHA LD (HL), D SUM INC HL LD A, H CP 91 JR Z, SUBTRACT JR PON MOVABAJO LD (HL), D DOWN ДОБАВИТЬ HL, BC LD A, H CP 91 JR Z, UP JR PON MOVARRIBA LD (HL), D XOR UP HL SBC, BC LD A, H CP 87 JR Z, DOWN JR PON

; ПРОГРАММА СОЗДАНИЯ Диаграмма цвета

ЦВЕТЫ LD (HL), D

PUSH HL LD HL, 16384 LD DE, 41000 LD BC, 6912 LDIR LD, 2 ПРИЗЫВ 5633 LD C, 1 ВТОРОЙ LD B, 0 LD, 15 PON1 PUSH AF LD, 22 RST 16 LD A, C RST 16 LD A, B RST 16 LD, 144 RST 16 POP AF CP B JR Z ДРУГИЕ INC B JR PON1 ДРУГИЕ LD, 0 CP C JR Z, ЦВЕТ Декабрь C JR ВТОРОЙ ЦВЕТ LD B, 16 LD HL, 22528 LD, 0 GO LD (HL), ADD A, 8 INC HL DJNZ GO

; ПРОГРАММА ВОДИТЕЛЯ Диаграмма цвета

LD HL, 22560

PON2 LD (HL), 255 LD, 0 LD (23560), TEC LD, (23560) КС 8 JR Z, ЛЕВЫЙ КС 9 JR Z, ПРАВО CP 13 JR Z, RESET JR TEC ЛЕВЫЙ LD (HL), 56 Декабрь HL LD A, L CP 31 JR Z, НАЗАД JR PON2 ВПЕРЕД LD L, 32 JR PON2 ПРАВО LD (HL), 56 INC HL LD A, L CP 48 JR Z, ВПЕРЕД JR PON2 НАЗАД LD L, 47 JR PON2 Сброс LD, 224 ДОБАВИТЬ, L LD L, LD D, (HL) LD A, D LD DE, 60500 LD (DE) LD HL 41000 LD DE, 16384 LD BC, 6912 LDIR POP HL

JP ВОЗВРАТ