?? pinlv1.asm
字號:
ORG 0000H
AJMP MAIN
ORG 000BH
LJMP SEVER1
ORG 0030H
MAIN:
A8279_1 EQU 0FF82H
A8279_2 EQU 0FF80H
MOV DPTR,#A8279_1 ;8279初始化
MOV A,#0D1H
MOVX @DPTR,A
WAIT1:MOVX A,@DPTR
JB ACC.7,WAIT1 ;
MOV A,#00H
MOVX @DPTR,A
MOV A,#2CH
MOVX @DPTR,A
CLR 00H
CLR 01H
CLR 02H
CLR 03H
CLR 04H
CLR 05H
CLR 06H
CLR 07H
CLR 08H
CLR 09H
START:MOV DPTR,#A8279_1
MOVX A,@DPTR
ANL A,#07H
JZ RETUN
ACALL KEY
JBC 00H,MAIN
JBC 01H,START1
JBC 02H,START2
JBC 03H,START3
JBC 04H,START4
RETUN:AJMP START
START1:MOV P1,#0EFH
LCALL SEACH1
JBC 00H,MAIN
JBC 06H,PINYU61
JBC 07H,PINYU71
JBC 08H,PINYU81
JBC 09H,PINYU91
AJMP START1
PINYU61:LJMP PINYU6
PINYU71:LJMP PINYU7
PINYU81:LJMP PINYU8
PINYU91:LJMP PINYU9
START2:MOV P1,#2FH
LCALL SEACH1
JBC 00H,MAIN
JBC 06H,ZHOUQI11
JBC 07H,ZHOUQI21
JBC 08H,ZHOUQI31
JBC 09H,RETUN4
RETUN4:AJMP START2
ZHOUQI11:AJMP ZHOUQI1
ZHOUQI21:AJMP ZHOUQI2
ZHOUQI31:AJMP ZHOUQI3
START3:
LCALL SEACH1
JBC 00H ,RETUN16
LCALL CEMK
AJMP START3
RETUN16:LJMP MAIN
START4: LCALL SEACH1
JBC 00H ,RETUN15
LCALL CEZHANKB
AJMP START4
RETUN15:LJMP MAIN
PINYU6:LCALL SEACH1
JBC 00H ,RETUN11
MOV P1,#1EH
LCALL ZHQI
LCALL PINYU1
LCALL TRANS
LCALL LED
AJMP PINYU6
RETUN11:AJMP MAIN
PINYU7:LCALL SEACH1
JBC 00H ,RETUN12
MOV P1,#1DH
LCALL CZS
LCALL PINYU2
LCALL TRANS
LCALL LED
AJMP PINYU7
RETUN12:AJMP MAIN
PINYU8:LCALL SEACH1
JBC 00H ,RETUN13
MOV P1,#1BH
LCALL CZS
MOV 35H,#08H
LCALL PINYU
LCALL TRANS
LCALL LED
AJMP PINYU8
RETUN13:AJMP MAIN
PINYU9:LCALL SEACH1
JBC 00H ,RETUN14
MOV P1,#17H
LCALL CZS
MOV 35H,#32
LCALL PINYU
LCALL TRANS
LCALL LED
AJMP PINYU9
RETUN14:LJMP MAIN
ZHOUQI1:MOV P1,#2EH
LCALL ZHQI
LCALL MUL4
LCALL ADD1
MOV 60H,R2
MOV 61H,R3
MOV 62H,R4
MOV 63H,R5
LCALL TRANS
LCALL LED
AJMP ZHOUQI1
ZHOUQI2:MOV P1,#2DH
LCALL SEACH1
JBC 00H ,RETUN9
LCALL ZHOUQI2_2
MOV 36H,R3
MOV 37H,R4
MOV 38H,R5
LCALL HB4 ;轉換后的三字節ＢＣＤ碼整數在R2,R3、R4、R5中。
MOV 60H,R2
MOV 61H,R3
MOV 62H,R4
MOV 63H,R5
LCALL TRANS
LCALL LED
AJMP ZHOUQI2
RETUN9:LJMP MAIN
ZHOUQI3:MOV P1,#2BH
LCALL SEACH1
JBC 00H ,RETUN10
LCALL ZHOUQI2_2
MOV 36H,R3
MOV 37H,R4
MOV 38H,R5
MOV R0,#36H
MOV R7,#08H ;分頻系數
LCALL MULD3_1
MOV 60H,R2
MOV 61H,R3
MOV 62H,R4
MOV 63H,R5
LCALL TRANS
LCALL LED
AJMP ZHOUQI3
RETUN10:AJMP MAIN
ZHOUQI2_2:
LCALL CZS
MOV A,76H
;CJNE A,#00H,NEXT12
;AJMP NEXT13
LCALL MUL4
LCALL ADD1
MOV 60H,R2
MOV 61H,R3
MOV 62H,R4
MOV 63H,R5
CJNE R3,#00H,NEXT14
MOV 76H,#01H
MOV 69H,76H
AJMP NEXT15
NEXT14:JC NEXT15
MOV 76H,#08H
MOV 69H,76H
MOV R7,#08H
LCALL DV31 ;雙字節商在R4、R5中
MOV 62H,R4
MOV 63H,R5
NEXT15:
MOV A,R4
MOV R6,A
MOV A,R5
MOV R7,A
MOV R2,#00H
MOV R3,#0FH
MOV R4,#42H
MOV R5,#40H
LCALL DIVD ; 雙字節商在R2、R3中，OV=1 時溢出
MOV 62H,R2
MOV 63H,R3
MOV R6,#00H
MOV R7,76H
JNB OV,NEXT16
MOV R6,62H
MOV R7,63H
MOV R2,#00H ;存入10000
MOV R3,#00H
MOV R4,#27H
MOV R5,#10H
LCALL DIVD ; 雙字節商在R2、R3中，OV=1 時溢出
NEXT16:MOV A,69H
CJNE A,#01H,NEXT32
AJMP NEXT33
NEXT32: MOV R6,#00H
MOV R7,#69H
LCALL DIVD
NEXT33: MOV R7,#64H
MOV R6,#00H
LCALL MULD ;：乘積在R2、R3、R4、R5中。
RET
CEMK: MOV P1,#4DH
LCALL MAIKUAN
LCALL HB4 ;轉換后的三字節ＢＣＤ碼整數在R2,R3、R4、R5中。
MOV 60H,R2
MOV 61H,R3
MOV 62H,R4
MOV 63H,R5
LCALL TRANS
LCALL LED
RET
CEZHANKB:MOV P1,#8DH
LCALL ZHQI
LCALL MUL4
LCALL ADD1 ; ;結果在R2.R3.R4.R5中
MOV 70H,R2
MOV 71H,R3
MOV 72H,R4
MOV 73H,R5
LCALL MAIKUAN ;;結果在36,37,38H中
MOV R6,37H
MOV R7,38H
MOV R2,#03H
MOV R3,#0E8H
LCALL MULD ; 乘積在R2、R3、R4、R5中。
MOV R6,72H
MOV R7,73H
LCALL DIVD ; 雙字節商在R2、R3中，OV=1 時溢出。
MOV R2,72H
MOV R3,73H
MOV R6,72H
MOV R7,73H
LCALL HB2 ;轉換后的三字節ＢＣＤ碼整數在R3、R4、R5中。
MOV 60H,#00H
MOV 61H,R3
MOV 62H,R4
MOV 63H,R5
LCALL TRANS
LCALL LED
RET
KEY:MOV DPTR ,#A8279_1
MOV A,#40H
MOVX @DPTR,A
MOV DPTR,#A8279_2
MOVX A,@DPTR
ANL A,#3FH
CJNE A,#00H,KEY1
SETB 00H
LJMP RETUN1
KEY1:CJNE A,#01H,KEY2
SETB 01H
LJMP RETUN1
KEY2:CJNE A,#02H,KEY3
SETB 02H
AJMP RETUN1
KEY3:CJNE A,#03H,KEY4
SETB 03H
LJMP RETUN1
KEY4:CJNE A,#04H,KEY5
SETB 04H
LJMP RETUN1
KEY5:CJNE A,#05H,RETUN1
SETB 05H
RETUN1:RET
KEY_1:MOV DPTR ,#A8279_1
MOV A,#40H
MOVX @DPTR,A
MOV DPTR,#A8279_2
MOVX A,@DPTR
ANL A,#3FH
CJNE A,#00H,KEY_11
SETB 00H
LJMP RETUN2
KEY_11:CJNE A,#06H,KEY_12
SETB 06H
LJMP RETUN2
KEY_12:CJNE A,#07H,KEY_13
SETB 07H
AJMP RETUN2
KEY_13:CJNE A,#08H,KEY_14
SETB 08H
LJMP RETUN2
KEY_14:CJNE A,#09H,RETUN2
SETB 09H
RETUN2:RET
ZHQI: ;0.1hz_1khz測量,測周期 ;16進制
MOV TMOD,#01H
MOV TL0,#00H
MOV TH0,#00H
SETB EA
SETB ET0
MOV 76H,#00H
SETB P3.5
GDP1: MOV C,P3.5
JC GDP1
DDP1: MOV C,P3.5
JNC DDP1
SETB TR0
GDP2: MOV C,P3.5
JC GDP2
DDP2: MOV C,P3.5
JNC DDP2
CLR TR0
CLR TR1
MOV A,TH0
MOV TH1,A
MOV A,TL0
MOV TL1,A
RET
PINYU1: ;0.1hz_1khz測量；結果在讓，r4,r5 中 ;16進制
LCALL MUL4
LCALL ADD1
MOV 30H,#00H
MOV 31H,#00H
MOV 32H,#0FFH
MOV 33H,#0FFH
LCALL BIJIAO
JB 20H,BIJIAO2
MOV 34H,R4
MOV 35H,R5
MOV R6,34H
MOV R7,35H
MOV R2,#00H
MOV R3,#0FH
MOV R4,#42H
MOV R5,#40H
LCALL DIVD ; OV=0 時，雙字節商在R2、R3中，OV=1 時溢出。
MOV A,R2
MOV R6,A
MOV A,R3
MOV R7,A
AJMP NEXT30
BIJIAO2:MOV 30H,#00H
MOV 31H,#0FH
MOV 32H,#42H
MOV 33H,#40H
LCALL BIJIAO
JB 20H,BIJIAO3
MOV R7,#100
LCALL DV31 ;OV=0 時，雙字節商在R4、R5中，OV=1 時溢出。
MOV 34H,R4
MOV 35H,R5
MOV R6,34H
MOV R7,35H
MOV R2,#00H
MOV R3,#0FH
MOV R4,#42H
MOV R5,#40H
LCALL DIVD ; OV=0 時，雙字節商在R2、R3中，OV=1 時溢出。
MOV 34H,R2
MOV 35H,R3
MOV R6,34H
MOV R7,35H
MOV R3,#00H
MOV R4,34H
MOV R5,35H
MOV R7,#100
LCALL DV31 ;OV=0 時，雙字節商在R4、R5中，OV=1 時溢出。
MOV 34H,R4
MOV 35H,R5
MOV R6,34H
MOV R7,35H
AJMP NEXT30
BIJIAO3:
MOV R7,#0E8H
MOV R6,#03H
LCALL DIVD ; OV=0 時，雙字節商在R2、R3中，OV=1 時溢出。
MOV 34H,R2
MOV 35H,R3
MOV R6,34H
MOV R7,35H
MOV R2,#00H
MOV R3,#98H
MOV R4,#96H
MOV R5,#80H
LCALL DIVD ; OV=0 時，雙字節商在R2、R3中，OV=1 時溢出。
MOV 34H,R2
MOV 35H,R3
MOV R6,34H
MOV R7,35H
MOV R2,#00H
MOV R3,#00H
MOV R4,34H
MOV R5,35H
MOV R7,#0E8H
MOV R6,#03H
LCALL DIVD ; OV=0 時，雙字節商在R2、R3中，OV=1 時溢出。
MOV 34H,R2
MOV 35H,R3
MOV R6,34H
MOV R7,35H
NEXT30: LCALL HB2
MOV 60H,#00H
MOV 61H,R3
MOV 62H,R4
MOV 63H,R5
CLR ET0
RET
SEVER1:INC 76H
RETI
CZS: ;測1秒鐘的周期數
MOV TMOD,#51H
MOV TL0,#00H
MOV TH0,#4CH
MOV 76H,#00H
MOV R7,#14H
MOV TL1,#00H
MOV TH1,#00H
SETB TR1
SETB TR0
HERE:JBC TF0 ,NEXT1
JBC TF1,NEXT20
SJMP HERE
NEXT20:INC 76H
AJMP HERE
NEXT1:MOV TL0,#00H
MOV TH0,#4CH
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -