Шрифт 5 для ЭКВМ

Описание

Шрифт высотой 5 точек предназначен для вывода на экран ЭКВМ большого объёма информации. Шрифт содержит цифры, буквы русского и латинского алфавита, специальные символы. Прописные и строчные буквы отображаются одинаково.

Структура шрифта перемещаемая и может быть записана в программе единым массивом, без использования дополнительных меток. При использовании шрифта в программах ненужные символы могут быть исключены для экономии места в памяти. Часть символов, таких как 'Ш' и 'Щ' или 'Ъ','Ы' и 'Ь' и т.д., может быть объединена.

Приведённая в качестве примера программа загружает шрифт и выводит строки символов на графический экран. Все метки сохранены для возможности редактирования шрифта.

Файл програмы:

font_5.mkp (КС 69161/95)

Программа font_5

Исходный текст для кросс-компилятора

.CHARSET 1251

; Файл font_5
; Содержит шрифт ЭКВМ ЭЛЕКТРОНИКА МК высотой 5 точек
; НПП "СЕМИКО", 2011, GPL
; Для mk.exe v1.23, mkl2mkp v0.25

.ORG 0
	CX
	2 
	PP M 9010
	1
	PP M 9002

	.NUMT FONT1
	PP M 9009	; адрес загружаемого шрифта
	254
	PP M 9003	; номер шрифта

	.NUMT TBLT 
	PP M 9042	; начало таблицы строк
	6 M0
	CX MA
M1:	0 
	PP M 9000	; координаты вывода
	RM0
	PP M 9211	; адрес очередной строки
	PP M 9021	; вывод строки
	RMA 6 + MA	; сдвиг по Y
	FL0 M1
	K GRPH
M2:	PP RM 9029	; ожидание нажатия любой клавиши
	K NOT
	F X!=0 M2
	R/S

TBLT:	.DA 0,TXT6,TXT5,TXT4,TXT3,TXT2,TXT1	; указатели на строки

TXT1:	.TEXT "1234567890 1234567890 1234567890\0"
TXT2:	.TEXT "АБВГДЕЁЖЗИЙКЛМНОПРСТ\0"
TXT3:	.TEXT "УФХЦЧШЩЪЫЬЭЮЯ\0"
TXT4:	.TEXT "ABCDEFGHIJKLMNOPQRSTUVWXYZ\0"
TXT5:	.DB 33,34
	.TEXT "#$%&'()*+,-./\0"
TXT6:	.DB 58,59
	.TEXT "<=>?@ ["
	.DB 92
	.TEXT "]^_` {|}~"
	.DB 127,0

	; Шрифт 5
	.BASE
