Программирование на ассемблере

[ivagor]

SetPal:
		lxi h,COLR15
		mvi e,15
SetPalLoop:
		mov a,e
		out 2
		mov a,m
		out 0Ch
		xthl
		xthl
		dcx h
		dcr e
		mov a,a
		out 0Ch
		jp SetPalLoop

но это вариант "общего назначения", в микродеме как правило можно еще сократить за счет трюков.