psp_wrt_transmitter.lst

Embedded camera control program.

03EA:  RRF    52,F
03EB:  RRF    51,F
03EC:  RRF    50,F
03ED:  RRF    4F,F
03EE:  DECFSZ 4C,F
03EF:  GOTO   3E8
03F0:  BTFSS  4D.7
03F1:  GOTO   3F5
03F2:  BSF    4E.1
03F3:  GOTO   496
03F4:  BCF    4E.1
03F5:  BCF    4C.0
03F6:  BSF    4E.5
03F7:  MOVLW  CB
03F8:  MOVWF  04
03F9:  BCF    03.7
03FA:  GOTO   4AB
03FB:  BCF    4E.5
03FC:  BTFSC  4D.7
03FD:  GOTO   408
03FE:  BTFSS  4C.0
03FF:  GOTO   413
0400:  RRF    52,F
0401:  RRF    51,F
0402:  RRF    50,F
0403:  RRF    4F,F
0404:  INCF   77,F
0405:  BTFSC  03.2
0406:  GOTO   491
0407:  GOTO   413
0408:  BTFSC  52.7
0409:  GOTO   416
040A:  BCF    03.0
040B:  RLF    4F,F
040C:  RLF    50,F
040D:  RLF    51,F
040E:  RLF    52,F
040F:  DECF   77,F
0410:  BTFSC  03.2
0411:  GOTO   491
0412:  GOTO   408
0413:  BSF    4E.7
0414:  GOTO   43E
0415:  BCF    4E.7
0416:  MOVF   49,W
0417:  MOVWF  4D
0418:  BTFSS  49.7
0419:  GOTO   41C
041A:  BSF    52.7
041B:  GOTO   48A
041C:  BCF    52.7
041D:  GOTO   48A
041E:  MOVF   49,W
041F:  MOVWF  52
0420:  BSF    52.7
0421:  MOVF   4A,W
0422:  MOVWF  51
0423:  MOVF   4B,W
0424:  MOVWF  50
0425:  BTFSS  4D.7
0426:  GOTO   42B
0427:  BCF    52.7
0428:  BSF    4E.2
0429:  GOTO   496
042A:  BCF    4E.2
042B:  CLRF   4F
042C:  BCF    4C.0
042D:  MOVLW  C7
042E:  MOVWF  04
042F:  BCF    03.7
0430:  GOTO   4AB
0431:  BTFSC  4D.7
0432:  GOTO   454
0433:  MOVF   45,W
0434:  MOVWF  4D
0435:  BTFSS  4C.0
0436:  GOTO   43E
0437:  RRF    52,F
0438:  RRF    51,F
0439:  RRF    50,F
043A:  RRF    4F,F
043B:  INCF   77,F
043C:  BTFSC  03.2
043D:  GOTO   491
043E:  BTFSS  4F.7
043F:  GOTO   44F
0440:  INCF   50,F
0441:  BTFSS  03.2
0442:  GOTO   44F
0443:  INCF   51,F
0444:  BTFSS  03.2
0445:  GOTO   44F
0446:  INCF   52,F
0447:  BTFSS  03.2
0448:  GOTO   44F
0449:  RRF    52,F
044A:  RRF    51,F
044B:  RRF    50,F
044C:  INCF   77,F
044D:  BTFSC  03.2
044E:  GOTO   491
044F:  BTFSC  4E.6
0450:  GOTO   3D3
0451:  BTFSC  4E.7
0452:  GOTO   415
0453:  GOTO   473
0454:  MOVLW  80
0455:  XORWF  52,F
0456:  BTFSS  52.7
0457:  GOTO   45C
0458:  GOTO   496
0459:  MOVF   49,W
045A:  MOVWF  4D
045B:  GOTO   469
045C:  MOVF   45,W
045D:  MOVWF  4D
045E:  MOVF   52,F
045F:  BTFSS  03.2
0460:  GOTO   469
0461:  MOVF   51,F
0462:  BTFSS  03.2
0463:  GOTO   469
0464:  MOVF   50,F
0465:  BTFSS  03.2
0466:  GOTO   469
0467:  CLRF   77
0468:  GOTO   48A
0469:  BTFSC  52.7
046A:  GOTO   473
046B:  BCF    03.0
046C:  RLF    4F,F
046D:  RLF    50,F
046E:  RLF    51,F
046F:  RLF    52,F
0470:  DECFSZ 77,F
0471:  GOTO   469
0472:  GOTO   491
0473:  BTFSS  4D.7
0474:  GOTO   477
0475:  BSF    52.7
0476:  GOTO   48A
0477:  BCF    52.7
0478:  GOTO   48A
0479:  MOVF   48,W
047A:  MOVWF  77
047B:  MOVF   49,W
047C:  MOVWF  52
047D:  MOVF   4A,W
047E:  MOVWF  51
047F:  MOVF   4B,W
0480:  MOVWF  50
0481:  GOTO   48A
0482:  MOVF   44,W
0483:  MOVWF  77
0484:  MOVF   45,W
0485:  MOVWF  52
0486:  MOVF   46,W
0487:  MOVWF  51
0488:  MOVF   47,W
0489:  MOVWF  50
048A:  MOVF   52,W
048B:  MOVWF  78
048C:  MOVF   51,W
048D:  MOVWF  79
048E:  MOVF   50,W
048F:  MOVWF  7A
0490:  GOTO   4C9
0491:  CLRF   77
0492:  CLRF   78
0493:  CLRF   79
0494:  CLRF   7A
0495:  GOTO   4C9
0496:  CLRF   4F
0497:  COMF   50,F
0498:  COMF   51,F
0499:  COMF   52,F
049A:  COMF   4F,F
049B:  INCF   4F,F
049C:  BTFSS  03.2
049D:  GOTO   4A4
049E:  INCF   50,F
049F:  BTFSS  03.2
04A0:  GOTO   4A4
04A1:  INCF   51,F
04A2:  BTFSC  03.2
04A3:  INCF   52,F
04A4:  BTFSC  4E.0
04A5:  GOTO   3B2
04A6:  BTFSC  4E.1
04A7:  GOTO   3F4
04A8:  BTFSC  4E.2
04A9:  GOTO   42A
04AA:  GOTO   459
04AB:  MOVF   00,W
04AC:  ADDWF  50,F
04AD:  BTFSS  03.0
04AE:  GOTO   4B5
04AF:  INCF   51,F
04B0:  BTFSS  03.2
04B1:  GOTO   4B5
04B2:  INCF   52,F
04B3:  BTFSC  03.2
04B4:  BSF    4C.0
04B5:  DECF   04,F
04B6:  MOVF   00,W
04B7:  ADDWF  51,F
04B8:  BTFSS  03.0
04B9:  GOTO   4BD
04BA:  INCF   52,F
04BB:  BTFSC  03.2
04BC:  BSF    4C.0
04BD:  DECF   04,F
04BE:  MOVF   00,W
04BF:  BTFSS  00.7
04C0:  XORLW  80
04C1:  ADDWF  52,F
04C2:  BTFSC  03.0
04C3:  BSF    4C.0
04C4:  BTFSC  4E.4
04C5:  GOTO   3B9
04C6:  BTFSC  4E.5
04C7:  GOTO   3FB
04C8:  GOTO   431
04C9:  NOP
04CA:  BCF    03.5
04CB:  RETLW  00
04CC:  BSF    03.5
04CD:  MOVF   3E,W
04CE:  BTFSC  03.2
04CF:  GOTO   592
04D0:  MOVWF  4A
04D1:  MOVF   42,W
04D2:  BTFSC  03.2
04D3:  GOTO   592
04D4:  SUBWF  4A,F
04D5:  BTFSS  03.0
04D6:  GOTO   4DC
04D7:  MOVLW  7F
04D8:  ADDWF  4A,F
04D9:  BTFSC  03.0
04DA:  GOTO   592
04DB:  GOTO   4E2
04DC:  MOVLW  81
04DD:  SUBWF  4A,F
04DE:  BTFSS  03.0
04DF:  GOTO   592
04E0:  BTFSC  03.2
04E1:  GOTO   592
04E2:  MOVF   4A,W
04E3:  MOVWF  77
04E4:  CLRF   78
04E5:  CLRF   79
04E6:  CLRF   7A
04E7:  CLRF   49
04E8:  MOVF   3F,W
04E9:  MOVWF  48
04EA:  BSF    48.7
04EB:  MOVF   40,W
04EC:  MOVWF  47
04ED:  MOVF   41,W
04EE:  MOVWF  46
04EF:  MOVLW  19
04F0:  MOVWF  4A
04F1:  MOVF   45,W
04F2:  SUBWF  46,F
04F3:  BTFSC  03.0
04F4:  GOTO   505
04F5:  MOVLW  01
04F6:  SUBWF  47,F
04F7:  BTFSC  03.0
04F8:  GOTO   505
04F9:  SUBWF  48,F
04FA:  BTFSC  03.0
04FB:  GOTO   505
04FC:  SUBWF  49,F
04FD:  BTFSC  03.0
04FE:  GOTO   505
04FF:  INCF   49,F
0500:  INCF   48,F
0501:  INCF   47,F
0502:  MOVF   45,W
0503:  ADDWF  46,F
0504:  GOTO   537
0505:  MOVF   44,W
0506:  SUBWF  47,F
0507:  BTFSC  03.0
0508:  GOTO   520
0509:  MOVLW  01
050A:  SUBWF  48,F
050B:  BTFSC  03.0
050C:  GOTO   520
050D:  SUBWF  49,F
050E:  BTFSC  03.0
050F:  GOTO   520
0510:  INCF   49,F
0511:  INCF   48,F
0512:  MOVF   44,W
0513:  ADDWF  47,F
0514:  MOVF   45,W
0515:  ADDWF  46,F
0516:  BTFSS  03.0
0517:  GOTO   537
0518:  INCF   47,F
0519:  BTFSS  03.2
051A:  GOTO   537
051B:  INCF   48,F
051C:  BTFSS  03.2
051D:  GOTO   537
051E:  INCF   49,F
051F:  GOTO   537
0520:  MOVF   43,W
0521:  IORLW  80
0522:  SUBWF  48,F
0523:  BTFSC  03.0
0524:  GOTO   536
0525:  MOVLW  01
0526:  SUBWF  49,F
0527:  BTFSC  03.0
0528:  GOTO   536
0529:  INCF   49,F
052A:  MOVF   43,W
052B:  IORLW  80
052C:  ADDWF  48,F
052D:  MOVF   44,W
052E:  ADDWF  47,F
052F:  BTFSS  03.0
0530:  GOTO   514
0531:  INCF   48,F
0532:  BTFSS  03.2
0533:  GOTO   514
0534:  INCF   49,F
0535:  GOTO   514
0536:  BSF    7A.0
0537:  DECFSZ 4A,F
0538:  GOTO   53A
0539:  GOTO   545
053A:  BCF    03.0
053B:  RLF    46,F
053C:  RLF    47,F
053D:  RLF    48,F
053E:  RLF    49,F
053F:  BCF    03.0
0540:  RLF    7A,F
0541:  RLF    79,F
0542:  RLF    78,F
0543:  RLF    4B,F
0544:  GOTO   4F1
0545:  BTFSS  4B.0
0546:  GOTO   54D
0547:  BCF    03.0
0548:  RRF    78,F
0549:  RRF    79,F
054A:  RRF    7A,F
054B:  RRF    4B,F
054C:  GOTO   550
054D:  DECF   77,F
054E:  BTFSC  03.2
054F:  GOTO   592
0550:  BTFSC  4B.7
0551:  GOTO   579
0552:  BCF    03.0
0553:  RLF    46,F
0554:  RLF    47,F
0555:  RLF    48,F
0556:  RLF    49,F
0557:  MOVF   45,W
0558:  SUBWF  46,F
0559:  BTFSC  03.0
055A:  GOTO   565
055B:  MOVLW  01
055C:  SUBWF  47,F
055D:  BTFSC  03.0
055E:  GOTO   565
055F:  SUBWF  48,F
0560:  BTFSC  03.0
0561:  GOTO   565
0562:  SUBWF  49,F
0563:  BTFSS  03.0
0564:  GOTO   588
0565:  MOVF   44,W
0566:  SUBWF  47,F
0567:  BTFSC  03.0
0568:  GOTO   570
0569:  MOVLW  01
056A:  SUBWF  48,F
056B:  BTFSC  03.0
056C:  GOTO   570
056D:  SUBWF  49,F
056E:  BTFSS  03.0
056F:  GOTO   588
0570:  MOVF   43,W
0571:  IORLW  80
0572:  SUBWF  48,F
0573:  BTFSC  03.0
0574:  GOTO   579
0575:  MOVLW  01
0576:  SUBWF  49,F
0577:  BTFSS  03.0
0578:  GOTO   588
0579:  INCF   7A,F
057A:  BTFSS  03.2
057B:  GOTO   588
057C:  INCF   79,F
057D:  BTFSS  03.2
057E:  GOTO   588
057F:  INCF   78,F
0580:  BTFSS  03.2
0581:  GOTO   588
0582:  INCF   77,F
0583:  BTFSC  03.2
0584:  GOTO   592
0585:  RRF    78,F
0586:  RRF    79,F
0587:  RRF    7A,F
0588:  MOVF   3F,W
0589:  MOVWF  4A
058A:  MOVF   43,W
058B:  XORWF  4A,F
058C:  BTFSS  4A.7
058D:  GOTO   590
058E:  BSF    78.7
058F:  GOTO   596
0590:  BCF    78.7
0591:  GOTO   596
0592:  CLRF   77
0593:  CLRF   78
0594:  CLRF   79
0595:  CLRF   7A
0596:  NOP
0597:  BCF    03.5
0598:  RETLW  00
0599:  BSF    03.5
059A:  MOVF   3F,W
059B:  MOVWF  46
059C:  MOVF   43,W
059D:  XORWF  46,F
059E:  BTFSS  46.7
059F:  GOTO   5A5
05A0:  BCF    03.2
05A1:  BCF    03.0
05A2:  BTFSC  3F.7
05A3:  BSF    03.0
05A4:  GOTO   5D8
05A5:  MOVF   3F,W
05A6:  MOVWF  46
05A7:  MOVF   42,W
05A8:  MOVWF  47
05A9:  MOVF   3E,W
05AA:  SUBWF  47,F
05AB:  BTFSC  03.2
05AC:  GOTO   5B3
05AD:  BTFSS  46.7
05AE:  GOTO   5D8
05AF:  MOVF   03,W
05B0:  XORLW  01
05B1:  MOVWF  03
05B2:  GOTO   5D8
05B3:  MOVF   43,W
05B4:  MOVWF  47
05B5:  MOVF   3F,W
05B6:  SUBWF  47,F
05B7:  BTFSC  03.2
05B8:  GOTO   5BF
05B9:  BTFSS  46.7
05BA:  GOTO   5D8
05BB:  MOVF   03,W
05BC:  XORLW  01
05BD:  MOVWF  03
05BE:  GOTO   5D8
05BF:  MOVF   44,W
05C0:  MOVWF  47
05C1:  MOVF   40,W
05C2:  SUBWF  47,F
05C3:  BTFSC  03.2
05C4:  GOTO   5CB
05C5:  BTFSS  46.7
05C6:  GOTO   5D8
05C7:  MOVF   03,W
05C8:  XORLW  01
05C9:  MOVWF  03
05CA:  GOTO   5D8
05CB:  MOVF   45,W
05CC:  MOVWF  47
05CD:  MOVF   41,W
05CE:  SUBWF  47,F
05CF:  BTFSC  03.2
05D0:  GOTO   5D7
05D1:  BTFSS  46.7
05D2:  GOTO   5D8
05D3:  MOVF   03,W
05D4:  XORLW  01
05D5:  MOVWF  03
05D6:  GOTO   5D8
05D7:  BCF    03.0
05D8:  BCF    03.5
05D9:  RETLW  00
.................... #include <16f877.h> 
....................  //////// Standard Header file for the PIC16F877 device ////////////////  
.................... //#device PIC16F877  
.................... #list  
....................  
.................... #include <math.h> 
....................  ////////////////////////////////////////////////////////////////////////////  
.................... ////        (C) Copyright 1996,2003 Custom Computer Services            ////  
.................... //// This source code may only be used by licensed users of the CCS C   ////  
.................... //// compiler.  This source code may only be distributed to other       ////  
.................... //// licensed users of the CCS C compiler.  No other use, reproduction  ////  
.................... //// or distribution is permitted without written permission.           ////  
.................... //// Derivative programs created using this software in object code     ////  
.................... //// form are not restricted in any way.                                ////  
.................... ////////////////////////////////////////////////////////////////////////////  
.................... ////                                                                    ////  
.................... //// History:                                                           ////  
.................... ////  * 9/20/2001 :  Improvments are made to sin/cos code.              ////  
.................... ////                 The code now is small, much faster,                ////  
.................... ////                 and more accurate.                                 ////  
.................... ////                                                                    ////  
.................... ////////////////////////////////////////////////////////////////////////////  
....................   
.................... #ifndef MATH_H  
.................... #define MATH_H  
....................   
....................   
.................... #undef  PI  
.................... #define PI     3.141592654  
....................