UNIX-FILE-NAME wasn't dealing properly with {DSK} version 1, and making sure that other versions had a dot

2026-04-01 04:29:55 +00:00 · 2026-03-31 11:15:14 -07:00
13 changed files with 13424 additions and 83 deletions
--- a/library/UNICODE-TABLES
+++ b/library/UNICODE-TABLES
@@ -1,12 +1,15 @@
-(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)

-(FILECREATED "31-Mar-2026 09:01:05" {WMEDLEY}<library>UNICODE-TABLES.;22 44782  
+(FILECREATED "22-Feb-2026 10:44:33" {WMEDLEY}<library>UNICODE-TABLES.;20 44960  

      :EDIT-BY rmk

-      :CHANGES-TO (VARS XCCS-CHARSETS)
+      :CHANGES-TO (FNS ALL-UNICODE-MAPPINGS GET-MCCS-UNICODE-MAPPING INVERT-UNICODE-MAPPING 
+                       MAKE-UNICODE-TRANSLATION-TABLES MERGE-UNICODE-TRANSLATION-TABLES 
+                       READ-UNICODE-MAPPING-FILENAMES)
+                  (VARS UNICODE-TABLESCOMS)

-      :PREVIOUS-DATE "22-Feb-2026 10:44:33" {WMEDLEY}<library>UNICODE-TABLES.;20)
+      :PREVIOUS-DATE "22-Feb-2026 09:15:20" {WMEDLEY}<library>UNICODE-TABLES.;16)


 (PRETTYCOMPRINT UNICODE-TABLESCOMS)
@@ -75,9 +78,8 @@
        (RUNIC-GOTHIC "51")
        (MORE-CYRILLIC "52")
        (UNKNOWN1 "56")
-        (DECORATED-RULES "56")
        (UNKNOWN2 "57")
-        (VERTICAL-JAPANESE "57")
+        (JIS "60-166")
        (ARABIC "340")
        (HEBREW "341")
        (IPA "342")
@@ -99,10 +101,9 @@
        (ACCENTED-GREEK2 "364")
        (MORE-ARABIC "365")
        (GRAPHIC-VARIANTS "375")
-        (JAPANESE HIRAGANA KATAKANA JIS)
        (DEFAULT LATIN ACCENTED-LATIN1 EXTENDED-LATIN SYMBOLS1 SYMBOLS2 FORMS JAPANESE-SYMBOLS1 
               JAPANESE-SYMBOLS2)
-        (JIS "60-166")))
+        (JAPANESE HIRAGANA KATAKANA JIS)))
 (DEFINEQ

 (READ-UNICODE-MAPPING-FILENAMES
@@ -792,12 +793,12 @@
       UNICODE-EXPORTS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3929 12651 (READ-UNICODE-MAPPING-FILENAMES 3939 . 8408) (READ-UNICODE-MAPPING 8410 . 
-12649)) (12718 19526 (MAKE-UNICODE-TRANSLATION-TABLES 12728 . 15488) (GET-MCCS-UNICODE-MAPPING 15490
- . 16510) (INVERT-UNICODE-MAPPING 16512 . 18305) (XCCSTOMCCS-MAPPING 18307 . 19524)) (19527 26150 (
-ALL-UNICODE-MAPPINGS 19537 . 24813) (XCCSJAPANESECHARSETS 24815 . 26148)) (26195 36957 (
-WRITE-UNICODE-MAPPING 26205 . 29949) (WRITE-UNICODE-INCLUDED 29951 . 34263) (
-WRITE-UNICODE-MAPPING-HEADER 34265 . 35513) (WRITE-UNICODE-MAPPING-FILENAME 35515 . 36955)) (36958 
-37634 (XCCS-UTF8-AFTER-OPEN 36968 . 37632)) (40159 42248 (UTF8HEXSTRING 40169 . 42246)) (42275 44317 (
-SHOWCHARS 42285 . 44315)))))
+  (FILEMAP (NIL (4107 12829 (READ-UNICODE-MAPPING-FILENAMES 4117 . 8586) (READ-UNICODE-MAPPING 8588 . 
+12827)) (12896 19704 (MAKE-UNICODE-TRANSLATION-TABLES 12906 . 15666) (GET-MCCS-UNICODE-MAPPING 15668
+ . 16688) (INVERT-UNICODE-MAPPING 16690 . 18483) (XCCSTOMCCS-MAPPING 18485 . 19702)) (19705 26328 (
+ALL-UNICODE-MAPPINGS 19715 . 24991) (XCCSJAPANESECHARSETS 24993 . 26326)) (26373 37135 (
+WRITE-UNICODE-MAPPING 26383 . 30127) (WRITE-UNICODE-INCLUDED 30129 . 34441) (
+WRITE-UNICODE-MAPPING-HEADER 34443 . 35691) (WRITE-UNICODE-MAPPING-FILENAME 35693 . 37133)) (37136 
+37812 (XCCS-UTF8-AFTER-OPEN 37146 . 37810)) (40337 42426 (UTF8HEXSTRING 40347 . 42424)) (42453 44495 (
+SHOWCHARS 42463 . 44493)))))
 STOP
