S1 Wiki

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

AccAに格納されているデータをカーソルの水平方向位置とし、AccBに格納されているデータをカーソルの垂直方向位置として設定します。
表示後カーソル位置を1文字分進めます。

• AccA:カーソルの水平方向位置 $00〜$4F
• AccB:カーソルの垂直方向位置 $00〜n
  • n=$12…かな漢字変換モードの場合
  • n=$13…半角入力専用モードの場合
  • ただし、n=$13を越えて設定した場合には、n=$12またはn=$13を設定したものとみなします。

(16,10)にカーソルを設定後、水平−１６　垂直−１０に設定というメッセージを表示します。

 0           0000   KCURSET EQU  *          --SAMPLE OF "KCURSET" ROUTINE--
 1 0000   20 21             BRA  STEP1
 2 0002      0A     LOC     FCB  $10        HORIZONTAL POSITION OF SCREEN
 3 0003      0A             FCB  $0A        VERTICAL   POSITION OF SCREEN
 4 0004      9085   MSG     FDB  $9085      "SUI"
 5 0006      95BD           FDB  $95BD      "HEI"
 6 0008      817C           FDB  $817C      "-"
 7 000A      8250           FDB  $8250      "1"
 8 000C      8255           FDB  $8255      "6"
 9 000E      8140           FDB  $8140      " "
10 0010      9082           FDB  $9082      "SUI"
11 0012      92BC           FDB  $92BC      "CHOKU"
12 0014      817C           FDB  $817C      "-"
13 0016      8250           FDB  $8250      "1"
14 0018      824F           FDB  $824F      "0"
15 001A      8140           FDB  $8140      " "
16 001C      82C9           FDB  $82C9      "NI"
17 001E      90DD           FDB  $90DD      "SETSU"
18 0020      92E8           FDB  $92E8      "TEI"
19 0022      00             FCB  $00        MESSAGE END CODE
20           0023   STEP1   EQU  *          ----- STEP 1 -----
21 0023   EC 8CDC           LDD  LOC,PCR
22                  *
23 0026 103F                SWI2            CURSOR SET
24 0028      41             FCB  $41        (CALL KCURSET)
25 0029      08             FCB  $08
26           002A   STEP2   EQU  *          ----- STEP 2 -----
27 002A   30 8CD7           LEAX MSG,PCR    X:TOP ADDR. OF MESSAGE AREA
28 002D   A6 80     LOOP    LDA  ,X+        A:MESSAGE DATA
29 002F   27 0A             BEQ  ENDL
30 0031   34 10             PSHS X
31 0033 103F                SWI2            OUTPUT CHARACTER
32 0035      41             FCB  $41        (CALL KOUTSCR)
33 0036      05             FCB  $05
34 0037   35 10             PULS X
35 0039   20 F2             BRA  LOOP
36 003B   39        ENDL    RTS