cseg

	lxi	h,table
	mvi	b,94
fred:
	mvi	c,73
	push	h
	push	b
	call	5
	pop	b
	pop	h
	lxi	d,9
	dad	d
	dcr	b
	jnz	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