; Principal
; *********
; Programa - teste de declaracoes	
; leitura dos elementos de um vetor com 3 elementos
; soma dos elementos 
& /0000
	JP INICIO
soma    K /0000
vetor   K /1225
        K /2213
        K /1111
pont_vet K vetor
um      K /0001
zero    K /0000 
i       $ =1
array   K vetor 
INICIO	LD zero
        MM i
        LD pont_vet
        MM array
        SC leia_v     ;2 parametros:i,array
        + soma
        MM soma
        LD i
        + um
        MM i
        SC  leia_v
        + soma
        MM  soma
        LD i
        + um
        MM i 
        SC  leia_v
        + soma
        MM  soma                 	
        HM /00

;funcao  de leitura de elemento i de vetor 
load    LD /0000   ;operacao LOAD
        dois    K /0002
; corpo da subrotina 
leia_v  K  /0000  ; Endereço de retorno
        LD i
        * dois 
        + array 
        + load
        MM X
X       MM /0000
        RS leia_v
# INICIO