format ELF64 executable

macro genclass class, class_len, caps
{
 	;; Generate 16 bits (smallest) of randomness from the cpu
 	rdrand ax
 
 	;; Modulo into len range to index in
	xor rdx, rdx
 	mov rbx, class_len
 	div bx

	;; Save output letter into out_buf, bump rcx
	add rdx, class
	mov rdx, [rdx]
	if caps eq 1
		sub rdx, 32
	end if
	mov [rcx], rdx
	inc rcx

	inc rsi
}

macro triplet
{
	genclass consonants, consonants_len
	genclass vowels, vowels_len
	genclass consonants, consonants_len
}

segment readable executable

entry main
main:
	;; Store which output byte we're up to in rcx
	mov rcx, out_buf
	;; Store chars generated in rsi
	xor rsi, rsi

	genclass consonants, consonants_len, 1
	genclass vowels, vowels_len
	genclass consonants, consonants_len
	triplet
	triplet
	genclass symbols, symbols_len
	genclass symbols, symbols_len
	genclass numbers, numbers_len
	genclass numbers, numbers_len
	genclass numbers, numbers_len

	mov [rcx], word 10
	inc rsi
 	
 	;; Write
 	mov rdi, 1  ;; stdout
 	mov rdx, rsi
 	mov rsi, out_buf
 	mov rax, 0x01
 	syscall
 
 	;; Exit (code 0)
 	mov rdi, 0
 	mov rax, 0x3c
 	syscall
 
segment readable writeable

numbers db "0123456789"
numbers_len = $ - numbers
vowels db "aeiou"
vowels_len = $ - vowels
consonants db "bcdfghjklmnpqrstvwxyz"
consonants_len = $ - consonants
symbols db "!@#$%&()-=_+[]{}\\|;<>/?."
symbols_len = $ - symbols

out_buf rb 32