S1 Wiki

画面に1ドット表示します(PSET)。

グラフィック・アクセス用インターフェイス・バッファに格納されているグラフィック座標位置の1ドット表示または消去します。
グラフィック・アクセス用インターフェイス・バッファの先頭アドレスは、システム・ワーク内のPIFBUF($F010)に格納されています。

0	1	2	3	4	5	6	7
ERR	CMD	-	S/R	X		Y

• S/R:PSET/PRESETフラグ

S/R	PSET/PRESETフラグ
0	指定したグラフィック座標に1ドット表示
1	指定したグラフィック座標の1ドット消去

• X:水平方向座標位置(スクリーン座標値)
• Y:垂直方向座標位置(スクリーン座標値)

座標(300,200)にドットを表示します。

 0           0000   KPSETS  EQU  *          --SAMPLE OF "KPSETS" ROUTINE--
 1 0000   20 09             BRA  EXEC
 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      07             FCB  7          COLOR No.
 7 0005      00             FCB  0          PSET/PRESET FLAG
 8 0006      012C           FDB  300        HORIZONTAL POSITION
 9 0008      00C8           FDB  200        VERTICAL   POSITION
10 000A      02             FCB  2          READ DATA COUNT
11           C00B   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. START ADDR. SET 
14 0011   C6 09             LDB  #LEN       B:PARM. COUNT SET
15           C013   LOOP    EQU  *          --- GRAPHIC I/F BUFFER SET ---
16 0013   A6 A0             LDA  ,Y+        A:PARM. DATA
17 0015   A7 80             STA  ,X+        GRAPHIC I/F BUF. <-- A
18 0017   5A                DECB            PARM. DATA END ?
19 0018   26 F9             BNE  LOOP
20           C01A   EXECM   EQU  *          --- EXECUTION ---
21 001A 103F                SWI2            CALL "KPSETS" ROUTINE
22 001C      4A             FCB  $4A
23 001D      1E             FCB  $1E
24 001E   39                RTS
25                          END