Из газеты ASpect #8, Санкт-Петербург, 08.04.98 ЧТОБЫ СТРОКА ВМЕЩАЛА БОЛЬШЕ... Наверноe многие из вас сталкивались с нехваткой места в строке для вывода информации: в строке умещалось 32 символа стандартного фонта (8*8). No проблемa эта относительно легко разрешима. В принципе, можно выводить до 80 символов в строке. Своеобразными стандартами, что ли, в данной области являются 64 и 42 символа в строке (80 символов в строке используются редко, т.к. даже на хорошем мониторе разобрать текст становится затруднительно). Итак, начну, пожалуй, с 64 символов. При выводе в 64 символа в строке в каждый байт помещается по два символа 64-го фонта(против одного байта 32-го), следовательно символ 64-го фонта должен иметь размеры 4*8, т.к. в высоту он такой же как и его 32-ой собрат(фактически же, символ задается матрицей 3*7, т.к. справа и снизу должно быть свободное место, иначе вместо текста мы увидим абстрактную картину). Можно задать фонт стандартно: один символ - 8 байт, т.е. весь фонт (все 256 символов) займет 2048 байт, однако можно уменьшить его размеры в два раза, если задействовать пустое место. Тогда фонт будет выглядеть так: 2 символа 8 байтов, и фонт займет лишь 1024 байта, однако выводить его будет сложнее. Итак, прикинем: надо вывести символ на экран, при длине строки в 64 символа и ужатом фонте(т.е. фонте в 1024 байта). Для этого надо : 1. Вычислить адрес символа в фонте 2. Вычислить адрес вывода 3. Вывести символ 1. Адрес вычисляется довольно просто: делим код символа на два, находим адрес сдвоенной матрицы, далее проверяем на четность код символа (который был до деления) - если четный, то левая половинка байта, если нечетный - правая. 2. Адрес вывода берем из таблицы 3. Данный этап целесообразно разбить на две части, в зависимости от того, в какую половинку байта на экране мы будем выводить символ: а) Для левой половинки. Нечетный символ - никуда не двигаем, берем байт по адресу вывода, объединяем по логическому "и" (AND с маской %00001111 - то что справа, нам менять не стоит. Берем байт из матрицы символов, объединяем по AND с %11110000, объединяем по логическому "или" (OR) с тем что получили раньше, и "кладем" на экран. Четный символ - надо объединить по AND с %00001111, сдвинуть влево на 4, проделать то же с байтом адреса вывода, что и для четного объединить по OR с предыдущим результатом, и "положить" на экран. б) Для правой половинки. Тоже что и для левой, только надо будет сдвигать левую часть направо, и маска для экранной области будет %11110000. Ну вот, "загрузил" я вас запутанной теорией, пора бы ее подкрепить практикой. В качестве примера будет процедурка выводящая 64-ым шрифтом текст. 0RG #61A8 LD HL,TABLE ;заполняем таблицу LD DE,0 LD B,24 CALL ZAPTAB LD HL,TЕXT ;адрес текста в HL LD BC,0 ;B - Y,C - X координта ;в текстовых значениях WR_64 PUSH IX ;он нам еще пригодится WR_64R PUSH BC LD A,B ;смещение в таблице ADD A,A ADD A,A ADD A,A LD E,A LD D,0 LD IX,TABLE ;находим адрес, по ко- ;торому находится адрес ;вывода. ADD IX,DE ADD IX,DE WR_641 LD A,(HL) ;берем символ INC HL AND A ;ноль - конец текста JR Z,OUTBTEN CP 22 ;команда AT JR Z,WR_6471 CP #0D ;перевод строки JR Z,WR_64OL CALL PS_64 ;вывод левой половинки WR_64N LD A,(HL) ;берем следующий символ INC HL AND A ;аналогично JR Z,OUTBTEN CP 22 JR Z,WR_6471 CP #0D JR Z,WR_64OL CALL PR_64 ;вывод правой половинки INC C ;переход к следущему байту ;в строке на экране JR WR_641 ;и все по новой WR_64OL POP BC ;следущая строка INC B JR WR_64R OUTBTEN POP BC ;конец вывода POP IX RET WR_6471 POP BC ;переход к произвольной ;позиции вывода LD B,(HL) INC HL LD C,(HL) INC HL JR WR_64R ;ВЫВОД В ЛЕВУЮ ПОЛОВИНКУ БАЙТА ; A - КОД СИМВОЛА ; IX - ТАБЛИЦА АДРЕСОВ ВЫВОДА PS_64 PUSH HL ;то, что нужно - сохраняем PUSH IX LD L,A ;/2*8=*4 SRL L LD H,0 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,FONT ADD HL,DE EX DE,HL ;в DE адрес матрицы символа SRL A ;проверка на четность LD B,8 ;8 байт выводить JR C,PS_642 ;нечет LD A,(IX) ;адрес вывода на экран LD H,(IX+1) PUSH BC ADD A,C LD L,A PS_641 LD A,(HL) ;мучаем байт с экрана AND #0F LD C,A LD A,(DE) ;мучаем выводимый байт AND #F0 OR C ;объединяем их LD (HL),A ;кладем на экран INC DE INC H DJNZ PS_641 ;повторяем POP BC POP IX POP HL RET PS_642 LD A,(IX) ;берем адрес вывода LD H,(IX+1) ADD A,C PUSH BC LD L,A PS_6422 LD A,(DE) ;выделяем правый кусок AND #0F RLA ;двигаем его влево RLA RLA RLA LD C,A LD A,(HL) ;а здесь все по-старому AND #0F OR C LD (HL),A INC DE INC H DJNZ PS_6422 POP BC POP IX POP HL RET ;ПРОЦЕДУРА ВЫВОДА В ПРАВУЮ ПОЛОВИНКУ ЭК- ;РАННОГО БАЙТА ;НА ВХОД В A - КОД СИМВОЛА ; В IX - ТАБЛИЦА АДРЕСОВ ВЫВОДА PR_64 PUSH HL ;ВСЕ АНАЛОГИЧНО ПРЕДЫУЩЕМУ ;СЛУЧАЮ PUSH IX PUSH BC LD L,A SRL L LD H,0 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,FONT ADD HL,DE EX DE,HL SRL A LD B,8 JR C,PR_642 LD A,(IX) LD H,(IX+1) ADD A,C LD L,A PR_641 LD A,(HL) ;байт с экрана будем AND #F0 ;мучать LD C,A LD A,(DE) ;четный придется двигать SRL A SRL A SRL A SRL A OR C LD (HL),A ; а дальше все ясно INC DE INC H DJNZ PR_641 POP BC POP IX POP HL RET PR_642 LD A,(IX) LD H,(IX+1) ADD A,C LD L,A PR_6422 LD A,(HL) ; тут вроде все ясно AND #F0 LD C,A LD A,(DE) AND #0F OR C LD (HL),A INC DE INC H DJNZ PR_6422 POP BC POP IX POP HL RET ;процедура заполнения таблички ZAPTAB LD A,D LD C,A AND A DUP 3 RRCA EDUP AND #E0 ADD A,E EX AF,AF' LD A,C AND #18 OR #40 EX AF,AF' LD C,A EX AF,AF' DUP 8 LD (HL),C INC HL LD (HL),A INC A INC HL EDUP INC D DJNZ ZAPTAB EI RET ;выводимый текст TEXT DEFB "ПРИВЕТ ВСЕМ !!!",#0D,#0D DEFB "HELLO TO ALL!!!",0 ;здесь будет фонт FONT INCBIN "A:FONT48a.C" ;а здесь таблица адресов TABLE Эта процедура вывода занимает довольно много времени, ее можно заметно ускорить если сделать два набора символов: сдвинутый влево и сдвинутый вправо, при этом отпадает надобность что-то куда-то двигать: ORG #61A8 CALL RAZPAC ;превращаем один ужатый ;фонт в два разжатых LD HL,TABLE ;аналогично предыдущему LD DE,0 ;случаю LD B,24 CALL ZAPTAB LD HL,TEXT LD BC,0 LD IX,TABLE WR_64 PUSH IX WR_64R PUSH BC LD E,B LD D,0 LD IX,TABLE ADD IX,DE ADD IX,DE WR_641 LD A,(HL) INC HL AND A JR Z,OUTBTEN CP 22 JR Z,WR_6471 CP #0D JR Z,WR_64OL CALL PS_64 WR_64N LD A,(HL) INC HL AND A JR Z,OUTBTEN CP 22 JR Z,WR_6471 CP #0D JR Z,WR_64OL CALL PR_64 INC C JR WR_641 WR_64OL POP BC LD A,8 ADD A,B LD B,A JR WR_64R OUTBTEN POP BC POP IX RET WR_6471 LD B,(HL) INC HL LD C,(HL) INC HL JR WR_64R ;ВЫВОД В ЛЕВУЮ ПОЛОВИНКУ БАЙТА ; A - КОД СИМВОЛА ; IX - ТАБЛИЦА АДРЕСОВ ВЫВОДА PS_64 PUSH HL PUSH IX LD L,A ;делить на 2 не надо LD H,0 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,FONTL ;левая половинка - ;левый фонт ADD HL,DE EX DE,HL LD A,(IX) LD H,(IX+1) PUSH BC ADD A,C LD L,A LD B,8 PS_641 LD A,(HL) ;ловкость рук и никаких AND #0F ;RRCA LD C,A LD A,(DE) OR C LD (HL),A INC DE INC H DJNZ PS_641 POP BC POP IX POP HL RET ;ПРОЦЕДУРА ВЫВОДА В ПРАВУЮ ПОЛОВИНКУ ЭК- ;РАННОГО БАЙТА ;НА ВХОД В A - КОД СИМВОЛА ; В IX - ТАБЛИЦА АДРЕСОВ ВЫВОДА PR_64 PUSH HL PUSH IX PUSH BC LD L,A LD H,0 ADD HL,HL ADD HL,HL ADD HL,HL LD DE,FONTR ;правая половинка - ADD HL,DE ;правый фонт EX DE,HL LD B,8 LD A,(IX) LD H,(IX+1) ADD A,C LD L,A PR_6422 LD A,(HL) ;и ничего не двигаем AND #F0 LD C,A LD A,(DE) OR C LD (HL),A INC DE INC H DJNZ PR_6422 POP BC POP IX POP HL RET ;ПРОЦЕДУРА РАЗЖИМАЮЩАЯ ФОНТ RAZPAC LD HL,FONT1 ;исходный фонт LD DE,FONTL ;левый фонт LD BC,#8000 ;128 символов в ужатом EXX ;фонте LD HL,FONTR ;правый фонт LD DE,FONTL+8 ;следующий символ LD BC,FONTR+8 ;следующий символ EXX RAZPAC2 LD C,8 ;а байт то в символе 8 ! RAZPAC1 LD A,(HL) ;начнем-с PUSH AF AND #F0 ;левый символ LD (DE),A INC DE EXX AND A ;двигаем DUP 4 RRCA EDUP LD (HL),A ;в правый фонт INC HL POP AF AND #F ;правый символ LD (BC),A ;в след. символ левого INC BC ;фонта DUP 4 ;двигаем RLCA EDUP LD (DE),A ;в след. символ правого INC DE ;фонта EXX INC HL DEC C JP NZ,RAZPAC1 ;разжимаем символ PUSH HL LD HL,8 ;переходим к следующему ADD HL,DE ;символу ужатого фонта EX DE,HL POP HL EXX LD HL,8 ADD HL,DE EX DE,HL LD HL,8 PUSH BC AND A ADC HL,BC LD C,L LD B,H POP HL EXX DJNZ RAZPAC2 RET ;ПРОЦЕДУРА ЗАПОЛНЯЮЩАЯ ТАБЛИЦУ ВЫВОДА ZAPTAB LD A,D LD C,A AND A DUP 3 RRCA EDUP AND #E0 ADD A,E EX AF,AF' LD A,C AND #18 OR #40 EX AF,AF' LD C,A EX AF,AF' DUP 8 LD (HL),C INC HL LD (HL),A INC A INC HL EDUP INC D DJNZ ZAPTAB EI RET TEXT DEFB "ПРИВЕТ ВСЕМ !!!",#0D,#0D DEFB "HELLO TO ALL!!!",0 TABLE FONT1 INCBIN "A:FONT48a.C" DEFS 1256 FONTL DEFS #800 FONTR DEFS #800 Способ, конечно, не экономичный, зато быстрый. Ну, с 64-ым фонтом разобрались, а о 42-ом фонте раскажу в следующий раз. (c)Trusov Ilya