psp_wrt_receiver.lst

Embedded camera control program.

01E9:  MOVWF  5B
01EA:  BTFSC  5F.7
01EB:  GOTO   1F7
01EC:  BTFSC  60.7
01ED:  GOTO   1F7
01EE:  MOVF   60,F
01EF:  BTFSC  03.2
01F0:  GOTO   1F7
01F1:  MOVLW  20
01F2:  BTFSS  0C.4
01F3:  GOTO   1F2
01F4:  MOVWF  19
01F5:  DECFSZ 60,F
01F6:  GOTO   1F1
01F7:  BTFSS  5F.6
01F8:  GOTO   1FD
01F9:  MOVLW  2D
01FA:  BTFSS  0C.4
01FB:  GOTO   1FA
01FC:  MOVWF  19
01FD:  BTFSS  5F.7
01FE:  GOTO   20A
01FF:  BTFSC  60.7
0200:  GOTO   20A
0201:  MOVF   60,F
0202:  BTFSC  03.2
0203:  GOTO   20A
0204:  MOVLW  30
0205:  BTFSS  0C.4
0206:  GOTO   205
0207:  MOVWF  19
0208:  DECFSZ 60,F
0209:  GOTO   201
020A:  BCF    5F.7
020B:  BCF    5F.6
020C:  BTFSS  5B.0
020D:  GOTO   215
020E:  MOVF   62,W
020F:  MOVWF  5B
0210:  MOVF   62,W
0211:  MOVWF  5D
0212:  INCF   5F,W
0213:  ADDWF  5D,F
0214:  GOTO   23F
0215:  BTFSS  5B.1
0216:  GOTO   219
0217:  INCF   5F,W
0218:  MOVWF  62
0219:  MOVF   5F,F
021A:  BTFSC  03.2
021B:  GOTO   297
021C:  MOVLW  2E
021D:  BTFSS  0C.4
021E:  GOTO   21D
021F:  MOVWF  19
0220:  MOVF   62,W
0221:  MOVWF  5E
0222:  DECF   5E,F
0223:  MOVF   5F,W
0224:  SUBWF  5E,W
0225:  BTFSS  03.0
0226:  GOTO   229
0227:  MOVF   5F,W
0228:  MOVWF  5E
0229:  MOVF   5E,F
022A:  BTFSC  03.2
022B:  GOTO   232
022C:  MOVLW  30
022D:  BTFSS  0C.4
022E:  GOTO   22D
022F:  MOVWF  19
0230:  DECFSZ 5E,F
0231:  GOTO   22C
0232:  MOVF   62,W
0233:  MOVWF  63
0234:  INCF   5F,W
0235:  SUBWF  63,F
0236:  BTFSC  03.0
0237:  GOTO   2B9
0238:  DECF   52,F
0239:  INCF   5F,W
023A:  MOVWF  5D
023B:  MOVF   62,W
023C:  SUBWF  5D,F
023D:  MOVF   5D,W
023E:  MOVWF  5B
023F:  MOVF   61,W
0240:  MOVWF  5A
0241:  MOVF   52,W
0242:  BTFSC  03.2
0243:  GOTO   249
0244:  MOVWF  5C
0245:  BCF    03.0
0246:  RRF    5A,F
0247:  DECFSZ 5C,F
0248:  GOTO   245
0249:  MOVF   5D,W
024A:  BTFSC  03.2
024B:  GOTO   297
024C:  MOVLW  30
024D:  ADDWF  5A,W
024E:  BTFSS  0C.4
024F:  GOTO   24E
0250:  MOVWF  19
0251:  MOVF   5B,W
0252:  BTFSS  03.2
0253:  GOTO   25B
0254:  MOVF   5F,F
0255:  BTFSC  03.2
0256:  GOTO   297
0257:  MOVLW  2E
0258:  BTFSS  0C.4
0259:  GOTO   258
025A:  MOVWF  19
025B:  DECF   5B,F
025C:  DECF   5D,F
025D:  BTFSC  03.2
025E:  GOTO   297
025F:  MOVF   52,W
0260:  BTFSC  03.2
0261:  GOTO   267
0262:  MOVWF  5C
0263:  BCF    03.0
0264:  RLF    5A,F
0265:  DECFSZ 5C,F
0266:  GOTO   263
0267:  MOVF   5A,W
0268:  SUBWF  61,F
0269:  MOVF   61,W
026A:  MOVWF  56
026B:  MOVF   53,W
026C:  MOVWF  57
026D:  MOVF   54,W
026E:  MOVWF  58
026F:  MOVF   55,W
0270:  MOVWF  59
0271:  BCF    03.0
0272:  RLF    55,F
0273:  RLF    54,F
0274:  RLF    53,F
0275:  RLF    61,F
0276:  BCF    03.0
0277:  RLF    55,F
0278:  RLF    54,F
0279:  RLF    53,F
027A:  RLF    61,F
027B:  MOVF   59,W
027C:  ADDWF  55,F
027D:  BTFSS  03.0
027E:  GOTO   284
027F:  INCFSZ 54,F
0280:  GOTO   284
0281:  INCFSZ 53,F
0282:  GOTO   284
0283:  INCF   61,F
0284:  MOVF   58,W
0285:  ADDWF  54,F
0286:  BTFSS  03.0
0287:  GOTO   28B
0288:  INCFSZ 53,F
0289:  GOTO   28B
028A:  INCF   61,F
028B:  MOVF   57,W
028C:  ADDWF  53,F
028D:  BTFSC  03.0
028E:  INCF   61,F
028F:  MOVF   56,W
0290:  ADDWF  61,F
0291:  BCF    03.0
0292:  RLF    55,F
0293:  RLF    54,F
0294:  RLF    53,F
0295:  RLF    61,F
0296:  GOTO   23F
0297:  NOP
0298:  GOTO   2B9
0299:  MOVF   59,W
029A:  ADDWF  55,F
029B:  BTFSS  03.0
029C:  GOTO   2A2
029D:  INCFSZ 54,F
029E:  GOTO   2A2
029F:  INCFSZ 53,F
02A0:  GOTO   2A2
02A1:  INCF   61,F
02A2:  MOVF   58,W
02A3:  ADDWF  54,F
02A4:  BTFSS  03.0
02A5:  GOTO   2A9
02A6:  INCFSZ 53,F
02A7:  GOTO   2A9
02A8:  INCF   61,F
02A9:  MOVF   57,W
02AA:  ADDWF  53,F
02AB:  BTFSC  03.0
02AC:  INCF   61,F
02AD:  MOVF   56,W
02AE:  ADDWF  61,F
02AF:  RETLW  00
02B0:  MOVF   61,W
02B1:  MOVWF  56
02B2:  MOVF   53,W
02B3:  MOVWF  57
02B4:  MOVF   54,W
02B5:  MOVWF  58
02B6:  MOVF   55,W
02B7:  MOVWF  59
02B8:  RETLW  00
02B9:  NOP
02BA:  RETLW  00
02BB:  CLRF   5A
02BC:  MOVF   04,W
02BD:  MOVWF  59
02BE:  BCF    5A.0
02BF:  BTFSC  03.7
02C0:  BSF    5A.0
02C1:  SWAPF  53,W
02C2:  IORLW  F0
02C3:  MOVWF  55
02C4:  ADDWF  55,F
02C5:  ADDLW  E2
02C6:  MOVWF  56
02C7:  ADDLW  32
02C8:  MOVWF  58
02C9:  MOVF   53,W
02CA:  ANDLW  0F
02CB:  ADDWF  56,F
02CC:  ADDWF  56,F
02CD:  ADDWF  58,F
02CE:  ADDLW  E9
02CF:  MOVWF  57
02D0:  ADDWF  57,F
02D1:  ADDWF  57,F
02D2:  SWAPF  52,W
02D3:  ANDLW  0F
02D4:  ADDWF  57,F
02D5:  ADDWF  58,F
02D6:  RLF    57,F
02D7:  RLF    58,F
02D8:  COMF   58,F
02D9:  RLF    58,F
02DA:  MOVF   52,W
02DB:  ANDLW  0F
02DC:  ADDWF  58,F
02DD:  RLF    55,F
02DE:  MOVLW  07
02DF:  MOVWF  54
02E0:  MOVLW  0A
02E1:  ADDWF  58,F
02E2:  DECF   57,F
02E3:  BTFSS  03.0
02E4:  GOTO   2E1
02E5:  ADDWF  57,F
02E6:  DECF   56,F
02E7:  BTFSS  03.0
02E8:  GOTO   2E5
02E9:  ADDWF  56,F
02EA:  DECF   55,F
02EB:  BTFSS  03.0
02EC:  GOTO   2E9
02ED:  ADDWF  55,F
02EE:  DECF   54,F
02EF:  BTFSS  03.0
02F0:  GOTO   2ED
02F1:  MOVLW  54
02F2:  MOVWF  04
02F3:  BCF    03.7
02F4:  MOVLW  07
02F5:  ANDWF  59,W
02F6:  ADDWF  04,F
02F7:  MOVLW  58
02F8:  SUBWF  04,W
02F9:  BTFSC  03.2
02FA:  GOTO   30F
02FB:  MOVF   00,W
02FC:  MOVWF  77
02FD:  BTFSS  03.2
02FE:  GOTO   305
02FF:  BTFSC  59.4
0300:  GOTO   30D
0301:  BTFSC  59.3
0302:  GOTO   307
0303:  MOVLW  20
0304:  GOTO   308
0305:  MOVLW  08
0306:  MOVWF  59
0307:  MOVLW  30
0308:  ADDWF  77,F
0309:  MOVF   77,W
030A:  BTFSS  0C.4
030B:  GOTO   30A
030C:  MOVWF  19
030D:  INCF   04,F
030E:  GOTO   2F7
030F:  MOVF   00,W
0310:  MOVWF  77
0311:  MOVLW  30
0312:  ADDWF  77,F
0313:  MOVF   77,W
0314:  BTFSS  0C.4
0315:  GOTO   314
0316:  MOVWF  19
0317:  BCF    0A.3
0318:  BCF    0A.4
0319:  GOTO   47C (RETURN)
031A:  MOVF   5A,W
031B:  CLRF   78
031C:  SUBWF  59,W
031D:  BTFSC  03.0
031E:  GOTO   322
031F:  MOVF   59,W
0320:  MOVWF  77
0321:  GOTO   32E
0322:  CLRF   77
0323:  MOVLW  08
0324:  MOVWF  5B
0325:  RLF    59,F
0326:  RLF    77,F
0327:  MOVF   5A,W
0328:  SUBWF  77,W
0329:  BTFSC  03.0
032A:  MOVWF  77
032B:  RLF    78,F
032C:  DECFSZ 5B,F
032D:  GOTO   325
032E:  RETLW  00
032F:  BCF    54.6
0330:  MOVF   53,W
0331:  MOVWF  59
0332:  MOVLW  64
0333:  MOVWF  5A
0334:  CALL   31A
0335:  MOVF   78,W
0336:  BTFSS  03.2
0337:  GOTO   355
0338:  BTFSC  54.3
0339:  GOTO   361
033A:  BTFSC  54.6
033B:  GOTO   342
033C:  BTFSC  54.0
033D:  GOTO   342
033E:  BTFSC  54.2
033F:  GOTO   342
0340:  BTFSC  54.7
0341:  GOTO   361
0342:  BTFSS  54.0
0343:  GOTO   34E
0344:  BTFSC  54.7
0345:  GOTO   361
0346:  BTFSC  54.6
0347:  GOTO   34E
0348:  BTFSC  54.0
0349:  GOTO   361
034A:  BTFSC  54.2
034B:  GOTO   34E
034C:  BTFSC  54.7
034D:  GOTO   361
034E:  MOVLW  20
034F:  BTFSS  54.4
0350:  MOVLW  30
0351:  BTFSS  0C.4
0352:  GOTO   351
0353:  MOVWF  19
0354:  GOTO   361
0355:  BTFSS  54.7
0356:  GOTO   35C
0357:  MOVLW  2D
0358:  BTFSS  0C.4
0359:  GOTO   358
035A:  MOVWF  19