S1 Wiki

カーソルの位置、表示状態を読み込みます。

AccAに現在のカーソルの水平方向位置、AccBに垂直方向位置を格納します。
また、Xに表示状態を格納します。

• AccA:カーソルの水平方向位置 0〜79
• AccB:カーソルの垂直方向位置 0〜19
• X:
  • (D13):カーソル表示の有無 0,1
  • (D12〜D8):カーソルの開始位置(0〜19)
  • (D4〜D0):カーソルの終了位置(0〜19)

D15	D14	D13	D12	D11	D10	D9	D8	D7	D6	D5	D4	D3	D2	D1	D0
不定		0:カーソル表示あり 1:カーソル表示なし	カーソル開始位置 0〜19					不定			カーソル終了位置 0〜19

(5,5)に上端位置5、下端位置$Fのカーソルを表示します。
任意のキーを押すと本システム・コールがコールされ、カーソル情報を返します。

 0 0000                     ORG  $0000
 1           0000   GCURRD  EQU  *          --SAMPLE OF "GCURRD" 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 103F        LOOP    SWI2            CALL "INKBD" ROUTINE
11 0010      4A             FCB  $4A        MAP NO=A ROUTINE NO=F
12 0011      0F             FCB  $0F
13 0012   27 FA             BEQ  LOOP       LOOP UNTIL A KEY IS PUSHED
14 0014 103F                SWI2            CALL "GCURRD" ROUTINE
15 0016      4A             FCB  $4A        MAP NO=A ROUTINE NO=2
16 0017      0F             FCB  $02
17 0018      3F             SWI
18                          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)
*