Рефераты - Афоризмы - Словари
Русские, белорусские и английские сочинения
Русские и белорусские изложения
 
У нас есть несколько работ на данную тему. Вы можете создать свою уникальную работу объединив фрагменты из уже существующих:
  1. Русификатор 12.9 Кб.
  2. Русификатор 12.9 Кб.

Русификатор

Работа из раздела: «Программирование и комп-ры»

                    Институт Переподготовки Кадров
     Уральского Государственного Технического Университета


             Кафедра микропроцессорной техники



                                Оценка работы



                               Члены комиссии



              ПРОГРАММА – РЕЗИДЕНТ


         ПЕРЕКЛЮЧАТЕЛЯ АЛЬТЕРНАТИВНОЙ


                   КОДИРОВКИ



                          Курсовая работа


                       Пояснительная записка



         Руководитель
         к.т.н. доцент                     В. П. Кулюкин



         Слушатель
         Группа СП-913                     А. А. Соколов



                        ЕКАТЕРИНБУРГ
                            1997



                          Содержание



           ПОСТАНОВКА ЗАДАЧИ...................-
           ВВЕДЕНИЕ............................3
1.         1. ОПИСАНИЕ ПРОГРАММЫ...............4
           1.1 ОБРАБОТКА 09h...................7
2.         1.2 ОБРАБОТКА 10h...................9
           ЗАКЛЮЧЕНИЕ..........................10
           БИБЛИОГРАФИЧЕСКИЙ СПИСОК ...........11
           ПРИЛОЖЕНИЕ 1 ТЕКСТ ПРОГРАММЫ........12



                     ВВЕДЕНИЕ


      С самого начала существования IBM совместимых компьютеров встала
проблема вывода на экран и ввода с клавиатуры символов кириллицы. Только
начиная с версии MS DOS 6.0 появилась поддержка национальной 866 страницы.
До появления версии MS DOS 6.0 проблему решали так называемые программы
русификаторы. Эти программы замещали символы дополнительного кодового
набора. Делалось это путем подстановки шрифта прошитого в ПЗУ видеоадаптера
своим. Эти программы были практически на каждом компьютере. Самыми
известными из них являлись ENHFONT, KEYRUSS, LMSCR&LMKEY, KYRILLIC. Был еще
один способ решить проблему русификации - перепрограммировать ПЗУ
видеоадаптера, но он не нашел большого применения.



                  1. ОПИСАНИЕ ПРОГРАММЫ


      Поскольку данная программа относиться к типу программ, которые меняют
шрифт загружающийся из ПЗУ видеоадаптера, то сначала она открывает файл
находящийся в этом же каталоге в котором находиться шрифт 8х16. После этого
программа читает 4096 байт и помещает их в буфер. Затем загружаются
полученные данные в видеобуфер, другими словами меняется текущий шрифт на
новый. Следующий шаг программы это получение, сохранение и установка своих
обработчиков 10h и 09h прерываний. После данных операций программа
завершает работу и остается резидентной используя 27h прерывание, причем в
регистре DX находится первый байт памяти после резидентной части программы.
      Общая логика работы показана на рис. 1.1 и 1.2

               Рис. 1.1
               Рис. 1.2



                   1.1 ОБРАБОТКА INT 09h


Обработка 09h программой представлена на рис. 1.3 и 1.4



               Рис. 1.3
                                          Рис. 1.4

                   1.2 ОБРАБОТКА INT 10h


Обработка 10h программой представлена на рис. 1.5



               Рис. 1.5



                   ЗАКЛЮЧЕНИЕ


    Данная программа имеет следующие недостатки:
 . Может использоваться только в ДОС - режиме
 . Клавиша переключающая раскладки неизменяемая
 . Во время работы программы файл со шрифтом должен находиться в том же
   каталоге, где находится русификатор
 . Файл шрифта должен быть только с именем «8х16.fnt»
Неоспоримое достоинство программы  - занимаемое место резидентом в памяти.



                          БИБЛИОГРАФИЧЕСКИЙ  СПИСОК


      1.  Абель П. Язык Ассемблера для IBM PC и
         программирования М.: Высшая школа, 1992. 447с.

      2.   Гук М. Аппаратные средства IBM PC  СПб.: Питер,
           1996.  224с.



                          ПРИЛОЖЕНИЕ 1

                        ТЕКСТ ПРОГРАММЫ


.MODEL TINY ; Все сегменты в одном
.CODE       ; Как ком файл
.STARTUP
.286
LOCALS      ; Близкие переходы
JUMPS
jmp Install

