mirror of
https://github.com/Tolik-Trek/DOOM2.git
synced 2026-06-16 01:21:08 +03:00
картинкаи на заставке теперь норм
This commit is contained in:
parent
55053c05ec
commit
84f6958d37
89
D2_FRAM.asm
89
D2_FRAM.asm
@ -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
141
DOOM2.asm
@ -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
|
||||||
Loading…
Reference in New Issue
Block a user