S1 Wiki

外字用RAM(IG RAM)のフォント・パターンを指定バッファに読み取ります。

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

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

フォント・パターン・バッファ(32バイト)

1

2

3

・・・

32

画面上のグラフィック(32バイト)

1	2
3	4
・ ・ ・	・ ・ ・
31	32

JISコード$7721に登録してあるフォント・パターンをサンプル・プログラム内ののワーク$GAIJIP(32バイト)に読み込みます。

 0 0000                     ORG  $0000
 1           0000   GFNTRD  EQU  *          --SAMPLE OF "GFNTRD" ROUTINE--
 2 0000   20 20             BRA  EXEC
 3           E517   KCBUF   EQU  $E517
 4 0002             GAIJIP  RMB  32
 5           0022   EXEC    EQU  *
 6 0022   8E E517           LDX  #KCBUF     SET ADDRESS OF "KCBUF"
 7 0025   CC 7721           LDD  #$7721     SET JIS CODE
 8 0028   34 10             PSHS X
 9 002A 103F                SWI2            CALL "GFNTRD" ROUTINE
10 002C      4A             FCB  $4A        MAP NO=A ROUTINE NO=14
11 002D      14             FCB  $14
12 002E   35 10             PULS X
13 0030   31 8C CF          LEAY GAIJIP,PCR SEND READ DATA TO "GAIJIP"
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