...

D2_FRAM.asm

@@ -1393,9 +1393,7 @@ COV_ADR+1:
 	;  OUT	(BorderColor),A
 	;
 
-
+	LD A,CBL.BUFFER_PAGE
-D2_FRAM_SndPage+1:
-	LD A,0
 	OUT (SLOT3),A
 
 L_DDX:
@@ -1472,7 +1470,7 @@ SND_INIT1:
 ;_------[—⥭¨¥ ᥪâ®à®¢ á ¤¨áª ]-------
 NO_NEW_COUNT:
 	LD HL,-SND_READ_SECTORS*512			; ¡ãä¥à ¤«ï ¤ ­­ëå
-	LD A,(D2_FRAM_SndPage)			;!FIXIT	; áâà ­¨æ  ¡ãä¥à , ¥á«¨  ¤à¥á ¢ ®ª­¥ #C000
+	LD A,CBL.BUFFER_PAGE				; áâà ­¨æ  ¡ãä¥à , ¥á«¨  ¤à¥á ¢ ®ª­¥ #C000
 	LD DE,(SND_S1)					;  ¡á®«îâ­ë© ­®¬¥à ᥪâ®à  Œ« ¤è ï ç áâì
 	LD IX,(SND_S2)					;  ¡á®«îâ­ë© ­®¬¥à ᥪâ®à  ‘â àè ï ç áâì
 	LD B,SND_READ_SECTORS				; ç¨á«® ç¨â ¥¬ëå ᥪâ®à®¢

DOOM2.asm

@@ -140,21 +140,30 @@ Loader_length EQU 0
 ;---------------------------------------
 
 
-	IN A,(SLOT3)
+	; IN A,(SLOT3)
-	PUSH AF
+	; PUSH AF
 
-	ld a,(RAMBlkIDs)
+	ld a,(RAMBlkIDs.resources)
-	ld bc,BIOS.GetMemPage
-	rst ToBIOS
-	;di
 	ld (PalitrePage),a
 
-	ld a,(RAMBlkIDs+3)
+	ld a,(RAMBlkIDs.d2_fram)
-	ld bc,BIOS.GetMemPage
-	rst ToBIOS
-	;di
 	ld (D2_FRAM_page),a
-	;DI
+
+ IF YesSound
+;----[]
+; ‡ ¯à è¨¢ ¥¬ áâà ­¨æã ¤«ï ª â «®£  
+; á®å࠭塞 ¥ñ ü ¢ ª®¤¥
+;	
+;			„Ž„…‹€’œ!!!
+; ­ ¤® ¯®â®¬ ­®à¬ «ì­® ¢ë¤¥«ïâì ¨
+;  ®á¢®¡®¦¤ âì ¯ ¬ïâì,   ­¥ ¢®â íâ® ¢áñ
+;
+	ld b,1
+	ld c,Dss.GetMem
+	rst ToDSS
+	LD (CatPage),a
+;----[]
+ ENDIF
 
 	CALL CLEAR_GRAF_SCR
 
@@ -325,11 +334,11 @@ CLEAR_GRAF_SCR:
 ;!!!!!!!!!!![®¯â¨¬¨§¨à®¢ âì]!!!!!!!!!!!!
 LOOP_CLS:
 	ACC_SetBlockSize
-		LD E,0
+	 LD	E,0
-	LD D,E
+	LD	D,E
 	ACC_FillScreenOneByte
-		PUSH DE
+	 PUSH	DE
-		PUSH DE
+	 PUSH	DE
 	ACC_Off
 
 	DJNZ LOOP_CLS
@@ -470,22 +479,16 @@ CLEAR_SP_PAL:
 MAIN:	CALL INIT_TABLE
 	RET C
 
-	;IN A,(PORT_Y)
+	; IN A,(PORT_Y)
-	;LD (SAVE_PORT_Y),A
+	; LD (SAVE_PORT_Y),A
 	LD A,#C0
 	OUT (PORT_Y),A
 	CALL RECALC_MAP
