-bug with music

MK_DEMO.ASM

@@ -133,7 +133,21 @@ START:
 	ld c,Dss.PChars
 	RST ToDSS
 
+	LD	BC,BIOS.SWAP_RAM_DRIVES.Info
+	RST	ToBIOS
+	CP	high BIOS.SWAP_RAM_DRIVES.ZX
+	JR	Z,1F
+	;
+	LD	(EXIT_ram_drv),A
+	LD	BC,BIOS.SWAP_RAM_DRIVES.ZX
+	RST	ToBIOS
+1:	;
 	call Load_Resources
+	JR	NC,NEXT_STEP
+
+	ld	hl,NO_FREE_MEM
+	LD	(set_msg),HL
+	JP	EXIT_TO_DSS.no_mem
 ;	jp start_load
 ;	JP BEGIN
 
@@ -195,6 +209,7 @@ START:
 
 
 ;-------TEST--------------------------[v]
+NEXT_STEP:
 	ld hl,#9000
 	ld a,#FF
 	ACC_SetBlockSize
@@ -1063,9 +1078,9 @@ L_DDX:
 	JR NZ,NO_SNDP
 	LD A,(SYS_PAGE.RAMD_KEYS.H)
 	LD (SND_P),A
-
+	; ld hl,_lastPageMuzOffset
+	; LD (SND_A),HL
 NO_SNDP:
-
 	LD A,E
 	OUT (SLOT3),A
 
@@ -1097,7 +1112,8 @@ PlayMusic:
 
 	IN A,(SLOT1)
 	LD E,A
-SND_P+*: LD A,0
+SND_P+1:
+	LD A,0
 	OUT (SLOT1),A
 
 	ld a,CBL.BUFFER_PAGE
@@ -1106,7 +1122,8 @@ SND_P+*: LD A,0
 	out (c),a
 
 
-SND_A+*:	ld hl,#4000
+SND_A+1:
+	ld hl,#4000
 	ld d,#C0	
 	ACC_SetBlockSize
 		ld a,#80
@@ -1136,9 +1153,11 @@ SND_A+*:	ld hl,#4000
 	LD (SND_P),A
 
 	LD HL,#4000
-checkLastPage+*: cp 0
+checkLastPage+1:
+	;INC	A
+	cp 0
 	jp nz,1F
-	LD A,(SYS_PAGE.RAMD_KEYS.H)
+	LD A,(SYS_PAGE.RAMD_KEYS.H-#8000)
 	LD (SND_P),A
 	ld hl,_lastPageMuzOffset
 1:	LD (SND_A),HL
@@ -1281,14 +1300,14 @@ EXIT_TO_DSS:
 	CP FilesTBL.END+1
 	JR C,.loop_mem
 
-
+.no_mem:
  IF MODE_CBL && MUSIC_22khz
 1:	CALL MemHack.restore
-	JR	NC,1F
-	LD	A,R
-	AND	7
-	OUT	(BorderColor),A
-	JR	1B
+	; JR	NC,1F
+	; LD	A,R
+	; AND	7
+	; OUT	(BorderColor),A
+	; JR	1B
 1:	;
  ENDIF
 
@@ -1320,10 +1339,15 @@ clean_kbd_buf:
 .exit:
 ;---------------------------------
 
+set_msg+1:	
 	ld hl,EXIT_MSG
 	ld c,Dss.PChars
 	RST ToDSS
 
+EXIT_ram_drv+2:	;¢®§¢à â ०¨¬  à ¬¤¨áª®¢
+	LD	BC,BIOS.SWAP_RAM_DRIVES.ZX
+	RST	ToBIOS
+
 	IM 1
 .loop_exit:
 	LD B,0
@@ -1343,6 +1367,20 @@ Load_Resources:
 	in a,(SLOT3)
 	ld (.SavePage),a
 
+
+ IF MODE_CBL && MUSIC_22khz
+; 	LD	B,SYS_PAGE.RAMD_KEYS.NUM+1
+; .RMD_Loop:
+; 	PUSH	BC
+; 	LD	A,B
+; 	DEC	A
+; 	LD	C,BIOS.FreeMemRMD
+; 	RST	ToBIOS
+; 	POP	BC
+; 	DJNZ	.RMD_Loop
+ ENDIF
+
+
 	LD B,FilesTBL.END
 	LD DE,FilesTBL
 	LD HL,RAMBlkIDs
@@ -1360,6 +1398,7 @@ Load_Resources:
 ; B - à §¬¥à ¡«®ª  ¢ áâà ­¨æ å
 	ld c,Dss.GetMem
 	rst ToDSS
+	JR	C,.error
 	di
 ; A - ¨¤¥­â¨ä¨ª â®à ¡«®ª  ¯ ¬ïâ¨
 	
@@ -1456,7 +1495,7 @@ Load_Resources:
 ;-----------[]
 
 ;-------------[‚®§¢à â]
-.SavePage+*: ld a,0
+.SavePage+1: ld a,0
 	out (SLOT3),a
 
  IF MODE_CBL
@@ -1469,7 +1508,13 @@ Load_Resources:
 	ENDIF
  ENDIF
 
-
+	AND	A
+	RET
+.error:
+	POP	HL
+	POP	HL
+	LD	A,(.SavePage)
+	out (SLOT3),a
 	RET	
 ;-------------[]
 
@@ -1614,6 +1659,7 @@ FilesTBL:
  ENDIF
 .END    EQU ($-FilesTBL)/14                                     ; ª®«¨ç¥á⢮ ä ©«®¢ 
 
+
  IF BACKPLANE_BMP
 BackPlane.FileName:     DZ      'BACKGRN1.PAL' 
  ELSE
@@ -1630,6 +1676,7 @@ START_MSG:		DB	13,10,13,10
 		DB	'Mortal Kombat demo by Ivan Mak. 2002 year.',13,10
 		DZ	'EXE v.',MK_VERSION,' by Anatoliy Belyanskiy. ',BUILD_DATE,' (',#91,') Sprinter Team.',13,10,13,10
 LOADING_MSG:	DZ	'Loading resources, please wait...',13,10
+NO_FREE_MEM:	DZ	'ERROR: No free memory to load resources!',13,10
 EXIT_MSG:	DZ	'All done)))',13,10
 ;---[]
 ;