ASCIIコード$41"A"のフォント・パターンをサンプル・プログラム内ののワークASCDAT(16バイト)に読み込みます。
0 0000 ORG $0000
1 0000 CFNTRD EQU * --SAMPLE OF "CFNTRD" ROUTINE--
2 0000 20 10 BRA EXEC
3 E517 KCBUF EQU $E517
4 0002 ASCDAT RMB 16
5 0022 EXEC EQU *
6 0012 8E E517 LDX #KCBUF SET ADDRESS OF "KCBUF"
7 0015 86 41 LDA #$41
8 0017 34 10 PSHS X
9 0019 103F SWI2 CALL "CFNTRD" ROUTINE
10 001B 4A FCB $4A MAP NO=A ROUTINE NO=17
11 001C 17 FCB $17
12 001D 35 10 PULS X
13 001F 31 8C E0 LEAY ASCDAT,PCR
14 0022 86 08 LDA #$08
15 0035 LOOP1 EQU *
16 0024 34 02 PSHS A
17 0026 EC 81 LDD ,X++
18 0028 ED A1 STD ,Y++
19 002A 35 02 PULS A
20 002C 4A DEC A
21 002D 26 F5 BNE LOOP1
22 002F 39 RTS
23 END