cseg
	lhld	1
	lxi	d,87
	dad	d
	shld	hidihi
	call	efw
	dw	0c2h
	lxi	h,table
	mvi	b,64
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	'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
	db	'#',03ch,066h,060h,0f8h,060h,060h,07eh,00h
efw:	db	0c3h
hidihi:	dw	0