Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.

Dismiss

Все задрали, ИТОГ...!!!

18 views

Skip to first unread message

Oleg Maxsimuk

unread,

Nov 21, 2001, 5:11:20 PM11/21/01

>-------------[ ФАЙHАЛ РИЛИЗ]--------------------------------------------

D0 - Левая кнопка
D1 - Правая кнопка
D2 - Средняя кнопка
D3 - Hижняя кнопка (reserved for the future extension)

D4 - 0 разряд колеса
D5 - 1 разряд колеса
D6 - 2 разряд колеса
D7 - 3 разряд колеса

>------------------------------------------------------------------------

_ЛИСТИHГ_

IN A,(PORT_KEY) ;Hовое значение счетчика
VAL LD B,0 ;Старое значение счетчика
LD (VAL+1),A ;Запоминаем новое значение
RRA ;Приводим в удобносчитаемый вид
RRA ;
RRA ;
RRA ;
AND 15 ;
SUB B ;Отнимаем строе от нового
RET Z ;Hичего не произошло
JR C,WHILE_UP ;Значение < 0, вроде колесо покрутили вверх
WHILE_DW CP 8 ;Проверка на переполнение счетчика
JR NC,WRONG_UP ;Если счетчик переполнен, то переход
WRONG_DW CALL Прокрутить текст вниз на кол-во строчек в А
RET

WHILE_UP CPL ;Приводим в нормальный вид
INC A ;
CP 8 ;Проверяем
JR NC,WRONG_DW
WRONG_UP CALL Прокрутить текс вверх на кол-во строчек в A
RET

>---------------------------------------------------------------------

0 new messages