最終更新:ID:4mHyealEgA 2017年02月09日(木) 17:10:42履歴
メモリ空間 | $A |
---|---|
ルーチン番号 | 7 |
画面の現カーソルの位置の文字コードをAccAに、アトリビュートをAccBに読み取ります。
アトリビュートの内容は下図のようになっています。
アトリビュートの内容は下図のようになっています。
0 | 0 | 0 | 1 | D3 | D2 | D1 | D0 |
---|---|---|---|---|---|---|---|
固定 | 0:ノーマル表示 1:リバース表示 | 0:半角文字 1:全角文字1バイト目 2:全角文字2バイト目 |
(5,5)にカーソルを表示後、カーソル位置に"亜"が表示され、任意のキーを押すと、AccAにカーソル位置の"亜"の第1バイトの文字コード$30が、AccBにアトリビュート・コード$11が返されます。
0 0000 ORG $0000 1 0000 RDCHR EQU * --SAMPLE OF "RDCHR" 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 CC 3021 LDD #$3021 D:CHARACTER CODE 11 0011 103F SWI2 CALL "KWRCHR" ROUTINE 12 0013 4A FCB $4A MAP NO=A ROUTINE NO=3 13 0014 04 FCB $04 14 0015 103F LOOP SWI2 CALL "INKBD" ROUTINE 15 0017 4A FCB $4A MAP NO=A ROUTINE NO=F 16 0018 0F FCB $0F 17 0019 27 FA BEQ LOOP LOOP UNTIL A KEY IS PUSHED 18 001B 103F SWI2 CALL "RDCHR" ROUTINE 19 001D 4A FCB $4A MAP NO=A ROUTINE NO=7 20 001E 07 FCB $07 21 001F 3F SWI 22 END
コメントをかく