S1 Wiki

グラフィック・カーソルのドット位置を読み取ります(GCURSOR)。

画面上の任意のドット座標位置を、グラフィック・カーソルによって読み取り、グラフィック・アクセス用インターフェイス・バッファ内に格納します。
グラフィック・カーソルは、画面に任意の形で表示され、その移動およびドット座標位置の読み取りはキーボードまたはマウスで行います。

	キーボード	マウス
移動方法	カーソル移動キー	マウスを動かす
読み取り方法	(リターン)キーを押す	トリガ・ボタンAを押す

GCS400ルーチンを使うと、マウスのトリガ割り込みが禁止状態になります。

0	1	2	3	4	5	6	7	8	9	A	B	C	...
ERR	CMD	-	DEV	X		Y		N	SX1		SY1		...	SXn	SYn

• DEV:デバイス・コード

DEV	デバイス・コード
0	キーボード
1	マウス

• X:グラフィック・カーソルを最初に表示する画面水平方向位置(スクリーン座標値)
• Y:グラフィック・カーソルを最初に表示する画面垂直方向位置(スクリーン座標値)
• N:読み取るグラフィック座標数 1〜30

• SX1:最初に読み取られたグラフィック座標の水平方向位置(スクリーン座標値)
• SY1:最初に読み取られたグラフィック座標の垂直方向位置(スクリーン座標値)

グラフィック・カーソルで画面上の座標を2点読み取り、その結果をXレジスタの示すアドレス以降に格納します。

 0           0000   GCS400  EQU  *          --SAMPLE OF "GCS400" ROUTINE--
 1 0000   20 09             BRA  STEP1
 2           F010   PIFBUF  EQU  $F010      POINT ADDR. OF GRAPHIC I/F BUFFER
 3           0009   LEN     EQU  EXEC-PARM  LENGTH OF PARM.
 4 0002      00     PARM    FCB  $00        ERROR CODE
 5 0003      00             FCB  $00        COMMAND CODE
 6 0004      00             FCB  $00        NOT USE
 7 0005      00             FCB  $00        DEVICE 0:KEY 1:MOUSE
 8 0006      00C8           FDB  200        HORIZONTAL POSITION
 9 0008      00C8           FDB  200        VERTICAL   POSITION
10 000A      02             FCB  $02        READ DATA COUNT
11           000B   EXEC    EQU  *          --- PROGRAM START ---
12 000B   BE F010           LDX  PIFBUF     X:GRAPHIC I/F BUFFER ADDR. SET
13 000E   31 8CF1           LEAY PARM,PCR   Y:PARM. SATRT ADDR. SET
14 0011   C6 09             LDB  #LEN       B:PARM. COUNT SET
15           0013   LOOP    EQU  *          --- GRAPHIC I/F BUFFER SET ---
16 0013   A6 A0             LDA  ,Y+
17 0015   A7 80             STA  ,X+
18 0017   5A                DECB            PARM. SET END ?
19 0018   26 F9             BNE  LOOP
20           001A   EXECM   EQU  *          --- EXECUTION ---
21 001A   34 10             PSHS X
22 001C 103F                SWI2            CALL "CGS400" ROUTINE
23 001E      4A             FCB  $4A
24 001F      1D             FCB  $1D
25 0020   35 10             PULS X
26 0022   3F                SWI             READ COADINATES CHECK
27 0023   39                RTS