example9.asm

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

;<<CASL汇编语言程序设计>>P152页例题
	START
PRGM	LEA	GR1,0
	LD	GR3,C20
	CALL	DTB
	SLL	GR0,8
	ST	GR0,ANS
	LEA	GR1,1,GR1
	CALL	DTB
	ADD	GR0,ANS
	ADD	GR0,C20
	ST	GR0,ANS
	CALL	DTB
	EXIT
DAT	DC	9
	DC	4
	DC	0
	DC	1
ANS	DS	1
C20	DC	#2020
MSG	DC	'ABC'
CNT	DC	3
DTB	LD	GR0,DAT,GR1
	SLA	GR0,1
	ST	GR0,WRK
	SLA	GR0,2
	ADD	GR0,WRK
	LEA	GR1,1,GR1
	ADD	GR0,DAT,GR1
	RET
WRK	DS	1
	END