Fixing numeric token parsing

yaglitch.asm

@@ -227,7 +227,7 @@ parse:
 			jmp .next_token
 
 		.hex_token:
-			sub al, "F"
+			sub al, "A" - 10
 			jmp .numeric_token
 		.dec_token:
 			sub al, "0"
@@ -236,7 +236,7 @@ parse:
 			je exit.syntax_error ; Numeric constant OF
 			inc r11
 			mov r10, 1
-			shl edx, 8
+			shl edx, 4
 			add edx, eax
 		.next_token:
 			;inc rbx ; chrno
@@ -671,7 +671,7 @@ OP:
 		call .prep_2arg
 		test ebx, ebx
 		jz .nodiv
-		xor edx, edx
+		xor rdx, rdx
 		div ebx
 		jmp .divend
 		.nodiv:
@@ -694,7 +694,7 @@ OP:
 		ret
 	.mod:
 		call .prep_2arg
-		test ebx, ebx
+		test rbx, rbx
 		jz .nomod
 		xor edx, edx
 		div ebx