?? 電動卷尺貼片段碼控制程序.asm
字號:
FENSHU7:
JNC FENSHU8
MOV FSDATA1,A
FENSHU8:
MOV A,FSDATA1
CJNE A,#01H,FENSHU9
MOV CALCNUM3,#01H
MOV CALCNUM2,#16H
MOV CALCNUM1,#06H
LJMP FENSHU23
FENSHU9:
CJNE A,#02H,FENSHU10
MOV CALCNUM3,#01H
MOV CALCNUM2,#08H
MOV CALCNUM1,#13H
LJMP FENSHU23
FENSHU10:
CJNE A,#03H,FENSHU11
MOV CALCNUM3,#03H
MOV CALCNUM2,#16H
MOV CALCNUM1,#19H
LJMP FENSHU23
FENSHU11:
CJNE A,#04H,FENSHU12
MOV CALCNUM3,#01H
MOV CALCNUM2,#04H
MOV CALCNUM1,#25H
LJMP FENSHU23
FENSHU12:
CJNE A,#05H,FENSHU13
MOV CALCNUM3,#05H
MOV CALCNUM2,#16H
MOV CALCNUM1,#31H
LJMP FENSHU23
FENSHU13:
CJNE A,#06H,FENSHU14
MOV CALCNUM3,#03H
MOV CALCNUM2,#08H
MOV CALCNUM1,#38H
LJMP FENSHU23
FENSHU14:
CJNE A,#07H,FENSHU15
MOV CALCNUM3,#07H
MOV CALCNUM2,#16H
MOV CALCNUM1,#44H
LJMP FENSHU23
FENSHU15:
CJNE A,#08H,FENSHU16
MOV CALCNUM3,#01H
MOV CALCNUM2,#02H
MOV CALCNUM1,#50H
LJMP FENSHU23
FENSHU16:
CJNE A,#09H,FENSHU17
MOV CALCNUM3,#09H
MOV CALCNUM2,#16H
MOV CALCNUM1,#56H
LJMP FENSHU23
FENSHU17:
CJNE A,#0AH,FENSHU18
MOV CALCNUM3,#05H
MOV CALCNUM2,#08H
MOV CALCNUM1,#63H
LJMP FENSHU23
FENSHU18:
CJNE A,#0BH,FENSHU19
MOV CALCNUM3,#11H
MOV CALCNUM2,#16H
MOV CALCNUM1,#69H
LJMP FENSHU23
FENSHU19:
CJNE A,#0CH,FENSHU20
MOV CALCNUM3,#03H
MOV CALCNUM2,#04H
MOV CALCNUM1,#75H
LJMP FENSHU23
FENSHU20:
CJNE A,#0DH,FENSHU21
MOV CALCNUM3,#13H
MOV CALCNUM2,#16H
MOV CALCNUM1,#81H
LJMP FENSHU23
FENSHU21:
CJNE A,#0EH,FENSHU22
MOV CALCNUM3,#07H
MOV CALCNUM2,#08H
MOV CALCNUM1,#88H
LJMP FENSHU23
FENSHU22:
CJNE A,#0FH,FENSHU23
MOV CALCNUM3,#15H
MOV CALCNUM2,#16H
MOV CALCNUM1,#94H
FENSHU23:
RET
;*******************************************************
DATA1XIANSHI:
LCALL LCDON
CALL WR
CLR LCDDATA
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CLR LING
MOV A, CALCNUM6
CJNE A,#00H,LAOPO1
SETB LING
MOV A,#20H
LAOPO1:
LCALL WRA
MOV A, CALCNUM5
JNB LING,LAOPO3
CLR LING
CJNE A,#00H,LAOPO3
SETB LING
MOV A,#20H
LAOPO3:
LCALL WRA
MOV A, CALCNUM4
JNB LING,LAOPO5
CLR LING
CJNE A,#00H,LAOPO5
SETB LING
MOV A,#20H
LAOPO5:
LCALL WRA
MOV A, CALCNUM3
JNB LING,LAOPO7
CLR LING
CJNE A,#00H,LAOPO7
SETB LING
MOV A,#20H
LAOPO7:
LCALL WRA
MOV A, CALCNUM2
JNB LING,LAOPO9
CLR LING
CJNE A,#00H,LAOPO9
SETB LING
MOV A,#20H
LAOPO9:
LCALL WRA
MOV A, CALCNUM1
LCALL WRA
MOV A, #20H
LCALL WRA
MOV A, #20H
LCALL WRA
MOV A, #15H
LCALL WRA
RET
;*******************************************************
JULIXIANSHI:
LCALL LCDON
CALL WR
CLR LCDDATA
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CLR LING
MOV A, CALCNUM4
CJNE A,#00H,LAOPO25
SETB LING
MOV A,#20H
LAOPO25:
CALL WRA
MOV A, CALCNUM3
JNB LING,LAOPO26
CLR LING
CJNE A,#00H,LAOPO26
SETB LING
MOV A,#20H
LAOPO26:
CALL WRA
MOV A, CALCNUM2
JNB LING,LAOPO27
CLR LING
CJNE A,#00H,LAOPO27
SETB LING
MOV A,#20H
LAOPO27:
CALL WRA
MOV A, CALCNUM1
CALL WRA
MOV A, #20H
CALL WRA
MOV A, #20H
CALL WRA
MOV A, #20H
CALL WRA
MOV A, #20H
CALL WRA
MOV A, #16H
CALL WRA
RET
;**********************************************************
JULIXIANSHI100:
LCALL LCDON
CALL WR
CLR LCDDATA
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CLR LING
MOV A,#30H
LCALL WRA
MOV A, CALCNUM6
CJNE A,#00H,LAOPO32
SETB LING
MOV A,#20H
LAOPO32:
LCALL WRA
MOV A, CALCNUM5
JNB LING,LAOPO33
CLR LING
CJNE A,#00H,LAOPO33
SETB LING
MOV A,#20H
LAOPO33:
LCALL WRA
MOV A, CALCNUM4
LCALL WRA
MOV A, CALCNUM3
MOV B,#10H
DIV AB
CJNE A,#00H,LAOPO34
MOV A,#30H
LAOPO34:
LCALL WRA
MOV A,B
ADD A,#0AH
LCALL WRA
MOV A, CALCNUM2
MOV B,#10H
DIV AB
CJNE A,#00H,LAOPO35
SETB FENSHU
SJMP LAOPO36
LAOPO35:
LCALL WRA
LAOPO36:
MOV A,B
LCALL WRA
JNB FENSHU,LAOPO37
CLR FENSHU
MOV A,#20H
LCALL WRA
LAOPO37:
MOV A, #19H
LCALL WRA
RET
;**********************************************************
DATACHULI:
MOV A,DATA0
CLR DATAZ0
CJNE A,#05H,CHULI0
SETB DATAZ0
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ5,B
MOV A,DATA5
MOV B,#10H
DIV AB
MOV DATAZ4,A
MOV DATAZ3,B
MOV A,DATA4
MOV B,#10H
DIV AB
MOV DATAZ2,A
MOV DATAZ1,B
LJMP CHULI5
CHULI0:
CJNE A,#04H,CHULI1
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ5,A
MOV DATAZ4,B
MOV A,DATA5
MOV B,#10H
DIV AB
MOV DATAZ3,A
MOV DATAZ2,B
MOV A,DATA4
MOV B,#10H
DIV AB
MOV DATAZ1,A
LJMP CHULI5
CHULI1:
CJNE A,#03H,CHULI2
MOV DATAZ5,#0EFH
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ4,A
MOV DATAZ3,B
MOV A,DATA5
MOV B,#10H
DIV AB
MOV DATAZ2,A
MOV DATAZ1,B
LJMP CHULI5
CHULI2:
CJNE A,#02H,CHULI3
MOV DATAZ5,#0EFH
MOV DATAZ4,#0EFH
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ3,A
MOV DATAZ2,B
MOV A,DATA5
MOV B,#10H
DIV AB
MOV DATAZ1,A
LJMP CHULI5
CHULI3:
CJNE A,#01H,CHULI4
MOV DATAZ5,#0EFH
MOV DATAZ4,#0EFH
MOV DATAZ3,#0EFH
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ2,A
MOV DATAZ1,B
LJMP CHULI5
CHULI4:
MOV DATAZ5,#0EFH
MOV DATAZ4,#0EFH
MOV DATAZ3,#0EFH
MOV DATAZ2,#00H
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ1,A
CHULI5:
RET
;**********************************************************
DATACHULI100:
MOV DATAZ5,#0EFH
MOV DATAZ4,#0EFH
MOV A,DATA0
CJNE A,#02H,FT1
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ5,A
MOV DATAZ4,B
MOV DATA6,#00H
LJMP FT2
FT1:
CJNE A,#01H,FT2
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ4,A
MOV DATA6,B
FT2:
MOV 60H,#04H
MOV 61H,#0C0H
MOV 62H,#00H
MOV 63H,#00H
MOV R0,#40H
LCALL BTOF
MOV R1,#60H
LCALL FMUL
LCALL FTOB
MOV DATAZ3,#0EFH
MOV DATAZ2,#00H
MOV A,DATA0
CJNE A,#02H,FT3
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ3,A
MOV DATAZ2,B
MOV DATA6,#00H
LJMP FT4
FT3:
CJNE A,#01H,FT4
MOV A,DATA6
MOV B,#10H
DIV AB
MOV DATAZ2,A
MOV DATA6,B
FT4:
MOV 60H,#05H
MOV 61H,#80H
MOV 62H,#00H
MOV 63H,#34H
MOV R0,#40H
LCALL BTOF
MOV R1,#60H
LCALL FMUL
LCALL FTOB
RET
;**********************************************************
DATAXIANSHI:
LCALL LCDON
CALL WR
CLR LCDDATA
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
MOV A,DATAZ5
CALL WRA
MOV A,DATAZ4
CALL WRA
MOV A,DATAZ3
CALL WRA
MOV A,DATAZ2
ADD A,#0AH
CALL WRA
MOV A,DATAZ1
CALL WRA
MOV A,#20H
CALL WRA
MOV A,#20H
CALL WRA
MOV A,#20H
CALL WRA
MOV A,#16H
CALL WRA
RET
;**********************************************************
DATAXIANSHI100:
LCALL LCDON
CALL WR
CLR LCDDATA
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
CALL WRITE
MOV A,DATAZ5
CALL WRA
MOV A,DATAZ4
CALL WRA
MOV A,DATAZ3
CALL WRA
MOV A,DATAZ2
CALL WRA
MOV A,DATA0
CJNE A,#02H,FT101
AJMP FT9
FT101:
LJMP FT102
FT9:
MOV A,DATA6
CJNE A,#15H,FT10
MOV A,#01H
CALL WRA
MOV A,#0FH
CALL WRA
MOV A,#01H
CALL WRA
MOV A,#06H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT10:
CJNE A,#14H,FT11
MOV A,#20H
CALL WRA
MOV A,#11H
CALL WRA
MOV A,#08H
CALL WRA
MOV A,#20H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT11:
CJNE A,#13H,FT12
MOV A,#01H
CALL WRA
MOV A,#0DH
CALL WRA
MOV A,#01H
CALL WRA
MOV A,#06H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT12:
CJNE A,#12H,FT13
MOV A,#20H
CALL WRA
MOV A,#0DH
CALL WRA
MOV A,#04H
CALL WRA
MOV A,#20H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT13:
CJNE A,#11H,FT14
MOV A,#01H
CALL WRA
MOV A,#0BH
CALL WRA
MOV A,#01H
CALL WRA
MOV A,#06H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT14:
MOV A,#20H
CALL WRA
MOV A,#0FH
CALL WRA
MOV A,#08H
CALL WRA
MOV A,#20H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT102:
CJNE A,#01H,FT103
AJMP FT104
FT103:
LJMP FT24
FT104:
MOV A,DATA6
ANL A,#0F0H
SWAP A
CJNE A,#09H,FT16
MOV A,#20H
CALL WRA
MOV A,#13H
CALL WRA
MOV A,#01H
CALL WRA
MOV A,#06H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT16:
CJNE A,#08H,FT17
MOV A,#20H
CALL WRA
MOV A,#0BH
CALL WRA
MOV A,#02H
CALL WRA
MOV A,#20H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT17:
CJNE A,#07H,FT18
MOV A,#20H
CALL WRA
MOV A,#11H
CALL WRA
MOV A,#01H
CALL WRA
MOV A,#06H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT18:
CJNE A,#06H,FT19
MOV A,#20H
CALL WRA
MOV A,#0DH
CALL WRA
MOV A,#08H
CALL WRA
MOV A,#20H
CALL WRA
MOV A,#14H
CALL WRA
LJMP FT100
FT19:
CJNE A,#05H,FT20
MOV A,#20H
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -