;反向進位程序

	.def		resave
	.ref		input,indatr
	.text
N	.set		128

resave:
;c接口部分
		SST     #0,7Ch
        SST     #1,7Dh
		MAR		*,AR1
		POPD	*+
		SAR 	AR0,*+
		SAR 	AR2,*+
		SAR		AR3,*+
		SAR		AR4,*+
		SAR 	AR1,*
		LAR 	AR0,*+,AR3
	
;反向排序部分	

		LAR		AR2,#input
		LAR		AR0,#input+256
		MAR		*,AR2
		
CLEARLOOP:
		SPLK	#0000H,*+
		CMPR	00
		BCND	CLEARLOOP,NTC
		
		MAR 	*,AR3
		LAR		AR2,#input
		LAR		AR3,#indatr
		LAR		AR0,#N
		LAR		AR4,#N-1 
RESAV1:	
		LACC	*+,0,AR2
		SACL	*BR0+,AR4
		BANZ	RESAV1,*-,AR3

;與C語言兼容的程序代碼部分

		MAR		*,AR1
		SBRK	#2
		LAR 	AR4,*-
		LAR 	AR3,*-
		LAR 	AR2,*-
		LAR		AR0,*-
		PSHD	*
		
		LDP   #0
		LST   #1,7Dh
		LST   #0,7Ch
		RET