S1 Wiki

かな漢字変換モードと半角入力専用モードの切り替えを行います。

下記の2モードの切り替えを行います。

全角および半角入力可	←AccA=0	半角のみ入力可
ガイダンス	AccA=1→
かな漢字変換モード(縦19行)		半角入力専用モード(縦20行)

• AccA:文字列データが格納されているアドレス空間番号
  • 0…かな漢字変換モード
  • 1…半角入力専用モード

かな漢字変換モードを設定しキー入力を待ちます。
ESCキーが入力されたら、半角入力専用モードに切り替えてプログラムを終了します。
それ以外のキー入力の場合は、入力された文字を表示して再度キー入力を待ちます。

 0           0000   KMDCHG  EQU  *          --SAMPLE OF "KMDCHG" ROUTINE--
 1           EFE9   FILNUM  EQU  $EFE9
 2 0000   20 22             BRA  DOSP
 3 0002      2A2A   MESG    FCC  /*** MODE CHANGE -> ESC KEY ***/
 4 0004      2A20
 5 0006      4D4F
 6 0008      4445
 7 000A      2043
 8 000C      4841
 9 000E      4E47
10 0010      4520
11 0012      2D3E
12 0014      2045
13 0016      5343
14 0018      204B
15 001A      4559
16 001C      202A
17 001E      2A2A
18 0020      0D0A           FDB  $0D0A      MESSAGE END CODE
19 0022      00             FCB  $00
20 0023      0F     MAPNO   FCB  $0F        CURRENT MAP=$0F
21           0024   DOSP    EQU  *          PROGRAM START
22 0024   4F                CLRA            SET KANA-KANJI
23                  *                               COVERSION MODE
24 0025 103F                SWI2            CALL "KMDCHG" ROUTINE
25 0027      47             FCB  $47
26 0028      53             FCB  $53
27 0029   30 8CD6           LEAX MESG,PCR   X = TOP ADDR OF MESSAGE AREA
28 002C   A6 8CF4           LDA  MAPNO,PCR  A = MAP NO.(15)
29 002F   5F                CLRB
30 0030   F7 EFE9           STB  FILNUM     FILNUM = 0 (DISPLAY OUT)
31 0033 103F                SWI2            CALL "KSTOUT2" ROUTINE
32 0035      41             FCB  $41
33 0036      39             FCB  $39
34 0037 103F        INKEY   SWI2            CALL "KKBDIN" ROUTINE
35 0039      41             FCB  $41
36 003A      02             FCB  $02
37 003B   81 1B             CMPA #$1B       IF A=$1B
28 003D   27 06             BEQ  CHGMD      THEN CHANGE MODE
39 003F 103F                SWI2            CALL "KOUTSTR" ROUTINE
40 0041      41             FCB  $41
41 0042      05             FCB  $05
42 0043   20 F2             BRA  INKEY
43 0045   86 01     CHGMD   LDA  #$01       SET NON KANA-KANJI
44                  *                               COVERSION MODE
45 0047 103F                SWI2            CALL "KMDCHG" ROUTINE
46 0049      47             FCB  $47
47 004A      53             FCB  $53
48 004B   39                RTS
49                          END