S1 Wiki

漢字、外字、ASCII文字を画面の現在のカーソル位置に出力します。

AccA≠0の場合は、AccAとAccBに格納されている文字コードに対応する全角文字を現在のカーソル位置へ表示します。
カーソルは移動しません。
カーソルの水平方向位置が79(画面の右端)の場合は何もせずにリターンします。
カーソルはTTY出力範囲内で1行下の左端に進みます。
AccA=0の場合は、AccBに格納されている文字コードに対応する半角文字をWRCHRと同機能で画面に出力します。 　　　　　

• AccA≠0 AND ≠$77の場合
  • AccA:JISコードの上位バイト $21〜$7E
  • AccB:JISコードの下位バイト $21〜$7E
• AccA=$77 AND $21≦AccB≦$75の場合
  • AccA=外字コードの上位バイト $77
  • AccB:外字コードの下位バイト $21〜$75
• AccA=0の場合
  • AccA:0
  • AccB:ASCIIコード $00〜$FF

(5,5)にカーソルを表示後、カーソル位置に"亜"が表示されます。
任意のキーを入力するとBASICに復帰します。

 0 0000                     ORG  $0000
 1           0000   KWRCHR  EQU  *          --SAMPLE OF "KWRCHR" ROUTINE--
 2 0000   CC 0505           LDD  #$0505     D:CURSOR POSITION(5,5)
 3 0003 103F                SWI2            CALL "GCURST" ROUTINE
 4 0005      4A             FCB  $4A        MAP NO=A ROUTINE NO=1
 5 0006      01             FCB  $01
 6 0007   CC 050F           LDD  #$050F     D:CURSOR CONFIGRATION
 7 000A 103F                SWI2            CALL "GCURSOR" ROUTINE
 8 000C      4A             FCB  $4A        MAP NO=A ROUTINE NO=0
 9 000D      00             FCB  $00
10 000E   CC 3021           LDD  #$3021     D:CHARACTER CODE
11 0011 103F                SWI2            CALL "KWRCHR" ROUTINE
12 0013      4A             FCB  $4A        MAP NO=A ROUTINE NO=4
13 0014      04             FCB  $04
14 0015 103F        LOOP    SWI2
15 0017      4A             FCB  $4A
16 0018      0F             FCB  $0F
17 0019   27 FA             BEQ LOOP        LOOP UNTIL A KEY IS PUSHED
18 001B      39             RTS
19                          END