(C) Deadie/HorrorSoft/CPU
Вообще-то я вот о чём. Пока я кодил,
а точнее собирал HorrorFasTest , мне в
голову закралась крамольная мысля об
autoconfig'е для всяких там multicolor'ов
и border'ных эффектов. Для меня до сих
пор остается загадкой, почему demomaker'ы
фиксят такие эффекты только (в основном)
под две модели Спектрума ( Pentagon и
Scorpion ). Как многие знают, для созда-
ния чего-то на бордере или мультиколора
надо знать количество строк (линий) экра-
на /tpl/ и количество тактов на одну
строку (линию) /lps/. Естественно, исходя
из этих значений и задаются константы для
процедур вывода на экран. Вот эти самые
значения можно получить, использовав ни-
жеприведенные процедурки. Замечу, что ис-
тинные значения вы получите, только если
выключен турборежим. И для начала приведу
процедуру, которая определяет, включен
или выключен turbo mode:
ATTENTION!!
На авторство нижеприведенных процедур
НЕ ПРЕТЕНДУЮ!
;Определение состояния turbo mode
; вх: -
;вых: A=0 - выкл, A=1 - вкл
TURBO CALL INT_TRB
LD A,B
CP #00
JR Z,TURBOFF
CP #02
JR NC,TURBON
LD A,C
CP #41
JR NC,TURBON
TURBOFF XOR A
RET
TURBON LD A,1
RET
TRB_INT DI
LD A,#C3
LD (#BCBC),A
LD HL,INT_TR1
LD (#BCBD),HL
LD A,#BA
LD I,A
IM 2
LD DE,#0000
EI
HALT
LD HL,INT_TR2
LD (#BCBD),HL
TRB_IN3 INC DE
LD B,#0F
DJNZ $
LD A,R
JR INT_TR3
TRB_IN1 EI
RET
TRB_IN2 POP HL
LD C,E
LD B,D
IM 1
EI
RET
А теперь самое главное - процедуры
расчета lps и tpl:
;Рассчет кол-ва строк растра
;(линий в экране)
; вх: -
;вых: DE - lps
CLC_LPS CALL IM2SET
LD A,#C3
LD (#FEFE),A
LD HL,LPS2
LD (#FEFF),HL
LD DE,0
EI
HALT
LD HL,LPS3
LD (#FEFF),HL
LPS1 INC DE
LD B,#0F
DJNZ $
LD A,R
JR LPS1
LPS2 EI
RET
LPS3 POP HL
CALL IM1SET
EI
RET
Почти во всех Спектрумах сделано 312
либо 320 строчек (к примеру: в фирменном
312, в Пентагоне - 320). Продолжим:
;Рассчет кол-ва тактов в строке растра
; (линии экрана)
; вх: -
;вых: A - tpl
CLC_TPL CALL IM2SET
LD A,#C3
LD (#FEFE),A
LD HL,TPL1
LD (#FEFF),HL
LD DE,0
LD HL,TPL2
EI
HALT
TPL1 LD (#FEFF),HL
LD HL,TPL3
EI
HALT
TPL2 LD (#FEFF),HL
NOP
NOP
NOP
INC HL
EI
INC DE
JP $-1
TPL3 POP HL
POP HL
EX DE,HL
ADD HL,HL
ADD HL,HL
ADD HL,HL
LD A,N ;N=0 -312, N<>0 -320 строк
OR A;^сюда заносите число
LD BC,156
JR Z,TPL4;156 (312) и 160 (320)
LD BC,160
XOR A
TPL4 OR A
SBC HL,BC
INC A
JR NC,TPL4
CALL IM1SET
EI
RET
;Процедурки установки прерываний
IM2SET DI
LD HL,#FE00
LD A,H
LD B,L
IM2SETL LD (HL),A
DEC HL
DJNZ IM2SETL
LD (HL),A
LD A,H
LD I,A
IM 2
RET
IM1SET DI
LD A,#3F
LD I,A
IM 1
RET
А длина INT'а в тактах рассчитывает-
ся еще проще: tpl*lps (только для noWAIT
Спеков ) и все!
┌───────╥─────────┬─────────┐
│ lps ║ 312 tpl │ 320 tpl │
├───────╫─────────┼─────────┤
│ 216 ║ 67392 │ 69120 │
│ 220 ║ 68640 │ 70400 │
│ 224 ║ 69888 │ 71680 │
│ 228 ║ 71136 │ 72960 │
│ 232 ║ 72384 │ 74240 │
└───────╨─────────┴─────────┘
Вообще-то, для настройки необходимо
знать положение INT'а относительно начала
кадра, но об этом в следующей серии...
Вместо PS: Я не кодер, поэтому мои
измышления по поводу autoconfig'а надо
взять за теорему, которую надо еще дока-
зать. Надеюсь, что мои догадки все же
превратятся и в аксиому, а эта информация
вам хоть как-то поможет.
