S1 Wiki

カーソルの位置を読み込みます。

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

AccA:カーソルの水平方向位置
AccB:カーソルの垂直方向位置

(0,0)から、"カーソル位置？"のメッセージを出力した後、本システム・コールで、現在のカーソル位置をAccA、AccBに返します。

 0           0000   KCURSRD EQU  *          --SAMPLE OF "KCURSRD" ROUTINE--
 1           EFE9   FILNUM  EQU  $EFE9      FILE NUMBER VEC.
 2 0000   20 08             BRA  EXEC
 3 0002      834A   CHDATA  FDB  $834A
 4 0004      815B           FDB  $815B
 5 0006      835C           FDB  $835C
 6 0008      838B           FDB  $838B
 7 000A      88CA           FDB  $88CA
 8 000C      9275           FDB  $9275
 9 000E      8148           FDB  $8148
10 0010      00             FCB  $00        MESSAGE END CODE
11           0011   EXEC    EQU  *          PROGRAM START
12 0011 103F                SWI2            CLEAR SCREEN
13 0013      41             FCB  $41        (CALL KCLRSCR)
14 0014      06             FCB  $06
15 0015   30 8CEA           LEAX CHDATA,PCR X:TOP ADDR OF MESSAGE AREA
16 0018   5F                CLRB
17 0019   F7 EFE9           STB  FILNUM     FILNUM:0 DISPLAY OUT
18 001C   86 0F             LDA  #$0F
19 001E 103F                SWI2            STRING OUT
20 0020      41             FCB  $41        (CALL KOUTSTR)
21 0021      39             FCB  $39
22 0022 103F                SWI2            CURSOR POSITION READ
23 0024      41             FCB  $41        (CALL KCURSRD)
24 0025      4B             FCB  $4B
25 0026   3F                SWI
26                          END

S=E14C(F16B)CC=80(****)A=0E B=00 DP=00 X=0011 Y=0DFF U=C12B PC=C026(3FCD037ECD)
*