S1 Wiki

画面の現カーソルの位置の文字情報を読み取ります。

画面の現カーソルの位置の文字コードをAccAに、アトリビュートをAccBに読み取ります。
アトリビュートの内容は下図のようになっています。

0	0	0	1	D3	D2	D1	D0
固定				0:ノーマル表示 1:リバース表示	0:半角文字 1:全角文字1バイト目 2:全角文字2バイト目

• AccA:文字コード
• AccB:文字アトリビュート

(5,5)にカーソルを表示後、カーソル位置に"亜"が表示され、任意のキーを押すと、AccAにカーソル位置の"亜"の第1バイトの文字コード$30が、AccBにアトリビュート・コード$11が返されます。

 0 0000                     ORG  $0000
 1           0000   RDCHR   EQU  *          --SAMPLE OF "RDCHR" 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=3
13 0014      04             FCB  $04
14 0015 103F        LOOP    SWI2            CALL "INKBD" ROUTINE
15 0017      4A             FCB  $4A        MAP NO=A ROUTINE NO=F
16 0018      0F             FCB  $0F
17 0019   27 FA             BEQ LOOP        LOOP UNTIL A KEY IS PUSHED
18 001B 103F                SWI2            CALL "RDCHR" ROUTINE
19 001D      4A             FCB  $4A        MAP NO=A ROUTINE NO=7
20 001E      07             FCB  $07
21 001F      3F             SWI
22                          END

AccAに5、AccBに5、Xに$050Fが返されます。

S=E14C(F16B)CC=81(***C)A=05 B=05 DP=00 X=050F Y=C000 U=0002 PC=C018(3F00FFFFFF)
*