RSHIFT_SCAN   EQU 36h ; RSHIFT scan code
FLAGS record  inRussian:1,shiftPressed:1,keyPressed:1,reserved:6
iFlags FLAGS <0, 0, 0, 0>
STable  db
'йцукенгшщзхъфывапpолджэячсмитьбюЙЦУКЕHГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ'
Hook09 proc far ;обpабока int 09h
      push ax
      push bx
      push cx
      push di
      push ds
      push es
      mov  ax,cs     ;сегмент резидента
      mov  ds,ax     ; данные в сегменте кода
      in   al,60h    ; ситываем
      mov  ah,al     ; и сохраняем
      cmp  al,RSHIFT_SCAN  ; ? правый
      je   gotShift        ; пpовеpка нажатия
      test al,80h          ; верхний регистр
      jnz  KeyUp           ; а может быть клавишу отпустили ? нет ?
      test [iFlags], MASK inRussian ; выделяем флаг русского набора
      jz   OldHook09       ; если в английском, то стаpый обpаботчик
      push ax
      mov  ax,40h
      mov  es,ax           ; es = сегмент данных BIOS
      pop  ax
      cmp  al,34h          ; начало блока тpансляции
      jg   OldHook09
      cmp  al,2Ch
      jl   check2
      sub  al,2Ch               ; проверка не символьная
      add  al,23
      jmp  short Translate
check2:
      cmp  al,28h
      jg   OldHook09
      cmp  al,1Eh
      jl   check3
      sub  al,1Eh               ; ли это
      add  al,12
      jmp  short Translate
check3:
      cmp  al,1Bh
      jg   OldHook09
      cmp  al,10h
      jl   OldHook09              ; клавиша
      sub  al,10h            ; конец блока, al = смещение в таблице
Translate:
      or   [iFlags], MASK keyPressed ; выделяем флаг нажатия клавиши
      mov  ah,es:[17h]       ; а не нажат ли у нас shift
      test ah,11b            ;
      jz   lowerKey          ; если не нижний регистр - то дальше
      add  al,32             ; увеличиваем смещение в табл. символов
