	.SPACE $PRIVATE$
	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
	.SPACE $TEXT$
	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY

	.SPACE $TEXT$
	.SUBSPA $CODE$

	.align 4
	.EXPORT integer_memory_tests,CODE
	.EXPORT integer_indexing_load,CODE
	.EXPORT integer_load_short_memory,CODE
	.EXPORT integer_store_short_memory,CODE
	.EXPORT main,CODE
	.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
; Basic integer memory tests which also test the various 
; addressing modes and completers.
;
; We could/should test some of the corner cases for register and 
; immediate fields.  We should also check the assorted field
; selectors to make sure they're handled correctly.
; 
integer_memory_tests: 
	ldw 0(%sr0,%r4),%r26
	ldh 0(%sr0,%r4),%r26
	ldb 0(%sr0,%r4),%r26
	stw %r26,0(%sr0,%r4)
	sth %r26,0(%sr0,%r4)
	stb %r26,0(%sr0,%r4)

; Should make sure pre/post modes are recognized correctly.
	ldwm 0(%sr0,%r4),%r26
	stwm %r26,0(%sr0,%r4)

integer_indexing_load: 
	ldwx %r5(%sr0,%r4),%r26
	ldwx,s %r5(%sr0,%r4),%r26
	ldwx,m %r5(%sr0,%r4),%r26
	ldwx,sm %r5(%sr0,%r4),%r26
	ldhx %r5(%sr0,%r4),%r26
	ldhx,s %r5(%sr0,%r4),%r26
	ldhx,m %r5(%sr0,%r4),%r26
	ldhx,sm %r5(%sr0,%r4),%r26
	ldbx %r5(%sr0,%r4),%r26
	ldbx,s %r5(%sr0,%r4),%r26
	ldbx,m %r5(%sr0,%r4),%r26
	ldbx,sm %r5(%sr0,%r4),%r26
	ldwax %r5(%r4),%r26
	ldwax,s %r5(%r4),%r26
	ldwax,m %r5(%r4),%r26
	ldwax,sm %r5(%r4),%r26
	ldcwx %r5(%sr0,%r4),%r26
	ldcwx,s %r5(%sr0,%r4),%r26
	ldcwx,m %r5(%sr0,%r4),%r26
	ldcwx,sm %r5(%sr0,%r4),%r26

integer_load_short_memory: 
	ldws 0(%sr0,%r4),%r26
	ldws,mb 0(%sr0,%r4),%r26
	ldws,ma 0(%sr0,%r4),%r26
	ldhs 0(%sr0,%r4),%r26
	ldhs,mb 0(%sr0,%r4),%r26
	ldhs,ma 0(%sr0,%r4),%r26
	ldbs 0(%sr0,%r4),%r26
	ldbs,mb 0(%sr0,%r4),%r26
	ldbs,ma 0(%sr0,%r4),%r26
	ldwas 0(%r4),%r26
	ldwas,mb 0(%r4),%r26
	ldwas,ma 0(%r4),%r26
	ldcws 0(%sr0,%r4),%r26
	ldcws,mb 0(%sr0,%r4),%r26
	ldcws,ma 0(%sr0,%r4),%r26

integer_store_short_memory: 
	stws %r26,0(%sr0,%r4)
	stws,mb %r26,0(%sr0,%r4)
	stws,ma %r26,0(%sr0,%r4)
	sths %r26,0(%sr0,%r4)
	sths,mb %r26,0(%sr0,%r4)
	sths,ma %r26,0(%sr0,%r4)
	stbs %r26,0(%sr0,%r4)
	stbs,mb %r26,0(%sr0,%r4)
	stbs,ma %r26,0(%sr0,%r4)
	stwas %r26,0(%r4)
	stwas,mb %r26,0(%r4)
	stwas,ma %r26,0(%r4)
	stbys %r26,0(%sr0,%r4)
	stbys,b %r26,0(%sr0,%r4)
	stbys,e %r26,0(%sr0,%r4)
	stbys,b,m %r26,0(%sr0,%r4)
	stbys,e,m %r26,0(%sr0,%r4)