From 1cb8eb13fb8e8b20bba324a5ab9f4e18d6bf8b3c Mon Sep 17 00:00:00 2001 From: Anatoliy Belyanskiy Date: Sun, 23 Jun 2024 02:34:07 +1000 Subject: [PATCH] ... --- constants/EXE_Header.z80 | 2 +- constants/SP2000.inc | 8 ++++---- constants/dss_errors.z80 | 1 - 3 files changed, 5 insertions(+), 6 deletions(-) diff --git a/constants/EXE_Header.z80 b/constants/EXE_Header.z80 index b1a149e..560588c 100644 --- a/constants/EXE_Header.z80 +++ b/constants/EXE_Header.z80 @@ -32,6 +32,6 @@ exe_header: ; BYTE ' Belyanskiy, ' ; BYTE ' Sprinter Team ' ; BYTE ' 2023 ' -.length equ $-exe_header ; !FIXIT а если код для загрузки не сразу после заголовка? +.length equ $-exe_header ;*************************************** ; \ No newline at end of file diff --git a/constants/SP2000.inc b/constants/SP2000.inc index 3a38b5c..bd87a31 100644 --- a/constants/SP2000.inc +++ b/constants/SP2000.inc @@ -529,10 +529,10 @@ SYS_PAGE EQU #FE ; STACK for FN_LIB end EQU #C028 .SYS_SP EQU #C0FE ; ДОПОЛНИТЕЛЬНЫЙ СТЕК для FN_LIB и ещё чего-то .DISK_TYPE EQU #C100 ; переадресация дисков (процедурами диск выбирается без учёта старшего байта адреса и переполнения) -.DISK_TYPE.A EQU #C100 ; переадресация дискa A -.DISK_TYPE.B EQU #C101 ; переадресация дискa B -.DISK_TYPE.C EQU #C102 ; переадресация дискa C -.DISK_TYPE.D EQU #C103 ; переадресация дискa D +.DISK_TYPE.A EQU #C100 ; переадресация дискa A +.DISK_TYPE.B EQU #C101 ; переадресация дискa B +.DISK_TYPE.C EQU #C102 ; переадресация дискa C +.DISK_TYPE.D EQU #C103 ; переадресация дискa D .COPY_SLOT0 EQU #C104 ; копии значений портов страниц .COPY_SLOT1 EQU #C105 .COPY_SLOT2 EQU #C106 diff --git a/constants/dss_errors.z80 b/constants/dss_errors.z80 index 027ac9f..067e389 100644 --- a/constants/dss_errors.z80 +++ b/constants/dss_errors.z80 @@ -1,5 +1,4 @@ ;----------------------------------------------------------------------- -;!FIXIT функция вызывающая вывод ошибки делает в начале фильтр по номерам и несколько первых отшиваются ERR0: DB #00 IFDEF SHELL_COMPILATION DZ "Bad command or file name"