--- a/library/UNICODE-TABLES.LCOM
+++ b/library/UNICODE-TABLES.LCOM
--- a/library/UNIXUTILS
+++ b/library/UNIXUTILS
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "19-Jan-2026 14:09:03" {WMEDLEY}<library>UNIXUTILS.;55 20711  
+(FILECREATED "31-Mar-2026 00:14:19" {WMEDLEY}<library>UNIXUTILS.;58 21269  

      :EDIT-BY rmk

      :CHANGES-TO (FNS UNIX-FILE-NAME)

-      :PREVIOUS-DATE "17-Jan-2026 23:16:17" {WMEDLEY}<library>UNIXUTILS.;54)
+      :PREVIOUS-DATE "29-Mar-2026 00:26:43" {WMEDLEY}<library>UNIXUTILS.;57)


 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -287,7 +287,9 @@
         SLASHED])

 (UNIX-FILE-NAME
-  [LAMBDA (FILE ACCESS COPY EXTENSION)                       (* ; "Edited 19-Jan-2026 14:05 by rmk")
+  [LAMBDA (FILE ACCESS COPY EXTENSION)                       (* ; "Edited 31-Mar-2026 00:13 by rmk")
+                                                             (* ; "Edited 29-Mar-2026 00:26 by rmk")
+                                                             (* ; "Edited 19-Jan-2026 14:05 by rmk")
                                                             (* ; "Edited 17-Jan-2026 22:32 by rmk")
                                                             (* ; "Edited 11-Jan-2026 23:54 by rmk")
                                                             (* ; "Edited 27-Dec-2025 21:24 by rmk")
@@ -317,8 +319,13 @@
                               FILE))
                     (DSK [LET ((VERSION (FILENAMEFIELD FILE 'VERSION))
                                (UNAME (PACKFILENAME 'VERSION NIL 'BODY FILE)))
-                               (CL:UNLESS (EQ VERSION 1)
-                                   (CONCAT UNAME (CONCAT "~" VERSION "~")))])
+                               (CL:IF (EQ VERSION 1)
+                                   UNAME
+                                   (CONCAT UNAME (CONCAT (CL:IF (EQ (CHARCODE %.)
+                                                                    (NTHCHARCODE UNAME -1))
+                                                             ""
+                                                             ".")
+                                                        "~" VERSION "~")))])
                     (LET (UNAME)

                          (* ;; "Catch the streams as well as other devices (CORE, servers)")
@@ -360,8 +367,8 @@

 (PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1170 1543 (ShellCommand 1170 . 1543)) (1545 1942 (ShellWhich 1545 . 1942)) (2052 20633 
+  (FILEMAP (NIL (1170 1543 (ShellCommand 1170 . 1543)) (1545 1942 (ShellWhich 1545 . 1942)) (2052 21191 
 (ShellBrowser 2062 . 3834) (ShellBrowse 3836 . 4521) (ShellOpener 4523 . 6211) (ShellOpen 6213 . 11982
-) (PROCESS-COMMAND 11984 . 12597) (SLASHIT 12599 . 15623) (UNIX-FILE-NAME 15625 . 18952) (
-UNIX-TMP-FILE-NAME 18954 . 20631)))))
+) (PROCESS-COMMAND 11984 . 12597) (SLASHIT 12599 . 15623) (UNIX-FILE-NAME 15625 . 19510) (
+UNIX-TMP-FILE-NAME 19512 . 21189)))))
 STOP
