S1 Wiki

指定バッファのフォント・パターンを外字バッファRAM(IG RAM)に書き込みます。

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

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

×の形のフォント・パターンを、JISコード$7721に登録します。

 0 0000                     ORG  $0000
 1           0000   GFNTWT  EQU  *          --SAMPLE OF "GFNTWT" ROUTINE--
 2 0000   20 20             BRA  EXEC
 3           E517   KCBUF   EQU  $E517
 4 0002      80     GAIJIP  FCB  $80
 5 0003      01             FCB  $01
 6 0004      40             FCB  $40
 7 0005      02             FCB  $02
 8 0006      20             FCB  $20
 9 0007      04             FCB  $04
10 0008      10             FCB  $10
11 0009      08             FCB  $08
12 000A      08             FCB  $08
13 000B      10             FCB  $10
14 000C      04             FCB  $04
15 000D      20             FCB  $20
16 000E      02             FCB  $02
17 000F      40             FCB  $40
18 0010      01             FCB  $01
19 0011      80             FCB  $80
20 0012      01             FCB  $01
21 0013      80             FCB  $80
22 0014      02             FCB  $02
23 0015      40             FCB  $40
24 0016      04             FCB  $04
25 0017      20             FCB  $20
26 0018      08             FCB  $08
27 0019      10             FCB  $10
28 001A      10             FCB  $10
29 001B      08             FCB  $08
30 001C      20             FCB  $20
31 001D      04             FCB  $04
32 001E      40             FCB  $40
33 001F      02             FCB  $02
34 0020      80             FCB  $80
35 0021      01             FCB  $01
36           0022   EXEC    EQU  *
37 0022   8E E517           LDX  #KCBUF     SET ADDRESS OF "KCBUF"
38 0025   31 8C DA          LEAY GAIJIP,PCR SEND WRITE DATA FROM "GAIJIP" TO "KCBUF"
39 0028   86 10             LDA  #$10
40           002A   LOOP1   EQU  *
41 002A   34 02             PSHS A
42 002C   EC A1             LDD  ,Y++
43 002E   ED 81             STD  ,X++
44 0030   35 02             PULS A
45 0032   4A                DEC  A
46 0033   26 F5             BNE  LOOP1
47 0035   8E E517           LDX  #KCBUF
48 0038   CC 7721           LDD  #$7721
49 003B 103F                SWI2            CALL "GFNTWT" ROUTINE
50 003D      4A             FCB  $4A        MAP NO=A ROUTINE NO=15
51 003E      15             FCB  $15
52 003F   39                RTS
53                          END