(C) E2 Soft CodeWalker,1997
E-Mail: e2soft@extranet.ru
Music by Shov
Здравствуйте,Уважаемые!
Продлагаю вашему вниманию некоторое ко-
личество процедурок.
Надеюсь,что они будут достаточно полез-
ны и применимы для повседневных задач.
Цель этой попытки опубликования не очень
на первый взгляд нужных процедур заключа-
ется в том, чтобы при необходимости реше-
ния подобной задачи кодеру не пришлось бы
изобретать хоть и простой, но велосипед.
Тем более что для SPECCY необходимы прос-
тые и быстрые программы и надо экономить
на мелочах.
Все приведенные процедуры используют
альтернативные регистры для ускорения ра-
боты, поэтому при использовании из BASIC'а
альтернативный HL необходимо сохранить.
Скроллинг по строке вверх
Использует таблицу при своей работе.
RAS EQU 7 ;всего скроллиру-
;ются 7 линий,
;чтобы не перебра
;сывать пустоту
UPSC LD B,23 ;23 строки
LD HL,TABST
STT1 LD E,(HL) ;1-я строка
INC HL
LD D,(HL)
INC HL
PUSH HL
PUSH DE
LD E,(HL) ;2-я строка
INC HL
LD D,(HL)
PUSH DE
EXX
POP HL
POP DE
LD BC,32*RAS ;в линии 32 байта
LP PUSH HL
PUSH DE
DEFS 32,#ED,#A0
EX AF,AF'
POP DE
INC D
POP HL
INC H
EX AF,AF'
JP PE,LP
EXX
POP HL
DJNZ STT1
RET
Аналигично, скролл вниз по строкам
DWSC LD B,23
LD HL,TABEN
STT2 LD D,(HL) ;1-STRK
DEC HL
LD E,(HL)
DEC HL
PUSH HL
PUSH DE
LD D,(HL) ;2-STRK
DEC HL
LD E,(HL)
PUSH DE
EXX
POP HL
POP DE
LD BC,32*RAS
LPP PUSH HL
PUSH DE
DEFS 32,#ED,#A0
EX AF,AF'
POP DE
INC D
POP HL
INC H
EX AF,AF'
JP PE,LPP
EXX
POP HL
DJNZ STT2
RET
