.define .rol4 .sect .text .sect .rom .sect .data .sect .bss .sect .text ! Rotate 4 bytes left ! Expects in de-reg: number of rotates ! Expects on stack: operand ! Yields on stack: result .rol4: pop h shld .retadr mov h,b mov l,c shld .bcreg pop h ! low-order bytes of operand pop b ! high order bytes of operand mov a,e ani 31 jz 2f mov e,a mov a,b ral 1: mov a,l ral mov l,a mov a,h ral mov h,a mov a,c ral mov c,a mov a,b ral mov b,a dcr e jnz 1b ! keep looping 2: push b push h lhld .bcreg mov b,h mov c,l lhld .retadr pchl