--- a/library/UNIXUTILS.DFASL
+++ b/library/UNIXUTILS.DFASL
--- a/sources/UNICODE-FORMATS
+++ b/sources/UNICODE-FORMATS
@@ -1,10 +1,13 @@
-(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)

-(FILECREATED "31-Mar-2026 09:03:25" {WMEDLEY}<sources>UNICODE-FORMATS.;4 218013 
+(FILECREATED "23-Feb-2026 12:15:24" {WMEDLEY}<sources>UNICODE-FORMATS.;2 216288 

      :EDIT-BY rmk

-      :PREVIOUS-DATE " 9-Mar-2026 13:11:16" {WMEDLEY}<sources>UNICODE-FORMATS.;3)
+      :CHANGES-TO (VARS UNICODE-FORMATSCOMS)
+                  (FNS MAKE-UNICODE-FORMATS)
+
+      :PREVIOUS-DATE "23-Feb-2026 08:52:29" {WMEDLEY}<sources>UNICODE-UTF8.;26)


 (PRETTYCOMPRINT UNICODE-FORMATSCOMS)
@@ -44,9 +47,6 @@
                                                      (LAST-PRIVATE-MCCSCODE (CHARCODE "230,377"]
              (FNS UNICODE-INIT)
              (P (UNICODE-INIT)))
