x-screen

Привет,All!
Братки спеструмисты выручайте! Мне очень нужен просмотрщик
x-screen,который просматривает не 27 секторов,а 72 сектора.
Я думаю у кого есть такой просмотрщик,тот поймет меня,что я
имел ввиду. Расширение картинок "x" /мальнькое/
Я не могу просмотреть картинки присланные Модератором,
типа "anakin","compos"... Может сам Модератор поможет мне
и намылит этот просмотрщик.
У меня 7000 программ,но такого просмотрщика я у себя не нашел.
Hаверно отстал от жизни!
Выручайте,мыльте или как угодно шлите на мой адрес.
Заранее благодарен.

Всего хорошего.
С уважением Василий!

Hello, Vasiliy!

Как-то Vasiliy Gurin писАл(а) к All:
VG> Братки спеструмисты выручайте! Мне очень нужен просмотрщик
VG> x-screen,который просматривает не 27 секторов,а 72 сектора.
Если надо, то поможем.
Вот тебе исходник: который это делает!
Sorry за корявость меток :))

=== Вот здесь все и началось ===

re equ 1
gr equ 4
bl1 equ 2

org 26000

LD A,#17
CALL BANK4
LD DE,49152 ;адрес расположения картинки
LD HL,BLUE
LD BC,6144
LDIR
LD H,D
LD L,E
INC DE
v_blue LD a,bl1
ld (hl),a
LD BC,767
LDIR
LD A,#10
CALL BANK4
LD HL,INT
LD (#5BFF),HL
LD A,#5B
LD I,A
IM 2

NOT_EXIT HALT
DI
LD A,#18
CALL BANK4
v_red LD A,re
CALL FILL_ATTR
LD HL,BLUE+12288
LD DE,#4000
CALL MOVE_PIX
EI
HALT
DI
LD A,#10
CALL BANK4
LD HL,BLUE+12288+3072
LD DE,#4000+3072
CALL MOVE_PIX
EI
HALT
DI
LD A,#18
CALL BANK4
v_green LD A,gr
CALL FILL_ATTR
LD HL,BLUE+6144
LD DE,#4000
CALL MOVE_PIX
EI
HALT
DI
LD A,#10
CALL BANK4
LD HL,BLUE+6144+3072
LD DE,#4000+3072
CALL MOVE_PIX
EI
LD A,#7F
IN A,(#FE)
RRA
JR C,NOT_EXIT
IM 1
EI
INT RET
FILL_ATTR LD HL,#5800
LD DE,#5801
LD (HL),A
LD A,48
ATTR LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
LDI
DEC A
JP NZ,ATTR
RET
MOVE_PIX LD A,192
JR ATTR
BANK4 PUSH BC
LD BC,#7FFD
OUT (C),A
POP BC
RET
BLUE
=== Вот и сказки конец ===

Wolf of eTc/Scene