FONT1:	.DB 5	; высота шрифта

	.DB 32,2
	.DWB CHAR32

	; 48-57 цифры 

	.DB 48,3
	.DWB CHAR48

	.DB 49,3
	.DWB CHAR49

	.DB 50,3
	.DWB CHAR50

	.DB 51,3
	.DWB CHAR51

	.DB 52,3
	.DWB CHAR52

	.DB 53,3
	.DWB CHAR53

	.DB 54,3
	.DWB CHAR54

	.DB 55,3
	.DWB CHAR55

	.DB 56,3
	.DWB CHAR56

	.DB 57,3
	.DWB CHAR57

	; русские буквы

	.DB 128,3
	.DWB CHAR128

	.DB 160,3
	.DWB CHAR128

	.DB 129,3
	.DWB CHAR129

	.DB 161,3
	.DWB CHAR129

	.DB 130,4
	.DWB CHAR130

	.DB 162,4
	.DWB CHAR130

	.DB 131,3
	.DWB CHAR131

	.DB 163,3
	.DWB CHAR131

	.DB 132,5
	.DWB CHAR132

	.DB 164,5
	.DWB CHAR132

	.DB 133,3
	.DWB CHAR133

	.DB 165,3
	.DWB CHAR133

	.DB 134,5
	.DWB CHAR134

	.DB 166,5
	.DWB CHAR134

	.DB 135,3
	.DWB CHAR135

	.DB 167,3
	.DWB CHAR135

	.DB 136,4
	.DWB CHAR136

	.DB 168,4
	.DWB CHAR136

	.DB 137,5
	.DWB CHAR137

	.DB 169,5
	.DWB CHAR137

	.DB 138,4
	.DWB CHAR138

	.DB 170,4
	.DWB CHAR138

	.DB 139,4
	.DWB CHAR139

	.DB 171,4
	.DWB CHAR139

	.DB 140,5
	.DWB CHAR140

	.DB 172,5
	.DWB CHAR140

	.DB 141,3
	.DWB CHAR141

	.DB 173,3
	.DWB CHAR141

	.DB 142,4
	.DWB CHAR142

	.DB 174,4
	.DWB CHAR142

	.DB 143,3
	.DWB CHAR143

	.DB 175,3
	.DWB CHAR143

	.DB 144,3
	.DWB CHAR144

	.DB 224,3
	.DWB CHAR144

	.DB 145,3
	.DWB CHAR145

	.DB 225,3
	.DWB CHAR145

	.DB 146,3
	.DWB CHAR146

	.DB 226,3
	.DWB CHAR146

	.DB 147,3
	.DWB CHAR147

	.DB 227,3
	.DWB CHAR147

	.DB 148,5
	.DWB CHAR148

	.DB 228,5
	.DWB CHAR148

	.DB 149,3
	.DWB CHAR149

	.DB 229,3
	.DWB CHAR149

	.DB 150,4
	.DWB CHAR150

	.DB 230,4
	.DWB CHAR150

	.DB 151,4
	.DWB CHAR151

	.DB 231,4
	.DWB CHAR151

	.DB 152,5
	.DWB CHAR152

	.DB 232,5
	.DWB CHAR152

	.DB 153,6
	.DWB CHAR153

	.DB 233,6
	.DWB CHAR153

	.DB 154,4
	.DWB CHAR154

	.DB 234,4
	.DWB CHAR154

	.DB 155,5
	.DWB CHAR155

	.DB 235,5
	.DWB CHAR155

	.DB 156,3
	.DWB CHAR156

	.DB 236,3
	.DWB CHAR156

	.DB 157,3
	.DWB CHAR157

	.DB 237,3
	.DWB CHAR157

	.DB 158,5
	.DWB CHAR158

	.DB 238,5
	.DWB CHAR158

	.DB 159,4
	.DWB CHAR159

	.DB 239,4
	.DWB CHAR159

	.DB 240,5
	.DWB CHAR240

	.DB 241,5
	.DWB CHAR240

	; латинские буквы

	.DB 65,3
	.DWB CHAR128

	.DB 97,3
	.DWB CHAR128

	.DB 66,4
	.DWB CHAR130

	.DB 98,4
	.DWB CHAR130

	.DB 67,3
	.DWB CHAR145

	.DB 99,3
	.DWB CHAR145

	.DB 68,4
	.DWB CHAR68
	
	.DB 100,4
	.DWB CHAR68

	.DB 69,3
	.DWB CHAR133

	.DB 101,3
	.DWB CHAR133

	.DB 70,3
	.DWB CHAR70

	.DB 102,3
	.DWB CHAR70

	.DB 71,3
	.DWB CHAR71

	.DB 103,3
	.DWB CHAR71

	.DB 72,3
	.DWB CHAR141

	.DB 104,3
	.DWB CHAR141

	.DB 73,3
	.DWB CHAR73

	.DB 105,3
	.DWB CHAR73

	.DB 74,4
	.DWB CHAR74

	.DB 106,4
	.DWB CHAR74

	.DB 75,4
	.DWB CHAR138

	.DB 107,4
	.DWB CHAR138

	.DB 76,3
	.DWB CHAR76

	.DB 108,3
	.DWB CHAR76

	.DB 77,5
	.DWB CHAR140

	.DB 109,5
	.DWB CHAR140

	.DB 78,4
	.DWB CHAR78

	.DB 110,4
	.DWB CHAR78

	.DB 79,4
	.DWB CHAR142

	.DB 111,4
	.DWB CHAR142

	.DB 80,3
	.DWB CHAR144

	.DB 112,3
	.DWB CHAR144

	.DB 81,5
	.DWB CHAR81

	.DB 113,5
	.DWB CHAR81

	.DB 82,4
	.DWB CHAR82

	.DB 114,4
	.DWB CHAR82

	.DB 83,4
	.DWB CHAR83

	.DB 115,4
	.DWB CHAR83

	.DB 84,3
	.DWB CHAR146

	.DB 116,3
	.DWB CHAR146

	.DB 85,4
	.DWB CHAR85

	.DB 117,4
	.DWB CHAR85

	.DB 86,5
	.DWB CHAR86

	.DB 118,5
	.DWB CHAR86

	.DB 87,5
	.DWB CHAR87

	.DB 119,5
	.DWB CHAR87

	.DB 88,3
	.DWB CHAR149

	.DB 120,3
	.DWB CHAR149

	.DB 89,3
	.DWB CHAR147

	.DB 121,3
	.DWB CHAR147

	.DB 90,4
	.DWB CHAR90

	.DB 122,4
	.DWB CHAR90

	; 33-47

	.DB 33,1
	.DWB CHAR33

	.DB 34,3
	.DWB CHAR34

	.DB 35,5
	.DWB CHAR35

	.DB 36,5
	.DWB CHAR36

	.DB 37,5
	.DWB CHAR37

	.DB 38,5
	.DWB CHAR38

	.DB 39,1
	.DWB CHAR39

	.DB 40,2
	.DWB CHAR40

	.DB 41,2
	.DWB CHAR41

	.DB 42,3
	.DWB CHAR42

	.DB 43,3
	.DWB CHAR43

	.DB 44,2
	.DWB CHAR44

	.DB 45,3
	.DWB CHAR45

	.DB 46,1
	.DWB CHAR46

	.DB 47,5
	.DWB CHAR47

	; 58-64, 91-96

	.DB 58,1
	.DWB CHAR58

	.DB 59,2
	.DWB CHAR59

	.DB 60,3
	.DWB CHAR60

	.DB 61,3
	.DWB CHAR61

	.DB 62,3
	.DWB CHAR62

	.DB 63,3
	.DWB CHAR63

	.DB 64,4
	.DWB CHAR64

	; 91-96

	.DB 91,2
	.DWB CHAR91

	.DB 92,5
	.DWB CHAR92

	.DB 93,2
	.DWB CHAR93

	.DB 94,3
	.DWB CHAR94

	.DB 95,3
	.DWB CHAR95

	.DB 96,2
	.DWB CHAR96

	; 123-127
	.DB 123,3
	.DWB CHAR123

	.DB 124,1
	.DWB CHAR124

	.DB 125,3
	.DWB CHAR125

	.DB 126,4
	.DWB CHAR126

	.DB 127,5
	.DWB CHAR127

	.DB 255

