244
&jis1reg(MB_IN_JISX0213_1, $2 - 1, $3 - 1, $ucs);
247
&set_map($ucs, mb_94x94, 0x50, $2 - 1, $3 - 1, 'jisx0213-2');
242
252
if ($code =~ /^([34])-([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})/) {
244
&jis1reg(MB_IN_JISX0213_1, hex($2) - 1, hex($3) - 1, $ucs);
254
&jis1reg(MB_IN_JISX0213_1, hex($2) - 0x21, hex($3) - 0x21, $ucs);
247
&set_map($ucs, mb_94x94, 0x50, hex($2) - 1, hex($3) - 1, 'jisx0213-2');
257
&set_map($ucs, mb_94x94, 0x50, hex($2) - 0x21, hex($3) - 0x21, 'jisx0213-2');