AdrA: x"0000"

; Test lod immediate
lod r0, #x"0008"; r0 := x"0008"
out r0			; r0 == x"0008";


; Test lod short direct
lod r4, #x"0004"; r4 := x"0004"
lod rC, r4		; rC := r4 = x"0004"
out rC			; rC == x"0004";

; Test str short direct
lod rC, #x"EEEE"; rC := x"EEEE"
lod r4, #x"0004"; r4 := x"0004"
str r4, rC		; rC := r4 = x"0004"
out rC			; rC == x"0004";

;Test lod /str long direct
str r4, AdrA	; M1[x"0000"] := r4 = x"0004" 
lod r8, AdrA	; r8 :=M1[x"0000"] = x"0004" 
out r8			; r8 == x"0004";

;Test lod/str long indirect 
str r8, [AdrA]	; M1[ M1[AdrA]]:= r8 , r8= x"0004" ,M1[AdrA]=x"0004", AdrA=x"0000"
lod r0, [AdrA]	; r0 := M1[ M1[AdrA]]=x"0004", M1[AdrA]=x"0004", AdrA=x"0000"
out r0			; r0 == x"0004";

;Test lod/str long direct indexed 
lod r0, #x"EEEE";
lod r8, #x"1234";
lod rC, #x"0004";
str r8, AdrA, rC ; M1[ AdrA + rC =x"0004" ]:= r8 , r8= x"1234" ,M1[x"0004"]=x"1234", AdrA=x"0000"
lod r0, AdrA, rC ; r0 := M1[x"0004"] = x"1234"
out r0; r0 == x"1234";
