最終更新:ID:4mHyealEgA 2017年02月10日(金) 10:29:32履歴
メモリ空間 | $A |
---|---|
ルーチン番号 | 2 |
- AccA:カーソルの水平方向位置 0〜79
- AccB:カーソルの垂直方向位置 0〜19
- X:
- (D13):カーソル表示の有無 0,1
- (D12〜D8):カーソルの開始位置(0〜19)
- (D4〜D0):カーソルの終了位置(0〜19)
D15 | D14 | D13 | D12 | D11 | D10 | D9 | D8 | D7 | D6 | D5 | D4 | D3 | D2 | D1 | D0 |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
不定 | 0:カーソル表示あり 1:カーソル表示なし | カーソル開始位置 0〜19 | 不定 | カーソル終了位置 0〜19 |
(5,5)に上端位置5、下端位置$Fのカーソルを表示します。
任意のキーを押すと本システム・コールがコールされ、カーソル情報を返します。
任意のキーを押すと本システム・コールがコールされ、カーソル情報を返します。
0 0000 ORG $0000 1 0000 GCURRD EQU * --SAMPLE OF "GCURRD" 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 103F SWI2 CALL "GCURRD" ROUTINE 15 0016 4A FCB $4A MAP NO=A ROUTINE NO=2 16 0017 0F FCB $02 17 0018 3F SWI 18 END
コメントをかく