Программа-переключатель кодировки

ПРОГРАММА РЕЗИДЕНТ ПЕРЕКЛЮЧАТЕЛЯ АЛЬТЕРНАТИВНОЙКОДИРОВКИ ВВЕДЕНИЕ С самого началасуществования IBM совместимых компьютеров всталапроблема вывода на экран и ввода с клавиатуры символов кириллицы. Тольконачиная с версии MS DOS 6.0 появилась поддержканациональной 866 страницы. До появления версии MS DOS 6.0 проблему решали так называемые программырусификаторы.

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

ПЗУ видеоадаптера, но он не нашел большого применения.ОПИСАНИЕ ПРОГРАММЫ Посколькуданная программа относиться к типу программ, которые меняют шрифт загружающийсяиз ПЗУ видеоадаптера, то сначала она открывает файл находящийся в этом жекаталоге в котором находиться шрифт 8х16. После этого программа читает 4096байт и помещает их в буфер. Затем загружаются полученные данные в видеобуфер,другими словами меняется текущий шрифт на новый.

Следующий шаг программы этополучение, сохранение и установка своих обработчиков 10h и 09h прерываний.После данных операций программа завершает работу и остается резидентнойиспользуя 27h прерывание, причем в регистре DX находится первый байт памяти после резидентной частипрограммы. Общая логикаработы показана на рис. 1.1 и 1.2 Рис. 1.1 Рис. 1.1 ОБРАБОТКА INT 09hОбработка 09hпрограммой представлена на рис.

1.3 и 1.4 Рис. 1.3 Рис. 41.2 ОБРАБОТКА INT 10hОбработка 10hпрограммой представлена на рис. 1.5 Рис. 1.5ЗАКЛЮЧЕНИЕ Даннаяпрограмма имеет следующие недостатки Может использоваться только в ДОС - режимеКлавиша переключающая раскладки неизменяемаяВо время работы программы файл со шрифтом долженнаходиться в том же каталоге, где находится русификаторФайл шрифта должен быть только с именем 8х16.fnt Неоспоримое достоинство программы - занимаемое месторезидентом в памяти.

ПРИЛОЖЕНИЕ 1 MODEL TINY Все сегменты в одном.CODE Как ком файл.STARTUP.286InstallRSHIFT SCAN EQU 36h RSHIFT scan codeFLAGS recordinRussian 1,shiftPressed 1,keyPressed 1,reserved 6iFlags FLAGS lt 0,0, 0, 0 gt STable db йцукенгшщзхъфывапpолджэячсмитьбюЙЦУКЕHГШ ЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ Hook09 proc far обpабока int 09hpush axpush bxpush cxpush dipush dspush esmov

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 , MASKinRussian выделяем флаг русского набораjz OldHook09 еслив английском, то стаpый обpаботчикpush axmov ax,40h mov es,ax es сегмент данных BIOSpop axcmp al,34h началоблока тpансляцииjg

OldHook09 cmp al,2Chjl check2sub al,2Ch проверкане символьнаяadd al,23 jmp short Translatecheck2 cmp al,28hjg OldHook09cmp al,1Ehjl check3sub al,1Eh ли это add al,12jmp short Translatecheck3 cmp al,1Bhjg OldHook09cmp al,10h jl OldHook09 клавишаsub al,10h конецблока, al смещение в таблицеTranslate or iFlags , MASKkeyPressed выделяем флаг нажатия клавишиmov ah,es 17h ане нажат ли у нас shifttest ah,11b jz lowerKey

еслине нижний регистр - то дальшеadd al,32 увеличиваем смещение в табл. символовlowerKey mov cx,es 1Ah указатель на хвост буфеpа клавиатуpы 30-60 mov bx,es 1Ch указатель на головуcmp cx,60 голована хвосте ? Jje h End да - нахвостinc cx сместимсяinc cxcmp cx,bx голова ихвост похожи ?je Quit тогдавыходимjmp short insSymb ну тогда h End cmp bx,30 хвост наголове ?je QuitinsSymb mov di, offsetSTable di указатель на таблицу символовmov ah,0 ax смещениеadd di,axmov al,

di al символmov es bx ,al помещаем символ в буфеp клавиатуpы int 16h cmp bx,60 указатель хвоста дошел до конца?jne nextStepmov bx,28 иначепереопределяем указательnextStep inc bx и еще разокinc bxmov es 1Ch ,bx предаем его значение в положенное местоjmp short Quit конец, символ отpанслиpованgotShift or iFlags , MASKshiftPressed взводим флаг нажатия shiftand iFlags ,