CHAR32:	.DB 0,0
CHAR33:	.DB 17h
CHAR34:	.DB 3,0,3
CHAR35:	.DB 0Ah,1Fh,0Ah,1Fh,0Ah
CHAR36:	.DB 17h,15h,1Fh,15h,1Dh
CHAR37:	.DB 13h,0Bh,4,1Ah,19h
CHAR38:	.DB 1Ch,13h,17h,8,14h
CHAR39:	.DB 3
CHAR40:	.DB 0Eh,11h
CHAR41:	.DB 11h,0Eh
CHAR42:	.DB 0Ah,4,0Ah
CHAR43:	.DB 4,0Eh,4
CHAR44:	.DB 10h,8
CHAR45:	.DB 4,4,4
CHAR46:	.DB 10h
CHAR47:	.DB 10h,8,4,2,1
CHAR48:	.DB 1Fh,11h,1Fh
CHAR49:	.DB 12h,1Fh,10h
CHAR50:	.DB 19h,15h,13h
CHAR51:	.DB 11h,15h,1Fh
CHAR52:	.DB 7,4,1Fh
CHAR53:	.DB 17h,15h,1Dh
CHAR54:	.DB 1Eh,15h,1Dh
CHAR55:	.DB 1,1Dh,3
CHAR56:	.DB 1Bh,15h,1Bh
CHAR57:	.DB 17h,15h,0Fh
CHAR58:	.DB 0Ah
CHAR59:	.DB 10h,0Ah
CHAR60:	.DB 4,0Ah,11h
CHAR61:	.DB 0Ah,0Ah,0Ah
CHAR62:	.DB 11h,0Ah,4
CHAR63:	.DB 1,15h,3
CHAR64:	.DB 0Eh,11h,17h,17h

