1
0
mirror of https://github.com/Tolik-Trek/DOOM2.git synced 2026-06-16 01:21:08 +03:00

картинкаи на заставке теперь норм

This commit is contained in:
Anatoliy Belyanskiy 2024-02-02 01:17:36 +10:00
parent 55053c05ec
commit 84f6958d37
3 changed files with 202 additions and 170 deletions

View File

@ -61,7 +61,7 @@ SKY_LOOP_1:
XOR A XOR A
OUT (RGADR),A OUT (PORT_Y),A
ACC_CopyScreenBlock ACC_CopyScreenBlock
LD (DE),A LD (DE),A
ACC_Off ACC_Off
@ -69,14 +69,14 @@ SKY_LOOP_1:
INC DE INC DE
INC DE INC DE
OUT (RGADR),A OUT (PORT_Y),A
ACC_CopyScreenBlock ACC_CopyScreenBlock
LD (DE),A LD (DE),A
ACC_Off ACC_Off
DEC DE DEC DE
OUT (RGADR),A OUT (PORT_Y),A
ACC_CopyScreenBlock ACC_CopyScreenBlock
LD (DE),A LD (DE),A
ACC_Off ACC_Off
@ -84,7 +84,7 @@ SKY_LOOP_1:
INC DE INC DE
INC DE INC DE
OUT (RGADR),A OUT (PORT_Y),A
ACC_CopyScreenBlock ACC_CopyScreenBlock
LD (DE),A LD (DE),A
ACC_Off ACC_Off
@ -125,13 +125,14 @@ NO_NEXT_SKY:
ENDIF ENDIF
; ;
EXX EXX
SCREEN_1 EQU $+1 SCREEN_1+1:
LD DE,#C040 ; ­ ç «® íªà ­  LD DE,#C040 ; ­ ç «® íªà ­ 
LD C,0 ;!!!!!!!!!!!!!!!!!!!!!!!!!! LD C,0 ;!!!!!!!!!!!!!!!!!!!!!!!!!!
EXX EXX
; ;
ANGLE_M+1:
LD HL,0 ; ­ ç «ì­ë© 㣮« * 32 LD HL,0 ; ­ ç «ì­ë© 㣮« * 32
ANGLE_M EQU $-2
; ;
LD A,H LD A,H
RLCA RLCA
@ -166,7 +167,7 @@ TRACE_LOOP:
LD A,#50 LD A,#50
OUT (SLOT3),A OUT (SLOT3),A
XOR A XOR A
OUT (RGADR),A OUT (PORT_Y),A
REPT 16 REPT 16
LD E,(HL) ; ¯¥à¢ë© ¨ ¤ «¥¥ á«¥¤ãî騩 ªã¡¨ª LD E,(HL) ; ¯¥à¢ë© ¨ ¤ «¥¥ á«¥¤ãî騩 ªã¡¨ª
@ -183,7 +184,7 @@ PURE_LINE:
LD A,#80 ; ¯ãáâ ï á⥭ª  LD A,#80 ; ¯ãáâ ï á⥭ª 
ACC_Off ACC_Off
; LD (DE),A ; LINE-Z-bufer ; LD (DE),A ; LINE-Z-bufer
OUT (RGADR),A OUT (PORT_Y),A
LD A,(COLOR_LO) LD A,(COLOR_LO)
@ -259,7 +260,7 @@ PLACE_L2 EQU $-1
; <64 â®çª¨, ­  ¢¥áì íªà ­ ; <64 â®çª¨, ­  ¢¥áì íªà ­
XOR A XOR A
OUT (RGADR),A ; á á ¬®£® ­ ç «  OUT (PORT_Y),A ; á á ¬®£® ­ ç « 
ACC_SetBlockSize ACC_SetBlockSize
LD (DE),A ; 256 ¡ ©â ˆ LINE-Z-bufer!!!! LD (DE),A ; 256 ¡ ©â ˆ LINE-Z-bufer!!!!
@ -281,7 +282,7 @@ HIGH_1:
LD (DE),A ; ç¨á«® â®ç¥ª ¯®â®«ª  ¨ ¯®« ! & LINE-Z-bufer LD (DE),A ; ç¨á«® â®ç¥ª ¯®â®«ª  ¨ ¯®« ! & LINE-Z-bufer
ACC_Off ACC_Off
NEG ; ¯®«ãç¨âì ¯®«®¦¥­¨¥ ­ ç «  ¯®«  NEG ; ¯®«ãç¨âì ¯®«®¦¥­¨¥ ­ ç «  ¯®« 
OUT (RGADR),A OUT (PORT_Y),A
LD L,A LD L,A
LD A,#58 LD A,#58
@ -305,10 +306,10 @@ COLOR_LO EQU $-1
LD A,L LD A,L
NEG NEG
OUT (RGADR),A OUT (PORT_Y),A
LD A,L LD A,L
; IN A,(RGADR) ; IN A,(PORT_Y)
ADD A,A ADD A,A
; NEG ; ¢ë¢®¤¨¬ë© à §¬¥à á⥭ª¨ ; NEG ; ¢ë¢®¤¨¬ë© à §¬¥à á⥭ª¨
; á⥭ª  ¢  ªá¥«¥à â®à¥! ; á⥭ª  ¢  ªá¥«¥à â®à¥!
@ -401,7 +402,7 @@ TRACE_RET_SLOT1 EQU $-1
; ;
OUT (SLOT1),A OUT (SLOT1),A
LD A,0 LD A,0
OUT (RGADR),A OUT (PORT_Y),A
RET RET
; ;
;*************************************** ;***************************************
@ -463,9 +464,8 @@ NO_CORN1:
; ;
;*************************************** ;***************************************
; ;
SET_PICTURE:
; A - ®â­®á¨â¥«ì­ë© ­®¬¥à áâà ­¨æë ; A - ®â­®á¨â¥«ì­ë© ­®¬¥à áâà ­¨æë
SET_PICTURE:
LD C,SLOT1 LD C,SLOT1
IN B,(C) IN B,(C)
PUSH BC PUSH BC
@ -491,7 +491,8 @@ SET_PICTURE:
ACC_SetBlockSize ACC_SetBlockSize
LD A,0 ; ¯® 256 ¡ ©â LD A,0 ; ¯® 256 ¡ ©â
ACC_Off ACC_Off
OUT (RGADR),A inc a ;!FIXIT ª®áâë«ì, ¨­ ç¥ á® áçñâ稪®¬  ªá¥«ï çâ®-â® ­¥ â ª
OUT (PORT_Y),A
POP AF POP AF
@ -725,7 +726,7 @@ W_OUT_L:
LD A,#44 LD A,#44
SUB H SUB H
OUT (RGADR),A OUT (PORT_Y),A
; ;
;------[®¯â¨¬¨§¨à®¢ âì?]---------------- ;------[®¯â¨¬¨§¨à®¢ âì?]----------------
OUT (C),C ; Œ€˜<E28099> 1:1, ­ ç¨­ âì á 0 OUT (C),C ; Œ€˜<E28099> 1:1, ­ ç¨­ âì á 0
@ -805,7 +806,7 @@ MAP_LOOP_1:
INC H INC H
REPT 4 REPT 4
OUT (RGADR),A OUT (PORT_Y),A
ACC_CopyBlock ACC_CopyBlock
LD (DE),A LD (DE),A
ACC_Off ACC_Off
@ -827,7 +828,7 @@ MAP_LOOP_1:
; LD C,(HL) ; LD C,(HL)
; ACC_Off ; ACC_Off
; OUT (RGADR),A ; OUT (PORT_Y),A
; ACC_CopyBlock ; ACC_CopyBlock
; LD (DE),A ; LD (DE),A
; ACC_Off ; ACC_Off
@ -836,7 +837,7 @@ MAP_LOOP_1:
; ACC_CopyBlock ; ACC_CopyBlock
; LD C,(HL) ; LD C,(HL)
; ACC_Off ; ACC_Off
; OUT (RGADR),A ; OUT (PORT_Y),A
; ACC_CopyBlock ; ACC_CopyBlock
; LD (DE),A ; LD (DE),A
; ACC_Off ; ACC_Off
@ -845,7 +846,7 @@ MAP_LOOP_1:
; ACC_CopyBlock ; ACC_CopyBlock
; LD C,(HL) ; LD C,(HL)
; ACC_Off ; ACC_Off
; OUT (RGADR),A ; OUT (PORT_Y),A
; ACC_CopyBlock ; ACC_CopyBlock
; LD (DE),A ; LD (DE),A
; ACC_Off ; ACC_Off
@ -854,7 +855,7 @@ MAP_LOOP_1:
; ACC_CopyBlock ; ACC_CopyBlock
; LD C,(HL) ; LD C,(HL)
; ACC_Off ; ACC_Off
; OUT (RGADR),A ; OUT (PORT_Y),A
; ACC_CopyBlock ; ACC_CopyBlock
; LD (DE),A ; LD (DE),A
; ACC_Off ; ACC_Off
@ -874,7 +875,7 @@ MAP_LOOP_1:
JR Z,MAP_LOOP_2 JR Z,MAP_LOOP_2
LD A,0 LD A,0
OUT (RGADR),A OUT (PORT_Y),A
POP AF POP AF
POP HL POP HL
@ -906,7 +907,7 @@ WALL:
LD (SLOT3_RET1),A LD (SLOT3_RET1),A
IN A,(SLOT1) IN A,(SLOT1)
LD (SLOT1_RET1),A LD (SLOT1_RET1),A
IN A,(RGADR) IN A,(PORT_Y)
LD (RGADR_RET1),A LD (RGADR_RET1),A
LD A,#58 LD A,#58
OUT (SLOT3),A OUT (SLOT3),A
@ -992,7 +993,7 @@ NO_DEL4:
WOLL_LOOP: WOLL_LOOP:
XOR A XOR A
OUT (RGADR),A OUT (PORT_Y),A
LD A,D LD A,D
CP #C3 CP #C3
@ -1043,7 +1044,7 @@ NO_Z_A1:
JR Z,NO_Z_A JR Z,NO_Z_A
XOR A XOR A
NO_Z_A: NO_Z_A:
OUT (RGADR),A ; § ¤ âì ¯®àâ Y OUT (PORT_Y),A ; § ¤ âì ¯®àâ Y
ACC_CopyScreenBlock ACC_CopyScreenBlock
LD (DE),A ; ¢ë¢¥á⨠«¨­¨î LD (DE),A ; ¢ë¢¥á⨠«¨­¨î
@ -1077,7 +1078,7 @@ NO_WRITE_ALL:
; ;
RGADR_RET1 EQU $+1 RGADR_RET1 EQU $+1
LD A,0 LD A,0
OUT (RGADR),A OUT (PORT_Y),A
SLOT3_RET1 EQU $+1 SLOT3_RET1 EQU $+1
LD A,0 LD A,0
OUT (SLOT3),A OUT (SLOT3),A
@ -1372,18 +1373,16 @@ SOUND:
ENDIF ENDIF
; ;
IF YesSound IF YesSound
MemPatch_SoundOnOff EQU $ MemPatch_SoundOnOff:
NOP ; á ¢áâ ¢«ï¥âáï ª®¬ ­¤  RET ¤«ï ®âª«î祭¨ï §¢ãª  ¨ NOP ¤«ï ¢ª«î祭¨ï NOP ; á ¢áâ ¢«ï¥âáï ª®¬ ­¤  RET ¤«ï ®âª«î祭¨ï §¢ãª  ¨ NOP ¤«ï ¢ª«î祭¨ï
PUSH AF PUSH AF
PUSH HL PUSH HL
SND_MORE: SND_MORE:
CALL KBD_INT CALL KBD_INT
IN A,(#FE) IN A,(#FE)
; ;
COV_ADR+1:
XOR 0 ; covox  ¤à¥á XOR 0 ; covox  ¤à¥á
COV_ADR EQU $-1
; ;
AND #80 AND #80
JP NZ,NO_LD_SND JP NZ,NO_LD_SND
@ -1401,7 +1400,7 @@ COV_ADR EQU $-1
IN A,(SLOT3) IN A,(SLOT3)
LD E,A LD E,A
MemPatch_D2_FRAM_SndPage EQU $+1 MemPatch_D2_FRAM_SndPage+1:
LD A,0 LD A,0
OUT (SLOT3),A OUT (SLOT3),A
@ -1426,7 +1425,6 @@ L_DDX:
JP NZ,NO_SNDP JP NZ,NO_SNDP
SND_INIT1: SND_INIT1:
PUSH IX PUSH IX
PUSH AF PUSH AF
EX AF,AF' EX AF,AF'
@ -1582,7 +1580,7 @@ CLEAR_Z_BUFER:
OUT (SLOT3),A OUT (SLOT3),A
LD A,0 LD A,0
OUT (RGADR),A OUT (PORT_Y),A
LD DE,(SCREEN_1) LD DE,(SCREEN_1)
ACC_SetBlockSize ACC_SetBlockSize
@ -2058,22 +2056,22 @@ SAVE_P2: DW 0
SAVE_RGA2: DB 0 SAVE_RGA2: DB 0
SAVE_PIC: SAVE_PIC:
IN A,(RGMOD) IN A,(SCREEN_SWITCH)
AND 1 AND 1
LD HL,0C040H LD HL,#C040
JR NZ,SET_1X JR NZ,SET_1X
LD HL,0C180H LD HL,#C180
SET_1X: SET_1X:
LD IX,TABLE_PIC LD IX,TABLE_PIC
LD A,(IX) LD A,(IX)
AND A AND A
RET Z RET Z
LD DE,08436h LD DE,#8436
SAVE_PIC_X: SAVE_PIC_X:
LD (SAVE_HL),HL ; Pic line LD (SAVE_HL),HL ; Pic line
IN A,(RGADR) IN A,(PORT_Y)
LD (SAVE_RGA2),A LD (SAVE_RGA2),A
LD C,SLOT2 LD C,SLOT2
@ -2087,7 +2085,7 @@ SAVE_PIC_X:
OUT (C),A ; Screen OUT (C),A ; Screen
LD A,#FF LD A,#FF
OUT (RGADR),A ; Line 1 OUT (PORT_Y),A ; Line 1
LD A,(IX) LD A,(IX)
OUT (SLOT2),A OUT (SLOT2),A
@ -2097,7 +2095,6 @@ NEXT_SV_LN:
LD B,160 LD B,160
LOOP_SV_PIC: LOOP_SV_PIC:
LD A,(HL) LD A,(HL)
LD (DE),A LD (DE),A
INC HL INC HL
@ -2116,16 +2113,16 @@ LOOP_SV_PIC:
INC IX INC IX
LD A,(IX) LD A,(IX)
OUT (SLOT2),A ; next page OUT (SLOT2),A ; next page
LD DE,8000h LD DE,#8000
NO_NEXT_PAGE: NO_NEXT_PAGE:
DJNZ LOOP_SV_PIC DJNZ LOOP_SV_PIC
; CALL SOUND ; CALL SOUND
IN A,(RGADR) IN A,(PORT_Y)
DEC A DEC A
OUT (RGADR),A OUT (PORT_Y),A
CP 0FFh CP #FF
JR NZ,NEXT_SV_LN JR NZ,NEXT_SV_LN
LD BC,(SAVE_P2) LD BC,(SAVE_P2)
@ -2133,7 +2130,7 @@ NO_NEXT_PAGE:
LD BC,(SAVE_P1) LD BC,(SAVE_P1)
OUT (C),B OUT (C),B
LD A,(SAVE_RGA2) LD A,(SAVE_RGA2)
OUT (RGADR),A OUT (PORT_Y),A
RET RET

141
DOOM2.asm
View File

@ -94,8 +94,8 @@ BEGIN:
DI DI
LD (CMD_Line),IX ; á®åà ­¨âì 㪠§ â¥«ì ­  ¯ à ¬¥âàë § ¯ã᪠ LD (CMD_Line),IX ; á®åà ­¨âì 㪠§ â¥«ì ­  ¯ à ¬¥âàë § ¯ã᪠
CMD_Line+1:
LD HL,#8080 LD HL,#8080
CMD_Line: EQU $-2
/* /*
; „®¤¥« âì???!!!! ; „®¤¥« âì???!!!!
LD C,(HL) LD C,(HL)
@ -133,8 +133,7 @@ Loader_length EQU 0
; ;
;-----------[§ £«ãè¨âì §¢ãª]------------ ;-----------[§ £«ãè¨âì §¢ãª]------------
LD A,#FF ; !FIXIT à §¢¥ â ª ­ ¤® £«ãè¨âì? <20>¥ à㤨¬¥­âë Sp97? LD A,#FF ; !FIXIT à §¢¥ â ª ­ ¤® £«ãè¨âì? <20>¥ à㤨¬¥­âë Sp97?
1: 1: CALL CLEAR_COVOX_X
CALL CLEAR_COVOX_X
DEC A DEC A
CP #80 CP #80
JR NZ,1B JR NZ,1B
@ -175,31 +174,37 @@ Loader_length EQU 0
CALL SET_PAL CALL SET_PAL
IN A,(SLOT3)
EX AF,AF'
LD A,DCP_PAGE
OUT (SLOT3),A
LD A,ACEX.SCALE
;----[®âªàëâì ¯®àâë ¬ áèâ ¡¨à®¢ ­¨ï]---- ;----[®âªàëâì ¯®àâë ¬ áèâ ¡¨à®¢ ­¨ï]----
LD A,1
LD HL, %0000'0100'0000'0000
LD DE, %1111'1110'0110'1111
LD BC,ACEX.SCALE*256 + BIOS.DCP_CONFIG
RST ToBIOS
; IN A,(SLOT3)
; EX AF,AF'
; LD A,DCP_PAGE
; OUT (SLOT3),A
; LD A,ACEX.SCALE
; ;
; ®¤¨­ ¢­ãâ७­¨© ¯®àâ ¬ áèâ ¡¨à®¢ ­¨ï ; ®¤¨­ ¢­ãâ७­¨© ¯®àâ ¬ áèâ ¡¨à®¢ ­¨ï
; ¬ ¯¯¨âáï ­  ­¥áª®«ìª® ¤¨ ¯¯ §®­®¢ ; ¬ ¯¯¨âáï ­  ­¥áª®«ìª® ¤¨ ¯¯ §®­®¢
; ¢­¥è­¨å ¯®à⮢ ; ¢­¥è­¨å ¯®à⮢
; Œ áª  1110 0000 1110 0111 ; Œ áª 
LD (#C400),A ; ¯®àâ #0000 Dos off ; LD (#C400),A ; ¯®àâ #0000 Dos off
LD (#C410),A ; ¯®àâ #2000 Dos off ; LD (#C410),A ; ¯®àâ #2000 Dos off
LD (#C480),A ; ¯®àâ #4000 Dos off ; LD (#C480),A ; ¯®àâ #4000 Dos off
LD (#C490),A ; ¯®àâ #6000 Dos off ; LD (#C490),A ; ¯®àâ #6000 Dos off
LD (#C500),A ; ¯®àâ #8000 Dos off ; LD (#C500),A ; ¯®àâ #8000 Dos off
LD (#C510),A ; ¯®àâ #A000 Dos off ; LD (#C510),A ; ¯®àâ #A000 Dos off
LD (#C580),A ; ¯®àâ #C000 Dos off ; LD (#C580),A ; ¯®àâ #C000 Dos off
LD (#C590),A ; ¯®àâ #E000 Dos off ; LD (#C590),A ; ¯®àâ #E000 Dos off
; EX AF,AF'
; OUT (SLOT3),A
;--------------------------------------- ;---------------------------------------
EX AF,AF'
OUT (SLOT3),A
EXX EXX
LD BC,#100 ; ¬ áèâ ¡ 1:1 LD BC,#100 ; ¬ áèâ ¡ 1:1
LD D,0 LD D,0
@ -213,14 +218,23 @@ Loader_length EQU 0
; LD I,A ; LD I,A
; ; IM 2 - ¯®ª  ­¥ ¢ª«îç ¥¬, ¯à®æ¥¤ãà  ¯à¥à뢠­¨ï ¯à룠¥â ¢ ªíè,   ®­ ­¥ ¢áâ ¢«¥­ ¨ ­¥ ¯à®£à㦥­ ; ; IM 2 - ¯®ª  ­¥ ¢ª«îç ¥¬, ¯à®æ¥¤ãà  ¯à¥à뢠­¨ï ¯à룠¥â ¢ ªíè,   ®­ ­¥ ¢áâ ¢«¥­ ¨ ­¥ ¯à®£à㦥­
; ENDIF ; ENDIF
CALL MAIN CALL MAIN
;------------------------------------------------------------------------
; E)eeeeee X) xx I)iiii T)tttttt
; E) X) xx I) T)
; E)eeeee X)xx I) T)
; E) X)xx I) T)
; E) X) xx I) T)
; E)eeeeee X) xx I)iiii T)
;------------------------------------------------------------------------
;----[LP_OPEN_S]------------------------ ;----[LP_OPEN_S]------------------------
; Žâªàë⨥ áâ ­¤ àâ­ëå ®ª®­ ; Žâªàë⨥ áâ ­¤ àâ­ëå ®ª®­
LD HL,#5104
LD HL,5104H
LD E,0 ; win_flag - ä« £¨ ®ª­ : LD E,0 ; win_flag - ä« £¨ ®ª­ :
; bit 0 ®¯à¥¤¥«ï¥â áâà ­¨æã ०¨¬ , ª®â®à ï ¡ã¤¥â ; bit 0 ®¯à¥¤¥«ï¥â áâà ­¨æã ०¨¬ , ª®â®à ï ¡ã¤¥â
; ®âªàëâ  ¯®á«¥ ¨á¯®«­¥­¨ï ä㭪樨 ; ®âªàëâ  ¯®á«¥ ¨á¯®«­¥­¨ï ä㭪樨
@ -280,8 +294,8 @@ SET_PAL:
IN A,(SLOT3) IN A,(SLOT3)
PUSH AF PUSH AF
MemPatch_PalitrePage+1:
LD A,#FF LD A,#FF
MemPatch_PalitrePage equ $-1
OUT (SLOT3),A OUT (SLOT3),A
LD HL,#C000 LD HL,#C000
@ -316,7 +330,7 @@ CLEAR_GRAF_SCR:
OUT (SLOT3),A OUT (SLOT3),A
LD A,0 LD A,0
OUT (RGADR),A OUT (PORT_Y),A
LD SP,#C040 + 640 LD SP,#C040 + 640
LD B,640/4 LD B,640/4
@ -336,7 +350,7 @@ LOOP_CLS:
DJNZ LOOP_CLS DJNZ LOOP_CLS
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MemPatch_SPSave2 EQU $+1 MemPatch_SPSave2+1:
LD SP,0 LD SP,0
POP AF POP AF
OUT (SLOT3),A OUT (SLOT3),A
@ -349,7 +363,7 @@ MemPatch_SPSave2 EQU $+1
; LD A,7 ; LD A,7
; OUT (BorderColor),A ; OUT (BorderColor),A
; XOR A ; XOR A
; OUT (RGADR),A ; OUT (PORT_Y),A
; LD A,2 ; LD A,2
; LD HL,#4000 ; LD HL,#4000
@ -427,12 +441,13 @@ CLEAR_SP_PAL:
LOOP_PAL_ALL: LOOP_PAL_ALL:
PUSH BC PUSH BC
LD BC,RGADR LD BC,PORT_Y
LOOP_PAL_C: LOOP_PAL_C:
OUT (C),B OUT (C),B
; ;
PAL_RESES_ADR+1: LD HL,#C3F0 PAL_RESES_ADR+1:
LD HL,#C3F0
; ;
LD D,16 LD D,16
@ -478,10 +493,10 @@ MAIN:
CALL INIT_TABLE CALL INIT_TABLE
RET C RET C
IN A,(RGADR) IN A,(PORT_Y)
LD (SAVE_RGA),A LD (SAVE_RGA),A
LD A,#C0 LD A,#C0
OUT (RGADR),A OUT (PORT_Y),A
CALL RECALC_MAP CALL RECALC_MAP
;----!!!!!!!!!!!!!!!!!!!!!!!!!---------- ;----!!!!!!!!!!!!!!!!!!!!!!!!!----------
@ -490,7 +505,7 @@ MAIN:
LD A,(SAVE_RGA) LD A,(SAVE_RGA)
OUT (RGADR),A OUT (PORT_Y),A
ret c ; ­ã¦­® «¨???!!! ret c ; ­ã¦­® «¨???!!!
@ -527,16 +542,40 @@ MAIN:
LD B,9 ; £à ä¨ç¥áª®¥ ®ª­® 1, HL - ¯®«®¦¥­¨¥ ®ª­  LD B,9 ; £à ä¨ç¥áª®¥ ®ª­® 1, HL - ¯®«®¦¥­¨¥ ®ª­ 
LD C,BIOS.LP_OPEN_S LD C,BIOS.LP_OPEN_S
RST ToBIOS RST ToBIOS
/*
LD A,Dss.SetVMod.grf320x256
LD BC,Dss.SetVMod.Screen_0
RST ToDSS
LD A,Dss.SetVMod.grf320x256
LD BC,Dss.SetVMod.Screen_1
RST ToDSS
;£à ä¨ç¥áª®¥ ®ª­® 0
PIC_320X256_1:
DB 40,32,0,0,32,0,08,0
DB 40,32,0,0,96,0,48,0
DB 40,32,0,0,32,0,00,0 ;4
DB 40,32,0,0,96,0,40,0 ;6
;£à ä¨ç¥áª®¥ ®ª­® 1
PIC_320X256_2:
; 320x256. £à ä¨ç¥áª®¥, 0-© íªà ­
TAB_320x256_0
; 320x256. £à ä¨ç¥áª®¥, 1-© íªà ­
TAB_320x256_1
*/
;--------------------------------------- ;---------------------------------------
LD A,1 LD A,1
OUT (RGMOD),A OUT (SCREEN_SWITCH),A
;----[¯¥à¥¡à®á ç á⨠ª®¤  ¢ FastRAM]---- ;----[¯¥à¥¡à®á ç á⨠ª®¤  ¢ FastRAM]----
IN A,(SLOT3) IN A,(SLOT3)
PUSH AF PUSH AF
MemPatch_D2_FRAM_page+1:
LD A,#FF LD A,#FF
MemPatch_D2_FRAM_page equ $-1
OUT (SLOT3),A OUT (SLOT3),A
IF YesSound IF YesSound
@ -685,11 +724,11 @@ PAUS_START:
JR PAUS_START JR PAUS_START
HELP_: HELP_:
CALL FIRE_X CALL FIRE_X
LD HL,300H LD HL,#0300
LD (X_SPEED),HL LD (X_SPEED),HL
LD HL,382H LD HL,#0382
LD (Y_SPEED),HL LD (Y_SPEED),HL
LD HL,500H LD HL,#0500
LD (A_SPEED),HL LD (A_SPEED),HL
JR DM_LOOP JR DM_LOOP
@ -808,10 +847,10 @@ CONT_WORK:
JP DM_LOOP JP DM_LOOP
SCR_SWITCH: SCR_SWITCH:
IN A,(RGMOD) IN A,(SCREEN_SWITCH)
AND 1 AND 1
XOR 1 XOR 1
OUT (RGMOD),A OUT (SCREEN_SWITCH),A
LD DE,#C040 LD DE,#C040
JR Z,SET_1 JR Z,SET_1
@ -993,7 +1032,6 @@ SND_C1: DW 1720H ;
SND_C2: DW 0 SND_C2: DW 0
SET_SND_FILE: SET_SND_FILE:
IFN YesSound IFN YesSound
ret ret
ENDIF ENDIF
@ -1019,10 +1057,7 @@ SET_SND_FILE:
RET RET
SWITCH_SND: SWITCH_SND:
; NAME_S+1: LD DE,NAME1
LD DE,NAME1
NAME_S EQU $-2
;
CALL SET_SND_FILE CALL SET_SND_FILE
JR C,SWITCH_X JR C,SWITCH_X
@ -1046,7 +1081,6 @@ FILE_DATA:
DW 0 ; ⥪ã騩 ­®¬¥à ᥪâ®à  ¢ ª« áâ¥à¥ DW 0 ; ⥪ã騩 ­®¬¥à ᥪâ®à  ¢ ª« áâ¥à¥
; ;
OPEN_FILE: ; DE - name OPEN_FILE: ; DE - name
;
CALL FIND_FILE CALL FIND_FILE
RET C RET C
@ -1097,7 +1131,8 @@ SECT_X:
AND A AND A
RET RET
; ;
FIND_FILE: ;DE - name - 11 ᨬ¢®«®¢ ;DE - name - 11 ᨬ¢®«®¢
FIND_FILE:
; ;
LD C,SLOT3 LD C,SLOT3
IN B,(C) IN B,(C)
@ -1122,7 +1157,7 @@ NAME_LOOP:
POP DE POP DE
LD A,L LD A,L
AND 0E0H AND #E0
LD L,A LD L,A
POP BC POP BC
@ -1133,9 +1168,9 @@ NAME_LOOP:
NEXT_NAME: NEXT_NAME:
POP DE POP DE
LD A,L LD A,L
AND 0E0H AND #E0
LD L,A LD L,A
LD BC,020H LD BC,#20
ADD HL,BC ADD HL,BC
LD A,(HL) LD A,(HL)
AND A AND A
@ -1163,7 +1198,7 @@ MemPatch_DOOM2_SndPage EQU $+1
LD A,0 LD A,0
OUT (SLOT3),A OUT (SLOT3),A
IN A,(RGADR) IN A,(PORT_Y)
PUSH AF PUSH AF
EX AF,AF' EX AF,AF'
@ -1171,7 +1206,7 @@ MemPatch_DOOM2_SndPage EQU $+1
DI DI
POP AF POP AF
OUT (RGADR),A OUT (PORT_Y),A
POP AF POP AF
OUT (SLOT3),A OUT (SLOT3),A
POP AF POP AF
@ -1385,7 +1420,7 @@ NEXT_HL_FFING:
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
; âãâ ¢ëà ¢­¨¢ ­¨¥ ­  0 ¢ ¬« ¤è¥¬ ; âãâ ¢ëà ¢­¨¢ ­¨¥ ­  0 ¢ ¬« ¤è¥¬
; ¡¨â¥  ¤à¥á  ; ¡¨â¥  ¤à¥á 
TABLE_MAIN: DS 37 ; ¡ãä¥à ¯®¤ áâ ­¨æë ä ©«  resurses.res +1 TABLE_MAIN: DS 37 ; ¡ãä¥à ¯®¤ áâà ­¨æë ä ©«  resurses.res +1
TABLE_PIC: DS 6 TABLE_PIC: DS 6
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

@ -1 +1 @@
Subproject commit a15861c07cab60eaf09c28226d0c7761b4fd8235 Subproject commit b5606d6db7c0eecf2e3b3da53040af2432a40569