mida 14 ;------------------------------------------------------------- ;Aplicación -> icoharinas monitoreo tem y humedad ;Fecha -> dic. 18 2006 ;------------------------------------------------------------- scan equ 99 ;programa principal--------------------------------------- &ini ld scan jz &lea jmp ini0 &lea call &leavar ini0 nop call calc call disp ld arr and izq jnz ini2 jmp inif ini2 call cali inif end ;------------------------------------------- ;disp disp flanc bot 1 out bot1 ink ent ;scroll de variables segun or bot1 jnz disp1 ;valor de scro jmp disp2 disp1 inc scro 1 movri scro movci 4 cpgi disp11 jmp disp2 disp11 movci 0 stoi scro ; ------------------------------ disp2 movri scro movci 0 cpei disp21 jmp disp3 disp21 set 118 reset 119 reset 120 reset 121 reset 122 clear disrf v110 41 ;canal1 com 0 clear disrf v111 41 ;canal2 com 1 disp3 movri scro movci 1 cpei disp31 jmp disp4 disp31 reset 118 set 119 reset 120 reset 121 reset 122 clear disrf v112 41 ;canal3 com 0 clear disrf v113 41 ;canal4 com 1 disp4 movri scro movci 2 cpei disp41 jmp disp5 disp41 reset 118 reset 119 set 120 reset 121 reset 122 clear disrf v114 41 ;canal5 com 0 clear disrf v115 41 ;canal6 com 1 disp5 movri scro movci 3 cpei disp51 jmp dispf disp51 reset 118 reset 119 reset 120 set 121 reset 122 clear disrf v116 41 ;canal7 com 0 clear disrf v117 41 ;canal8 com 1 dispf ret ;------------------------------------------------ calc movif 110 movrf k110 mulf stof k110t movrf k110t movrf b110 addf stof v110 movif 111 movrf k111 mulf stof k111t movrf k111t movrf b111 addf stof v111 movif 112 movrf k112 mulf stof k112t movrf k112t movrf b112 addf stof v112 movif 113 movrf k113 mulf stof k113t movrf k113t movrf b113 addf stof v113 movif 114 movrf k114 mulf stof k114t movrf k114t movrf b114 addf stof v114 movif 115 movrf k115 mulf stof k115t movrf k115t movrf b115 addf stof v115 movif 116 movrf k116 mulf stof k116t movrf k116t movrf b116 addf stof v116 movif 117 movrf k117 mulf stof k117t movrf k117t movrf b117 addf stof v117 calcif ret ;---------------------------------------------------- cali clear disl can_v com 0 clear com 1 ini 1 stoi canal cali1 clear ;dato Y1 disl y-h com 0 clear com 1 inf 2 1 stof yhf movix canal ;dato X1 alto;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; stoi xhit movif xhit stof xhf clear ;dato YO low disl y-l com 0 clear com 1 inf 2 1 stof ylf movix canal ;dato XO;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; stoi xlit movif xlit stof xlf movrf xhf ;X1-XO movrf xlf subf stof vx movrf yhf ;Y1-YO movrf ylf subf stof vy movrf vy ;Y1-Y0 / X1-XO movrf vx divf stof vk movrf vk ; K * XO movrf xlf mulf stof vkx movrf ylf ;B = YO - K*XO movrf vkx subf stof vb cal110 movri canal movci 110 cpei cal110a jmp cal111 cal110a movrf vk stof k110 movrf vb stof b110 cal111 movri canal movci 111 cpei cal111a jmp cal112 cal111a movrf vk stof k111 movrf vb stof b111 cal112 movri canal movci 112 cpei cal112a jmp cal113 cal112a movrf vk stof k112 movrf vb stof b112 cal113 movri canal movci 113 cpei cal113a jmp cal114 cal113a movrf vk stof k113 movrf vb stof b113 cal114 movri canal movci 114 cpei cal114a jmp cal115 cal114a movrf vk stof k114 movrf vb stof b114 cal115 movri canal movci 115 cpei cal115a jmp cal116 cal115a movrf vk stof k115 movrf vb stof b115 cal116 movri canal movci 116 cpei cal116a jmp cal117 cal116a movrf vk stof k116 movrf vb stof b116 cal117 movri canal movci 117 cpei cal117a jmp calif cal117a movrf vk stof k117 movrf vb stof b117 calif clear com 2 ret ;----------------------------------------------------- &leavar ;[REG_RELAYS] ent equ 30 cle equ 31 arr equ 32 izq equ 33 ;disp bot equ 0 ;entrada de boton para cambio de display bot1 equ 130 ;aux del anterior para hacer el or con ent ;[REG_INTEGERS] ;cali xhi equ 200 ;valor alto de x entero xli equ 201 ;valor bajo de x entero canal equ 202 ;canal a calibrar ;disp scro equ 203 ;scrol para mover pantallas xhit equ 204 ;temporal de lectura de canal entero xlit equ 205 ;[REG_FLOATS] ;cali yhf equ 100 ;valor de y alto xhf equ 101 ;valor de x alto ylf equ 102 ;valor de y bajo xlf equ 103 ;valor de x bajo vx equ 104 ;x-xo vy equ 105 ;y-yo vk equ 106 ;pendiente k vkx equ 107 ;k*x vb equ 108 ;valor de b k110 equ 400 ;k de ese canal b110 equ 401 ;b de ese canal k111 equ 402 ;k de ese canal b111 equ 403 ;b de ese canal k112 equ 404 ;k de ese canal b112 equ 405 ;b de ese canal k113 equ 406 ;k de ese canal b113 equ 407 ;b de ese canal k114 equ 408 ;k de ese canal b114 equ 409 ;b de ese canal k115 equ 410 ;k de ese canal b115 equ 411 ;b de ese canal k116 equ 412 ;k de ese canal b116 equ 413 ;b de ese canal k117 equ 414 ;k de ese canal b117 equ 415 ;b de ese canal ;calc k110t equ 110 ;temporal de k*x v110 equ 111 ;valor real de la variable de ese canal k111t equ 112 ;temporal de k*x v111 equ 113 ;valor real de la variable de ese canal k112t equ 114 ;temporal de k*x v112 equ 115 ;valor real de la variable de ese canal k113t equ 116 ;temporal de k*x v113 equ 117 ;valor real de la variable de ese canal k114t equ 118 ;temporal de k*x v114 equ 119 ;valor real de la variable de ese canal k115t equ 120 ;temporal de k*x v115 equ 121 ;valor real de la variable de ese canal k116t equ 122 ;temporal de k*x v116 equ 123 ;valor real de la variable de ese canal k117t equ 124 ;temporal de k*x v117 equ 125 ;valor real de la variable de ese canal ;[TIM] ;[CNT] ;[NOP] ;cali y-h lite "V-H" ;valor alto y-l lite "V-L" ;valor bajo can_v lite "CAN" ;CANAL ;VARIABLES PARA INICIAR &leavarf ret ;-----------------------------------------------