S1 Wiki

指定漢字JISコードのフォント・パターン(16x16ドット)を指定バッファに読み取ります。

AccDで指定した漢字JISコードの漢字ROMのフォント・パターン(16x16ドット)をXで指定したアドレスを先頭とする32バイト・バッファに読み取ります。

AccD:漢字JISコード
X:バッファの先頭アドレス(32バイト)
注1)Xレジスタのアドレスは、KCBUF($E517)を設定してください。
注2)フォント・パターンのバッファ格納形式はGFNTRDと同じです。

JISコード$3441"漢"のフォント・パターンを、サンプル・プログラム内ののワークKANDAT(32バイト)に読み込みます。

 0 0000                     ORG  $0000
 1           0000   KFNTRD  EQU  *          --SAMPLE OF "KFNTRD" ROUTINE--
 2 0000   20 20             BRA  EXEC
 3           E517   KCBUF   EQU  $E517
 4 0002             KANDAT  RMB  32
 5           0022   EXEC    EQU  *
 6 0022   8E E517           LDX  #KCBUF     SET ADDRESS OF "KCBUF"
 7 0025   CC 3441           LDD  #$3441     SET JIS CODE
 8 0028   34 10             PSHS X
 9 002A 103F                SWI2            CALL "KFNTRD" ROUTINE
10 002C      4A             FCB  $4A        MAP NO=A ROUTINE NO=16
11 002D      16             FCB  $16
12 002E   35 10             PULS X
13 0030   31 8C CF          LEAY KANDAT,PCR
14 0033   86 10             LDA  #$10
15           0035   LOOP1   EQU  *
16 0035   34 02             PSHS A
17 0037   EC 81             LDD  ,X++
18 0039   ED A1             STD  ,Y++
19 003B   35 02             PULS A
20 003D   4A                DEC  A
21 003E   26 F5             BNE  LOOP1
22 0040   39                RTS
23                          END