1999-1.asm

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

;1999年高级程序员考试下午Casl汇编试题1
;改动后已经可以直接运行
	START
	LEA	GR1,1
BEG	PUSH	0,GR2
	PUSH	0,GR3
	LEA 	GR3,1
	LEA	GR2,0,GR1    ;Q1
L1	SLL	GR2,1
	JPZ	L2
	LEA	GR3,1,GR3
L2	JZE	L3
	JMP	L1
L3	SLL	GR3,15
	ST	GR3,WORK
	ADD	GR1,WORK
	POP	GR3
	POP	GR2
	EXIT
WORK	DS	1
	END