S1 Wiki

漢字を表示します(KANJI)。

AccDに格納されている漢字コードを、グラフィック・アクセス用インターフェイス・バッファに格納されているパラメータに従って表示します。

グラフィック・アクセス用インターフェイス・バッファの構成

0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23
ERR	CMD	-	PO	-	-	X		Y		-	-	-	-	-	-	-	-	SETOPX		SETOPY		CL	CLN

• AccD:漢字のJISコード
• PO:プロット・オプション
• X:漢字を表示する始点の水平座標値(スクリーン座標値)
• Y:漢字を表示する始点の垂直座標値(スクリーン座標値)
• SETOPX:横倍率(整数値)
• SETOPY:縦倍率(整数値)

※SETPOX/SETOPY設定、内容の詳細については、PUTルーチンを参照してください。

• CL:パレット番号 0〜7
• CLN:指定色数(常に1を設定)

"漢"の字を画面のグラフィック座標(200,100)の位置に表示します。

 0           C000   KNPUT   EQU  *          --SAMPLE OF "KNPUT" ROUTINE--
 1 C000   20 1A             BRA  STEP1
 2           F010   PIFBUF  EQU  $F010      POINT ADDR
 3                  *                       OF GRAPHIC I/F BUF.
 4 C002      3441   KNCODE  FDB  $3441      KANJI CODE(JIS CODE $3441)
 5 C004      00     PARM    FCB  $00        ERROR CODE
 6 C005      00             FCB  $00        COMMAND CODE
 7 C006      06             FCB  $00        NOT USE
 8 C007      00             FCB  $00        PLOT OPTION
 9 C008      0000           FDB  $0000      NOT USE
10 C00A      00C8           FDB  200        HORIZONTAL POSITION 1
11 C00C      0064           FDB  100        VERTICAL   POSITION 1
12 C00E      0008           RMB  8          NOT USE
13 C016      0004           FDB  $0004      HORIZONTAL OPTION
14 C018      0004           FDB  $0004      VERTICAL   OPTION
15 C01A      01             FCB  $01
16 C01B      06             FCB  $06        PALETTE OPTION
17           C01C   PARME   EQU  *          PARM. END
18           C01C   STEP1   EQU  *          --- SET PARM. TO BUF. ---
19 C01C 103F                SWI2            GRAPHIC I/F BUF. INIT.
20 C01E      41             FCB  $41
21 C01F      69             FCB  $69
22 C020   BE F010           LDX  PIFBUF     X:GRAPHIC I/F BUF. ADDR
23 C023   31 8CDE           LEAY PARM,PCR   Y:TOP ADDR. OF PARM.
24 C026   C6 18             LDB  #PARME-PARM B:PARM. COUNTER
25 C028   A6 A0     LOOP    LDA  ,Y+        A:PARM. DATA
26 C02A   A7 80             STA  ,X+        GRAPHIC I/F BUF. <-- A
27 C02C   5A                DECB            PARM. DATA END ?
28 C02D   26 F9             BNE  LOOP
29           C02F   STEP2   EQU  *          --- KANJI EXEC ---
30 C02F   EC 8CD0           LDD  KNCODE,PCR D:KANJI CODE
31 C032 103F                SWI2            CALL "KNPUT" ROUTINE
32 C034      41             FCB  $41        MAP NO=1
33 C035      0C             FCB  $0C        ROUTINE NO=12
34 C036   39                RTS