example1.asm

来自「Casl汇编语言解释运行环境Nasl」· 汇编 代码 · 共 22 行

;自DD开始的100个单元中有100个有符号数，找出其最小值并放于MD单元中，以及GR0中
;本例中预先设置DD[5]为-20000，最小
	START
	LEA	GR3,-20000
	LEA	GR4,DD
	ST	GR3,5,GR4
	LEA	GR1,1
	LD	GR0,DD
LOOP	CPA	GR0,DD,GR1
	JMI	L1
	LD	GR0,DD,GR1
L1	CPA	GR1,C99
	JPZ	L2
	LEA	GR1,1,GR1
	JMP	LOOP
L2	ST 	GR0,MD
	EXIT
C99	DC	99
	DC	L1
MD	DS	1
DD	DS	100
	END