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:
PUSH AF
PUSH IX
PUSH HL
PUSH DE
PUSH BC
LD A,(FLAG)
AND A
JR NZ,NO_SAVE
LD A,#FF
LD (FLAG),A
CALL SAVE_PIC
LD A,0
LD (FLAG),A
NO_SAVE:
POP BC
POP DE
POP HL
POP IX
POP AF
RET
PUSH AF
PUSH IX
PUSH HL
PUSH DE
PUSH BC
.flag+1: LD A,0
AND A
JR NZ,NO_SAVE
; A=0
DEC A
LD (.flag),A
CALL SAVE_PIC
XOR A
LD (.flag),A
NO_SAVE: POP BC
POP DE
POP HL
POP IX
POP AF
RET
SAVE_HL: 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
code_addr EQU BEGIN
stack_point EQU #BFFF
program_start EQU BEGIN
program_start EQU START
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 ; á®åà ­¨âì 㪠§ â¥«ì ­  ¯ à ¬¥âàë § ¯ã᪠
CMD_Line+1:
LD HL,#8080
LD HL,#8080
CALL SET_HOME_PATH
;--------[§ £à㧪  à¥áãàᮢ ¨£àë]-------
CALL CHECK_SYSTEM
@ -340,7 +348,7 @@ SPSave2+1:
;----------------------------------------------------------------------;
;
FLAG: DB 0
;FLAG: DB 0
;SAVE_PORT_Y: DB 0
;
;
@ -1008,15 +1016,6 @@ NEXT_HL_FFING:
; RET
*/
;***************************************
BLOCK #8700-$,0 ;‚›<E2809A>€‚<E282AC>ˆ‚€<E2809A>ˆ…
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
; âãâ ¢ëà ¢­¨¢ ­¨¥ ­  0 ¢ ¬« ¤è¥¬
; ¡¨â¥  ¤à¥á 
TABLE_MAIN: DS 37 ; ¡ãä¥à ¯®¤ áâà ­¨æë ä ©«  resurses.res +1
TABLE_PIC: DS 6
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;-------[§ £à㧪  à¥áãàᮢ ¨£àë]--------
Load_Resources:
in a,(SLOT3)

2
Shared_Includes

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