S1 Wiki

カーソル位置を設定します。

AccAにカーソルの水平方向位置、AccBにカーソルの垂直方向位置を設定します。
カーソルの表示状態は変わりません。

• AccA:カーソルの水平方向位置 $00〜79
• AccB:カーソルの垂直方向位置 $00〜19

(5,5)にカーソルを表示します。
任意のキーを押すとBASICに戻ります。

 0 0000                     ORG  $0000
 1           0000   GCURST EQU  *          --SAMPLE OF "GCURST" ROUTINE--
 6 0000   CC 050F           LDD  #$050F     D:CURSOR CONFIGRATION
 7 0003 103F                SWI2            CALL "GCURSOR" ROUTINE
 8 0005      4A             FCB  $4A        MAP NO=A ROUTINE NO=0
 9 0006      00             FCB  $00
 2 0007   CC 0505           LDD  #$0505     D:CURSOR POSITION(5,5)
 3 000A 103F                SWI2            CALL "GCURST" ROUTINE
 4 000C      4A             FCB  $4A        MAP NO=A ROUTINE NO=1
 5 000D      01             FCB  $01
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      39             RTS
15                          END