x-screen

Hello, All!
Spestrumist brothers to the rescue! I really need a viewer
x-screen that looks not at 27 sectors, but at 72 sectors.
I think whoever has such a viewer will understand what I
meant. Image expansion "x" /small/
I can’t view pictures sent by the Moderator,
type “anakin”, “compos”... Maybe the Moderator himself will help me
and create this viewer.
I have 7000 programs, but I haven’t found such a viewer.
I’m probably behind the times!
Help me out, wash me or send it to my address in any way.
Thanks in advance.

All the best.
Best regards, Vasily!

Hello, Vasiliy!

Once Vasiliy Gurin wrote to All:
VG> Spestrumist brothers to the rescue! I really need a viewer
VG> x-screen, which views not 27 sectors, but 72 sectors.
If necessary, we will help.
Here is the source: which does this!
Sorry for the clumsiness of the labels :))

=== This is where it all started ===

re equ 1
gr equ 4
bl1 equ 2

org 26000

LD A,#17
CALL BANK4
LD DE,49152 ;picture location address
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