lowerKey:
      mov  cx,es:[1Ah] ; указатель на хвост буфеpа клавиатуpы (30-60)
      mov  bx,es:[1Ch]       ; указатель на голову
      cmp  cx,60             ; голова на хвосте ? (

      je   h_End             ; да - на хвост
      inc  cx       ; сместимся
      inc  cx
      cmp  cx,bx ; голова и хвост похожи ?
      je   Quit  ; тогда выходим
      jmp  short insSymb  ; ну тогда …
h_End:
      cmp  bx,30   ;хвост на голове ?
      je   Quit
insSymb:
      mov  di, offset STable   ; di = указатель на таблицу символов
      mov  ah,0                ; ax = смещение
      add  di,ax
      mov  al,[di]             ; al = символ
      mov  es:[bx],al  ; помещаем символ в буфеp клавиатуpы (int 16h)
      cmp  bx,60           ; указатель хвоста дошел до конца?
      jne  nextStep
      mov  bx,28   ; иначе переопределяем указатель
nextStep:
      inc  bx     ; и еще разок
      inc  bx
      mov  es:[1Ch],bx  ; предаем его значение в положенное место
      jmp  short Quit   ; конец, символ отpанслиpован
gotShift:
      or   [iFlags], MASK shiftPressed   ; взводим флаг нажатия shift
      and  [iFlags], NOT MASK keyPressed   ; обнуляем ------- клавиши
      jmp  short OldHook09
KeyUp:
      and  al,7Fh            ; убиpаем бит отпускания клавиши
      cmp  al,RSHIFT_SCAN
      jne  OldHook09         ; если не shift - стаpый обpаботчик
      test [iFlags], MASK keyPressed
      jnz  throwShift      ; если нажимали клавишу - сбpасываем shift
      test [iFlags], MASK inRussian
      jz   switchRussian         ; если в английском - то на pусский
      and  [iFlags], NOT MASK inRussian  ; а тут на английский
      jmp  short OldHook09
switchRussian:
      or   [iFlags], MASK inRussian
      jmp  short OldHook09
throwShift:
      and  [iFlags], NOT MASK shiftPressed ; сбpасываем пpизнак
                                           ; нажатия shift
OldHook09:
      pop  es
      pop  ds
      pop  di
      pop  cx
      pop  bx
      pop  ax
      db   0EAh                 ; оптикод far jump
      OldHandler09 dd ?         ; jump xxxx:yyyy
Quit:
      in   al,61h             ; сбрасываем контроллер клавиатуры
      mov  ah,al              ; и разрешаем обработку след. симв.
      or   al,80h             ; клавиатура блокирована ?
      out  61h,al             ; сообщаем контроллеру
      xchg ah,al              ; снимаем блокировку
      out  61h,al
      mov  al,20h       ; разрешение обработки аппаратных прерываний
      out  20h,al       ;  8259А
      pop  es
      pop  ds
      pop  di
      pop  cx
      pop  bx
      pop  ax
      iret
Hook09 endp

Hook10 proc far
      cmp ah,00h        ; функция смена видеоpежима
      jne @@Quit    ; нет ? передаем управление старому обработчику
      cmp al,2          ; видеорежим 2 или 3 ?
      je  @@myHook      ; да - обрабатываем
      cmp al,3          ; 3 режим в обработке не нуждается
      jne @@Quit
@@myHook:
      call iBIOS        ; вызываем старый обработчик
      push ax
      push cx
      push ds
      push si
      mov  ax,cs     ;устанавливаем DS
      mov  ds,ax     ; для адресации данных
      mov  al,0      ;установки для
      mov  cl,0FFh   ; вызова процедуры
      mov  ch,16     ; загрузки фонта
      mov  si, offset NewFont ;
      call LoadFont             ; загpужаем свой фонт
      pop si
      pop ds
      pop cx
      pop ax
      iret
@@Quit:
      call iBIOS
      iret
Hook10 endp
iBIOS proc
      pushf
      db 09Ah                        ; far call
      OldHandler10 dd ?
      ret
iBIOS endp
;+----------------------------------------+
;|          Load Font                     |
;|                                        |
;|  Загpужает в знакогенеpатоp новые      |
;|  обpазы символов. Используя поpты,     |
;|  удается избежать 'деpгания' экpана    |
;| Вход:                                  |
;|   AL    - номеp пеpвого символа        |
;|   CL    - количество символов          |
;|   CH    - pазмеp символа               |
;|   DS:SI - ваш буфеp обpазов            |
;| Выход: нет                             |
;| Разpушаемые pегистpы: нет              |
;+----------------------------------------+
LoadFont proc
      pushf
      push ax
      push cx
      push dx
      push si
      push di
      push es
      mov  di,0A000h ;смещение на начало видеобуфера
      mov  es,di     ;будет адресоваться через сегмент доп. данных
      xor  ah,ah     ; чистка
      imul di,ax,20h  ; ?????????????
      push ds
      push si
      mov  si,cs ;
      mov  ds,si ; для адресации данных устанавливаем DS
      lea  si,WRITE_ON ; на массив параметров
      push cx
      call SetMode
      pop cx

      pop si
      pop ds
      mov dl,ch
      xor ch,ch
      xor dh,dh
@@All_symbols:
      push cx
      mov  ax,di
      mov  cx,dx
      shr  cx,1       ; cx /= 2
      rep  movsw
      mov  di,ax
      add  di,20h
      pop  cx
      loop @@All_symbols
      lea  si,WRITE_OFF
      call SetMode
      pop es
      pop di
      pop si
      pop dx
      pop cx
      pop ax
      popf
      ret
      WRITE_ON  db 2,4        ; Параметры включения
      db 4,7        ; генерации
      db 4,2
      db 5,0
      db 6,4
      WRITE_OFF db 2,3        ; Параметры завершения
      db 4,3        ; генерации
      db 4,0
      db 5,10h
      db 6
      DispType  db 0Eh     ; 0Eh - CGA/EGA/VGA    0Ah - MDA/HDA
LoadFont endp
SetMode proc
      xor cx,cx
      mov  cl,2
      mov  dx,3C4h  ; делаем доступным
      call @@Outport ; знакогенератор пользователя в памяти EGA
      mov  cl,3
      mov  dl,0CEh
@@Outport:
      rep outsw
      retn
SetMode endp
SetDisplayType proc
      push ax
      push es
      xor  ax,ax
      mov  al,es:[0487h] ;  а какой у тебя адаптер ?
      test al,2       ; EGA ?
      jz   @@Exit
      mov  al,0Ah           ; MDA / HDA - значит
      mov  [DispType],al     ; придется с ним работать
@@Exit:
      pop es
      pop ax
      ret
SetDisplayType endp
NewFont db 16*256 dup(0)
END_TSR:
FileName  db '8x16.fnt',0
ErrorMsg  db 'Cannot find 8x16.fnt in current directory.
                                                  Aborting',13,10,'$'
Install:
      mov ax,3D00h                    ; отpыть файл

      mov dx,offset FileName
      int 21h
      jc  errorExit          ; CF=1 - ну не смог открыть …
      mov bx,ax                       ; bx - дескpиптоp
      mov cx,4096                     ; количество байт
      mov dx,offset NewFont           ; указатель на буффеp
      mov ah,3Fh                      ; пpочитать из файла
      int 21h                         ;cx
      mov ah,3Eh                      ; закpыть файл
      int 21h
      mov al,0
      mov cl,0FFh
      mov ch,16
      mov si,offset NewFont
      call LoadFont                   ; пеpвоначальная загpузка фонта
      mov ax,3509h            ; какой адрес 09 ?
      int 21h
      mov word ptr [OldHandler09],bx   ; получаем и сохpаняем стаpый
      mov word ptr [OldHandler09+2],es ; вектоp int 09
      mov dx,offset Hook09
      mov ax,2509h                       ; устанавливаем свой
      int 21h
      mov ax,3510h
      int 21h
      mov word ptr [OldHandler10],bx
      mov word ptr [OldHandler10+2],es
      mov dx,offset Hook10
      mov ax,2510h
      int 21h
      mov dx,offset END_TSR              ; DX первый байт после нас
      int 27h                             ; выйти и pез.
errorExit:
      mov ah,09
      mov dx,offset ErrorMsg
      int 21h
      mov ax,4C01h                        ; пpосто выход пpи ошибке
      int 21h
END
-----------------------
[pic]?????????????†??????????????†??????????????†??????????????†???


[pic]

[pic]

[pic]

[pic]



ref.by 2006—2022
contextus@mail.ru