S1 Wiki

カーソルの表示状態を設定します。

画面に表示するカーソルの大きさ、および表示の有無を設定します。

• AccA:
  • (D5):カーソルの表示の有無 0,1
  • (D4〜D0)カーソルの上端位置 0〜$13

D7	D6	D5	D4	D3	D2	D1	D0
		0:カーソル表示 1:カーソル消去	カーソルの上端位置

• AccB:
  • (D4〜D0)カーソルの下端位置 0〜$13

D7	D6	D5	D4	D3	D2	D1	D0
			カーソルの下端位置

• 画面上のカーソル

                ■■■■■■■■ 0
カーソル上端位置→■■■■■■■■ 1
AccA(D4〜D0)    ■■■■■■■■ 2
                      : 
                      : 
カーソル下端位置→■■■■■■■■$12
AccB(D4〜D0)    ■■■■■■■■$13

(5,5)に上端位置5、下端位置$Fのカーソルを表示します。
任意のキーを押すとBASICに復帰します。

 0 0000                     ORG  $0000
 1           0000   GCURSOR EQU  *          --SAMPLE OF "GCURSOR" ROUTINE--
 2 0000   CC 0505           LDD  #$0505     D:CURSOR POSITION(5,5)
 3 0003 103F                SWI2            CALL "GCURST" ROUTINE
 4 0005      4A             FCB  $4A        MAP NO=A ROUTINE NO=1
 5 0006      01             FCB  $01
 6 0007   CC 050F           LDD  #$050F     D:CURSOR CONFIGRATION
 7 000A 103F                SWI2            CALL "GCURSOR" ROUTINE
 8 000C      4A             FCB  $4A        MAP NO=A ROUTINE NO=0
 9 000D      00             FCB  $00
10 000E 103F        LOOP    SWI2            CALL "INKBD" ROUTINE
11 0010      4A             FCB  $4A        MAP NO=A ROUTINE NO=F
12 0011      0F             FCB  $0F
13 0012   27 FA             BEQ LOOP        LOOP UNTIL A KEY IS PUSHED
14 0014      39             RTS
15                          END