NOTMASK keyPressed обнуляем клавишиjmp short OldHook09KeyUp and al,7Fh убиpаембит отпускания клавишиcmp al,RSHIFT SCANjne OldHook09 еслине shift - стаpый обpаботчикtest iFlags , MASKkeyPressedjnz throwShift еслинажимали клавишу - сбpасываем shifttest iFlags , MASKinRussianjz switchRussian если в английском - то на pусскийand iFlags , NOTMASK inRussian а тут на английскийjmp short OldHook09switchRussian or iFlags ,

MASKinRussianjmp short OldHook09throwShift and iFlags , NOTMASK shiftPressed сбpасываем пpизнак нажатия shiftOldHook09 pop espop dspop dipop cxpop bxpop axdb 0EAh оптикодfar jumpOldHandler09 dd ? jump xxxx yyyyQuit 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

espop dspop dipop cxpop bxpop axiretHook09 endpHook10 proc farcmp ah,00h функциясмена видеоpежимаjne Quit нет ?передаем управление старому обработчикуcmp al,2 видеорежим 2 или 3 ?je myHook да -обрабатываемcmp al,3 3 режим вобработке не нуждаетсяjne Quit myHook call iBIOS вызываем старый обработчикpush axpush cxpush dspush simov ax,cs устанавливаем DSmov ds,ax дляадресации данныхmov al,0 установкидля mov cl,0FFh вызовапроцедурыmov ch,16 загрузкифонтаmov si, offsetNewFont call

LoadFont загpужаем свой фонтpop sipop dspop cxpop axiret Quit call iBIOSiretHook10 endpiBIOS procpushfdb 09Ah far callOldHandler10 dd ?retiBIOS 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 procpushfpush axpush cxpush dxpush sipush dipush esmov di,0A000h смещение на начало видеобуфераmov es,di будетадресоваться через сегмент доп. данныхxor ah,ah чисткаimul di,ax,20h push dspush simov si,cs mov ds,si дляадресации данных устанавливаем DSlea si,WRITE ON на массив параметровpush cxcall SetModepop cxpop sipop dsmov dl,chxor ch,chxor dh,dh

All symbols push cxmov ax,dimov cx,dxshr cx,1 cx 2rep movswmov di,axadd di,20hpop cxloop All symbolslea si,WRITE OFFcall SetModepop espop dipop sipop dxpop cxpop axpopfretWRITE ON db 2,4 Параметры включенияdb 4,7 генерацииdb 4,2db 5,0db 6,4WRITE OFF db 2,3 Параметры завершенияdb 4,3 генерацииdb 4,0db 5,10hdb 6DispType db 0Eh 0Eh - CGA EGA VGA 0Ah - MDA HDALoadFont endpSetMode procxor cx,cxmov cl,2mov dx,3C4h делаемдоступнымcall

Outport знакогенератор пользователя в памяти EGAmov cl,3mov dl,0CEh Outport rep outswretnSetMode endpSetDisplayType procpush axpush esxor ax,axmov al,es 0487h акакой у тебя адаптер ?test al,2 EGA ?jz Exitmov al,0Ah MDA HDA - значитmov DispType ,al придется с ним работать Exit pop espop axretSetDisplayType endpNewFont db 16 256dup 0

END TSR FileName db 8x16.fnt ,0ErrorMsg db Cannot find 8x16.fnt in current directory. Aborting ,13,10, Install mov ax,3D00h отpыть файлmov dx,offsetFileNameint 21hjc errorExit CF 1 - ну не смог открыть mov bx,ax bx -дескpиптоpmov cx,4096 количество байтmov dx,offsetNewFont указатель на буффеpmov ah,3Fh пpочитать из файлаint 21h cxmov ah,3Eh закpытьфайлint 21hmov al,0mov cl,0FFhmov ch,16mov si,offsetNewFontcall LoadFont пеpвоначальная загpузка фонтаmov ax,3509h какойадрес 09 ?int 21hmov

word ptr OldHandler09 ,bx получаем и сохpаняем стаpый mov word ptr OldHandler09 2 ,es вектоp int 09mov dx,offset Hook09mov ax,2509h устанавливаем свойint 21hmov ax,3510hint 21hmov word ptr OldHandler10 ,bxmov word ptr OldHandler10 2 ,esmov dx,offset Hook10mov ax,2510hint 21hmov dx,offsetEND TSR DX первый байт после насint 27h выйти иpез.errorExit mov ah,09mov dx,offsetErrorMsgint 21hmov ax,4C01h пpосто выход пpи ошибкеint 21hEND