example8.asm

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

;<CASL汇编语言程序设计>P142/ 6.4
;散转表应用实例，统计GR2各个位上'0'的个数，结果在GR1中
	START
	LEA	GR1,16
	LEA	GR3,8
	LEA	GR2,#FF0F    ;作为输入数据
LOOP	LEA	GR2,0,GR2
	JZE	EX
	ST	GR2,SG2
	AND	GR2,C3
	SLL	GR2,1
	JMP	TAB,GR2
TAB	LEA	GR1,1,GR1
	LEA	GR1,0,GR1
	LEA	GR1,1,GR1
	LEA	GR1,-2,GR1
	LD	GR2,SG2
	SRL	GR2,2
	LEA	GR3,-1,GR3
	JNZ	LOOP
EX	EXIT
C3	DC	3
SG2	DS	1
	END