📄 car.lst
字号:
018D 0507 00494 BSF MOTOR ;触发报警处理
018E 05A7 00495 BSF SOUND
018F 0C19 00496 MOVLW 25
0190 0029 00497 MOVWF DELAYNUM1
0191 0587 00498 DOOR2 BSF LAMP
0192 0C10 00499 MOVLW 16
0193 0028 00500 MOVWF DELAYNUM0
0194 0208 00501 DOOR1 MOVF DELAYNUM0,W
0195 0F08 00502 XORLW 8
0196 0643 00503 BTFSC STATUS,Z
0197 0487 00504 BCF LAMP
0198 0901 00505 CALL DELAY
0199 072F 00506 BTFSS PROCESSED
019A 0B9F 00507 GOTO DOOR3
019B 02E8 00508 DECFSZ DELAYNUM0,F
019C 0B94 00509 GOTO DOOR1
019D 02E9 00510 DECFSZ DELAYNUM1,F
019E 0B91 00511 GOTO DOOR2
019F 052F 00512 DOOR3 BSF PROCESSED
01A0 04A7 00513 BCF SOUND
01A1 0487 00514 BCF LAMP
01A2 0C14 00515 MOVLW 20
01A3 0028 00516 MOVWF DELAYNUM0
01A4 0901 00517 CALL DELAY
01A5 02E8 00518 DECFSZ DELAYNUM0,F
01A6 0BA4 00519 GOTO $-2
01A7 0407 00520 BCF MOTOR
01A8 0B2F 00521 GOTO STARTEND
00522
01A9 00523 URGENCY
MPASM 02.30 Released CAR.ASM 10-8-2001 23:05:26 PAGE 11
Burglarproof system for CAR
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
01A9 0507 00524 BSF MOTOR
01AA 0C20 00525 MOVLW 0X20
01AB 0031 00526 MOVWF COMMAND
01AC 05A3 00527 BSF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
01AD 090A 00528 CALL COM
01AE 04A3 00529 BCF STATUS,PA0
01AF 00530 URGENCY1
01AF 0967 00531 CALL DELAY55
01B0 0C30 00532 MOVLW 0X30
01B1 0031 00533 MOVWF COMMAND
01B2 05A3 00534 BSF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
01B3 090A 00535 CALL COM
01B4 04A3 00536 BCF STATUS,PA0
01B5 0C19 00537 MOVLW PASSWORD
01B6 0024 00538 MOVWF FSR ;判断密码?
01B7 0200 00539 MOVF INDF,W
01B8 0F21 00540 XORLW 0X21
01B9 0743 00541 BTFSS STATUS,Z
01BA 0BD5 00542 GOTO PWDERROR
01BB 02A4 00543 INCF FSR,F
01BC 0200 00544 MOVF INDF,W
01BD 0F43 00545 XORLW 0X43
01BE 0743 00546 BTFSS STATUS,Z
01BF 0BD5 00547 GOTO PWDERROR
01C0 02A4 00548 INCF FSR,F
01C1 0200 00549 MOVF INDF,W
01C2 0F65 00550 XORLW 0X65
01C3 0743 00551 BTFSS STATUS,Z
01C4 0BD5 00552 GOTO PWDERROR
01C5 0C40 00553 MOVLW 0X40
01C6 0031 00554 MOVWF COMMAND
01C7 05A3 00555 BSF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
01C8 090A 00556 CALL COM
01C9 04A3 00557 BCF STATUS,PA0
01CA 0407 00558 BCF MOTOR
01CB 0726 00559 BTFSS UR_ALERT
01CC 0BCB 00560 GOTO $-1
01CD 0210 00561 MOVF CARSTATUS,W
01CE 0643 00562 BTFSC STATUS,Z
01CF 0A89 00563 GOTO NORMAL
01D0 0F01 00564 XORLW 0X01
01D1 0643 00565 BTFSC STATUS,Z
01D2 0AC3 00566 GOTO ALERTING
01D3 05A3 00567 BSF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
01D4 0A68 00568 GOTO DRIVE
01D5 00569 PWDERROR
01D5 0C50 00570 MOVLW 0X50
01D6 0031 00571 MOVWF COMMAND
01D7 05A3 00572 BSF STATUS,PA0
MPASM 02.30 Released CAR.ASM 10-8-2001 23:05:26 PAGE 12
Burglarproof system for CAR
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
Message[306]: Crossing page boundary -- ensure page bits are set.
01D8 090A 00573 CALL COM
01D9 04A3 00574 BCF STATUS,PA0
01DA 0BAF 00575 GOTO URGENCY1
00576
00577
0200 00578 ORG 200H
0200 00579 OPENDOOR
0200 0C60 00580 MOVLW 0X60
0201 0031 00581 MOVWF COMMAND
0202 090A 00582 CALL COM
0203 0706 00583 BTFSS DOORTRI
0204 0A03 00584 GOTO $-1
0205 0C70 00585 MOVLW 0X70
0206 0031 00586 MOVWF COMMAND
0207 090A 00587 CALL COM
0208 05A3 00588 BSF STATUS,PA0
0209 0A6C 00589 GOTO DRIVE1
00590
020A 00591 COM
020A 0CFF 00592 MOVLW 0XFF
020B 0006 00593 TRIS PORTB
020C 0037 00594 MOVWF IOTRIS
020D 07C6 00595 BTFSS CLK ;CLK=1? 准备好?
020E 0A0D 00596 GOTO $-1
020F 0211 00597 MOVF COMMAND,W
0210 0032 00598 MOVWF INPUT0
0211 0C04 00599 MOVLW 4
0212 0036 00600 MOVWF INBITNUM ;发送4BIT命令
0213 0C3F 00601 COM1 MOVLW B'00111111'
0214 0026 00602 MOVWF PORTB
0215 04D7 00603 BCF IOTRIS,6
0216 0217 00604 MOVF IOTRIS,W
0217 0006 00605 TRIS PORTB
0218 04A3 00606 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
0219 0967 00607 CALL DELAY55
021A 05A3 00608 BSF STATUS,PA0
021B 0371 00609 RLF COMMAND,F
021C 0C3F 00610 MOVLW B'00111111'
021D 0026 00611 MOVWF PORTB
021E 05F7 00612 BSF IOTRIS,7
021F 0703 00613 BTFSS STATUS,C
0220 04F7 00614 BCF IOTRIS,7
0221 0217 00615 MOVF IOTRIS,W
0222 0006 00616 TRIS PORTB
0223 05D7 00617 BSF IOTRIS,6
0224 0217 00618 MOVF IOTRIS,W
0225 0006 00619 TRIS PORTB
0226 07C6 00620 BTFSS CLK
0227 0A26 00621 GOTO $-1
0228 04A3 00622 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
MPASM 02.30 Released CAR.ASM 10-8-2001 23:05:26 PAGE 13
Burglarproof system for CAR
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0229 0967 00623 CALL DELAY55
022A 05A3 00624 BSF STATUS,PA0
022B 02F6 00625 DECFSZ INBITNUM,F
022C 0A13 00626 GOTO COM1
022D 0C3F 00627 MOVLW B'00111111'
022E 0026 00628 MOVWF PORTB
022F 04D7 00629 BCF IOTRIS,6
0230 05F7 00630 BSF IOTRIS,7
0231 0217 00631 MOVF IOTRIS,W
0232 0006 00632 TRIS PORTB
0233 05D7 00633 BSF IOTRIS,6
0234 0217 00634 MOVF IOTRIS,W
0235 0006 00635 TRIS PORTB
0236 0C14 00636 MOVLW 20
0237 002C 00637 MOVWF DTIME
0238 07E6 00638 BTFSS DATA ;DATA=0? 等待确认?
0239 0A3F 00639 GOTO COM2
023A 02EC 00640 DECFSZ DTIME,F
023B 0A38 00641 GOTO $-3
023C 0212 00642 MOVF INPUT0,W
023D 0031 00643 MOVWF COMMAND
023E 0A0A 00644 GOTO COM ;否则重发
023F 07E6 00645 COM2 BTFSS DATA
0240 0A3F 00646 GOTO $-1
0241 0212 00647 MOVF INPUT0,W
0242 0F30 00648 XORLW 0X30
0243 0743 00649 BTFSS STATUS,Z
0244 0800 00650 RETLW 0
0245 0C19 00651 MOVLW PASSWORD
0246 0024 00652 MOVWF FSR
0247 0C08 00653 COM4 MOVLW 8
0248 0036 00654 MOVWF INBITNUM
0249 0C3F 00655 COM3 MOVLW B'00111111'
024A 0026 00656 MOVWF PORTB
024B 04D7 00657 BCF IOTRIS,6
024C 0217 00658 MOVF IOTRIS,W
024D 0006 00659 TRIS PORTB
024E 04A3 00660 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
024F 0967 00661 CALL DELAY55
0250 05A3 00662 BSF STATUS,PA0
0251 05D7 00663 BSF IOTRIS,6
0252 0217 00664 MOVF IOTRIS,W
0253 0006 00665 TRIS PORTB
0254 07C6 00666 BTFSS CLK
0255 0A54 00667 GOTO $-1
0256 0403 00668 BCF STATUS,C
0257 06E6 00669 BTFSC DATA
0258 0503 00670 BSF STATUS,C
0259 0371 00671 RLF COMMAND,F
025A 04A3 00672 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
025B 0967 00673 CALL DELAY55
MPASM 02.30 Released CAR.ASM 10-8-2001 23:05:26 PAGE 14
Burglarproof system for CAR
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
025C 05A3 00674 BSF STATUS,PA0
025D 02F6 00675 DECFSZ INBITNUM,F
025E 0A49 00676 GOTO COM3
025F 0211 00677 MOVF COMMAND,W
0260 0020 00678 MOVWF INDF
0261 02A4 00679 INCF FSR,F
0262 0FAA 00680 XORLW 0XAA
0263 0743 00681 BTFSS STATUS,Z
0264 0A47 00682 GOTO COM4
0265 0800 00683 RETLW 0
00684
0266 04A3 00685 TEMP2 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
0267 0BA9 00686 GOTO URGENCY
0268 00687 DRIVE
0268 0C02 00688 MOVLW 0X02
0269 0030 00689 MOVWF CARSTATUS
026A 0C96 00690 MOVLW 150
026B 0028 00691 MOVWF DELAYNUM0
026C 04A3 00692 DRIVE1 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
026D 0901 00693 CALL DELAY
026E 05A3 00694 BSF STATUS,PA0
026F 0726 00695 BTFSS UR_ALERT
0270 0A66 00696 GOTO TEMP2
0271 0706 00697 BTFSS DOORTRI
0272 0A00 00698 GOTO OPENDOOR
0273 072F 00699 BTFSS PROCESSED
0274 0A8A 00700 GOTO DRIVE0
0275 0208 00701 MOVF DELAYNUM0,W
0276 0643 00702 BTFSC STATUS,Z
0277 0A7C 00703 GOTO DRIVE2
0278 0766 00704 BTFSS FOOT
0279 0A7C 00705 GOTO DRIVE2
027A 04A3 00706 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
027B 0976 00707 CALL UPLOCK
027C 04A3 00708 DRIVE2 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
027D 0901 00709 CALL DELAY
027E 05A3 00710 BSF STATUS,PA0
027F 0746 00711 BTFSS KEYON
0280 0A87 00712 GOTO DRIVE3
0281 0208 00713 MOVF DELAYNUM0,W
0282 0643 00714 BTFSC STATUS,Z
0283 0A85 00715 GOTO $+2
0284 02E8 00716 DECFSZ DELAYNUM0,F
0285 0A6C 00717 GOTO DRIVE1
0286 0A6C 00718 GOTO DRIVE1
0287 04A3 00719 DRIVE3 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
0288 096C 00720 CALL NOLOCK
Message[306]: Crossing page boundary -- ensure page bits are set.
MPASM 02.30 Released CAR.ASM 10-8-2001 23:05:26 PAGE 15
Burglarproof system for CAR
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0289 0A89 00721 GOTO NORMAL
028A 052F 00722 DRIVE0 BSF PROCESSED
028B 020E 00723 MOVF KEYVALUE,W
028C 0F01 00724 XORLW 0X01
028D 0743 00725 BTFSS STATUS,Z
028E 0A94 00726 GOTO DRIVE4
028F 04A3 00727 BCF STATUS,PA0
Message[306]: Crossing page boundary -- ensure page bits are set.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -