S1 Wiki

カラーレジスタの設定、または読み込みを行います。

AccAを文字色および文字画面とグラフィック画面の表示状態などを示すデータとし、AccBを文字、グラフィックの背景色を示すデータとし、文字色と背景色の設定、または読み込みを行います。

AccA:

MSB							LSB
MK	SI	IG	GR/TX	RV	G	R	B

MK	カラーレジスタ書き込み/禁止フラグ
0	書き込み可能
1	書き込み禁止

SI	GR/TX	モード
0	0	文字画面のみを表示
0	1	グラフィック画面のみを表示
0	0	文字画面とグラフィック画面を重ね合わせて表示(文字画面優先)
0	1	文字画面とグラフィック画面を重ね合わせて表示(グラフィック画面優先)

IG	IG表示許可/禁止フラグ
0	IG表示禁止
1	IGを他のモードに優先して表示

RV	文字色通常/反転フラグ
0	通常
1	反転

G	R	B	表示色のパレット
0	0	0	黒
0	0	1	青
0	1	0	赤
0	1	1	マゼンダ
1	0	0	緑
1	0	1	シアン
1	1	0	黄
1	1	1	白

AccB:

MSB							LSB
MK	×	×	×	×	G	R	B
					背景色のパレット番号 内容は文字色のパレットと同じ

"A"の文字をグラフィック画面とテキスト画面の優先順位を変えながら、40文字分横方向に表示します。

10 CLEAR ,&HC000
20 LOADM"COLORW"
30 WIDTH 40
32 CLS
40 FOR I=0 TO 639 STEP 6
50  LINE(I,0)-(I+1,199),PSET,1,BF
60 NEXT I
70 LOCATE 0,10
80 EXEC &HC000


 0 C000                     ORG  $C000
 1           C000   COLORW  EQU  *          --SAMPLE OF "COLORW" ROUTINE--
 2 C000   86 46     EXEC    LDA  #$46       A:PARM. DATA
 3 C002   C6 28             LDB  #$28       B:EXEC COUNTER
 4                  *                       --- ACCA PARAM. SET ---
 5 C004   88 10     LOOP    EORA  #$10
 6 C006   34 06             PSHS  A,B       A:PARM. DATA
 7                  *                       A(b7)    :MK FLAG
 8                  *                       A(b6)    :TEXT / GRAPHIC FLAG
 9                  *                       A(b5)    :IG FLAG
10                  *                       A(b4)    :TEXT / GRAPHIC PRIORITY
11                  *                       A(b3)    :REVERSE FLAG
12                  *                       A(b2-b0) :PALETTE CODE(CHAR.)
13                  *                       --- ACCB PARAM. SET ---
14 C008   C6 00             LDB  #$00
15                  *                       B(b7)    :READ/WRITE FLAG
16                  *                       B(b2-b0) :PALETTE CODE(ﾊｲｹｲ)
17 C00A 103F                SWI2            CALL "COLORW" ROUTINE
18 C00C      42             FCB  $42
19 C00D      00             FCB  $00
20 C00E   86 41             LDA  #$41       A:CHAR. DATA("A")
21 C010 103F                SWI2            CALL "OUTSCR" ROUTINE
22 C012      41             FCB  $41
23 C013      05             FCB  $05
24 C014   35 06             PULS B,A        A:PARM. DATA
25 C016   5A                DECB            B:B - 1
26 C017   26 EB             BNE  LOOP       A:CURSOR PARAM
27 C019 103F                SWI2            CALL "COLORW" ROUTINE
28 C01B   86 67             LDA  #$67
29 C01D      42             FCB  $42
30 C01E      00             FCB  $00
31 C01F   39                RTS
32                          END