Rev 410 | Rev 625 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download
CCS PCM C Compiler, Version 4.090, 47914 23-I-10 18:21Filename: D:\svnKaklik\programy\C\PIC_C\mereni\tester serv\blikac.lstROM used: 141 words (14%)Largest free fragment is 883RAM used: 7 (19%) at main() level8 (22%) worst caseStack: 1 locations*0000: MOVLW 000001: MOVWF 0A0002: GOTO 02B0003: NOP.................... #include "blikac.h".................... #include <16C84.h>.................... //////// Standard Header file for the PIC16C84 device ////////////////.................... #device PIC16C84.................... #list........................................ #use delay(clock=4000000)0004: MOVLW 130005: MOVWF 040006: MOVF 00,W0007: BTFSC 03.20008: GOTO 0170009: MOVLW 01000A: MOVWF 0D000B: CLRF 0C000C: DECFSZ 0C,F000D: GOTO 00C000E: DECFSZ 0D,F000F: GOTO 00B0010: MOVLW 4A0011: MOVWF 0C0012: DECFSZ 0C,F0013: GOTO 0120014: GOTO 0150015: DECFSZ 00,F0016: GOTO 0090017: RETLW 000018: MOVLW 120019: SUBWF 14,F001A: BTFSS 03.0001B: GOTO 02A001C: MOVLW 14001D: MOVWF 04001E: MOVLW FC001F: ANDWF 00,F0020: BCF 03.00021: RRF 00,F0022: RRF 00,F0023: MOVF 00,W0024: BTFSC 03.20025: GOTO 02A0026: GOTO 0280027: NOP0028: DECFSZ 00,F0029: GOTO 027002A: GOTO 07E (RETURN).................... #fuses XT,PUT,NOWDT............................................................ #DEFINE SERVO_X PIN_A2 // piny na ktere jsou pripojena serva.................... #DEFINE SERVO_Y PIN_B0.................... #DEFINE TL1 PIN_B1........................................ void main().................... {002B: CLRF 04002C: MOVLW 1F002D: ANDWF 03,F.................... int i;.................... while (true).................... {.................... while(input(TL1)).................... {002E: BSF 03.5002F: BSF 06.10030: BCF 03.50031: BTFSS 06.10032: GOTO 06E.................... for(i=0;i<=100;i++)0033: CLRF 120034: MOVF 12,W0035: SUBLW 640036: BTFSS 03.00037: GOTO 050.................... {.................... output_high(servo_y);0038: BSF 03.50039: BCF 06.0003A: BCF 03.5003B: BSF 06.0.................... output_high(servo_x);003C: BSF 03.5003D: BCF 05.2003E: BCF 03.5003F: BSF 05.2.................... delay_us(1000);0040: MOVLW 010041: MOVWF 130042: CALL 004.................... output_low(servo_y);0043: BSF 03.50044: BCF 06.00045: BCF 03.50046: BCF 06.0.................... output_low(servo_x);0047: BSF 03.50048: BCF 05.20049: BCF 03.5004A: BCF 05.2.................... delay_ms(20);004B: MOVLW 14004C: MOVWF 13004D: CALL 004.................... }004E: INCF 12,F004F: GOTO 034........................................ for(i=0;i<=100;i++)0050: CLRF 120051: MOVF 12,W0052: SUBLW 640053: BTFSS 03.00054: GOTO 06D.................... {.................... output_high(servo_y);0055: BSF 03.50056: BCF 06.00057: BCF 03.50058: BSF 06.0.................... output_high(servo_x);0059: BSF 03.5005A: BCF 05.2005B: BCF 03.5005C: BSF 05.2.................... delay_us(2000);005D: MOVLW 02005E: MOVWF 13005F: CALL 004.................... output_low(servo_y);0060: BSF 03.50061: BCF 06.00062: BCF 03.50063: BCF 06.0.................... output_low(servo_x);0064: BSF 03.50065: BCF 05.20066: BCF 03.50067: BCF 05.2.................... delay_ms(20);0068: MOVLW 140069: MOVWF 13006A: CALL 004.................... }006B: INCF 12,F006C: GOTO 051.................... }006D: GOTO 02E.................... output_high(servo_y);006E: BSF 03.5006F: BCF 06.00070: BCF 03.50071: BSF 06.0.................... output_high(servo_x);0072: BSF 03.50073: BCF 05.20074: BCF 03.50075: BSF 05.2.................... delay_us(1500);0076: MOVLW 010077: MOVWF 130078: CALL 0040079: MOVLW 02007A: MOVWF 13007B: MOVLW F7007C: MOVWF 14007D: GOTO 018007E: DECFSZ 13,F007F: GOTO 07B.................... output_low(servo_y);0080: BSF 03.50081: BCF 06.00082: BCF 03.50083: BCF 06.0.................... output_low(servo_x);0084: BSF 03.50085: BCF 05.20086: BCF 03.50087: BCF 05.2.................... delay_ms(20);0088: MOVLW 140089: MOVWF 13008A: CALL 004.................... }008B: GOTO 02E.................... }008C: SLEEPConfiguration Fuses:Word 1: 3FF9 XT NOWDT PUT NOPROTECT