lxi h,0		; uschovat obsah registru SP
	dad sp
	shld sp_temp

	lhld height	; načíst pozici postavičky
	lxi d,i_man	; adresa předlohy postavičky
	lxi sp,64-2	; konstanta posunu v ose Y
			; během kreslení do videoram

	mvi b,23	; 23 mikrořádků na výšku
loop3:	ldax d		; načíst bajt předlohy
	inx d		; a posun na další bajt
	mov m,a		; zapsat do videoram (X=0)
	inr l		; a posun na pozici vpravo
	ldax d		; načíst bajt předlohy
	inx d		; a posun na další bajt
	mov m,a		; zapsat do videoram (X=1)
	inr l		; a posun na pozici vpravo
	ldax d		; načíst bajt předlohy
	inx d		; a posun na další bajt
	mov m,a		; zapsat do videoram (X=2)
	dad sp		; další mikrořádek a X=0
	dcr b		; snížit počitadlo mikrořádků
	jnz loop3	; nebyl poslední => next

	lhld sp_temp	; jinak obnovit obsah
	sphl		; registru SP