Код:
ORG 40000
COUNT LD A,0
INC A
AND 7
LD (COUNT+1),A
DEC A
CALL Z,FILBF
MAIN LD HL,BUF1
LD DE,BUF2
LD B,08
MET1 XOR A
RL (HL)
RLA
LD (DE),A
INC HL
INC DE
DJNZ MET1
LD HL,471FH
LD DE,BUF2+7
LD B,08
MET2 LD A,(DE)
OR (HL)
LD (HL),A
DEC DE
DEC H
DJNZ MET2
INC H
SCRLIN
LD B,08
SCRL1
LD L,#1F
AND A
DUP 31
RL (HL)
DEC L
EDUP
RL (HL)
INC H
DJNZ SCRL1
RET
FILBF LD HL,MESS
LD A,(HL)
INC HL
AND A
JR NZ,NOSETM
LD HL,MESS
NOSETM
LD (FILBF+1),HL
ADD A,A
ADD A,A
ADD A,A
LD L,A
LD H,#3C
LD DE,BUF1
LD BC,08
LDIR
RET
BUF1 DEFB 0,0,0,0,0,0,0,0
BUF2 DEFB 0,0,0,0,0,0,0,0
MESS DEFB " Hello all members of zx.pk.ru!!!",0