control_motor2.lst

Embedded camera control program.

0198:  MOVF   72,W
0199:  MOVWF  77
019A:  MOVF   73,W
019B:  BSF    03.5
019C:  MOVWF  26
019D:  MOVF   74,W
019E:  MOVWF  25
019F:  MOVF   75,W
01A0:  MOVWF  24
01A1:  GOTO   1AC
01A2:  BCF    03.5
01A3:  MOVF   6E,W
01A4:  MOVWF  77
01A5:  MOVF   6F,W
01A6:  BSF    03.5
01A7:  MOVWF  26
01A8:  MOVF   70,W
01A9:  MOVWF  25
01AA:  MOVF   71,W
01AB:  MOVWF  24
01AC:  MOVF   26,W
01AD:  MOVWF  78
01AE:  MOVF   25,W
01AF:  MOVWF  79
01B0:  MOVF   24,W
01B1:  MOVWF  7A
01B2:  GOTO   1EB
01B3:  CLRF   77
01B4:  CLRF   78
01B5:  CLRF   79
01B6:  CLRF   7A
01B7:  GOTO   1EB
01B8:  CLRF   23
01B9:  COMF   24,F
01BA:  COMF   25,F
01BB:  COMF   26,F
01BC:  COMF   23,F
01BD:  INCF   23,F
01BE:  BTFSS  03.2
01BF:  GOTO   1C6
01C0:  INCF   24,F
01C1:  BTFSS  03.2
01C2:  GOTO   1C6
01C3:  INCF   25,F
01C4:  BTFSC  03.2
01C5:  INCF   26,F
01C6:  BTFSC  22.0
01C7:  GOTO   0C6
01C8:  BTFSC  22.1
01C9:  GOTO   10E
01CA:  BTFSC  22.2
01CB:  GOTO   144
01CC:  GOTO   175
01CD:  MOVF   00,W
01CE:  ADDWF  24,F
01CF:  BTFSS  03.0
01D0:  GOTO   1D7
01D1:  INCF   25,F
01D2:  BTFSS  03.2
01D3:  GOTO   1D7
01D4:  INCF   26,F
01D5:  BTFSC  03.2
01D6:  BSF    20.0
01D7:  DECF   04,F
01D8:  MOVF   00,W
01D9:  ADDWF  25,F
01DA:  BTFSS  03.0
01DB:  GOTO   1DF
01DC:  INCF   26,F
01DD:  BTFSC  03.2
01DE:  BSF    20.0
01DF:  DECF   04,F
01E0:  MOVF   00,W
01E1:  BTFSS  00.7
01E2:  XORLW  80
01E3:  ADDWF  26,F
01E4:  BTFSC  03.0
01E5:  BSF    20.0
01E6:  BTFSC  22.4
01E7:  GOTO   0CD
01E8:  BTFSC  22.5
01E9:  GOTO   115
01EA:  GOTO   14B
01EB:  NOP
01EC:  BCF    03.5
01ED:  RETLW  00
01EE:  MOVF   67,W
01EF:  BTFSC  03.2
01F0:  GOTO   2B3
01F1:  MOVWF  73
01F2:  MOVF   6B,W
01F3:  BTFSC  03.2
01F4:  GOTO   2B3
01F5:  SUBWF  73,F
01F6:  BTFSS  03.0
01F7:  GOTO   1FD
01F8:  MOVLW  7F
01F9:  ADDWF  73,F
01FA:  BTFSC  03.0
01FB:  GOTO   2B3
01FC:  GOTO   203
01FD:  MOVLW  81
01FE:  SUBWF  73,F
01FF:  BTFSS  03.0
0200:  GOTO   2B3
0201:  BTFSC  03.2
0202:  GOTO   2B3
0203:  MOVF   73,W
0204:  MOVWF  77
0205:  CLRF   78
0206:  CLRF   79
0207:  CLRF   7A
0208:  CLRF   72
0209:  MOVF   68,W
020A:  MOVWF  71
020B:  BSF    71.7
020C:  MOVF   69,W
020D:  MOVWF  70
020E:  MOVF   6A,W
020F:  MOVWF  6F
0210:  MOVLW  19
0211:  MOVWF  73
0212:  MOVF   6E,W
0213:  SUBWF  6F,F
0214:  BTFSC  03.0
0215:  GOTO   226
0216:  MOVLW  01
0217:  SUBWF  70,F
0218:  BTFSC  03.0
0219:  GOTO   226
021A:  SUBWF  71,F
021B:  BTFSC  03.0
021C:  GOTO   226
021D:  SUBWF  72,F
021E:  BTFSC  03.0
021F:  GOTO   226
0220:  INCF   72,F
0221:  INCF   71,F
0222:  INCF   70,F
0223:  MOVF   6E,W
0224:  ADDWF  6F,F
0225:  GOTO   258
0226:  MOVF   6D,W
0227:  SUBWF  70,F
0228:  BTFSC  03.0
0229:  GOTO   241
022A:  MOVLW  01
022B:  SUBWF  71,F
022C:  BTFSC  03.0
022D:  GOTO   241
022E:  SUBWF  72,F
022F:  BTFSC  03.0
0230:  GOTO   241
0231:  INCF   72,F
0232:  INCF   71,F
0233:  MOVF   6D,W
0234:  ADDWF  70,F
0235:  MOVF   6E,W
0236:  ADDWF  6F,F
0237:  BTFSS  03.0
0238:  GOTO   258
0239:  INCF   70,F
023A:  BTFSS  03.2
023B:  GOTO   258
023C:  INCF   71,F
023D:  BTFSS  03.2
023E:  GOTO   258
023F:  INCF   72,F
0240:  GOTO   258
0241:  MOVF   6C,W
0242:  IORLW  80
0243:  SUBWF  71,F
0244:  BTFSC  03.0
0245:  GOTO   257
0246:  MOVLW  01
0247:  SUBWF  72,F
0248:  BTFSC  03.0
0249:  GOTO   257
024A:  INCF   72,F
024B:  MOVF   6C,W
024C:  IORLW  80
024D:  ADDWF  71,F
024E:  MOVF   6D,W
024F:  ADDWF  70,F
0250:  BTFSS  03.0
0251:  GOTO   235
0252:  INCF   71,F
0253:  BTFSS  03.2
0254:  GOTO   235
0255:  INCF   72,F
0256:  GOTO   235
0257:  BSF    7A.0
0258:  DECFSZ 73,F
0259:  GOTO   25B
025A:  GOTO   266
025B:  BCF    03.0
025C:  RLF    6F,F
025D:  RLF    70,F
025E:  RLF    71,F
025F:  RLF    72,F
0260:  BCF    03.0
0261:  RLF    7A,F
0262:  RLF    79,F
0263:  RLF    78,F
0264:  RLF    74,F
0265:  GOTO   212
0266:  BTFSS  74.0
0267:  GOTO   26E
0268:  BCF    03.0
0269:  RRF    78,F
026A:  RRF    79,F
026B:  RRF    7A,F
026C:  RRF    74,F
026D:  GOTO   271
026E:  DECF   77,F
026F:  BTFSC  03.2
0270:  GOTO   2B3
0271:  BTFSC  74.7
0272:  GOTO   29A
0273:  BCF    03.0
0274:  RLF    6F,F
0275:  RLF    70,F
0276:  RLF    71,F
0277:  RLF    72,F
0278:  MOVF   6E,W
0279:  SUBWF  6F,F
027A:  BTFSC  03.0
027B:  GOTO   286
027C:  MOVLW  01
027D:  SUBWF  70,F
027E:  BTFSC  03.0
027F:  GOTO   286
0280:  SUBWF  71,F
0281:  BTFSC  03.0
0282:  GOTO   286
0283:  SUBWF  72,F
0284:  BTFSS  03.0
0285:  GOTO   2A9
0286:  MOVF   6D,W
0287:  SUBWF  70,F
0288:  BTFSC  03.0
0289:  GOTO   291
028A:  MOVLW  01
028B:  SUBWF  71,F
028C:  BTFSC  03.0
028D:  GOTO   291
028E:  SUBWF  72,F
028F:  BTFSS  03.0
0290:  GOTO   2A9
0291:  MOVF   6C,W
0292:  IORLW  80
0293:  SUBWF  71,F
0294:  BTFSC  03.0
0295:  GOTO   29A
0296:  MOVLW  01
0297:  SUBWF  72,F
0298:  BTFSS  03.0
0299:  GOTO   2A9
029A:  INCF   7A,F
029B:  BTFSS  03.2
029C:  GOTO   2A9
029D:  INCF   79,F
029E:  BTFSS  03.2
029F:  GOTO   2A9
02A0:  INCF   78,F
02A1:  BTFSS  03.2
02A2:  GOTO   2A9
02A3:  INCF   77,F
02A4:  BTFSC  03.2
02A5:  GOTO   2B3
02A6:  RRF    78,F
02A7:  RRF    79,F
02A8:  RRF    7A,F
02A9:  MOVF   68,W
02AA:  MOVWF  73
02AB:  MOVF   6C,W
02AC:  XORWF  73,F
02AD:  BTFSS  73.7
02AE:  GOTO   2B1
02AF:  BSF    78.7
02B0:  GOTO   2B7
02B1:  BCF    78.7
02B2:  GOTO   2B7
02B3:  CLRF   77
02B4:  CLRF   78
02B5:  CLRF   79
02B6:  CLRF   7A
02B7:  NOP
02B8:  BCF    0A.3
02B9:  BCF    0A.4
02BA:  GOTO   3A0 (RETURN)
*
03E6:  MOVF   5D,W
03E7:  MOVWF  66
03E8:  MOVF   5E,W
03E9:  MOVWF  67
03EA:  CLRF   68
03EB:  BTFSS  5A.7
03EC:  GOTO   3EF
03ED:  BSF    66.6
03EE:  DECF   67,F
03EF:  BSF    5A.7
03F0:  MOVF   59,W
03F1:  BTFSC  03.2
03F2:  GOTO   492
03F3:  MOVLW  7F
03F4:  SUBWF  59,W
03F5:  BTFSS  03.0
03F6:  GOTO   44E
03F7:  MOVWF  59
03F8:  CLRF   69
03F9:  MOVLW  04
03FA:  MOVWF  6A
03FB:  BCF    03.0
03FC:  RLF    5C,F
03FD:  RLF    5B,F
03FE:  RLF    5A,F
03FF:  RLF    68,F
0400:  DECFSZ 6A,F
0401:  GOTO   3FB
0402:  MOVLW  04
0403:  SUBWF  59,W
0404:  BTFSC  03.0
0405:  GOTO   40E
0406:  MOVLW  03
0407:  SUBWF  59,W
0408:  BTFSS  03.2
0409:  GOTO   488
040A:  MOVLW  0A
040B:  SUBWF  68,W
040C:  BTFSS  03.0
040D:  GOTO   488
040E:  MOVLW  03
040F:  SUBWF  59,F
0410:  INCF   69,F
0411:  CALL   55C
0412:  BCF    03.0
0413:  RLF    5C,F
0414:  RLF    5B,F
0415:  RLF    5A,F
0416:  RLF    68,F
0417:  CALL   545
0418:  MOVLW  02
0419:  MOVWF  6A
041A:  BCF    03.0
041B:  RRF    68,F
041C:  RRF    5A,F
041D:  RRF    5B,F
041E:  RRF    5C,F
041F:  DECFSZ 6A,F
0420:  GOTO   41A
0421:  CALL   55C
0422:  MOVLW  04
0423:  MOVWF  6A
0424:  BCF    03.0
0425:  RRF    5D,F
0426:  RRF    5E,F
0427:  RRF    5F,F
0428:  RRF    60,F
0429:  DECFSZ 6A,F
042A:  GOTO   424
042B:  CALL   545
042C:  CALL   55C
042D:  MOVF   5F,W
042E:  MOVWF  60
042F:  MOVF   5E,W
0430:  MOVWF  5F
0431:  MOVF   5D,W
0432:  MOVWF  5E
0433:  CLRF   5D
0434:  CALL   545
0435:  CALL   55C
0436:  MOVF   5E,W
0437:  MOVWF  60
0438:  MOVF   5D,W
0439:  MOVWF  5F
043A:  CLRF   5D
043B:  CLRF   5E
043C:  CALL   545
043D:  BTFSC  68.3
043E:  GOTO   402
043F:  MOVF   59,F
0440:  BTFSS  03.2
0441:  GOTO   447
0442:  INCF   5C,F
0443:  INCF   5B,F
0444:  INCF   5A,F
0445:  INCF   68,F
0446:  GOTO   488
0447:  BCF    03.0
0448:  RLF    5C,F
0449:  RLF    5B,F
044A:  RLF    5A,F
044B:  RLF    68,F
044C:  DECF   59,F
044D:  GOTO   402
044E:  COMF   59,F
044F:  INCF   59,F
0450:  MOVLW  7F
0451:  ADDWF  59,F
0452:  CLRF   69
0453:  MOVLW  04
0454:  MOVWF  6A
0455:  BCF    03.0
0456:  RLF    5C,F
0457:  RLF    5B,F
0458:  RLF    5A,F
0459:  RLF    68,F
045A:  DECFSZ 6A,F
045B:  GOTO   455
045C:  MOVLW  04
045D:  ADDWF  59,F
045E:  MOVLW  05
045F:  SUBWF  59,W
0460:  BTFSS  03.0
0461:  GOTO   494
0462:  CALL   55C
0463:  BCF    03.0
0464:  RLF    5C,F
0465:  RLF    5B,F