ELF

= $((0x100000000-0x10000)) to A


L main_loop
= $numberstring to DI
	1+ A
	push A
	  call x
	pull A
	= 1 to B
	= $numberstring to C
	= 9 to D
	push A
	Linux $write
	pull A
	flag A
		when not zero  main_loop

Linux $exit

L x
	= 8 to C
L _quadtohexrand
	= A to B
	downshift 28 to B
	= B + $digit to B
	= B to @ DI
	1+ DI
	upshift 4 to A
		when C-1		 _quadtohexrand
	= 32 to @  DI
	1+ DI
			return

range numberstring 40

text  digit  <<!
0123456789abcdefghijklmnopqrstuvwxyz
!
# Convert value in A to 8-char lowercase hexadecimal representation
#	with trailing space. DI is left pointing after the space.

# clobbers A, B, C and DI. Test code for a demo command was commented out
#   but isn't now.
