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

refactoring

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2023-07-19 01:20:00 +10:00
parent 7c1e15a468
commit c87bd450cd
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shared_Includes

@ -1 +1 @@
Subproject commit 3fa91af2db4f96a96f3342d7291deb4d63a90591 Subproject commit 3a3a4fe44981e0a75f4925234aa2609ee81b96b4

23
ZX_EXP.ASM
View File

@ -11,7 +11,7 @@
ORG 0 ORG 0
SPRIN2 EQU 2 ; 1 - ¢ª«î祭¨¥ Sprinter-1 ¯¥à¢®© ¯à®è¨¢ª®© SPRIN2 EQU 2 ; 1 - ¢ª«î祭¨¥ Sprinter-1 ¯¥à¢®© ¯à®è¨¢ª®©
; 2 - ¢ª«î祭¨¥ Sprinter-2 ¯¥à¢®© ¯à®è¨¢ª®© ; 2 - <20><><EFBFBD><EFBFBD>祭<EFBFBD><E7A5AD> Sprinter-2 <20><>ࢮ<EFBFBD> <20><><EFBFBD>訢<EFBFBD><E8A8A2><EFBFBD>
INCLUDE 'INC/SPRINT00.INC' ; ª®­áâ ­âë, ¬ ªà®áë.. INCLUDE 'INC/SPRINT00.INC' ; ª®­áâ ­âë, ¬ ªà®áë..
INCLUDE 'shared_includes/constants/zx_char_codes.inc' INCLUDE 'shared_includes/constants/zx_char_codes.inc'
@ -661,20 +661,21 @@ NO_CONFIG_:
POP HL ; ª®­ä¨£ãà æ¨ï POP HL ; ª®­ä¨£ãà æ¨ï
LD A,H LD A,H
CP 0FFH CP #FF
JR NZ,NO_SETUP_1 JR NZ,NO_SETUP_1
LD A,L LD A,L
IF SPRIN2 EQ 2 IF SPRIN2 = 2
CP 0FDH CP #FD
; LD BC,0FFFDH ; Š®­ä¨£ãà æ¨ï Sprinter-2 ; LD BC,0FFFDH ; Š®­ä¨£ãà æ¨ï Sprinter-2
PG_SP1 equ 0ECH PG_SP1 EQU #EC
PG_SP2 equ 0EEH PG_SP2 EQU #EE
PG_AY equ 0EAH PG_AY EQU #EA
ELSE
ELSE
; LD BC,0FFFEH ; Š®­ä¨£ãà æ¨ï Sprinter-1 ; LD BC,0FFFEH ; Š®­ä¨£ãà æ¨ï Sprinter-1
CP 0FEH CP #FE
PG_AY equ 0EAH PG_AY EQU #EA
ENDIF ENDIF
JR NZ,NO_SETUP_2 JR NZ,NO_SETUP_2
; AND A ; AND A
@ -737,7 +738,7 @@ NO_SETUP_2:
NO_SETUP_1: NO_SETUP_1:
LD A,(0A8h) LD A,(TABLE_X + 8)
OUT (LPT1_D),A OUT (LPT1_D),A
LD A,0FEh ; ACC-off LD A,0FEh ; ACC-off