S1 Wiki

画面に直線または四角形を描きます(LINE)。

グラフィック・アクセス用インターフェイス・バッファ内に格納されているグラフィック座標2点を結ぶ直線、その2点を対角線とする四角形を描きます。
その他の処理に必要なパラメータもすべて、グラフィック・アクセス用インターフェイス・バッファに格納します。
グラフィック・アクセス用インターフェイス・バッファの先頭アドレスはシステム・ワークのPIFBUF($F010)に格納されています。

0	1	2	3	...	129
ERR	CMD		PO	...
コード・フィールド			パラメータ・フィールド

• ERR:エラーコード(出力)*1
• CMD:コマンド・コード*2
• CL:グラフィックのパレット・コード(0〜7)
• PO:プロット・オプションおよびライン・スタイル・フラグ

D7	D6	D5	D4	D3	D2	D1	D0
LS	-	-	-	-	OP

OP	プロット・オプション
0	無指定
1	NOT
2	PSET
3	PRESET
4	AND
5	OR
6	XOR

• LS:ライン・スタイルは線の型を設定するパラメータで、16ビットのデータ($0000〜$FFFF)を最小単位とし、そのデータの各ビットと画面のドットが対応し、1にセットされているビットに対応するドットを表示させ、0にリセットされているビットに対応するドットは表示しません。

LS	ライン・スタイル・フラグ
0	ライン・スタイル指定なし
1	ライン・スタイル指定あり

0	1	2	3	4	5	6	7	8	9	A	B	C	D	E
ERR	CMD	-	PO	LS		X1		Y1		X2		Y2		B/BF

• PO:プロット・オプションおよびライン・スタイル・フラグ
  • LS:ライン・スタイル 0000〜$FFFF
• X1:始点の水平方向座標値 スクリーン座標値
• Y1:始点の垂直方向座標値 スクリーン座標値
• X2:終点の水平方向座標値 スクリーン座標値
• Y2:終点の垂直方向座標値 スクリーン座標値
• BF:ボックス・フラグ
  • 0:直線を描く
  • 1:四角形を描く(,B)
  • 2:四角形を塗りつぶす(,BF)

座標上の(0,0)と(639,399)を対角線とする長方形を描きます。

 0           0000   KLINEMA EQU  *          --SAMPLE OF "KLINEMA" ROUTINE--
 1 0000   20 0F             BRA  EXEC
 2           F010   PIFBUF  EQU  $F010      POINT ADDR. OF GRAPHIC I/F BUFFER
 3           000F   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  $07        COLOR CODE
 7 0005      02             FCB  $02        PLOT OPTION
 8 0006      0000           FDB  $0000      LINE STYLE
 9 0008      0000           FDB  $0000      HORIZONTAL POSITION 1
10 000A      0000           FDB  $0000      VERTICAL POSITION 1
11 000C      027F           FDB  639        HORIZONTAL POSITION 2
12 000E      018F           FDB  399        VERTICAL POSITION 2
13 0010      01             FCB  $01        BOX FLAG
14           0011   EXEC    EQU  *          ----- PROGRAM START -----
15 0011   BE F010           LDX  PIFBUF     X:GRAPHIC I/F BUFFER ADDR SET.
16 0014   31 8CEB           LEAY PARM,PCR   Y:PARM. START ADDR. SET
17 0017   C6 0F             LDB  #LEN       B:PARM. COUNT SET
18           0019   LOOP    EQU  *          ----- GRAPHIC I/F BUFFER SET -----
19 0019   A6 A0             LDA  ,Y+
20 001B   A7 80             STA  ,X+
21 001D   5A                DECB
22 001E   26 F9             BNE  LOOP
23           0019   EXECM   EQU  *          ----- EXECUTION -----
24 0020 103F                SWI2            CALL "KLINEMA" ROUTINE
25 0022      49             FCB  $49
26 0023      08             FCB  $08
27 0024   39                RTS
28                          END