CHAR91:	.DB 1Fh,11h
CHAR92:	.DB 1,2,4,8,10h
CHAR93:	.DB 11h,1Fh
CHAR94:	.DB 2,1,2
CHAR95:	.DB 10h,10h,10h
CHAR96:	.DB 1,2

CHAR123:	.DB 4,1Bh,11h
CHAR124:	.DB 1Fh
CHAR125:	.DB 11h,1Bh,4
CHAR126:	.DB 2,1,2,1
CHAR127:	.DB 1Ch,12h,11h,12h,1Ch

CHAR128:	.DB 1Eh,9,1Eh
CHAR129:	.DB 1Fh,15h,1Dh
CHAR130:	.DB 1Fh,15h,15h,0Ah
CHAR131:	.DB 1Fh,1,1
CHAR132:	.DB 10h,1Eh,11h,1Fh,10h
CHAR133:	.DB 1Fh,15h,11h
CHAR134:	.DB 1Bh,4,1Fh,4,1Bh
CHAR135:	.DB 11h,15h,1Bh
CHAR136:	.DB 1Fh,8,4,1Fh
CHAR137:	.DB 1Fh,10h,9,4,1Fh
CHAR138:	.DB 1Fh,4,0Ah,11h
CHAR139:	.DB 10h,1Eh,1,1Fh
CHAR140:	.DB 1Fh,2,4,2,1Fh
CHAR141:	.DB 1Fh,4,1Fh
CHAR142:	.DB 0Eh,11h,11h,0Eh
CHAR143:	.DB 1Fh,1,1Fh
CHAR144:	.DB 1Fh,5,7
CHAR145:	.DB 1Fh,11h,11h
CHAR146:	.DB 1,1Fh,1
CHAR147:	.DB 17h,14h,1Fh
CHAR148:	.DB 7,5,1Fh,5,7
CHAR149:	.DB 1Bh,4,1Bh
CHAR150:	.DB 1Fh,10h,1Fh,10h
CHAR151:	.DB 3,4,4,1Fh
CHAR152:	.DB 1Fh,10h,1Fh,10h,1Fh
CHAR153:	.DB 1Fh,10h,1Fh,10h,1Fh,10h
CHAR154:	.DB 1,1Fh,14h,1Ch
CHAR155:	.DB 1Fh,14h,1Ch,0,1Fh
CHAR156:	.DB 1Fh,14h,1Ch
CHAR157:	.DB 11h,15h,0Eh
CHAR158:	.DB 1Fh,4,0Eh,11h,0Eh
CHAR159:	.DB 16h,0Dh,5,1Fh
CHAR240:	.DB 1Eh,17h,16h,17h,12h

CHAR68:	.DB 11h,1Fh,11h,0Eh
CHAR70:	.DB 1Fh,5,1
CHAR71:	.DB 0Eh,11h,19h
CHAR73:	.DB 11h,1Fh,11h
CHAR74:	.DB 8,11h,1Fh,1
CHAR76:	.DB 1Fh,10h,10h
CHAR78:	.DB 1Fh,2,4,1Fh
CHAR81:	.DB 0Eh,11h,19h,0Eh,10h
CHAR82:	.DB 1Fh,5,0Dh,16h
CHAR83:	.DB 12h,15h,15h,9
CHAR85:	.DB 0Fh,10h,10h,0Fh
CHAR86:	.DB 7,8,10h,8,7
CHAR87:	.DB 0Fh,10h,8,10h,0Fh
CHAR90:	.DB 19h,15h,15h,13h

.END