final.lst

imagenes de reconocimeito facial que serviran para procesar rostros

FINAL                                                                                                         PAGE 1

                       1    $MOD51  ; This includes 8051 definitions for the metalink assembler
                       2    
  0080                 3    FOTO1 EQU P0.0
  0081                 4    FOTO2 EQU P0.1
  0082                 5    FOTO3 EQU P0.2
  0083                 6    FOTO4 EQU P0.3
  00B0                 7    PULSO EQU P3.0
  00B1                 8    PULSO1 EQU P3.1
  0080                 9    DATOS EQU P0 
  00B4                10    RS EQU P3.4 
  00B5                11    E EQU P3.5      
  00B6                12    RW EQU P3.6 
  0018                13    CONT1 EQU 18H
  0019                14    CONT2 EQU 19H
                      15    
0000                  16    ORG 0
0000 020016           17    JMP MAIN
                      18    
0003                  19    ORG 03H
0003 0202FA           20    JMP SERVO1
                      21    
000B                  22    ORG 0BH
000B 0202BB           23    JMP PWM
                      24    
0013                  25    ORG 13H
0013 02032E           26    JMP SERVO2 
                      27     
0016 758170           28    MAIN:      MOV SP, #70H
0019 75A887           29                              MOV IE, #10000111B
001C 758911           30                              MOV TMOD, #00010001B
001F D288             31                              SETB IT0
0021 D28A             32                              SETB IT1
0023 758CFF           33                              MOV TH0, #0FFH
0026 758A9C           34                              MOV TL0, #9CH
                      35                                                      
0029 D2B5             36                              SETB E
002B 758DC5           37               MOV TH1, #0C5h       ;Constante para 15ms
002E 758B68           38               MOV TL1, #68h       
0031 C2B6             39               CLR RW            ;RW = 0
0033 C2B4             40               CLR RS             ;RS = 0
0035 D28E             41               SETB TR1            
0037 308FFD           42               JNB TF1, $                ;Esperar 15ms
003A C28E             43               CLR TR1
                      44    
003C D2B5             45               SETB E
003E 759038           46               MOV P1, #00111000b   ;Palabra de control 1
0041 C2B5             47               CLR E
0043 00               48               NOP
0044 00               49               NOP                                          ;esperar mas de 4.7u
0045 00               50               NOP
                      51    
0046 D2B5             52               SETB E
0048 759030           53               MOV P1, #00110000b   ;Palabra de control 2
004B C2B5             54                              CLR E
004D D28E             55                              SETB TR1            
004F 308FFD           56                              JNB TF1, $                  ;esperar 15ms
0052 C28E             57                              CLR TR1
                      58    
FINAL                                                                                                         PAGE 2

0054 D2B5             59                              SETB E
0056 759030           60                              MOV P1, #00110000b   ;Palabra de control 3
0059 C2B5             61                              CLR E
005B 00               62                              NOP
005C 00               63                              NOP
                      64    
005D D2B5             65               SETB E
005F 759038           66               MOV P1, #00111000B  ;palabra con N y F
0062 C2B5             67               CLR E
0064 00               68               NOP
0065 00               69               NOP
                      70    
0066 D2B5             71               SETB E
0068 75900C           72               MOV P1, #00001100B  ;Enciende LCD
006B C2B5             73               CLR E
006D 00               74               NOP
006E 00               75               NOP
                      76    
006F D2B5             77               SETB E
0071 759001           78               MOV P1, #00000001   ;Limpiar Pantalla
0074 C2B5             79               CLR E
0076 00               80               NOP
0077 00               81               NOP
                      82    
0078 D2B5             83               SETB E
007A 759006           84               MOV P1, #00000110b   ;Modo de Entrada
007D C2B5             85               CLR E
                      86     
                      87    
007F D2B4             88    TRABAJA:   SETB RS                      ;RS = 1
0081 D2B5             89               SETB E
0083 75904F           90               MOV P1,#'O'   
0086 1200FE           91               CALL ESC
                      92               
