S1 Wiki

指定された座標点のドット情報を読み取ります。

Xに格納されているデータを水平方向位置、Yに格納されているデータを垂直方向位置とする座標のドット情報をAccAに格納します。
指定位置が範囲外の場合は何もせずにリターンします。

• AccA

D7	D6	D5	D4	D3	D2	D1	D0
0:設定ドット値を表示する。 1:現在のドット値と設定ドット値の排他的 論理和した結果のドット値を表示する。	不定						設定ドット値: 0:表示しない 1:表示する

• X:水平方向ドット座標置 0〜639
• Y:垂直方向ドット座標置 0〜639

• AccA:ドット情報
  • 0…ドット無表示
  • 1…ドット表示

表示画面を消去後、(100,100)に1ドット出力します。
任意のキーを入力すると、AccAに情報1が返されます。

 0 0000                     ORG  $0000
 1           0000   KDOTRD  EQU  *          --SAMPLE OF "KDOTRD" ROUTINE--
 2 0000 103F                SWI2            CALL "KCLS" ROUTINE
 3 0002      49             FCB  $49        MAP NO=9 ROUTINE NO=0
 4 0003      00             FCB  $00
 5 0004   86 01             LDA  #$01       A:DOT VALUE
 6 0006   8E 0064           LDX  #100       X:HORIZONTAL POSITION
 7 0009 108E 0064           LDY  #100       Y:VERTICAL POSITION
 8 000D 103F                SWI2            CALL "KDOTWT" ROUTINE
 9 000F      49             FCB  $49        MAP NO=9 ROUTINE NO=1
10 0010      01             FCB  $01
11 0011 103F        LOOP    SWI2            CALL "INKBD" ROUTINE
12 0013      4A             FCB  $4A        MAP NO=A ROUTINE NO=F
13 0014      0F             FCB  $0F
14 0015   27 FA             BEQ  LOOP       LOOP UNTIL A KEY IS PUSHED
15 0017   8E 0064           LDX  #100       X:HORIZONTAL POSITION
16 001A 108E 0064           LDY  #100       Y:VERTICAL POSITION
17 001E 103F                SWI2            CALL "KDOTRD" ROUTINE
18 0020      49             FCB  $49        MAP NO=9 ROUTINE NO=2
19 0021      02             FCB  $02
20 0022      3F             SWI
21                          END

S=E14C(F16B)CC=80(****)A=01 B=CF DP=00 X=0064 Y=0064 U=0002 PC=C022(3F00FFFF00)
*