Tolik-Trek/DOOM2
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/DOOM2.git synced 2026-06-15 17:11:34 +03:00
Code Actions Packages Releases Activity

просто глянуть - TEST_SCREEN

Browse Source
This commit is contained in:
Tolik 2025-03-15 02:40:42 +10:00
parent b9a2e9391b
commit d6a18c0919
2 changed files with 156 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

158
DOOM2.asm
View File

@ -5,6 +5,9 @@
;---------------------------------------
*/
DEFINE TEST_SCREEN 0
ScreenStartAddress EQU #C040
;ScreenStartAddress EQU #C000
;
@ -443,6 +446,14 @@ MAIN: CALL INIT_TABLE
RST ToBIOS
;---------------------------------------
IF TEST_SCREEN
;
CALL MAKE_SCR_ST1
;
ENDIF
LD A,(RESTORE_ALL.scr)
OUT (SCREEN_SWITCH),A
@ -1165,7 +1176,7 @@ RAMBlkIDs: BLOCK FilesTBL.END,0
;---------------------------------------
;
DS #8B00-$ ;‚›<E2809A>€‚<E282AC>ˆ‚€<E2809A>ˆ…
BLOCK #8B00-$,0 ;‚›<E2809A>€‚<E282AC>ˆ‚€<E2809A>ˆ…
RECALC_MAP:
; ¯¥à¥áç¥â ª àâë ­  ॠ«ì­ë¥ ­®¬¥à 
@ -1594,8 +1605,8 @@ RESTORE_ALL:
.scr+2: LD BC,Dss.SetVMod
RST ToDSS
;
;LD BC,Dss.Lib_Sub.RestoreFont
;RST ToDSS
LD BC,Dss.Lib_Sub.RestoreFont
RST ToDSS
;
LD A,(.mode)
CP #80
@ -1710,6 +1721,147 @@ MESSAGES_TXT:
.Loading: DZ "\r\nPlease wait, resources are loading...\r\n"
.NormExit: DZ "DOOM 2 demo for DSS says goodbye to you...\r\n"
;-----------------------------------------------------------------------;
;-----------------------------------------------------------------------;
IF TEST_SCREEN
MAKE_SCR_ST1: IN A,(SLOT3)
PUSH AF
LD A,#50
OUT (SLOT3),A
LD A,1
OUT (PORT_Y),A
LD HL,#C300
;
.big_loop: LD C,20
;
.mid_loop: LD B,16
LD DE,#C37C
LD HL,#C33C
;
.sml_loop: PUSH BC
LDI
LDI
LD A,%0000'0110
LD (DE),A
DEC HL
DEC HL
DEC DE
DEC DE
DEC DE
DEC DE
DEC DE
DEC DE
LDI
LDI
LD A,%0000'0100
LD (DE),A
DEC HL
DEC HL
DEC HL
DEC HL
DEC HL
DEC HL
DEC DE
DEC DE
DEC DE
DEC DE
DEC DE
DEC DE
POP BC
DJNZ .sml_loop
;
IN A,(PORT_Y)
INC A
INC A
OUT (PORT_Y),A
DEC C
JR NZ,.mid_loop
;
IN A,(PORT_Y)
AND #80
JR NZ,MAKE_SCR_ST2
LD A,#81
OUT (PORT_Y),A
JR .big_loop
;
MAKE_SCR_ST2: LD HL,#C300
.big_loop: EXX
LD D,#4F ; 79 port_y line
LD E,#27 ; 39 port_y line
LD C,PORT_Y
LD B,#14 ; áçñâ稪
EXX
.mid_loop: EXX
OUT (C),E
EXX
;
LD E,(HL)
INC HL
LD D,(HL)
INC HL
LD B,(HL)
DEC HL
DEC HL
;
EXX
OUT (C),D
EXX
;
LD (HL),E
INC HL
LD (HL),D
INC HL
LD (HL),B
SET 0,(HL)
;
EXX
DEC D
DEC D
OUT (C),D
EXX
;
LD (HL),B
DEC HL
LD (HL),D
DEC HL
LD (HL),E
;
EXX
DEC D
DEC D
DEC E
DEC E
DEC B
EXX
JR NZ,.mid_loop
;
EXX
BIT 7,E
EXX
JR Z,.HZ
;
EXX
LD D,#CF ; 207 port_y line
LD E,#A7 ; 167 port_y line
LD C,PORT_Y
LD B,20 ; áçñâ稪
EXX
JR .mid_loop
;
.HZ: INC HL
INC HL
INC HL
INC HL
LD A,L
CP #80
JR NZ,.big_loop
;
POP AF
OUT (SLOT3),A
RET
ENDIF
;-----------------------------------------------------------------------;
OUTEND ; ª®­¥æ ä ©«  doom2.exe
;-----------------------------------------------------------------------;

2
Shared_Includes

@ -1 +1 @@
Subproject commit 940fb62da5f5e00b0c1c4700ce004d06da28adca
Subproject commit 9bfe7bd76b9648dae6f492dcd730b9b7ed80f48d