S1 Wiki

文字色を設定します。

AccAに格納されているデータを文字色用の色コードとして設定します。
入力値が範囲外の場合は何もせずにリターンします。

• AccA:色コード 0〜15

文字色を明るい緑色に設定します。
任意のキーを入力すると文字色を明るい白に設定し、BASICに復帰します。

 0 0000                     ORG  $0000
 1           0000   KPALCR  EQU  *          --SAMPLE OF "KPALCR" ROUTINE--
 2 0000   86 0C             LDA  #12        A:COLOR CODE OF CHARACTER
 3 0002 103F                SWI2            CALL "KPALCR" ROUTINE
 4 0004      47             FCB  $47        MAP NO=7 ROUTINE NO=3E
 5 0005      3E             FCB  $3E
 6 0006 103F        LOOP    SWI2            CALL "INKBD" ROUTINE
 7 0008      4A             FCB  $4A        MAP NO=A ROUTINE NO=F
 8 0009      0F             FCB  $0F
 9 000A   27 FA             BEQ  LOOP       LOOP UNTIL A KEY IS PUSHED
10 000C   86 0F             LDA  #15        A:COLOR CODE OF CHARACTER
11 000E 103F                SWI2            CALL "KPALCR" ROUTINE
12 0010      47             FCB  $47        MAP NO=7 ROUTINE NO=3E
13 0011      3E             FCB  $3E
14 0012      39             RTS
15                          END