Цитата:
...
LD B,80h+10h ; CBL-mode8 & INT ENABLE
JR Z,NEXT_1
CP 16
LD B,80h+20h+10h; CBL-mode16 & INT ENABLE
...
NEXT_1:
LD A,(0C016h)
CP 1
JR Z,NEXT_2
CP 2
SET 6,B ; set stereo-mode
JR NZ,ERROR2
NEXT_2:
LD A,B
LD (CBL_MODE),A
LD BC,(0C018h) ; частота
LD HL,7000
LD DE,9000
CALL Test_DIAP
EX AF,AF'
LD A,8 ; 8khz
EX AF,AF'
JR Z,NEXT_3
LD HL,10000
LD DE,12000
CALL Test_DIAP
EX AF,AF'
LD A,9 ; 11khz
EX AF,AF'
JR Z,NEXT_3
LD HL,15000
LD DE,17000
CALL Test_DIAP
EX AF,AF'
LD A,10 ; 16khz
EX AF,AF'
JR Z,NEXT_3
LD HL,21000
LD DE,23000
CALL Test_DIAP
EX AF,AF'
LD A,11 ; 22khz
EX AF,AF'
JR Z,NEXT_3
LD HL,30000
LD DE,34000
CALL Test_DIAP
EX AF,AF'
LD A,12 ; 32khz
EX AF,AF'
JR Z,NEXT_3
LD HL,42000
LD DE,46000
CALL Test_DIAP
EX AF,AF'
LD A,13 ; 44khz
; LD A,15 ; 109khz
EX AF,AF'
JR Z,NEXT_3
LD HL,50000
LD DE,60000
CALL Test_DIAP
EX AF,AF'
LD A,14 ; 54khz
EX AF,AF'
JR Z,NEXT_3
JP ERROR3
NEXT_3:
EX AF,AF'
LD C,A
EX AF,AF'
LD A,(CBL_MODE)
ADD A,C
LD (CBL_MODE),A
JP PLAY_FILE
...
LD A,0
LD BC,78
OUT (C),A
LD BC,79
LD A,80h
FILL_L0:
OUT (C),A ; забить во все 80h
DJNZ FILL_L0
LD HL,0A000h ; CLEAR PAGE_IM2
LD DE,0A001h
LD BC,100h
LD (HL),0
LDIR
DI
LD DE,PLAY
LD (0A0FFh),DE ; IM2_ADRESS
LD A,0A0h
LD I,A
IM 2
LD A,(CBL_MODE)
LD BC,78
OUT (C),A
и т.д.