Да конечно :
org 25000
start
ei
xor a
out (254),a
LD HL, 51310
CALL 49152+3
loop halt
call 49152+5
call scroll
ld a,127
in a,(254)
rra
jr c,loop
LD HL, 51310
CALL 49152+3
ret
scroll ld a,1
dec a
and 7
ld (scroll+1),a
jr nz,s_left
new_let ld hl,text
ld a,(hl)
inc hl
ld (new_let+1),hl
or a
jr nz,not_end
ld hl,text
jr new_let+3
not_end ld l,a
ld h,0
add hl,hl
add hl,hl
add hl,hl
ld de,#3c00
add hl,de
ld de,buff
ld b,8
loop2 ld a,(hl)
rrca
or (hl)
ld (de),a
inc l
inc de
djnz loop2
s_left ld hl,16384+31
ld de,buff
ld b,8
loop1 ld a,(de)
rlca
ld (de),a
inc de
push hl
dup 31
rl (hl)
dec l
edup
pop hl
inc h
djnz loop1
ret
buff ds 8
text db "AAA BEST CODER !!!!!!!!!!! "
db 0





ZX Evolution REV.B
Ответить с цитированием