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

Updated CLP

Browse Source
This commit is contained in:
Tolik Trek 2026-05-14 01:47:26 +10:00
parent 55de177565
commit b7a1fb227f
3 changed files with 33 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
D2_FRAM.asm
View File

@ -1969,28 +1969,26 @@ SW_MONS:
SAVE_PIC_PR: SAVE_PIC_PR:
PUSH AF PUSH AF
PUSH IX PUSH IX
PUSH HL PUSH HL
PUSH DE PUSH DE
PUSH BC PUSH BC
LD A,(FLAG) .flag+1: LD A,0
AND A AND A
JR NZ,NO_SAVE JR NZ,NO_SAVE
; A=0
LD A,#FF DEC A
LD (FLAG),A LD (.flag),A
CALL SAVE_PIC CALL SAVE_PIC
LD A,0 XOR A
LD (FLAG),A LD (.flag),A
NO_SAVE: NO_SAVE: POP BC
POP DE
POP BC POP HL
POP DE POP IX
POP HL POP AF
POP IX RET
POP AF
RET
SAVE_HL: DW 0 SAVE_HL: DW 0
SAVE_P1: DW 0 SAVE_P1: DW 0

25
DOOM2.asm
View File

@ -70,7 +70,7 @@ MIN_VER: ; 1.70.887
org_addr EQU #8000+CLP_Buffer org_addr EQU #8000+CLP_Buffer
code_addr EQU BEGIN code_addr EQU BEGIN
stack_point EQU #BFFF stack_point EQU #BFFF
program_start EQU BEGIN program_start EQU START
Loader_length EQU 0 Loader_length EQU 0
;----------------------------------------------------------------------- ;-----------------------------------------------------------------------
; ;
@ -95,12 +95,20 @@ TABLE_W EQU #2000 ; ⥪
;[]-------------------------------------------------------------------[] ;[]-------------------------------------------------------------------[]
;[]-------------------------------------------------------------------[]
BEGIN: BLOCK #8100-$,0 ;‚›<E2809A>€‚<E282AC>ˆ‚€<E2809A>ˆ…
; âãâ ¢ëà ¢­¨¢ ­¨¥ ­  0 ¢ ¬« ¤è¥¬
; ¡¨â¥  ¤à¥á 
TABLE_MAIN: DS 37 ; ¡ãä¥à ¯®¤ áâà ­¨æë ä ©«  resurses.res +1
TABLE_PIC: DS 6
;[]-------------------------------------------------------------------[]
;[]-------------------------------------------------------------------[] ;[]-------------------------------------------------------------------[]
BEGIN: DI START: DI
LD (CMD_Line),IX ; á®åà ­¨âì 㪠§ â¥«ì ­  ¯ à ¬¥âàë § ¯ã᪠ LD (CMD_Line),IX ; á®åà ­¨âì 㪠§ â¥«ì ­  ¯ à ¬¥âàë § ¯ã᪠
CMD_Line+1: CMD_Line+1:
LD HL,#8080 LD HL,#8080
CALL SET_HOME_PATH CALL SET_HOME_PATH
;--------[§ £à㧪  à¥áãàᮢ ¨£àë]------- ;--------[§ £à㧪  à¥áãàᮢ ¨£àë]-------
CALL CHECK_SYSTEM CALL CHECK_SYSTEM
@ -340,7 +348,7 @@ SPSave2+1:
;----------------------------------------------------------------------; ;----------------------------------------------------------------------;
; ;
FLAG: DB 0 ;FLAG: DB 0
;SAVE_PORT_Y: DB 0 ;SAVE_PORT_Y: DB 0
; ;
; ;
@ -1008,15 +1016,6 @@ NEXT_HL_FFING:
; RET ; RET
*/ */
;***************************************
BLOCK #8700-$,0 ;‚›<E2809A>€‚<E282AC>ˆ‚€<E2809A>ˆ…
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
; âãâ ¢ëà ¢­¨¢ ­¨¥ ­  0 ¢ ¬« ¤è¥¬
; ¡¨â¥  ¤à¥á 
TABLE_MAIN: DS 37 ; ¡ãä¥à ¯®¤ áâà ­¨æë ä ©«  resurses.res +1
TABLE_PIC: DS 6
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;-------[§ £à㧪  à¥áãàᮢ ¨£àë]-------- ;-------[§ £à㧪  à¥áãàᮢ ¨£àë]--------
Load_Resources: Load_Resources:
in a,(SLOT3) in a,(SLOT3)

2
Shared_Includes

@ -1 +1 @@
Subproject commit e1dc7ec10dc9c7e9153a05884e42973a57378a63 Subproject commit c1b96797e8d7872943c17d5e32565d19c7947349