.l isNum
	.adra	_loop
	.adrb	_end
	.adrc	_notNum
	
	ldc		rj	0x30
	ldc		rk	0x39

.l _loop	
	ldb		rm	ri
	jiz		rb	rm
	jlt		rm	rj
	jgt		rm	rk
	inc		ri
	jmp		_loop
	
.l _end
	xor		rn	rn
	inc		rn
	ret		ro
.l _notNum
	xor		rn	rn
	ret		ro