Subversion Repositories pentevo

; LAST UPDATE: 18.10.2023 savelij

;#INCLUDE "ALLVARS.ASH"

_KB_INT:        RET

KB_INIT:       JP      _KB_INIT

KB_SCAN:       JP      _KB_SCAN

KB_ENCODE:     JP      _KB_ENCODE

KB_GET_SHIFTS: JP      _KB_GET_SH

KB_SET_RUS:    JP      _KB_SET_RUS

;#INCLUDE "KB_SH.INC"

KB_TIME         EQU K_5CNT;#DEFINE KB_TIME K_5CNT

_KB_TIME        EQU _K_5CNT;#DEFINE _KB_TIME _K_5CNT

;#PRAGMA LOCAL

;----------------------------------------

; LOCALS

_IN:      EX   AF,AF'

           LD   A,55H

           IN   A,(0FEH)

           EX   AF,AF'

           IN   A,(0FEH)

           RET

_IN        MACRO V

           LD   A,V

           CALL _IN

           ENDM

;----------------------------------------

; INIT KEYBOARD (STANDARD ENTRY)

_KB_INIT:  _IN  8

           LD   A,8AH

           IN   A,(0FEH)

           _IN  1

           CP   10H

           JR   NC,ABORT

           XOR  A

           RET

ABORT:     CALL PRN

           DB   1BH,"M1VE31 not installed",0DH,0AH,0

           DI

           HALT

;----------------------------------------

; SCAN KEYBOARD

; IN  E&1 - WAIT FOR SYM, E&2 - WAIT FOR SHIFTS

;

; RET A-FF NO,0-KEY, 1-SHIFT

;     L-CHAR/0

_KB_SCAN:

        BIT     _INTOF,(IX-_FLAG1)

        JR      Z,__NOCHECK

        LD      A,(IX-_TIME_C)

        CP      (IX-_KB_TIME)

        LD      (KB_TIME),A

        JR      Z,__NOALL

__NOCHECK:

           LD   BC,0FEH

           IN   A,(C)

           LD   B,40H

           IN   L,(C)

           LD   B,80H

           IN   H,(C)

           PUSH DE

           LD   DE,(KS_ASH)

           LD   (KS_ASH),HL

           OR   A

           SBC  HL,DE

           POP  DE

           JR   NZ,__SHIFT

           OR   A

           JR   NZ,__SYM

__NOALL:   INC  E

           DEC  E

           JR   NZ,_KB_SCAN

           LD   A,-1

__R1:      LD   L,0

__RET:     LD   DE,(KS_ASH)

_RET1:     EX   AF,AF'

           LD   A,D

           AND  15

           OR   E

           LD   E,A

           EX   AF,AF'

           RET

__SYM:     LD   L,A

           LD   A,0

           JR   __RET

__SHIFT:   OR   A

           JR   NZ,__SYM

           BIT  1,E

           JR   Z,_KB_SCAN

           LD   A,1

           JR   __R1

;-------------------------------

_KB_GET_SH:_IN  9

           LD   E,A

           _IN  49H

           LD   D,A

           LD   (KS_ASH),DE

           XOR  A

           JR   _RET1

;---------------------------------------

_KB_SET_RUS:

           OR   A

           LD   A,55H

           IN   A,(0FEH)

           LD   A,0BH

           JR   Z,KSR_1

           DEC  A

KSR_1:       IN   A,(0FEH)

           JP   _KB_GET_SH

;---------------------------------------

_KB_ENCODE:LD   HL,ENC_TABL

           XOR  A

           RET

ENC_TABL

        ENT_DEF ED_PROC,ED_CHAR,ED_CHAR,ED_CHAR

           ENT_DEF ED_PROC,ED_PROC,ED_PROC,ED_PROC

           ENT_DEF ED_PROC,ED_CHAR,ED_CHAR,ED_CHAR

           ENT_DEF ED_CHAR,ED_CHAR,ED_PROC,ED_PROC

           DB  0,0

           DW   PALT                         ; HI BIT ENCODER

           DW   TRP                          ; RUS      PUNCT

           DW   TRSP                         ; RUS+SHFT PUNCT

           DW   TRLET                        ; RUS      LETTER

           DW   0                            ; RUS+SHFT LETTER

           DW   NRET                         ;          OTHERS

           DW   NRET                         ; SHFT     OTHERS

           DW   NRET                         ; RUS      OTHERS

           DW   NRET                         ; RUS+SHFT OTHERS

           DW   TCCTRL                       ; CTRL     CONTROLL

           DW   TSDIG                        ; SHFT     DIGITS

           DW   TCDIG                        ; CTRL     DIGITS

           DW   TRSDIG                       ; RUS+SHFT DIGITS

           DW   TSP                          ; SHFT     PUNCT

           DW   PCP                          ; CTRL     PUNCT

           DW   NRET                         ; CTRL     OTHERS

PALT:      LD   L,-1

           BIT  B_KS_NUM,(IX-_KS_ASH)

           RET  NZ

           CP   "."

           JR   NZ,PALT_1

           LD   A,"y"

           RET

PALT_1:       CP   "0"

           RET  C

           CP   0X39+1;'9'+1

           RET  NC

           LD   HL,TALT-0X30;'0'

           CALL ADD_HL_A

           LD   A,(HL)

SRET:      LD   L,-1

           RET

NRET:      XOR  A

CRET:      LD   L,0

           RET

TALT:      DB   "xwqur",0,"svpt"

PCP:       CP   "@"

           JR   C,NRET

           AND  1FH

           LD   L,0

           RET

TRP:       DB 0X88,     "`;',.[]",0X5C,"(v|b`h",0X7F,0

;ED_tab "`;',.[]",0X5C <"(v|b`h", 127,0> 1

TRSP:      DB 0X8A,     "`;',.[]=",0X5C,"/",")V",0X5C,"B@H_+",0,"?"

;ED_tab "`;',.[]=",0X5C,"/" <")V0x5CB@H_+",0,"?"> 1

TRLET:     DB 0,        "fiswuapr{oldxt}zjkyegmc~nq"

;ED_tab "fiswuapr{oldxt}zjkyegmc~nq"

TCCTRL:    DB 0X81,     0X0D,0X0A

;ED_tab 0dh 0ah 1

TSDIG:     DB 0,        ")!@#$%^&*("

;ED_tab "")!@#$%^&*("

TCDIG:     DB 1,        "6",0X1E

;ED_tab "6" 1eh

TRSDIG:    DB 0,        "%!",0X22,"/$:,.;?"

;ED_tab "%!",0X22,"/$:,.;?"

TSP:       DB 0X0B,     "`;',.[]-=",0X5C,"/","~:",0X22,"<>{}_+|?"

;ED_tab "`;',.[]-=",0X5C,"/" "~:",0X22,"<>{}_+|?"