example5.asm

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

; 有一组100个有符号数,存放在A1开始的连续单元中,
; 将其重新从大到小排序放在原存储区中
	START
	LEA	GR1,99
	ST	GR1,CN
L1	LEA	GR1,0
	LEA	GR2,1
	LEA	GR3,1
L2	LD	GR0,A1,GR1
	CPA	GR0,A1,GR2
	JPZ	L3
	LD	GR4,A1,GR2
	ST	GR4,A1,GR1
	ST	GR0,A1,GR2
	LEA	GR3,0
L3	LEA	GR1,1,GR1
	LEA	GR2,1,GR2
	CPA	GR2,CN
	JZE	L2
	JMI	L2
	CPA	GR3,C1
	JZE	L4
	LD	GR4,CN
	LEA	GR4,-1,GR4
	JZE	L4
	ST	GR4,CN
	JMP	L1
L4	EXIT
A1	DS	100
CN	DS	1
C1	DC	1
	END