0089 D2B4             93               SETB RS
008B 759050           94               MOV P1,#'P' 
008E 1200FE           95               CALL ESC
                      96    
0091 D2B4             97               SETB RS
0093 759045           98               MOV P1,#'E' 
0096 1200FE           99               CALL ESC
                     100    
0099 D2B4            101               SETB RS
009B 759052          102               MOV P1,#'R'  
009E 1200FE          103               CALL ESC
                     104     
00A1 D2B4            105               SETB RS
00A3 759041          106               MOV P1,#'A'  
00A6 1200FE          107               CALL ESC
                     108    
00A9 D2B4            109               SETB RS
00AB 759054          110               MOV P1,#'T'   
00AE 1200FE          111               CALL ESC
                     112     
00B1 D2B4            113               SETB RS
00B3 759049          114               MOV P1,#'I'   
00B6 1200FE          115               CALL ESC
                     116    
FINAL                                                                                                         PAGE 3

00B9 D2B4            117               SETB RS
00BB 75904F          118               MOV P1,#'O'   
00BE 1200FE          119               CALL ESC
                     120    
00C1 D2B4            121               SETB RS
00C3 75904E          122               MOV P1,#'N'   
00C6 1200FE          123               CALL ESC
                     124    
00C9 D2B4            125               SETB RS
00CB 759020          126               MOV P1,#' '   
00CE 1200FE          127               CALL ESC
                     128    
00D1 D2B4            129               SETB RS
00D3 75904D          130               MOV P1,#'M'   
00D6 1200FE          131               CALL ESC
                     132    
00D9 D2B4            133               SETB RS
00DB 75904F          134                              MOV P1,#'O'   
00DE 1200FE          135                              CALL ESC
                     136    
00E1 D2B4            137               SETB RS
00E3 759044          138               MOV P1,#'D'   
00E6 1200FE          139                              CALL ESC 
                     140    
00E9 D2B4            141               SETB RS
00EB 759045          142               MOV P1,#'E'   
00EE 1200FE          143               CALL ESC
                     144    
00F1 D2B4            145               SETB RS
00F3 75903F          146               MOV P1,#'?'   
00F6 1200FE          147               CALL ESC
                     148    
                     149    
00F9 00              150               NOP
00FA 00              151               NOP 
00FB 020109          152               JMP ACA
                     153                    
00FE C2B5            154    ESC:       CLR E          
0100 00              155               NOP
0101 00              156               NOP
0102 D2B5            157               SETB E
0104 7B1E            158               MOV R3,#30
0106 DBFE            159               DJNZ R3,$
0108 22              160               RET
                     161               
0109 7C32            162    ACA:              MOV R4, #50
010B 7E17            163                              MOV R6, #23
010D 752117          164                              MOV 21H, #23
0110 752517          165                              MOV 25H, #23
0113 C206            166                              CLR 20H.6
0115 C200            167                              CLR 20H.0
0117 D28C            168                              SETB TR0
0119 D2B0            169                              SETB PULSO
011B 3000FD          170                              JNB  20H.0, $
011E D2B1            171                              SETB PULSO1
0120 7E17            172                              MOV R6, #23
0122 752317          173                              MOV 23H, #23
0125 D28C            174                              SETB TR0
FINAL                                                                                                         PAGE 4

0127 D206            175                              SETB 20H.6
0129 2006FD          176                              JB 20H.6, $
012C 0201B3          177                         JMP AUTO
                     178                      
012F C2B4            179    OTRA432:   CLR RS
0131 759001          180               MOV P1, #00000001   ;Limpiar Pantalla
0134 11FE            181               CALL ESC
0136 D2B4            182               SETB RS
                     183    
0138 D2B4            184               SETB RS                      ;RS = 1
013A D2B5            185               SETB E
013C 759041          186               MOV P1,#'A'   
013F 11FE            187               CALL ESC
                     188    
0141 D2B4            189                       SETB RS                      ;RS = 1
0143 759055          190               MOV P1,#'U'   
0146 11FE            191               CALL ESC