S1 Wiki

任意のパレット番号に、色を設定します(PALETTE)。

AccBに格納されているパレット番号に、AccAに格納されている色コードを設定します。

AccA:

色コード	0	1	2	3	4	5	6	7
色	黒	青	赤	マゼンダ	緑	シアン	黄	白

AccB:パレット番号 0〜$F

現在表示されているテキストおよびグラフィック画面で、パレット番号が7で表示されている部分を、スペース・キーを押すごとに色コード0〜$Fに順次変更します。

10 CLEAR ,&HC000
20 LOADM"PLTSET"
30 LINE(0,0)-(320,100),PSET,7,BF
40 EXEC &HC000

 0 C000                     ORG  $C000
 1           C000   PLTSET  EQU  *          --SAMPLE OF "PLTSET" ROUTINE--
 2                  *                       ----- STEP1 -----
 3 C000   4F                CLRA            A:COLOR CODE
 4 C001   C6 07             LDB  #$07       B:PALETTE CODE
 5 C003 103F        LOOP1   SWI2            CALL "PLTSET" ROUTINE
 6 C005      42             FCB  $42
 7 C006      0D             FCB  $0D
 8 C007   4C                INCA            COLOR CODE INC
 9 C008   81 08             CMPA #$08       COLOR CODE END?
10 C00A   26 01             BNE  LOOP
11 C00C   4F                CLRA            A:COLOR CODE
12           C00D   STEP2   EQU  *          ----- STEP2 -----
13 C00D   34 06             PSHS B,A        B:PLT CODE A:COLOR CODE
14 C00F 103F        LOOP2   SWI2            CALL "POLKBD" ROUTINE
15 C011      41             FCB  $41
16 C012      01             FCB  $01
17 C013   27 FA             BEQ  LOOP2
18 C015   35 06             PULS A,B        B:PLT CODE A:COLOR CODE
19 C017   20 EA             BRA  LOOP1
20                          END