mida 21
;-------------------------------------------------------------
;Aplicación 	-> 
;Fecha		-> 
;-------------------------------------------------------------


;programa principal---------------------------------------

&ini		ld	scan
		jz	&lea
		jmp	ini10
&lea		call	&leavar

ini10		call	gsm

inif		end

; llamar a modem remoto y establecer conexion--------------------------

gsm		ink	llamar
		jz	gsm1

		clear
		disl	numero
		at	0
		clear
		disl	llamard
		com	0

;colgar una llamada y pasar a modos comandos----------------------------

gsm1		ink	cuelga
		jz	gsm2
		
		at	2
		clear
		disl	colgar
		com	0

;responder llamada entrante--------------------------------------------

gsm2		movri	cmod
		movci	2
		cpei	desc
		jmp	gsm3

desc		at	1
		clear
		disl	lineas
		com	0
		setri	cmod	-2

;leer mensaje sms nuevo-------------------------------------------------

gsm3		ld	r_sms
		jz	gsm4

		reset	t_mod
		movri	n_sms
		at	4

verif		ld	76
		jz	verif

		clear
		com	9
		loc	0
		com	0
		set	t_mod

;borrar mensaje sms del modem gsm---------------------------------------------

gsm4		ink	borrar
		jz	gsm5

		movri	reg_int
		at	5
		clear
		disl	borrando
		com	0

;enviar mensaje sms---------------------------------------------

gsm5		ink	enviar
		jz	gsm6

		clear
		disl	mensaje
		at	3
		clear
		disl	enviar_m
		com	0

gsm6		ret



;-------------------------------------------

&leavar

;[REG_RELAYS]

llamar		equ	60
cuelga		equ	62
enviar		equ	61
borrar		equ	63
r_sms			equ	132
t_mod			equ	134
scan			equ	99

 
;[REG_INTEGERS] 

cmod			equ	23
n_sms			equ	24
reg_int		equ	250


;[TIM] 

;[CNT] 

;[NOP]

llamard		lite	"LLAMADA"
enviar_m		lite	"envia SMS"
numero		lite	"3103150030"
numero_m		lite	"3102036819"
mensaje		lite	"ALARMA 1"
borrando		lite	"borrar SMS"
colgar		lite	"Colgar"
lineas		lite	"descolgar"


;numero		lite	"3102036819"
;numero_m		lite	"+5713103150030"


;VARIABLES PARA INICIAR

		setri	20	10
		clear
		disl	numero_m
		at	6



&leavarf		ret


;-----------------------------------------------