|
23 апреля 1998 |
|
╔══════════════════════════════════════════════════════════════╗ ║ Кодинг. ║ ╙──────────────────────────────────────────────────────────────╜ (C) EVP-SOFT Всем привет. После долгого перерыва снова вышла рубрика "Ко- динг.". На этот раз я расскажу о выводе на экран 64 символов в строке. Все ассемблерные тексты в формате ALASM'а. И если какой-ни- будь там GENS не переваривает команду вроде LD A,LX, DUP или INCBIN, то не надо звонить мне с вопросами типа 'чем эту команду заменить?', а просто надо ставить 512 кб и переходить на ALASM. Для начала подготовим фонт. Для повышения скорости вывода фонт надо из обычного формата (когда 8 байт каждого символа ле- жат друг за другом) конвертировать в "треть экрана", т.е. чтобы между байтами одного знака было смещение #100. Тогда адрес знака будет вычислятся так: LD H,0 LD L,код символа LD BC,FONT ADD HL,BC в HL теперь первый байт, для следующего просто делаем INC H А если не сконвертировать фонт, то тогда код знака сначала надо умножить на восемь - а это лишние 33 такта: LD H,0 LD L,код символа LD BC,FONT ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,BC в HL теперь первый байт, для следующего делаем INC HL, но если фонт расположить по адресу, кратному 8, то можно INC L Ну а конвертируется фонт такой вот процедурой: ORG #6400,0 LD HL,#8000 LD DE,#4000 LD BC,256 M1 PUSH HL PUSH DE PUSH BC LD B,8 M2 LD A,(HL) LD (DE),A INC L INC D DJNZ M2 POP BC POP DE POP HL DEC BC INC E DUP 8 INC HL EDUP LD A,C OR B JR NZ,M1 RET ORG #8000,0 INCBIN "FontбЧ.C" ;подгрузка обычного фонта Ассемблируем, потом вызываем STS. Там делаем CALL #6400, за- тем сохраняем полученный фонт командой SAVE "64$0.C" #4000,#800. Есть несколько вариантов печати. Можно хранить каждый символ в старшем полубайте, а потом, если вывод нечётный, то сдвигать его в помощью RRCA. Или можно в младшем полубайте хранить копию старшего, а перед выводом отбрасывать ненужную половину по мас- ке. Но самый быстрый способ вывода - это иметь в памяти два фон- та, один в старших полубайтах, а младшие пустые, второй соот- ветственно наоборот. Однако в теле программы, для лучшей упаковки, надо хранить только один фонт, а второй создавать перед запуском: FNT_EXT LD HL,FONTO ;адрес фонта LD DE,FONT1 ;адрес копии LD BC,#800 ;счётчик FNT1 LD A,(HL) ;берём байт RLCA ;сдвигаем старший полубайт в младший RLCA ; RLCA ; RLCA ; LD (DE),A ;кладём результат INC HL ;адреса следуюших INC DE ;байт DEC BC ;уменшаем счётчик LD A,C ;если в BC ещё OR B ;не ноль то JR NZ,FNT1 ;повтор цикла RET ;иначе возврат FONTO INCBIN "64$0.C" ;фонт имеющийся FONT1 DEFS #800 ;а тут будет второй фонт. Самый быстрый способ печати - это печатать сразу по два симво- ла. У этого способа есть, конечно, недостаток - иногда надо на- печатать всего один символ. Но в большинстве случаев надо напе- чать сразу целую строку, и тогда это получается намного быстрее. Эта процедура получает в HL начало строки, и печатает её, пока не встретит код CR (#0D), если строка короткая, то добивает её пробелами. При выходе в HL следующий после CR адрес. Итак: PRINT EX DE,HL ; сохраним адрес текста LD A,32 ;установим счётчик пустых знакомест LD (PRT_X),A ; Теперь вычислим координаты на экране. В COORD_Y заносим верти- кальную позицию, а в COORD_X - горизонтальную. Но на практике обычно горизонтальная позиция равна 0, и тогда блок обработки COORD_X можно исключить. Младший бит COORD_X должен быть равен 0, т.е. X-адрес только нечётный: LD A,0 COORD_Y EQU $-1 LD B,A AND #07 RRCA RRCA RRCA ; LD C,0 ;COORD_X EQU $-1 ; SRL C ; OR C LD L,A LD A,B AND #18 OR #40 LD H,A LD (PRT_WR),HL ;сохраним адрес знакоместа Берём два знака для печати: EX DE,HL ; возвращаем в HL адрес текста PRTS LD A,(HL) ; берём знак INC HL ; это на будущее CP #A JP Z,PRTS ; код LF игнорируем PRT1 CP #D JP Z,PRT18 ; нашли код CR - конец строки LD E,A ; сохраним первый символ в E PRT7 LD A,(HL) ; берём второй знак INC HL CP #A JP Z,PRT7 ; игнорируем LF CP #D JP NZ,PRTЧ ; если это не CR, то начинаем печать PRT13 DEC HL ; а если CR - то оставим его на первый цикл LD A,#20 ; ну а пока выведем пробел PRTЧ PUSH HL ; сохраним адрес текста LD L,A ;и начнём вычислять адреса символов в фонте LD H,0 LD BC,FONT1 ADD HL,BC ; вычислим второй(т.е. правый) символ EX DE,HL ; в DE будет адрес второго символа LD H,0 ; а в HL скоро появится первый LD BC,FONTO ADD HL,BC ; вычислим первый(т.е. левый) символ LD BC,0 ; в BC заранее подставили адрес печати PRT_WR EQU $-2 ; посредством метки PRT_WR LD A,C ; это на будущее, следующий адрес INC A ; печати, т.к. автоперевода строк тут LD (PRT_WR),A ; нет, то нам нужен только один байт DUP 8 ; сделаем раскладку LD A,(DE) ;берём второй символ OR (HL) ;на него накладываем первый LD (BC),A ;и всё это кладём уже на экран INC H ;находим адреса следующих INC D ;байт этих символов INC B ;переходим на следующую линию экрана EDUP ; конец раскладки ORG $-3 ; затрём 3 посл. команды посл. раскладки ; т.к. они в ней ненужны. PRT15 LD A,0 ; счётчик пустых знакомест, PRT_X EQU $-1 ; вначале тут будет подставлено 32 DEC A ; LD (PRT_X),A ; POP HL ;восстановим адрес текста JP PRTS ;и начнём вывод следующих двух символов А это процедура добивает пробелы в конце строки, очень полез- но, если снизу уже что-то было. Если это не надо, то просто уби- раем всё что связано со счётчиком пустых знакомест и меткой PRT_X, и где около метки PRT1 стоит JP Z,PRT18 вместо этого JP ставим RET Z. А иначе набиваем дальше: PRT18 LD A,(PRT_X) ;проверим наличие AND A ;пустых знакомест RET Z ;если нет, то возврат PUSH HL ;иначе сохраним адрес текста LD E,A ;в E будет кол-во знакомест для чистки XOR A LD HL,(PRT_WR) ;адрес на экране LD B,8 ;высота знакоместа конечно 8 линий PRT10 PUSH HL PUSH BC LD B,E PRT9 LD (HL),A INC L DJNZ PRT9 ;цикл очистки одного знакоместа 8x8(!) POP BC POP HL INC H DJNZ PRT10 ;цикл очистки оставшихся знакомест POP HL ;восстановим адрес текста RET ;и возврат Вот в качестве примера процедура 'LINE', которая выводит на экране сверху и снизу две полоски из символов "*": LINE XOR A LD (Y),A ; LD (X),A ;;;; смотри COODR_X LD HL,LIN1 ; CALL PRINT ; LD A,23 ; LD (Y),A ; ; XOR A ;;;; ; LD (X),A ;;;; LD HL,LIN1 CALL PRINT RET LIN1 DEFS 64,"*" DEFB #D Ну и раз уж начали тему вывода 64 символов, то сейчас я приве- ду пример и под IS-DOS. А именно новый драйвер 64 символов, в отличии от стандартного "tyбЧ.typ" этот будет печатать всю таб- лицу из 256 символов. Начнём с теории. Драйвер, как и резидент, должен иметь в конце слово #FFFF, после которого лежит таблица адресов, которые надо настроить при инсталяции (это делает set.com). Иначе, если в драйвере есть команды JP nn, LD a,(nn), LD HL,nn то его нельзя будет перемещать в памяти и система просто зависнет. Причём ад- реса в таблице на единицу меньше реальных, это сделано для упро- шения настройки команд тима JP nn, LD A,(nn) и аналогичных. В начале драйвера должна быть следующая таблица: DEFW адрес инсталляции, если 0 то не вызывается DEFW адрес ПП вывода символа на экран, входные данные: A - код символа, DE' - адрес на экране, а левый или правый надо считать самим. Выход: если был правый символ, то E'+1 DEFW адрес ПП управления инверсией: A:Z - нету, A:NZ - есть DEFW адрес ПП установки координат, вход: BC - лог.позиция, выход: DE' - адрес на экране, левый или правый символ - запомнить в драйвере. DEFB длина курсора в пикселях, это в данном случае 4. DEFW физ. координаты DEFW лог. координаты DEFB тип: 0-экран/1-принтер DEFW адрес ПП обработки ошибок. Итак, начнём создавать драйвер. ; ; Драйвер 64 символов в строке ; Под IS-DOS ; (C) EVP-SOFT at 1998.04.12 ; ORG 50000 DEFW 0 ; эта стандартная таблица, M5 EQU $-1 ; описание смотри выше. DEFW TTYOYT ; M6 EQU $-1 ; DEFW PRCPL ; M7 EQU $-1 ; DEFW PRADD ; DEFB 4,0,0,0,0,0 ; M13 EQU $-1 ; DEFW M12 ; Для ускорения печати фонт будет в "экранном формате" (см. в предыдущей статье). Но только надо будет старший полубайт про- дублировать в младший, т.к. в IS-DOS'е памяти нехватит, чтобы иметь два раздельных фонта. FONT INCBIN "64$0&1.C" Управление инверсией: PRCPL OR A JR Z,M4 LD A,#2F ;#2F - это код команды CPL M4 LD (M3),A M12 XOR A ;а сюда при случае будем передавать обработку RET ;ошибок. Т.е. просто их игнорировать А тут вычисляем координаты печати. PRADD SRL C SBC A,A ; определяем XOR #F0 ; левый или правый символ M9 LD (M1),A ; в знакоместе 8x8 LD A,B AND #07 RRCA RRCA RRCA OR C LD E,A LD A,B AND #18 OR #40 LD D,A EXX ; теперь в DE' будет адрес на экране RET ; и можно возвращаться Теперь дошла очередь и до ПП вывода на экран: TTYOYT EXX LD H,0 LD L,A M10 LD BC,FONT ADD HL,BC EX DE,HL LD BC,#0800 ; в B счётчик цикла M1 EQU $-2 ; в C маска выбора "левый или правый" M15 LD A,(DE) ;; M3 NOP ;в случае инверсии сюда заносим #2F, т.е. CPL AND C ;; XOR (HL) ;; AND C ;; ну тут всё как обычно. XOR (HL) ;; LD (HL),A ;; INC D ;; INC H ;; DJNZ M15 LD A,H ; восстановим начальный адрес SUB 8 ; LD D,A ; и вернём его в D, потом это будет D' LD A,C ; сменим маску с левого на правый или CPL ; наоборот M8 LD (M1),A ; RLA ; если с правого на левый, то LD A,0 ; надо перейти к следующему ADC A,L ; знакоместу LD E,A ; кладём результат в E EXX ;теперь DE станет DE', а остальное неважно RET Ну и теперь таблица адресов, где была прямая адресация: DEFW #FFFF ; признак таблицы DEFW M4,M5,M6,M7,M8,M9,M10,M13 ;адреса-1, а проще ;говоря, адреса команд Длина файла имеет большое значение, если в конце таблицы адре- сов появятся лишние байты, даже нули, то при установке такого драйвера что-нибудь заглючит. ... этот драйвер можно скачать на HARD BBS ...
Other articles:
|
|
|
|
|
|
|
|
|
|
|
|
Similar articles:
В этот день... 23 November