📄 spm-02.lst
字号:
00448 ;*************** Measurement Process ***************
00A4 00449 MEASUREMENT
00450 ;@@@@@ Mode Status @@@@@
MPASM 5.04 SPM-02.ASM 11-5-2008 16:20:42 PAGE 10
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00A4 3002 00451 MOVLW MEA ;MEA = H'01'
00A5 00A6 00452 MOVWF MODE_STATUS ;"Wreg" --> "MODE_STATUS"(MEA)
00453
00454 ;@@@@@ Clear of Register @@@@@
00A6 01A7 00455 CLRF JUDG_STATUS ;Clear "JUDG_STATUS"
00456
00A7 00457 MEASUREMENT_LOOP
00A7 1807 00458 BTFSC PORTC,RC0 ;Start Signal From PLC?
00A8 28A7 00459 GOTO MEASUREMENT_LOOP ;No. Again
00460
00461 ;*************** Measurement Frequency 4000[Hz] ***************
00462 ;@@@@@ Label Status @@@@@
00A9 3004 00463 MOVLW MEAH ;MEAH = H'04'
00AA 00A8 00464 MOVWF LABEL_STATUS ;"Wreg" --> "LABEL_STATUS"(MEAH)
00465
00AB 20DF 00466 CALL SET_FRQ_4000 ;Set A/D Port Process
00AC 20E3 00467 CALL AD_CONVERSION ;A/D Conversion Process
00AD 2134 00468 CALL SORT ;Sort Process
00AE 21F3 00469 CALL CALCULATION_MEAN_VALUE ;Calculation of Mean Value Process
00AF 2219 00470 CALL DATA_HOLD ;Data Hold Process
00B0 230D 00471 CALL COMMUNICATION ;Communication Process
00472
00473 ;*************** Measurement Frequency 400[Hz] ***************
00474 ;@@@@@ Label Status @@@@@
00B1 3008 00475 MOVLW MEAL ;MEAL = H'08'
00B2 00A8 00476 MOVWF LABEL_STATUS ;"Wreg" --> "LABEL_STATUS"(MEAL)
00477
00B3 20DB 00478 CALL SET_FRQ_400 ;Set A/D Port Process
00B4 20E3 00479 CALL AD_CONVERSION ;A/D Conversion Process
00B5 2134 00480 CALL SORT ;Sort Process
00B6 21F3 00481 CALL CALCULATION_MEAN_VALUE ;Calculation of Mean Value Process
00B7 2219 00482 CALL DATA_HOLD ;Data Hold Process
00B8 230D 00483 CALL COMMUNICATION ;Communication Process
00484
00485 ;*************** Data Comparison Process ***************
00B9 2266 00486 CALL DATA_COMPARISON ;Data Comparison Process
00487
00488 ;*************** Judgment Process ***************
00BA 22FD 00489 CALL JUDG_OUT ;Judgment Output Process
00490
00BB 1827 00491 BTFSC JUDG_STATUS,0 ;B'xxxx xxx0'?
00BC 28A4 00492 GOTO MEASUREMENT ;No. MEASUREMENT
00493
00494 ;@@@@@ Label Status @@@@@
00BD 3004 00495 MOVLW MEAH ;MEAH = H'04'
00BE 00A8 00496 MOVWF LABEL_STATUS ;"Wreg" --> "LABEL_STATUS"(MEAH)
00BF 230D 00497 CALL COMMUNICATION ;Communication Process
00498 ;@@@@@ Label Status @@@@@
00C0 3008 00499 MOVLW MEAL ;MEAL = H'08'
00C1 00A8 00500 MOVWF LABEL_STATUS ;"Wreg" --> "LABEL_STATUS"(MEAL)
00C2 230D 00501 CALL COMMUNICATION ;Communication Process
00502
00503
MPASM 5.04 SPM-02.ASM 11-5-2008 16:20:42 PAGE 11
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00504 ;*************** Finish Process ***************
00C3 00505 FINISH
00506 ;@@@@@ Mode Status @@@@@
00C3 3004 00507 MOVLW FIN ;FIN = H'04'
00C4 00A6 00508 MOVWF MODE_STATUS ;"Wreg" --> "MODE_STATUS"(FIN)
00509
00510 ;@@@@@ Clear of Register @@@@@
00C5 01A7 00511 CLRF JUDG_STATUS ;Clear "JUDG_STATUS"
00512
00C6 00513 FINISH_LOOP
00C6 1807 00514 BTFSC PORTC,RC0 ;Start Signal From PLC?
00C7 28C6 00515 GOTO FINISH_LOOP ;No. Again
00516
00517 ;*************** Measurement Frequency 4000[Hz] ***************
00518 ;@@@@@ Label Status @@@@@
00C8 3010 00519 MOVLW FINH ;FINH = H'10'
00C9 00A8 00520 MOVWF LABEL_STATUS ;"Wreg" --> "LABEL_STATUS"(FINH)
00521
00CA 20DF 00522 CALL SET_FRQ_4000 ;Set A/D Port Process
00CB 20E3 00523 CALL AD_CONVERSION ;A/D Conversion Process
00CC 2134 00524 CALL SORT ;Sort Process
00CD 21F3 00525 CALL CALCULATION_MEAN_VALUE ;Calculation of Mean Value Process
00CE 2219 00526 CALL DATA_HOLD ;Data Hold Process
00CF 230D 00527 CALL COMMUNICATION ;Communication Process
00528
00529 ;*************** Measurement Frequency 400[Hz] ***************
00530 ;@@@@@ Label Status @@@@@
00D0 3020 00531 MOVLW FINL ;FINH = H'20'
00D1 00A8 00532 MOVWF LABEL_STATUS ;"Wreg" --> "LABEL_STATUS"(FINL)
00533
00D2 20DB 00534 CALL SET_FRQ_400 ;Set A/D Port Process
00D3 20E3 00535 CALL AD_CONVERSION ;A/D Conversion Process
00D4 2134 00536 CALL SORT ;Sort Process
00D5 21F3 00537 CALL CALCULATION_MEAN_VALUE ;Calculation of Mean Value Process
00D6 2219 00538 CALL DATA_HOLD ;Data Hold Process
00D7 230D 00539 CALL COMMUNICATION ;Communication Process
00540
00541 ;*************** Data Comparison Process ***************
00D8 2266 00542 CALL DATA_COMPARISON ;Data Comparison Process
00543
00544 ;*************** Judgment Process ***************
00D9 22FD 00545 CALL JUDG_OUT ;Judgment Output Process
00546
00DA 28A4 00547 GOTO MEASUREMENT ;MEASUREMENT
00548
00549
00550
00551 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00552 ; Set A/D Port Process
00553 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00554
00DB 00555 SET_FRQ_400
00556 ;*************** Set AN0 ***************
MPASM 5.04 SPM-02.ASM 11-5-2008 16:20:42 PAGE 12
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00DB 3081 00557 MOVLW H'81' ;B'1000 0001' = D'129' (ADCS = 10, CHS =
AN0 ADON = ON)
00DC 009F 00558 MOVWF ADCON0 ;Set ADCON0 Register
00DD 23E8 00559 CALL WAIT_20MICRO ;Acquisition Time
00DE 0008 00560 RETURN
00561
00DF 00562 SET_FRQ_4000
00563 ;*************** Set AN1 ***************
00DF 3089 00564 MOVLW H'89' ;B'1000 1001' = D'137' (ADCS = 10, CHS =
AN1 ADON = ON)
00E0 009F 00565 MOVWF ADCON0 ;Set ADCON0 Register
00E1 23E8 00566 CALL WAIT_20MICRO ;Acquisition Time
00E2 0008 00567 RETURN
00568
00569
00570
00571 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00572 ; A/D Conversion Process
00573 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
00574
00E3 00575 AD_CONVERSION
00576 ;*************** Start of A/D Conversion, 1to8 ***************
00E3 151F 00577 BSF ADCON0,GO ;Start of A/D Conversion
00E4 00578 AD_CHECK1
00E4 191F 00579 BTFSC ADCON0,GO ;A/D Conversion End?
00E5 28E4 00580 GOTO AD_CHECK1 ;No. Again
00E6 081E 00581 MOVFW ADRESH ;Read "ADRESH"
00E7 00B1 00582 MOVWF AD_DATA1_HB ;Save Converted Data
00E8 1683 00583 BSF STATUS,RP0 ;Change to Bank1
00E9 081E 00584 MOVFW ADRESL ;Read "ADRESL"
00EA 1283 00585 BCF STATUS,RP0 ;Change to Bank0
00EB 00B2 00586 MOVWF AD_DATA1_LB ;Save Converted Data
00EC 23E8 00587 CALL WAIT_20MICRO ;Wait 20 micro seconds
00588
00589 ;*************** Start of A/D Conversion, 2to8 ***************
00ED 151F 00590 BSF ADCON0,GO ;Start of A/D Conversion
00EE 00591 AD_CHECK2
00EE 191F 00592 BTFSC ADCON0,GO ;A/D Conversion End?
00EF 28EE 00593 GOTO AD_CHECK2 ;No. Again
00F0 081E 00594 MOVFW ADRESH ;Read "ADRESH"
00F1 00B3 00595 MOVWF AD_DATA2_HB ;Save Converted Data
00F2 1683 00596 BSF STATUS,RP0 ;Change to Bank1
00F3 081E 00597 MOVFW ADRESL ;Read "ADRESL"
00F4 1283 00598 BCF STATUS,RP0 ;Change to Bank0
00F5 00B4 00599 MOVWF AD_DATA2_LB ;Save Converted Data
00F6 23E8 00600 CALL WAIT_20MICRO ;Wait 20 micro seconds
00601
00602 ;*************** Start of A/D Conversion, 3to8 ***************
00F7 151F 00603 BSF ADCON0,GO ;Start of A/D Conversion
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -