diff --git a/WAVPLAY.ASM b/WAVPLAY.ASM index f41172d..bda6da3 100644 --- a/WAVPLAY.ASM +++ b/WAVPLAY.ASM @@ -285,6 +285,11 @@ FACE_OK: LD (SAV_SP),SP + + IF SoundBugFix + IN A,(SLOT3) + LD (SAV_PAGE3),A + ENDIF PLAY_ALL: CALL TEST_SWITCH @@ -561,16 +566,16 @@ DATA_1: LD BC,3 LDIR ; COPY LEN of DATA - IF SoundBugFix - XOR A - LD B,L -.loop: DEC HL - LD (HL),A - DJNZ .loop - ENDIF - - IN A,(SLOT3) - LD (SAV_PAGE3),A + IF SoundBugFix + XOR A + LD B,L +.loop: DEC HL + LD (HL),A + DJNZ .loop + ELSE + IN A,(SLOT3) + LD (SAV_PAGE3),A + ENDIF ;LD A,CBL.BUFFER_PAGE ; спец-страница! ;LD (PLAY_PAGE),A @@ -588,15 +593,18 @@ DATA_1: CALL READ_FILE_X1 LD A,0 - LD BC,#4E + LD BC,CBL.SYS_PORT OUT (C),A - LD BC,#4F + LD BC,CBL.OUT LD A,#80 FILL_L0: OUT (C),A ; забить во все 80h DJNZ FILL_L0 + + + LD HL,0A000h ; CLEAR PAGE_IM2 LD DE,0A001h LD BC,100h @@ -613,7 +621,7 @@ FILL_L0: IM 2 LD A,(CBL_MODE) - LD BC,#4E + LD BC,CBL.SYS_PORT OUT (C),A EI @@ -947,10 +955,10 @@ EXIT_ALL: IM 1 LD A,0 - LD BC,#4E + LD BC,CBL.SYS_PORT OUT (C),A - LD BC,#4F + LD BC,CBL.OUT LD A,#80 .loop: OUT (C),A ; забить во все 80h @@ -1133,7 +1141,6 @@ COLOR_+1: LD A,#FF ;************************************* - FRQ_ON: CALL OFF_IND LD A,(FRQ_) @@ -1277,7 +1284,7 @@ READ_FILE: ; HL - name, ; LD DE,200h ; читать заголовок LD C,#13 RST ToDSS - RET C ; ошибка при чтении + ;RET C ; ошибка при чтении ; длина считанных данных в DE RET ; ошибка при закрытии или Ok