refactoring

This commit is contained in:
Anatoliy Belyanskiy committed 2023-07-19 01:20:00 +10:00
1 parent 7c1e15a468
commit c87bd450cd
2 files changed
+13 -12

No files matched your search

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