Кодинг для Спектрум и 8бит

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



Code Samples

Сообщений 1 страница 2 из 2

1

Чтение файла с помощью TR-Dos

Опрос клавиатуры

опрос Kempston Mouse

FastWell-BehavedPatternFloodFillA (заливка с текстурой)

2

переход в режим 48 с открытым портом.

Код:
DI
LD	SP,(23613)
POP	HL
LD	HL,4867 ; ERR_SP FOR 48-BASIC
PUSH	HL
LD	HL,7030 ; CONTINUE INTERPRETATOR 48-BASIC
PUSH	HL
RES	4,(IY+1); сброс флага 128К
LD	DE,5566 ; INFORMATION FOR STREAMS
LD	HL,(23631) ; CHANS
LD	BC,15
ADD	HL,BC
EX	DE,HL ; DE=ADDR.FOR STREAMS/CHANNELS, HL=5556
LD	C,4 ; BC=4 FOR LDIR
LDIR
EI
RET