ACNews #08 18 июня 2002

Софт

Soft - support for enhanced keyboard in ACEdit computer models "SPARK" and "allophone."

---------------------- Extend keyboard ------------------------

   I kept forgetting to write that a strange keyboard mode is 
supported in ACE, starting with version 0.51. 

   (And if it supports? Not checked ...)


   Satan before he left the army, was engaged in reworking
Editor for different layouts. Layout number 3, he has done for
your computer. At the time the scheme was extended to connect 
extended keyboard (additional Russian letters) on the unused 
port 5 bit # fe. For the first time such a keyboard appeared on 
the computer models "SPARK" and "allophone." Support for such a 
keyboard first appeared in the first versions of IS-DOS; there 
and you can find it the most complete description. 

EXTKEYB LD A, (FLGKEY +1)

        INC A

        AND 4

        RET Z

        LD A, # DF

        IN A, (-2)

        AND 32

        LD D, A

        LD A, -9

        CALL INER

        LD A, # EF

        CALL INER

        LD A, # BF

        CALL INER

        LD A, # 7F

        CALL INER

        LD A, -3

        CALL INER

        LD A, -5

        IN A, (-2)

        AND 32

        RLCA

        RLCA

        OR D

        LD D, A

        LD A, -2

        IN A, (-2)

        AND 32

        RLCA

        OR D

        CPL

        AND A

        RET Z

        LD E, -3

        INC E, E, E

        RRCA

        JR NC, $ -4

        PUSH HL

        LD HL, 23658

        LD A, # 7F

        IN A, (-2)

        RRA

        RRA

        JR NC, ext3

        INC E

        LD A, -2

        IN A, (-2)

        RRA

        JR NC, ext3

       BIT 3, (HL);???

        JR NZ, $ +3

        INC E
ext3 LD D, 0

        BIT 0, (HL)

        LD HL, D5TABR

        JR Z, $ +5

        LD HL, D5TABL

        ADD HL, DE

        XOR A

        OR (HL)

        LD (23560), A

        POP HL

        HALT

        HALT

        RET
INER IN A, (-2)

        AND 32

        RRC D

        OR D

        LD D, A

        RET


        ; SS CAP NORM
D5TABL DEFB 34,34,34; dffe

        DEFB "___; f7fe

        DEFB "{[[; effe

        DEFB "}]]; bffe

        DEFB "| \; 7ffe

        DEFB "@ ``; fdfe

        DEFB 7,7,7; fefe

        DEFB "^ ^ ^; fbfe
D5TABR DEFB 34, "XX

        DEFB "_

        DEFB "{LJ

        DEFB "} Uh

        DEFB "| Bb

        DEFB "@ Yuyu

        DEFB 7,7,7

        DEFB "^ Her