+	RET C								; ­ã¦­® «¨???!!!
 
 ;----!!!!!!!!!!!!!!!!!!!!!!!!!----------
 
 ;---------------------------------------
-
-
-	;LD A,(SAVE_PORT_Y)
-	;OUT (PORT_Y),A
-
-	RET C								; ­ã¦­® «¨???!!!
-
 	XOR A
 	LD (LAST_KEY),A
 	OUT (BorderColor),A
@@ -515,7 +518,7 @@ MAIN:	CALL INIT_TABLE
 	RST ToBIOS
 
 	LD HL,#5000
-	LD E,1
+	LD E,0
 	LD B,9								; £à ä¨ç¥áª®¥ ®ª­® 1, HL - ¯®«®¦¥­¨¥ ®ª­ 
 	LD C,BIOS.LP_OPEN_S
 	RST ToBIOS
@@ -555,31 +558,6 @@ D2_FRAM_page+1:
 	LD A,#FF
 	OUT (SLOT3),A
 
- IF YesSound
-;----[]
-; ‡ ¯à è¨¢ ¥¬ áâà ­¨æë ¤«ï ¬ã§«  ¨
-;  ª â «®£ , á®å࠭塞 ¨å ü ¢ ª®¤¥
-;	0 áâà ­¨æ  ¡«®ª  - CatPage
-;	1 áâà ­¨æ  ¡«®ª  - SndPage
-;	
-;			„Ž„…‹€’œ!!!
-; ­ ¤® ¯®â®¬ ­®à¬ «ì­® ¢ë¤¥«ïâì ¨
-;  ®á¢®¡®¦¤ âì ¯ ¬ïâì,   ­¥ ¢®â íâ® ¢áñ
-;
-	 ld b,2
-	 ld c,Dss.GetMem
-	 rst ToDSS
-	 ;
-	 LD (CatPage),a
-	 ld b,1
-	 ld c,BIOS.GetMemPage
-	 rst ToBIOS
-	 ;
-	 ld (DOOM2_SndPage),a
-	 ld (D2_FRAM_SndPage+#B000),a
-	 ;di
-;----[]
- ENDIF
 	IN A,(FastRAM.ON)
 	
 	LD HL,#C000
@@ -867,48 +845,48 @@ SOUND1:
 	
 ;
 MONSTR_DAT:
-M_PAGE			EQU $-MONSTR_DAT
+M_PAGE		EQU $-MONSTR_DAT
-				DB 0					; áâà ­¨æ  á ®¡é¨¬¨ ¤ ­­ë¬¨ ¬®­áâà  (ª à⨭ª¨)
+	DB 0					; áâà ­¨æ  á ®¡é¨¬¨ ¤ ­­ë¬¨ ¬®­áâà  (ª à⨭ª¨)
-;										  ¯à¨§­ ª ª®­æ  â ¡«¨æë ¬®­áâ஢
+;							¯à¨§­ ª ª®­æ  â ¡«¨æë ¬®­áâ஢
-M_ADR			EQU $-MONSTR_DAT
+M_ADR		EQU $-MONSTR_DAT
-				DW #4000				;  ¤à¥á ¢ áâà ­¨æ¥
+	DW #4000				;  ¤à¥á ¢ áâà ­¨æ¥
 ;			
-M_HIGH			EQU $-MONSTR_DAT
+M_HIGH		EQU $-MONSTR_DAT
-				DB #40					; ¢¥à⨪ «ì­®¥ ¯®«®¦¥­¨¥
+	DB #40					; ¢¥à⨪ «ì­®¥ ¯®«®¦¥­¨¥
 ;			
-M_HOR			EQU $-MONSTR_DAT
+M_HOR		EQU $-MONSTR_DAT
-				DW 160					; £®à¨§®­â «ì­®¥ ¯®«®¦¥­¨¥
+	DW 160					; £®à¨§®­â «ì­®¥ ¯®«®¦¥­¨¥
 ;			
-M_VAR2			EQU $-MONSTR_DAT
+M_VAR2		EQU $-MONSTR_DAT
-				DW 0008					; áç¥â稪 ¯¥à¥ª«î祭¨©
+	DW 0008					; áç¥â稪 ¯¥à¥ª«î祭¨©
 ;			
-M_XADD			EQU $-MONSTR_DAT
+M_XADD		EQU $-MONSTR_DAT
-				DW #0100					; x-add ¯ à ¬¥âàë
+	DW #0100				; x-add ¯ à ¬¥âàë
-				DB #40,#40				; è¨à¨­ -¢ëá®â  ???
+	DB #40,#40				; è¨à¨­ -¢ëá®â  ???
 ;
-M_X				EQU $-MONSTR_DAT
+M_X		EQU $-MONSTR_DAT
-				DW #0700				; ª®®à¤¨­ â  X
+	DW #0700				; ª®®à¤¨­ â  X
 ;			
-M_Y				EQU $-MONSTR_DAT
+M_Y		EQU $-MONSTR_DAT
-				DW #0700				; ª®®à¤¨­ â  Y
+	DW #0700				; ª®®à¤¨­ â  Y
 ;			
-M_VX			EQU $-MONSTR_DAT
+M_VX		EQU $-MONSTR_DAT
-				DW 0000					; ᪮à®áâì ¤¢¨¦¥­¨ï ¯® X
+	DW 0000					; ᪮à®áâì ¤¢¨¦¥­¨ï ¯® X
 ;			
-M_VY			EQU $-MONSTR_DAT
+M_VY		EQU $-MONSTR_DAT
-				DW 0000					; ᪮à®áâì ¤¢¨¦¥­¨ï ¯® Y
+	DW 0000					; ᪮à®áâì ¤¢¨¦¥­¨ï ¯® Y
 ;			
-M_TYPE			EQU $-MONSTR_DAT
+M_TYPE		EQU $-MONSTR_DAT
-				DW 0000					; ⨯ ¬®­áâà  ã­¨ç⮦ ¥¬ë©, ­¥ã­¨ç⮦ ¥¬ë©
+	DW 0000					; ⨯ ¬®­áâà  ã­¨ç⮦ ¥¬ë©, ­¥ã­¨ç⮦ ¥¬ë©
-;										  ¨á祧 î騩 ¯à¨ 㤠ॠ® á⥭ªã, ­¥ ¨á祧 î騩
+;						   ¨á祧 î騩 ¯à¨ 㤠ॠ® á⥭ªã, ­¥ ¨á祧 î騩
-;										  ¨á祧 î騩 ¯à¨ ᮯਪ®á­®¢¥­¨¨ á ¨£à®ª®¬,
+;						   ¨á祧 î騩 ¯à¨ ᮯਪ®á­®¢¥­¨¨ á ¨£à®ª®¬,
-;										  ­¥ ¨á祧 î騩....
+;						   ­¥ ¨á祧 î騩....
 
-M_VAR			EQU $-MONSTR_DAT
+M_VAR		EQU $-MONSTR_DAT
-				DB 0					; <20>¥à¥¬¥­­ë¥ ª®­ªà¥â­®£® ¬®­áâà 
+	DB 0					; <20>¥à¥¬¥­­ë¥ ª®­ªà¥â­®£® ¬®­áâà 
 ;			
-M_VAR3			EQU $-MONSTR_DAT
+M_VAR3		EQU $-MONSTR_DAT
-				DB 0
+	DB 0
 ; <20>¥à¥¬¥­­ ï ¬®­áâà  ¡¨â 0,1 - ¤¥«¥­¨¥ ¯® è¨à¨­¥
 ; bit 2 - ¯¥à¥ª«îç âì ¯® áâ à襬ã
 ; bit 3 -
@@ -918,10 +896,10 @@ M_VAR3			EQU $-MONSTR_DAT
 ; bit 7 - ­¥ ¢ë¢®¤¨âì
 ;			
 M_VAR4		EQU $-MONSTR_DAT
-				DB 0					; <20>¥à¥ª«î祭¨¥ ¬®­áâà  ADD ¯ à ¬¥âà
+	DB 0					; <20>¥à¥ª«î祭¨¥ ¬®­áâà  ADD ¯ à ¬¥âà
 
 MONSTR_D_LEN	EQU $-MONSTR_DAT		;á«¥¤ãî騩 ¬®­áâà
-				DB 0					; - ®âáãâáâ¢ã¥â
+	DB 0					; - ®âáãâáâ¢ã¥â
 ;
 ;****************************************
 ;	IX+0	- áâà ­¨æ  á⥭ª¨
@@ -935,14 +913,14 @@ MONSTR_D_LEN	EQU $-MONSTR_DAT		;᫥
 ;	IX+11 - ॠ«ì­ ï ¢ëá®â  á⥭ª¨ ???
 
 WALL_DATS:
-				DB 0
+	DB 0
-				DW #4000
+	DW #4000
-				DB #40
+	DB #40
-				DW #00A0				; 160
+	DW #00A0				; 160
-				DB 0,0
+	DB 0,0
 
 MONSTR_DATS:
-				DB 0,0,0,0,0,0,0,0
+	DB 0,0,0,0,0,0,0,0
 ;
 ; **************************************
 ;
@@ -980,7 +958,7 @@ MADE_FFING:
 
 NEXT_BYTE_:
 	LD A,(HL)
-	CP 0F7H
+	CP #F7
 	JR NZ,NO_FFING
 	LD (HL),0FFH
 NO_FFING:
@@ -1002,32 +980,36 @@ INIT_TABLE:
 ;----[—¨â ¥¬ ¯¥à¢ë© ¡«®ª â ¡«¨æ E:]-----; Tables disk Doom.trd
 
 ;--------------------------------------- !!!!! ‡ ¬¥­¨âì ª ç¥àâï¬ ­  á¢®î ¯®¤£à㧪㠡«®ª ¬¨!
-	LD A,(RAMBlkIDs)
+	LD A,(RAMBlkIDs.resources)
 	LD HL,TABLE_MAIN
 	ld c,BIOS.GetMemBlkPages			; ¯®«ãç¨âì ᯨ᮪ áâà ­¨æ ¡«®ª  A
 	rst ToBIOS
 	RET C
 
 ;	LD HL,TABLE_MAIN
-	INC HL
+	; INC HL
-	INC HL
+	; INC HL
-	INC HL
+	; INC HL
-	LD A,(HL)
-	LD (PAGE_WEAPON),A
-	INC HL
-	LD A,(HL)
-	LD (SKY_1),A
-	INC HL
-	LD A,(HL)
-	LD (SKY_2),A
 
-	LD HL,TABLE_MAIN
+	; !TODO <20>â® £®¢­® ­ ¤® ®¯â¨¬¨§¨à®¢ âì ¨ à áª¨¤ë¢ âì ­®¬¥à  áâà ­¨æ áࠧ㠢 ª®¤
-	LD A,26
+	 LD A,(TABLE_MAIN+3)	;!HARDCODE
-	ADD A,L
+	LD (PAGE_WEAPON),A
-	LD L,A
+	; INC HL
+	;LD A,(HL)
+	 LD A,(TABLE_MAIN+4)	;!HARDCODE
+	LD (SKY_1),A
+	;INC HL
+	 LD A,(TABLE_MAIN+5)	;!HARDCODE
+	;LD A,(HL)
+	LD (SKY_2),A
+	;
+	LD HL,TABLE_MAIN+26
+	;LD A,26			;!HARDCODE
+	;ADD A,L
+	;LD L,A
 	LD A,(HL)
 	LD (WALL_DATS),A
-
+	;
 	LD DE,MONSTR_DATS
 	LD B,7
 NEXT_HL_FFING:
@@ -1053,11 +1035,11 @@ NEXT_HL_FFING:
 	LD A,(MONSTR_DATS+6)
 	LD (BAR_PAGE),A
 
-	LD HL,TABLE_MAIN
+	;LD HL,TABLE_MAIN
-	LD A,35
+	;LD A,35
-	ADD A,L
+	;ADD A,L
-	LD L,A
+	;LD L,A
-	LD A,(HL)
+	LD A,(TABLE_MAIN+35)
 	LD (BFGF_PAGE),A
 
 	CALL MADE_FFING
@@ -1065,18 +1047,18 @@ NEXT_HL_FFING:
 	LD A,(PAGE_WEAPON)
 	CALL MADE_FFING
 
-	LD HL,TABLE_MAIN
+	;LD HL,TABLE_MAIN
-	LD A,33
+	;LD A,33
-	ADD A,L
+	;ADD A,L
-	LD L,A
+	;LD L,A
-	LD A,(HL)
+	LD A,(TABLE_MAIN+33)
 	LD (EFF_PAGE),A						; §¢ãª ¢ëáâ५ 
 
-	LD HL,TABLE_MAIN
+	; LD HL,TABLE_MAIN
-	LD A,34
+	; LD A,34
-	ADD A,L
+	; ADD A,L
-	LD L,A
+	; LD L,A
-	LD A,(HL)
+	LD A,(TABLE_MAIN+34)
 	LD (PAGE_M_PLACE),A					; â ¡«¨æ  á 㣫 ¬¨ ¤«ï ¬®­áâ஢
 
 ;--_[—¨â ¥¬ ç¥â¢ñàâë© ¡«®ª â ¡«¨æ H:]---; Tables disk my_tab*.*
@@ -1087,15 +1069,20 @@ NEXT_HL_FFING:
 	ret c
 ;---------------------------------------
 */
-	ld a,(RAMBlkIDs+2)
+	ld a,(RAMBlkIDs.d2_table)
 	LD HL,TABLE_TRACE
 	ld c,BIOS.GetMemBlkPages			; ¯®«ãç¨âì ᯨ᮪ áâà ­¨æ ¡«®ª  A
 	rst ToBIOS
 	RET C
 	LD A,B
-	CP 32
+	;
-	SCF
+	 CP 33
-	RET NZ
+	 CCF
+	 RET C
+	 ;CP 32
+	 ;SCF
+	 ;RET NZ
+	;
 ;
 ;----[—¨â ¥¬ âà¥â¨© ¡«®ª â ¡«¨æ G:]-----; Tables disk mapw*.d2
 /*
@@ -1105,13 +1092,13 @@ NEXT_HL_FFING:
 	ret c
 ;---------------------------------------
 */
-	ld a,(RAMBlkIDs+1)
+	ld a,(RAMBlkIDs.map_wall)
 	LD HL,TABLE_WALL
 	ld c,BIOS.GetMemBlkPages			; ¯®«ãç¨âì ᯨ᮪ áâà ­¨æ ¡«®ª  A
 	rst ToBIOS
 	RET C
 	LD A,B
-	CP 33
+	CP 17
 	CCF
 	RET C								; B - à §¬¥à à ¬¤¨áª 
 
@@ -1324,6 +1311,10 @@ FilesTBL:
 .END	EQU ($-FilesTBL)/14				; ª®«¨ç¥á⢮ ä ©«®¢ 
 
 RAMBlkIDs:	BLOCK FilesTBL.END,0
+.resources	EQU RAMBlkIDs+0
+.map_wall	EQU RAMBlkIDs+1
+.d2_table	EQU RAMBlkIDs+2
+.d2_fram	EQU RAMBlkIDs+3
 ;---------------------------------------
 ;
 
@@ -1352,14 +1343,14 @@ RECALC_M2:
 	JR Z,NO_PRP							; ¯à®¢¥à¨âì, ª ªãî â ¡«¨æã ¯¥à¥áç¨â뢠¥¬
 	BIT 5,H
 	JR Z,NO_PRP							; ¥á«¨ ­¥ 4-î, â® ¨¤â¨ ¤ «ìè¥, ¨­ ç¥
-;										  - íâ® â ¡«¨æ  ¯à¥¯àïâá⢨©
+;								          - íâ® â ¡«¨æ  ¯à¥¯àïâá⢨©
 RECALC_M2X:
 	LD A,(HL)							; ª®¤ á⥭ª¨
 	CP 'S'								; #53
 	JR Z,ZERO_PRP
-	SUB 20H								; ª®¤ ¯à®¡¥« 
+	SUB ' '
 	JR Z,ZERO_PRP
-	LD A,05Fh							; ¯à¥¯ïâá⢨¥
+	LD A,#5F							; ¯à¥¯ïâá⢨¥
 	JR ONE_PRP
 ZERO_PRP:
 	XOR A
@@ -1369,9 +1360,9 @@ ONE_PRP:
 	JR NZ,RECALC_M2X
 	INC H
 	LD A,H
-	AND 0Fh
+	AND #0F
 	JR NZ,RECALC_M2X
-	JR NO_PROCESS						; § ª®­ç¨âì
+	JR NO_PROCESS							; § ª®­ç¨âì
 
 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 ; ‘¤¥« âì ãá«®¢¨¥ ­  ¬ ªá¨¬ «ì­®¥ ª®«-¢®
@@ -1392,13 +1383,12 @@ NO_PRP:
 	CALL Z,MONSTR_POS2
 	CP 'P'								; ®£®­ì bfg
 	CALL Z,MONSTR_POS3
-	SUB 20H
+	SUB #20
 	JR Z,ZERO_WOLL
-	SUB 10H
+	SUB #10
 	JR C,ZERO_WOLL
-;
+MAP_ELS+1:
-			CP 15
+	CP 15
-MAP_ELS		EQU $-1
 ;
 	JR NC,ZERO_WOLL
 
@@ -1428,16 +1418,16 @@ NO_ZERO_W:
 	JR NZ,NO_PRP
 	INC H
 	LD A,H
-	AND 0Fh
+	AND #0F
 	JR NZ,NO_PRP
 
 	LD A,H
-	CP 50H
+	CP #50
 	JR NZ,NO_ST
 	LD (MONSTR_END_T),IX				; ª®­¥æ â ¡«¨æë ¬®­áâ஢
 NO_ST:
 	LD A,H
-	CP 80h
+	CP #80
 	JR NZ,RECALC_X
 
 NO_PROCESS:
@@ -1667,7 +1657,7 @@ Y_SPEED:	DW #302
 A_SPEED:	DW #200
 
 TABLE_TRACE:	BLOCK 33,0					; â ¡«¨æ  âà áá¨à®¢ª¨/¡ ­ª¨ â ¡«¨æë
-TABLE_WALL:	BLOCK 33,0
+TABLE_WALL:	BLOCK 17,0
 
 ;		BLOCK TABLES_START+#74-$,0	;‚›<E2809A>€‚<E282AC>ˆ‚€<E2809A>ˆ…
 

Music_4x.asm

@@ -267,8 +267,8 @@ HDD_FN:	EX AF,AF'
 	 PUSH AF
 	 LD A,5			;!FIXIT
 	 OUT (SLOT1),A
-DOOM2_SndPage+1:
+	 ;
-	 LD A,0
+	 LD A,CBL.BUFFER_PAGE
 	 OUT (SLOT3),A
 	 IN A,(PORT_Y)
 	 PUSH AF