lhld height ; načíst pozici postavičky lxi d,i_man ; adresa předlohy postavičky mvi c,64-3 ; konstanta posunu v ose Y ; během kreslení do videoram mvi a,23 ; 23 mikrořádků na výšku loop11: push psw ; uschovat počitadlo mikrořádků mvi b,3 ; 3 znaky (18 pix) na šířku loop12: ldax d ; načíst bajt předlohy inx d ; a posun na další bajt mov m,a ; zapsat do videoram inr l ; a posun na pozici vpravo dcr b ; byl tento bajt poslední? jnz loop12 ; ne, další bajt mikrořádku dad b ; ano => další mikrořádek pop psw ; obnovit počitadlo mikrořádků dcr a ; snížit o jeden jnz loop11 ; nebyl poslední => next