example4.asm

Casl汇编语言解释运行环境Nasl

;求GR0中正整数的平方根的整数部分,结果仍存入GR0中
	START
	LEA	GR0,26	;这里表示求26的平方根的整数部分
	PUSH	0,GR1
	PUSH	0,GR2
	LEA	GR1,0
LOOP	LEA 	GR2,0,GR1
	SLA	GR2,1
	LEA	GR2,1,GR2
	ST	GR2,WRK
	SUB	GR0,WRK
	JMI	LL
	LEA	GR1,1,GR1
	JMP	LOOP
LL	LEA	GR0,0,GR1
	POP	GR2
	POP	GR1
	EXIT
WRK	DS	1
	END