Программа опроса 'SPACE'(1),CLS(2)

ZX City #01
01 сентября 1998
Программирование
   АССЕМБЛЕР ДЛЯ НОВИЧКОВ

   (С) Hunter/MSoft

   Привет !!! Долго  объяснять  не  буду,а перейду сразу к делу.
Программа опроса 'SPACE'(1),CLS(2)

SPACE   LD A,127
        IN A,(254)
        RRA
        JR C,ADR   ;если не нажата-переход или на начало опроса,
                   ;или на другую процедуру.
        CALL ADR1  ;при нажатии переходит на ADR1.

CLS     LD HL,16384
        LD DE,16385
        LD BC,6144
        LD (HL),L
        LDIR

   Полезный совет:если у вас бегущая  строка без  музыки , то не
обязательно вешать ее на прерывание. Перед HALT проинсталлируйте
музыку, а после-CALL (INST+6)-проигрывание ноты (естественно , в
БС должен быть возврат к  HALT  для нормального вывода ее на эк-
ран).