example11.asm

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

;<<CASL汇编语言程序设计>>P152页6.12
		START
BEGIN		IN	INBUF,LENG
		LEA	GR0,0
		CPA	GR0,LENG
		JZE	LAST
		LEA	GR0,15
		CPA	GR0,LENG
		JPZ	GOOD
		OUT	ERMSG,C9
		JMP	BEGIN
GOOD		LD	GR1,LENG
		LEA	GR1,-1,GR1
		LEA	GR2,14
LOOP1		CPA	GR1,BZERO
		JMI	SKIP1
		LD	GR3,INBUF,GR1
		ST	GR3,OUTBUF,GR2
		LEA	GR1,-1,GR1
		LEA	GR2,-1,GR2
		JMP	LOOP1
SKIP1		LD	GR3,CZERO
LOOP2		CPA	GR2,BZERO
		JMI	SKIP2
		ST	GR3,OUTBUF,GR2
		LEA	GR2,-1,GR2
		JMP	LOOP2
SKIP2		OUT	OUTBUF,C15
		JMP	BEGIN
LAST		EXIT
LENG		DS	1
INBUF		DS	80
C15		DC	15
OUTBUF	DS	15
C9		DC	9
ERMSG	DC	'ERMESSAGE'
CZERO		DC	'0'
BZERO	DC	0
		END