мелочи

This commit is contained in:
Tolik 2025-04-29 03:41:19 +10:00
parent 5629c4dc1d
commit bc1413f28d
3 changed files with 10 additions and 12 deletions

View File

@ -6428,7 +6428,7 @@ READR_X:
NEW_NAME:
DB 22,1,3, "* Sprinter TR-DOS v.7.03 *"
DB 22,3,6, "(c) 2024 Sprinter Team"
DB 22,3,6, "(c) 2025 Sprinter Team"
DB 22,5,14, "*R.F.*"
DB 22,7,9, "BETA 4Mb",0

@ -1 +1 @@
Subproject commit 9143dcb7f8fd9cd3ae0bc179b94fced5efd8667f
Subproject commit 68e156a69e848e7b01656cdf67122022999d75ee

View File

@ -113,7 +113,9 @@ MSD_cmd5:
EX AF,AF'
JR MSD_RWU1
MSD_cmd6:
LD A,255
; A=0
;LD A,255
DEC A
LD (ZX_VARS.RD_WR_COM),A
EX AF,AF'
JR MSD_RWU1
@ -128,7 +130,7 @@ PREPARE1:
OUT (SLOT2),A
LD A,(SYS_PAGE.DS_1440-4000H)
AND BIT_MASK_1440
AND SYS_PAGE.DS_1440.IS_SET
SET 0,A
LD (SYS_PAGE.DS_1440-4000H),A
LD A,C
@ -345,18 +347,14 @@ SWITCH_DT:
LD A,(SYS_PAGE.DS_1440-4000H)
BIT 0,A
JR Z,NO_SW_DT
XOR BIT_MASK_1440
XOR SYS_PAGE.DS_1440.IS_SET
LD (SYS_PAGE.DS_1440-4000H),A
AND BIT_MASK_1440
AND SYS_PAGE.DS_1440.IS_SET
LD A,C
OUT (SLOT2),A
EI
;!TEST
;CALL Z,RES_1440
;CALL NZ,SET_1440
;RET
JR Z,RES_1440
JR SET_1440
JR Z,RES_1440
JR SET_1440
;
NO_SW_DT:
LD A,C