+ '=mj
+ "Moji-Jouhou-Kiban characters"
+ `(long-name "Moji-Jouhou-Kiban"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ ;; registry "mj-0$"
+ min-code #xE30000
+ max-code ,(+ #xE30000 68053)
+ code-offset #xE30000
+ ;; min-code ,(lsh #x6404 16)
+ ;; max-code ,(+ (lsh #x6404 16) 68053)
+ ;; code-offset ,(lsh #x6404 16)
+ ))
+ (make-charset
+ '=mj-0
+ "Moji-Jouhou-Kiban plane 0"
+ '(long-name "Moji-Jouhou-Kiban-0"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "mj-0$"
+ mother =mj
+ min-code 0
+ max-code #xFFFF))
+ (make-charset
+ '=mj-1
+ "Moji-Jouhou-Kiban plane 1"
+ '(long-name "Moji-Jouhou-Kiban-1"
+ chars 256
+ dimension 2
+ columns 2
+ graphic 2
+ direction l2r
+ registry "mj-1$"
+ mother =mj
+ min-code #x10000
+ code-offset #x10000))
+
+ (make-charset