example12.asm

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

;递归的演示
;递归计算1-100的连加
	START
	LEA	GR1,1  ;加数
	LEA	GR2,0  ;结果
	CALL	ADDN
	EXIT
ADDN	ST	GR1,WK2   ;计算子程序
	ADD	GR2,WK2
	LEA	GR1,1,GR1
	CPA	GR1,WK1
	JZE	EXT
	CALL	ADDN	       
EXT	RET
WK1	DC	101
WK2	DS	1
	END