extern _hflip_lut:byte:256

; Would have been decompilable into a mess.
SHARED	segment word public 'CODE' use16
	assume cs:SHARED

public _hflip_lut_generate
_hflip_lut_generate proc far
	push	di
	xor	ax, ax
	mov	di, offset _hflip_lut
	xor	dl, dl
	jmp	short @@set_and_loop

@@permutation_loop:
	xor	dl, dl
	mov	cx, 8

@@generation_loop:
	rol	al, 1
	rcr	dl, 1
	loop	@@generation_loop

@@set_and_loop:
	mov	[di], dl
	inc	di
	inc	al
	jnz	short @@permutation_loop
	pop	di
	ret
_hflip_lut_generate endp
SHARED ends

	end