;;  test assembly file for as2
.s
print 1	  ;; special trap to print R[0]
stop 0
temp 101
one 102
array 103
base 5
idx 6
.a 10
.c
:start	ld r1 one	;; absolute address
	ld r2 @10 r3	;; displacement address
	ld r1 +base idx	;; index address
	ld r1 #temp
	st array r1
	st @one base r1
	st +r2 r3 r1
	jmp eq loop
	jal r3 sub1
	jmp always start  ;; jump uncondition
:loop	add r1 r3 #4	;; immediate address
	add r1 r2 r3
	or r1 r2 r0	;; move r1 <- r2
	xor r1 r2 #-1	;; r1 = complement r2
	mul r1 r2 r3
:sub1	shl r3 r4
	jr r3		;; return from subroutine
	trap print r0
	trap stop r0
:data			;; data segment
.w 11 22 33		;; size word
.e