Tolik-Trek/ZX-SP-ROMs
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/ZX-SP-ROMs.git synced 2026-06-15 09:21:45 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-08-03 00:17:40 +10:00
parent 1f599b0a0c
commit 5edf364e91
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shared_Includes

@ -1 +1 @@
Subproject commit 3bc0bf4868ef3bb368e43e509d443e661e146359 Subproject commit 785b2adeb82bc426c6a7cc5da0d2c041d414ebc3

15
ZX_EXP/EXP_LP2.ASM
View File

@ -1837,19 +1837,22 @@ WIN_PUT_SYM: ; DE -
CALL LP_END_P CALL LP_END_P
RET RET
WIN_MOVE_WIN: ; HL - à §¬¥à ®ª­  ; HL - à §¬¥à ®ª­ 
; DE - ¯®«®¦¥­¨¥ ®ª­  ; DE - ¯®«®¦¥­¨¥ ®ª­ 
AND A ; A - ­®¬¥à ®ª­  ; A - ­®¬¥à ®ª­ 
SCF ; IX - ­®¢®¥ ¯®«®¦¥­¨¥ ®ª­  ; IX - ­®¢®¥ ¯®«®¦¥­¨¥ ®ª­ 
WIN_MOVE_WIN:
AND A
SCF
RET NZ RET NZ
PUSH IX PUSH IX
PUSH HL PUSH HL
LD B,0FFH LD B,0FFH ;!HARDCODE SHARED_PAGE
LD IX,0C000H LD IX,0C000H
CALL WIN_COPY_WIN1 CALL WIN_COPY_WIN1
POP HL POP HL
POP DE POP DE
LD B,0FFH LD B,0FFH ;!HARDCODE SHARED_PAGE
LD IX,0C000H LD IX,0C000H
CALL WIN_REST_WIN1 CALL WIN_REST_WIN1
AND A AND A