S1 Wiki

背景色を設定します。

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

• AccA:色コード 0〜15

背景色を明るいシアンに設定します。
任意のキーを入力すると背景色を黒に設定し、BASICに復帰します。

 0 0000                     ORG  $0000
 1           0000   KPALBK  EQU  *          --SAMPLE OF "KPALBK" ROUTINE--
 2 0000   86 0D             LDA  #13        A:COLOR CODE OF BACKGROUND
 3 0002 103F                SWI2            CALL "KPALCR" ROUTINE
 4 0004      47             FCB  $47        MAP NO=7 ROUTINE NO=3F
 5 0005      3F             FCB  $3F
 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 00             LDA  #0         A:COLOR CODE OF BACKGROUND
11 000E 103F                SWI2            CALL "KPALBK" ROUTINE
12 0010      47             FCB  $47        MAP NO=7 ROUTINE NO=3F
13 0011      3F             FCB  $3F
14 0012      39             RTS
15                          END