I have not the following interface.

os: unicode

aTable_1 proc uses rdi pTable:QWORD
	
	mov	rdi, pTable
	xor	rcx, rcx
	.Repeat
		mov	al,cl
		add	al,30h
		xor	rdx,rdx
		.repeat
			mov	ah,dl
			add	ah,30h
			stosw
			inc	rdx
		.until rdx==10
		inc	rcx
	.Until rcx==10
        ret

aTable_1 endp

Screenshot of the problem

Capture USA

Check whether is the number a magic number.

ChkMagicNumber proc uses rbx n:QWORD
	Local sum:QWORD

	mov	rax,n
	mov	sum,0
	mov	rcx,cccccccccccccccdh   ; 8*(1/10)
	.while (rax > 0) || (sum > 9)
		.if	rax == 0
			mov	rax,sum
			mov	sum,0
		.endif
		mov	rbx,rax		; save original
		xor	rdx,rdx
		mul	rcx		; num * 8*(1/10) magic number. 
		shr	rdx,3		; /8, magic number fixup
		mov	rax,rdx		; quotient 
		lea	rdx,[rdx*4+rdx]	; *5
		lea	rdx,[rdx+rdx]	; *2,here rdx=10*rdx
		sub	rbx,rdx		; remainder = original-rdx
		mov	r8,sum
		add	r8,rbx
		mov	sum,r8
	.endw
	mov	rax,sum	; rax = 1, n is a magic number.
	ret

ChkMagicNumber endp

the photograph has been rarely seen.

They were the founder,improver,practitioner of the best political system of humanity.