From b6cf347d856234a99f1f4fc843b5710de4973930 Mon Sep 17 00:00:00 2001
From: kg68k <78926718+kg68k@users.noreply.github.com>
Date: Sun, 6 Oct 2024 08:26:56 +0900
Subject: [PATCH] refactor: Preparing to remove obsolete features completely.

---
 CHANGELOG.md    |  8 ++++++++
 src/dosdef.mac  | 14 +++++++-------
 src/filesys.mac |  4 ++--
 3 files changed, 17 insertions(+), 9 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index cdf20d0..9edd0e1 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,13 @@
 # 変更履歴
 
+## 4.0.0 (2024-10-06)
+
+* dosdef.mac, filesys.mac: 削除予定の機能はシンボル`__RUKA_ENABLE_OBSOLETE_MACRO__`を
+  定義したときのみ有効となるようにした。
+* fdef.mac: 新規作成。X-BASIC外部関数の定義。
+* macro.mac: `STRLEN`マクロに第三引数`offset`(長さの補正、-7～+9)を追加。
+
+
 ## 3.3.0 (2024-07-31)
 
 * devdrv.mac: `REQHEAD_ReadData`、`DPBv1_*`、`CURDIR_*`、`MEDIABYTE_*`、`DIRENT_*`を追加。
diff --git a/src/dosdef.mac b/src/dosdef.mac
index 8b0833c..9f16578 100644
--- a/src/dosdef.mac
+++ b/src/dosdef.mac
@@ -1,7 +1,7 @@
 .nlist
 
 ;dosdef.mac - RUKA assembler macro for X680x0/Human68k(v3) by TcbnErik
-;Last-modified: 2024-07-31
+;Last-modified: 2024-10-06
 ;
 ;Copying and distribution of this file, with or without modification,
 ;are permitted in any medium without royalty provided the copyright
@@ -115,7 +115,7 @@ STDAUX: .equ 3
 STDPRN: .equ 4
 .endif
 
-.ifndef __RUKA_DISABLE_OBSOLETE_MACRO__
+.ifdef __RUKA_ENABLE_OBSOLETE_MACRO__
 ATR_EXEC: .equ 7
 ATR_LINK: .equ 6
 ATR_ARC:  .equ 5
@@ -135,13 +135,13 @@ HIDDEN:    .equ 1
 READONLY:  .equ 0
 .endif
 
-.ifndef __RUKA_DISABLE_OBSOLETE_MACRO__
+.ifdef __RUKA_ENABLE_OBSOLETE_MACRO__
 READRV: .equ $40
 VIRDRV: .equ $50
 VIRDIR: .equ $60
 .endif
 
-.ifndef __RUKA_DISABLE_OBSOLETE_MACRO__
+.ifdef __RUKA_ENABLE_OBSOLETE_MACRO__
 ROPEN:  .equ 0
 WOPEN:  .equ 1
 RWOPEN: .equ 2
@@ -149,7 +149,7 @@ RWOPEN: .equ 2
 *DOPEN: .equ 4
 .endif
 
-.ifndef __RUKA_DISABLE_OBSOLETE_MACRO__
+.ifdef __RUKA_ENABLE_OBSOLETE_MACRO__
 SEEK_SET: .equ 0
 SEEK_CUR: .equ 1
 SEEK_END: .equ 2
@@ -169,7 +169,7 @@ EXECMODE_LOADONLY: .equ 3
 EXECMODE_EXECONLY: .equ 4
 EXECMODE_BINDNO:   .equ 5
 
-.ifndef __RUKA_DISABLE_OBSOLETE_MACRO__
+.ifdef __RUKA_ENABLE_OBSOLETE_MACRO__
 EXEC_LOADEXEC: .equ 0
 EXEC_LOAD:     .equ 1
 EXEC_PATHCHK:  .equ 2
@@ -190,7 +190,7 @@ ENV_MAX:   .equ 256
 DRIVE_MAX: .equ 26
 .endif
 
-.ifndef __RUKA_DISABLE_OBSOLETE_MACRO__
+.ifdef __RUKA_ENABLE_OBSOLETE_MACRO__
 MB_2DD10:   .equ $e0
 MB_1D9:     .equ $e5
 MB_2D9:     .equ $e6
diff --git a/src/filesys.mac b/src/filesys.mac
index f035d25..3aa39d3 100644
--- a/src/filesys.mac
+++ b/src/filesys.mac
@@ -1,7 +1,7 @@
 .nlist
 
 ;filesys.mac - RUKA assembler macro for X680x0/Human68k(v3) by TcbnErik
-;Last-modified: 2024-07-31
+;Last-modified: 2024-10-06
 ;
 ;Copying and distribution of this file, with or without modification,
 ;are permitted in any medium without royalty provided the copyright
@@ -118,7 +118,7 @@ FILES_FileSize: .ds.l 1
 FILES_FileName: .ds.b 23
 sizeof_FILES:
 .fail $.ne.53
-.ifndef __RUKA_DISABLE_OBSOLETE_MACRO__
+.ifdef __RUKA_ENABLE_OBSOLETE_MACRO__
 FILES_Path:
 .endif
 FILES_EX_Drive: .ds.b 2