mida 14 ;------------------------------------------------------------- ;Aplicación -> ;Fecha -> ;------------------------------------------------------------- scan equ 99 ;programa principal--------------------------------------- &ini ld scan jz &lea jmp inicio &lea call &leavar ;PROGRAMA PRINCIPAL ----------------------------------------------- inicio nop call disp call proc call ala ld izq and arr jnz ini1 jmp fin ini1 ld tecla jnz fin call cali fin end ;--------------------------------------------------- proc setri 157 1 movri 97 ;hora mayor dia movri hodia cpgei pro1 reset x>a jmp pro2 pro1 set x>a pro2 movri 97 ;hora menor noche movri honoc cpli pro21 reset xa and xa equ 160 xb equ 163 ;[REG_INTEGERS] temgeni equ 150 ;tiempo de tempo tala equ 155 ;temporal temp para ala hala equ 156 tei equ 110 hui equ 111 ythi equ 121 ytli equ 122 yhhi equ 123 yhli equ 124 hodia equ 400 ;hora dia honoc equ 401 noc equ 402 tdia equ 403 hdia equ 404 tnoc equ 405 hnoc equ 406 ;[REG_FLOATS] temp equ 10 hume equ 11 tot equ 136 hot equ 137 yth equ 220 ytl equ 221 xth equ 222 xtl equ 223 tx equ 224 ty equ 225 tmx equ 226 yhh equ 230 yhl equ 231 xhh equ 232 xhl equ 233 hx equ 234 hy equ 235 hmx equ 236 tk equ 408 hk equ 409 hb equ 416 tb equ 417 ;[TIM] timgen equ 48 timagu equ 49 ;[CNT] ;[NOP] calib lite "V-I" e-c lite "E-C?" cien lite "100" cincu lite "50" calit lite "TEM" calih lite "HUM" te-h lite "T-H" te-l lite "T-L" hu-h lite "H-H" hu-l lite "H-L" dtemp lite "T=" dhume lite "H=" dhodia lite "HOD e/c" dhonoc lite "HON e/c" dnoc lite "TNC e/c" dtdia lite "TD e/c" dhdia lite "HD e/c" dtnoc lite "TN e/c" dhnoc lite "HN e/c" agua lite "L AG" sobtem lite "H T" sobhum lite "H H" ;inicio variables &leavarf ret ;-----------------------------------------------