Tolik-Trek/WAV-Player
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/WAV-Player.git synced 2026-06-15 00:51:34 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2024-06-12 01:39:20 +10:00
parent ed4bd75653
commit 02db2c9d50
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
WAVPLAY.ASM
View File

@ -285,6 +285,11 @@ FACE_OK:
LD (SAV_SP),SP LD (SAV_SP),SP
IF SoundBugFix
IN A,(SLOT3)
LD (SAV_PAGE3),A
ENDIF
PLAY_ALL: PLAY_ALL:
CALL TEST_SWITCH CALL TEST_SWITCH
@ -561,16 +566,16 @@ DATA_1:
LD BC,3 LD BC,3
LDIR ; COPY LEN of DATA LDIR ; COPY LEN of DATA
IF SoundBugFix IF SoundBugFix
XOR A XOR A
LD B,L LD B,L
.loop: DEC HL .loop: DEC HL
LD (HL),A LD (HL),A
DJNZ .loop DJNZ .loop
ENDIF ELSE
IN A,(SLOT3)
IN A,(SLOT3) LD (SAV_PAGE3),A
LD (SAV_PAGE3),A ENDIF
;LD A,CBL.BUFFER_PAGE ; ᯥæ-áâà ­¨æ ! ;LD A,CBL.BUFFER_PAGE ; ᯥæ-áâà ­¨æ !
;LD (PLAY_PAGE),A ;LD (PLAY_PAGE),A
@ -588,15 +593,18 @@ DATA_1:
CALL READ_FILE_X1 CALL READ_FILE_X1
LD A,0 LD A,0
LD BC,#4E LD BC,CBL.SYS_PORT
OUT (C),A OUT (C),A
LD BC,#4F LD BC,CBL.OUT
LD A,#80 LD A,#80
FILL_L0: FILL_L0:
OUT (C),A ; § ¡¨âì ¢® ¢á¥ 80h OUT (C),A ; § ¡¨âì ¢® ¢á¥ 80h
DJNZ FILL_L0 DJNZ FILL_L0
LD HL,0A000h ; CLEAR PAGE_IM2 LD HL,0A000h ; CLEAR PAGE_IM2
LD DE,0A001h LD DE,0A001h
LD BC,100h LD BC,100h
@ -613,7 +621,7 @@ FILL_L0:
IM 2 IM 2
LD A,(CBL_MODE) LD A,(CBL_MODE)
LD BC,#4E LD BC,CBL.SYS_PORT
OUT (C),A OUT (C),A
EI EI
@ -947,10 +955,10 @@ EXIT_ALL:
IM 1 IM 1
LD A,0 LD A,0
LD BC,#4E LD BC,CBL.SYS_PORT
OUT (C),A OUT (C),A
LD BC,#4F LD BC,CBL.OUT
LD A,#80 LD A,#80
.loop: OUT (C),A ; § ¡¨âì ¢® ¢á¥ 80h .loop: OUT (C),A ; § ¡¨âì ¢® ¢á¥ 80h
@ -1133,7 +1141,6 @@ COLOR_+1: LD A,#FF
;************************************* ;*************************************
FRQ_ON: FRQ_ON:
CALL OFF_IND CALL OFF_IND
LD A,(FRQ_) LD A,(FRQ_)
@ -1277,7 +1284,7 @@ READ_FILE: ; HL - name,
; LD DE,200h ; ç¨â âì § £®«®¢®ª ; LD DE,200h ; ç¨â âì § £®«®¢®ª
LD C,#13 LD C,#13
RST ToDSS RST ToDSS
RET C ; ®è¨¡ª  ¯à¨ ç⥭¨¨ ;RET C ; ®è¨¡ª  ¯à¨ ç⥭¨¨
; ¤«¨­  áç¨â ­­ëå ¤ ­­ëå ¢ DE ; ¤«¨­  áç¨â ­­ëå ¤ ­­ëå ¢ DE
RET ; ®è¨¡ª  ¯à¨ § ªàë⨨ ¨«¨ Ok RET ; ®è¨¡ª  ¯à¨ § ªàë⨨ ¨«¨ Ok