| Simple program to test cache configurations.

.include beta.uasm

. = 0				| Reset vector at 0
	BR(Start)

Start:	CMOVE(0x200,sp)
	CMOVE(0,r2)

loop:

	CMOVE(data,r0)		| copy data structure onto stack
loop1:	LD(r0,0,r1)
	PUSH(r1)
	ADDC(r0,4,r0)
	CMPLTC(r0,epgm,r1)
	BT(r1,loop1)
	
	CMOVE(data,r0)		| and copy it back reversed
loop2:	POP(r1)
	ST(R1,0,R0)
	ADDC(r0,4,r0)
	CMPLTC(r0,epgm,r1)
	BT(r1,loop2)

	ADDC(r2,1,r2)
	CMPLTC(r2, 0x20, r0)	| if (R2 < 32)
	BT(r0, loop)		|  then goto loop

	HALT()
	BR(Start)

.=0x100
data:
	LONG(0x12345678)
	LONG(0x87654321)
	LONG(0xDEADBEEF)
	LONG(0xFEDCBA98)
	LONG(0x12345678)
	LONG(0x87654321)
	LONG(0xDEADBEEF)
	LONG(0xFEDCBA98)
	LONG(0x12345678)
	LONG(0x87654321)
	LONG(0xDEADBEEF)
	LONG(0xFEDCBA98)
	LONG(0x12345678)
	LONG(0x87654321)
	LONG(0xDEADBEEF)
	LONG(0xFEDCBA98)
	LONG(0x12345678)
	LONG(0x87654321)
	LONG(0xDEADBEEF)
	LONG(0xFEDCBA98)
	LONG(0x12345678)
	LONG(0x87654321)
	LONG(0xDEADBEEF)
	LONG(0xFEDCBA98)
	LONG(0x12345678)
	LONG(0x87654321)
	LONG(0xDEADBEEF)
	LONG(0xFEDCBA98)
	LONG(0x12345678)
	LONG(0x87654321)
	LONG(0xDEADBEEF)
	LONG(0xFEDCBA98)

epgm = .

. = 0x400