S1 Wiki

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

AccAに格納されている文字コードに対応する半角文字を現在のカーソル位置へ表示します。
カーソルは移動しません。

• AccA:ASCIIコード $00〜$FF

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

 0 0000                     ORG  $0000
 1           0000   WRCHR   EQU  *          --SAMPLE OF "WRCHR" 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   86 41             LDA  #$41       D:CHARACTER CODE
11 0010 103F                SWI2            CALL "WRCHR" ROUTINE
12 0012      4A             FCB  $4A        MAP NO=A ROUTINE NO=6
13 0013      06             FCB  $06
14 0014 103F        LOOP    SWI2
15 0016      4A             FCB  $4A
16 0017      0F             FCB  $0F
17 0018   27 FA             BEQ LOOP        LOOP UNTIL A KEY IS PUSHED
18 001A      39             RTS
19                          END