-        (COMS (FNS SYSTEM-EXTERNALFORMAT MTOSYSSTRING SYSTOMSTRING)
-              (EXPORT (GLOBALVARS *SYSTEM-EXTERNALFORMAT*))
-              (INITVARS (*SYSTEM-EXTERNALFORMAT* :UTF-8)))
        (DECLARE%: EVAL@LOAD DONTCOPY (FILES UNICODE-TABLES))
        (E (PRINTOUT NIL "(MERGE-UNICODE-TRANSLATION-TABLES NIL (QUOTE " (GET-MCCS-UNICODE-MAPPING
                                                                          'ALL)
@@ -1243,41 +1243,6 @@
 )

 (UNICODE-INIT)
-(DEFINEQ
-
-(SYSTEM-EXTERNALFORMAT
-  [LAMBDA NIL                                                (* ; "Edited  6-Feb-2026 11:29 by rmk")
-                                                             (* ; "Edited 31-Jan-2026 18:51 by rmk")
-                                                             (* ; "Edited 10-Oct-2022 11:55 by lmm")
-                                                             (* ; "Edited  7-Jul-2022 10:41 by rmk")
-
-    (* ;; "Returns the name, sets the global.  For now, UTF-8 or through, could be something else.")
-
-    (fetch (EXTERNALFORMAT NAME) of (SETQ *SYSTEM-EXTERNALFORMAT*
-                                     (FIND-FORMAT (FOR X IN '("LC_CTYPE" "LC_ALL" "LANG")
-                                                     WHEN (STRPOS ".UTF-8" (UNIX-GETENV X))
-                                                     DO (RETURN :UTF-8) FINALLY (RETURN :THROUGH])
-
-(MTOSYSSTRING
-  [LAMBDA (MSTRING)                                          (* ; "Edited  6-Feb-2026 00:20 by rmk")
-    (MCCSTOFORMATBYTES *SYSTEM-EXTERNALFORMAT* (MKSTRING MSTRING])
-
-(SYSTOMSTRING
-  [LAMBDA (SYSTRING)                                         (* ; "Edited  5-Feb-2026 23:36 by rmk")
-
-    (* ;; "SYSSTRING is presumably shared with Unix, guarantee a copy on the way out")
-
-    (CONCAT (FORMATBYTESTOMCCS *SYSTEM-EXTERNALFORMAT* SYSTRING])
-)
-(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY
-
-(GLOBALVARS *SYSTEM-EXTERNALFORMAT*)
-)
-
-(* "END EXPORTED DEFINITIONS")
-
-
-(RPAQ? *SYSTEM-EXTERNALFORMAT* :UTF-8)
 (DECLARE%: EVAL@LOAD DONTCOPY 

 (FILESLOAD UNICODE-TABLES)
@@ -2756,20 +2721,19 @@
 (64994 8322) (64995 8323) (64996 8324) (64997 8325) (64998 8326) (64999 8327) (65000 8328) (65001 
 8329) (65002 8331) (65003 8330) (65004 8332) (65008 (48 824)))))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3431 19523 (UTF8.OUTCHARFN 3441 . 6457) (UTF8.SLUG.OUTCHARFN 6459 . 7123) (
-UTF8.INCCODEFN 7125 . 13404) (UTF8.PEEKCCODEFN 13406 . 18539) (\UTF8.BACKCCODEFN 18541 . 19521)) (
-19524 24439 (UTF16BE.OUTCHARFN 19534 . 20553) (UTF16BE.INCCODEFN 20555 . 21897) (UTF16BE.PEEKCCODEFN 
-21899 . 23243) (\UTF16BE.BACKCCODEFN 23245 . 24437)) (24440 29171 (UTF16LE.OUTCHARFN 24450 . 25566) (
-UTF16LE.INCCODEFN 25568 . 26697) (UTF16LE.PEEKCCODEFN 26699 . 27975) (\UTF16LE.BACKCCODEFN 27977 . 
-29169)) (29172 32219 (READBOM 29182 . 31251) (WRITEBOM 31253 . 32217)) (32220 36251 (
-MAKE-UNICODE-FORMATS 32230 . 36249)) (36319 40813 (UTF8.BINCODE 36329 . 39017) (\UTF8.FETCHCODE 39019
- . 40811)) (40814 46437 (UTF8.VALIDATE 40824 . 43421) (NUTF8-BYTE1-BYTES 43423 . 44160) (
-NUTF8-CODE-BYTES 44162 . 45219) (NUTF8-STRING-BYTES 45221 . 46113) (N-MCHARS 46115 . 46435)) (46501 
-47775 (MTOUCODE 46511 . 46680) (UTOMCODE 46682 . 46879) (MTOUCODE? 46881 . 47260) (UTOMCODE? 47262 . 
-47773)) (47776 54348 (MTOUSTRING 47786 . 48369) (UTOMSTRING 48371 . 48954) (MTOUTF8STRING 48956 . 
-53235) (UTF8TOMSTRING 53237 . 54346)) (54406 60114 (XTOUCODE 54416 . 54934) (UTOXCODE 54936 . 55444) (
-XTOUCODE? 55446 . 56507) (UTOXCODE? 56509 . 57592) (XTOUSTRING 57594 . 58289) (UTOXSTRING 58291 . 
-59034) (XTOUTF8STRING 59036 . 60112)) (60115 65294 (MERGE-UNICODE-TRANSLATION-TABLES 60125 . 62887) (
-UNICODE.UNMAPPED 62889 . 65292)) (69033 69286 (UNICODE-INIT 69043 . 69284)) (69307 70745 (
-SYSTEM-EXTERNALFORMAT 69317 . 70261) (MTOSYSSTRING 70263 . 70456) (SYSTOMSTRING 70458 . 70743)))))
+  (FILEMAP (NIL (3333 19425 (UTF8.OUTCHARFN 3343 . 6359) (UTF8.SLUG.OUTCHARFN 6361 . 7025) (
+UTF8.INCCODEFN 7027 . 13306) (UTF8.PEEKCCODEFN 13308 . 18441) (\UTF8.BACKCCODEFN 18443 . 19423)) (
+19426 24341 (UTF16BE.OUTCHARFN 19436 . 20455) (UTF16BE.INCCODEFN 20457 . 21799) (UTF16BE.PEEKCCODEFN 
+21801 . 23145) (\UTF16BE.BACKCCODEFN 23147 . 24339)) (24342 29073 (UTF16LE.OUTCHARFN 24352 . 25468) (
+UTF16LE.INCCODEFN 25470 . 26599) (UTF16LE.PEEKCCODEFN 26601 . 27877) (\UTF16LE.BACKCCODEFN 27879 . 
+29071)) (29074 32121 (READBOM 29084 . 31153) (WRITEBOM 31155 . 32119)) (32122 36153 (
+MAKE-UNICODE-FORMATS 32132 . 36151)) (36221 40715 (UTF8.BINCODE 36231 . 38919) (\UTF8.FETCHCODE 38921
+ . 40713)) (40716 46339 (UTF8.VALIDATE 40726 . 43323) (NUTF8-BYTE1-BYTES 43325 . 44062) (
+NUTF8-CODE-BYTES 44064 . 45121) (NUTF8-STRING-BYTES 45123 . 46015) (N-MCHARS 46017 . 46337)) (46403 
+47677 (MTOUCODE 46413 . 46582) (UTOMCODE 46584 . 46781) (MTOUCODE? 46783 . 47162) (UTOMCODE? 47164 . 
+47675)) (47678 54250 (MTOUSTRING 47688 . 48271) (UTOMSTRING 48273 . 48856) (MTOUTF8STRING 48858 . 
+53137) (UTF8TOMSTRING 53139 . 54248)) (54308 60016 (XTOUCODE 54318 . 54836) (UTOXCODE 54838 . 55346) (
+XTOUCODE? 55348 . 56409) (UTOXCODE? 56411 . 57494) (XTOUSTRING 57496 . 58191) (UTOXSTRING 58193 . 
+58936) (XTOUTF8STRING 58938 . 60014)) (60017 65196 (MERGE-UNICODE-TRANSLATION-TABLES 60027 . 62789) (
+UNICODE.UNMAPPED 62791 . 65194)) (68935 69188 (UNICODE-INIT 68945 . 69186)))))
 STOP
--- a/sources/UNICODE-FORMATS.LCOM
+++ b/sources/UNICODE-FORMATS.LCOM
--- a/unicode/xerox/MCCS-TO-UNICODE-MAPPINGS.TXT
+++ b/unicode/xerox/MCCS-TO-UNICODE-MAPPINGS.TXT
--- a/unicode/xerox/README.TEDIT
+++ b/unicode/xerox/README.TEDIT
--- a/unicode/xerox/UNICODE-TO-MCCS-MAPPINGS.TXT
+++ b/unicode/xerox/UNICODE-TO-MCCS-MAPPINGS.TXT
--- a/unicode/xerox/XCCS-0,41-43,46,50,356,357,361.TXT
+++ b/unicode/xerox/XCCS-0,41-43,46,50,356,357,361.TXT
--- a/unicode/xerox/XCCS-0,41-50,340-344,356-361.TXT
+++ b/unicode/xerox/XCCS-0,41-50,340-344,356-361.TXT
--- a/unicode/xerox/XCCS-60-163=JISX.TXT
+++ b/unicode/xerox/XCCS-60-163=JISX.TXT
--- a/unicode/xerox/jis/XCCS-164=JIS.TXT
+++ b/unicode/xerox/jis/XCCS-164=JIS.TXT
@@ -42,7 +42,195 @@
 #  Any comments or problems, contact <ron.kaplan@post.harvard.edu>


-#  "164" JIS
+#  "165" JIS
+0x7521	0x5B57	#  字
+0x7522	0x600E	#  怎
+0x7523	0x5FEB	#  快
+0x7524	0x5E2B	#  師
+0x7525	0x8655	#  處
+0x7526	0x76F8	#  相
+0x7527	0x6D3B	#  活
+0x7528	0x89AA	#  親
+0x7529	0x6D77	#  海
+0x752A	0x96FB	#  電
+0x752B	0x6BCD	#  母
+0x752C	0x679C	#  果
+0x752D	0x7ACB	#  立
+0x752E	0x539F	#  原
+0x752F	0x5408	#  合
+0x7530	0x66F8	#  書
+0x7531	0x5165	#  入
+0x7532	0x4E26	#  並
+0x7533	0x5E73	#  平
+0x7534	0x696D	#  業
+0x7535	0x5831	#  報
+0x7536	0x8EAB	#  身
+0x7537	0x5E02	#  市
+0x7538	0x88AB	#  被
+0x7539	0x8A31	#  許
+0x753A	0x8ACB	#  請
+0x753B	0x5C11	#  少
+0x753C	0x9593	#  間
+0x753D	0x9AD4	#  體
+0x753E	0x4F4F	#  住
+0x753F	0x8ECA	#  車
+0x7540	0x8ECD	#  軍
+0x7541	0x908A	#  邊
+0x7542	0x91CD	#  重
+0x7543	0x52A0	#  加
+0x7544	0x5716	#  圖
+0x7545	0x6216	#  或
+0x7546	0x6B21	#  次
+0x7547	0x6BCF	#  每
+0x7548	0x7E3D	#  總
+0x7549	0x706B	#  火
+0x754A	0x6587	#  文
+0x754B	0x5B69	#  孩
+0x754C	0x4E16	#  世
+0x754D	0x5B89	#  安
+0x754E	0x653E	#  放
+0x754F	0x6A5F	#  機
+0x7550	0x5167	#  內
+0x7551	0x95DC	#  關
+0x7552	0x5229	#  利
+0x7553	0x50CF	#  像
+0x7554	0x7406	#  理
+0x7555	0x6BD4	#  比
+0x7556	0x611B	#  愛
+0x7557	0x738B	#  王
+0x7558	0x5225	#  別
+0x7559	0x592B	#  夫
+0x755A	0x8207	#  與
+0x755B	0x5149	#  光
+0x755C	0x82B1	#  花
+0x755D	0x83EF	#  華
+0x755E	0x8AB2	#  課
+0x755F	0x80B2	#  育
+0x7560	0x6545	#  故
+0x7561	0x5FC5	#  必
+0x7562	0x689D	#  條
+0x7563	0x5ABD	#  媽
+0x7564	0x5F1F	#  弟
+0x7565	0x7236	#  父
+0x7566	0x901A	#  通
+0x7567	0x8868	#  表
+0x7568	0x91D1	#  金
+0x7569	0x5BEB	#  寫
+0x756A	0x5DF1	#  己
+0x756B	0x624D	#  才
+0x756C	0x6CB3	#  河
+0x756D	0x7701	#  省
+0x756E	0x53F0	#  台
+0x756F	0x6C42	#  求
+0x7570	0x6536	#  收
+0x7571	0x842C	#  萬
+0x7572	0x4E14	#  且
+0x7573	0x4F55	#  何
+0x7574	0x4EE3	#  代
+0x7575	0x5171	#  共
+0x7576	0x53D7	#  受
+0x7577	0x98A8	#  風
+0x7578	0x6C5F	#  江
+0x7579	0x62FF	#  拿
+0x757A	0x96E3	#  難
+0x757B	0x754C	#  界
+0x757C	0x4FE1	#  信
+0x757D	0x671B	#  望
+0x757E	0x7A7A	#  空
+0x75A1	0x6B7B	#  死
+0x75A2	0x73ED	#  班
+0x75A3	0x99AC	#  馬
+0x75A4	0x671F	#  期
+0x75A5	0x975E	#  非
+0x75A6	0x6A39	#  樹
+0x75A7	0x53CA	#  及
+0x75A8	0x7D50	#  結
+0x75A9	0x865F	#  號
+0x75AA	0x5E36	#  帶
+0x75AB	0x5143	#  元
+0x75AC	0x4EA4	#  交
+0x75AD	0x8A72	#  該
+0x75AE	0x672A	#  未
+0x75AF	0x7FA9	#  義
+0x75B0	0x5E9C	#  府
+0x75B1	0x5B8C	#  完
+0x75B2	0x8AD6	#  論
+0x75B3	0x9322	#  錢
+0x75B4	0x98DB	#  飛
+0x75B5	0x547D	#  命
+0x75B6	0x5F35	#  張
+0x75B7	0x54E1	#  員
+0x75B8	0x6578	#  數
+0x75B9	0x6797	#  林
+0x75BA	0x63A5	#  接
+0x75BB	0x5C40	#  局
+0x75BC	0x53CB	#  友
+0x75BD	0x559C	#  喜
+0x75BE	0x6E05	#  清
+0x75BF	0x6D0B	#  洋
+0x75C0	0x6A02	#  樂
+0x75C1	0x5A5A	#  婚
+0x75C2	0x793E	#  社
+0x75C3	0x65E9	#  早
+0x75C4	0x5E03	#  布
+0x75C5	0x6975	#  極
+0x75C6	0x773C	#  眼
+0x75C7	0x55CE	#  嗎
+0x75C8	0x7522	#  產
+0x75C9	0x544A	#  告
+0x75CA	0x54E5	#  哥
+0x75CB	0x8208	#  興
+0x75CC	0x52DE	#  勞
+0x75CD	0x9435	#  鐵
+0x75CE	0x53D6	#  取
+0x75CF	0x7B97	#  算
+0x75D0	0x66F4	#  更
+0x75D1	0x5175	#  兵
+0x75D2	0x9020	#  造
+0x75D3	0x7B54	#  答
+0x75D4	0x627E	#  找
+0x75D5	0x7F77	#  罷
+0x75D6	0x5931	#  失
+0x75D7	0x904B	#  運
+0x75D8	0x5F62	#  形
+0x75D9	0x6613	#  易
+0x75DA	0x7FA3	#  羣
+0x75DB	0x5EA6	#  度
+0x75DC	0x534A	#  半
+0x75DD	0x8863	#  衣
+0x75DE	0x82E5	#  若
+0x75DF	0x81F3	#  至
+0x75E0	0x8B70	#  議
+0x75E1	0x8FD1	#  近
+0x75E2	0x7167	#  照
+0x75E3	0x8B8A	#  變
+0x75E4	0x59D0	#  姐
+0x75E5	0x670D	#  服
+0x75E6	0x5247	#  則
+0x75E7	0x985E	#  類
+0x75E8	0x82F1	#  英
+0x75E9	0x7403	#  球
+0x75EA	0x5343	#  千
+0x75EB	0x5F80	#  往
+0x75EC	0x8B1B	#  講
+0x75ED	0x8A08	#  計
+0x75EE	0x6230	#  戰
+0x75EF	0x6728	#  木
+0x75F0	0x7B11	#  笑
+0x75F1	0x529F	#  功
+0x75F2	0x8209	#  舉
+0x75F3	0x8DDF	#  跟
+0x75F4	0x795E	#  神
+0x75F5	0x6C7A	#  決
+0x75F6	0x6D41	#  流
+0x75F7	0x71B1	#  熱
+0x75F8	0x541B	#  君
+0x75F9	0x7A76	#  究
+0x75FA	0x7D04	#  約
+0x75FB	0x96BB	#  隻
+0x75FC	0x76F4	#  直
+0x75FD	0x53E4	#  古
+0x75FE	0x9EC3	#  黃
 0x742C	0x32E3	#  ㋣ CIRCLED KATAKANA TO
 0x742D	0x32E0	#  ㋠ CIRCLED KATAKANA TI
 0x742E	0x32F7	#  ㋷ CIRCLED KATAKANA RI