SOS! CÉÎÔÅÚÁÔÏÒ ÒÅÞÉ [5/6]

; модуль генерации звука
$SAY LD HL,$T_ADR
DI
CALL LEA69
EI
RET
LEA69 LD B,#BB
LEA6B PUSH BC
PUSH HL
PUSH DE
CALL $R_KEY
POP DE
POP HL
POP BC
LD A,B
LD C,B
LD B,(HL)
OR A
RET Z
LD A,C
CP #41
JP M,LEA9B
CP #5B
JP P,LEA9B
CP #43
LD A,B
JP NZ,LEA86
CP #48
JP Z,LEA8C
LEA86 CP #27
LD A,C
JP NZ,LEA90
LEA8C ADD A,#1A
LD B,#BB
LEA90 PUSH BC
PUSH HL
CALL LEAC3
POP HL
POP BC
LEA97 INC HL
JP LEA6B
LEA9B LD DE,#0000
CP #2E
JP Z,LEAB3
LD DE,#8000
CP #2C
JP Z,LEAB3
LD DE,#4000
CP #20
JP NZ,LEAB9
LEAB3 CALL LEABC
JP LEA97
LEAB9 JP LEA97
LEABC DEC DE
LD A,D
OR E
JP NZ,LEABC
RET
LEAC3 LD BC,LEAF7
LD L,A
LD H,#00
ADD HL,BC
LD BC,LEB6C
LD L,(HL)
LD H,#00
ADD HL,BC
LEAD1 LD A,(HL)
AND #0F
LD C,A
INC HL
LD A,(HL)
AND #80
OR C
LD C,A
DEC HL
LEADC LD A,(HL)
RLCA
RLCA
RLCA
AND #07
PUSH HL
JP Z,LEB1B
LD DE,LED35
LD L,A
LD H,#00
ADD HL,DE
LD B,(HL)
POP HL
INC HL
LD A,(HL)
DEC HL
PUSH HL
RLA
LD DE,LEC2E
LEAF7 LD L,A
LD H,#00
ADD HL,DE
LD A,#80
LEAFD PUSH AF
AND (HL)
JP Z,LEB04
LD A,#10
LEB04 OUT (#FE),A
LD A,(LEB33)
LEB09 DEC A
JP NZ,LEB09
POP AF
DEC B
JP Z,LEB1B
OR A
RRCA
JP NC,LEAFD
INC HL
JP LEAFD
LEB1B LD HL,($SPEED)
EX DE,HL
XOR A
CALL LEABC
DEC C
LD A,C
AND #0F
POP HL
JP NZ,LEADC
LD A,C
RLA
RET C
INC HL
INC HL
JP LEAD1
LEB33 DEFB #1C
$SPEED DEFB #00,#04

=== Cut ===