ORG XXXXX
LD HL, 1642 ; Длина звука
LD DE, 261 ; Тональность
beeper: DI
LD A, L
SRL L
SRL L
CPL
AND 3
LD C, A
LD B, 0
LD IX, BEIX3
ADD IX, BC
LD A, (23624) ; Цвет рамки во время звучания
AND 56
RRCA
RRCA
RRCA
OR 8
BEIX3: NOP
BEIX2: NOP
BEIX1: NOP
BEIX0: INC B
INC C
BEHLLP: DEC C
JR NZ, BEHLLP
LD C, 63
DEC B
JP NZ, BEHLLP
XOR 16 ; Цвет чередующейся полоски (16...24)
OUT (254), A
LD B, H
LD C, A
BIT 4, A
JR NZ, BEAGAIN
LD A, D
OR E
JR Z, BEEND
LD A, C
LD C, L
DEC DE
JP (IX)
BEAGAIN:LD C, L
INC C
JP (IX)
BEEND: EI
RET
[свернуть]