cseg

	ld	hl,table
	ld	b,94
fred:
	ld	c,73
	push	hl
	push	bc
	call	5
	pop	bc
	pop	hl
	ld	de,9
	add	hl,de
	dec	b
	jp	nz,fred
	rst	0

table:
	db	'!',48,48,48,48,48,0,48,0
	db	'"',108,108,0,0,0,0,0,0
	db	'#',108,108,254,108,254,108,108,0
	db	'$',24,62,88,60,26,124,24,0
	db	'%',0,198,204,24,48,102,198,0
	db	'&',56,108,56,118,220,204,118,0
	db	39,24,24,48,0,0,0,0,0
	db	'(',12,24,48,48,48,24,12,0
	db	')',48,24,12,12,12,24,48,0
	db	'?',60,102,6,12,24,0,24,0
	db	':',0,0,24,24,0,24,24,0
	db	';',0,0,24,24,0,24,24,48
	db	'<',12,24,48,96,48,24,12,0
	db	'>',96,48,24,12,24,48,96,0
	db	'=',0,0,126,0,0,126,0,0
	db	'@',124,198,222,222,222,192,124,0
	db	'*',0,102,03ch,0ffh,03ch,102,0,0
	db	'+',0,24,24,126,24,24,0,0
	db	',',0,0,0,0,0,24,24,48
	db	'-',0,0,0,126,0,0,0,0
	db	'.',0,0,0,0,0,24,24,0
	db	'/',6,12,24,48,96,192,128,0
	db	'[',60,48,48,48,48,48,60,0
	db	'\',192,96,48,24,12,6,2,0
	db	']',60,12,12,12,12,12,60,0
	db	'^',24,03ch,07eh,24,24,24,24,0
	db	'`',0,48,24,12,0,0,0,0
	db	'{',14,24,24,112,21,24,14,0
	db	'}',112,24,24,14,24,24,112,0
	db	'|',24,24,24,24,24,24,24,0
	db	'~',118,216,0,0,0,0,0,0
	db	'0',038h,06ch,0c6h,0c6h,0c6h,06ch,038h,00
	db	'1',018h,038h,018h,018h,018h,018h,018h,00
	db	'2',03ch,066h,06h,03ch,060h,060h,07eh,00
	db	'3',03ch,066h,06h,01ch,06h,066h,03ch,00
	db	'4',01ch,03ch,06ch,0cch,0feh,0ch,0ch,00
	db	'5',07eh,060h,060h,07ch,06h,066h,03ch,00
	db	'6',03ch,066h,060h,07ch,066h,066h,03ch,00
	db	'7',07eh,06h,06h,0ch,018h,018h,018h,00
	db	'8',03ch,066h,066h,03ch,066h,066h,03ch,00
	db	'9',03ch,066h,066h,03eh,06h,066h,03ch,00
	db	'A',03ch,066h,066h,07eh,066h,066h,066h,00
	db	'B',07ch,066h,066h,07ch,066h,066h,07ch,00
	db	'C',03ch,066h,0c0h,0c0h,0c0h,066h,03ch,00
	db	'D',078h,06ch,066h,066h,066h,06ch,078h,00
	db	'E',07eh,060h,060h,078h,060h,060h,07eh,00
	db	'F',07eh,060h,060h,078h,060h,060h,060h,00
	db	'G',03ch,066h,0c0h,0c0h,0ceh,066h,03ch,00
	db	'H',066h,066h,066h,07eh,066h,066h,066h,00
	db	'I',07eh,018h,018h,018h,018h,018h,07eh,00
	db	'J',0ch,0ch,0ch,0ch,0cch,0cch,078h,00
	db	'K',066h,066h,06ch,078h,06ch,066h,066h,00
	db	'L',060h,060h,060h,060h,060h,060h,07eh,00
	db	'M',06ch,0feh,0feh,0d6h,0d6h,0c6h,0c6h,00
	db	'N',0c6h,0e6h,0f6h,0deh,0ceh,0c6h,0c6h,00
	db	'O',07ch,0c6h,0c6h,0c6h,0c6h,0c6h,07ch,00
	db	'P',07ch,066h,066h,07ch,060h,060h,060h,00
	db	'Q',07ch,0c6h,0c6h,0c6h,0dah,0cch,076h,00
	db	'R',07ch,066h,066h,07ch,06ch,066h,066h,00
	db	'S',03ch,066h,060h,03ch,06h,066h,03ch,00
	db	'T',07eh,018h,018h,018h,018h,018h,018h,00
	db	'U',066h,066h,066h,066h,066h,066h,03ch,00
	db	'V',066h,066h,066h,066h,066h,03ch,018h,00
	db	'W',0c6h,0c6h,0c6h,0d6h,0feh,0feh,06ch,00
	db	'X',0c6h,06ch,038h,038h,06ch,0c6h,0c6h,00
	db	'Y',066h,066h,066h,03ch,018h,018h,018h,00
	db	'Z',0feh,06h,0ch,018h,030h,060h,0feh,00
	db	'a',00h,00h,078h,0cch,0cch,0cch,076h,00
	db	'b',060h,060h,07ch,066h,066h,066h,07ch,00
	db	'c',00h,00h,03ch,066h,060h,066h,03ch,00
	db	'd',0ch,0ch,07ch,0cch,0cch,0cch,074h,00
	db	'e',00h,00h,03ch,066h,07eh,060h,03ch,00
	db	'f',03ch,066h,060h,078h,060h,060h,060h,00
	db	'g',00h,00h,03ch,066h,066h,03eh,06h,03ch
	db	'h',060h,060h,07ch,066h,066h,066h,066h,00
	db	'i',018h,00h,018h,018h,018h,018h,018h,00
	db	'j',06h,00h,06h,06h,06h,066h,066h,03ch
	db	'k',060h,060h,066h,06ch,078h,06ch,066h,00
	db	'l',030h,030h,030h,030h,030h,036h,01ch,00
	db	'm',00h,00h,06ch,0feh,0d6h,0d6h,0c6h,00
	db	'n',00h,00h,05ch,066h,066h,066h,066h,00
	db	'o',00h,00h,03ch,066h,066h,066h,03ch,00
	db	'p',00h,00h,07ch,066h,066h,07ch,060h,060h
	db	'q',00h,00h,07ch,0cch,0cch,07ch,0ch,0eh
	db	'r',00h,00h,07ch,066h,060h,060h,060h,00
	db	's',00h,00h,03ch,060h,03ch,06h,07ch,00
	db	't',030h,030h,03ch,030h,030h,036h,01ch,00
	db	'u',00h,00h,066h,066h,066h,066h,03ch,00
	db	'v',00h,00h,066h,066h,066h,03ch,018h,00
	db	'w',00h,00h,0c6h,0d6h,0d6h,0feh,06ch,00
	db	'x',00h,00h,0c6h,06ch,038h,06ch,0c6h,00
	db	'y',00h,00h,066h,066h,066h,03eh,06h,03ch
	db	'z',00h,00h,07eh,0ch,018h,030h,07eh,00

efw:	db	0c3h
hidihi:	dw	0