?? 簡易縮放尺.asm
字號:
;***********************************
SIGN_P_A EQU 20H.0 ;拉伸的標(biāo)志位（1）表拉
SIGN_P_B EQU 20H.1;拉伸的標(biāo)志位
SIGN_P_C EQU 20H.2;拉伸的標(biāo)志位
SIGN_P EQU 20H.3;拉伸的標(biāo)志位
SIGN_ZERO EQU 20H.4 ;零標(biāo)志
SIGN_BIG EQU 20H.5 ;標(biāo)志大小
SIGN_HAVE EQU 20H.6 ;有的標(biāo)志
SIGN_HAVE_1 EQU 20H.7 ;有的標(biāo)志
SIGN_R EQU 21H.1 ;確認(rèn)鍵
PICK_A EQU 17H ;步進(jìn)電機(jī)輸出優(yōu)先級；；//
PICK_B EQU 18H ;步進(jìn)電機(jī)輸出優(yōu)先級；；；//
PICK_C EQU 19H ;步進(jìn)電機(jī)輸出優(yōu)先級///；；；
FACT_HX EQU 1AH ;開始輸入的X軸對應(yīng)的坐標(biāo)
FACT_LX EQU 1BH ;開始輸入的X軸對應(yīng)的坐標(biāo)
FACT_HY EQU 1CH ;開始輸入的Y軸對應(yīng)的坐標(biāo)
FACT_LY EQU 1DH ;開始輸入的Y軸對應(yīng)的坐標(biāo)
END_HY EQU 1EH ;結(jié)束輸入的X軸對應(yīng)的坐標(biāo)
END_LY EQU 1FH ;結(jié)束輸入的X軸對應(yīng)的坐標(biāo)
ST_3 EQU 25H ;HH
ST_2 EQU 26H ;H
ST_1 EQU 27H ;L
KEYRAM EQU 28H ;重要的CASE
LOGO_A EQU 31H ;
LOGO_B EQU 32H ;
LOGO_C EQU 33H ;
END_HX EQU 34H ;結(jié)束 輸入的X軸對應(yīng)的坐標(biāo)
END_LX EQU 35H ;結(jié)束輸入的X軸對應(yīng)的坐標(biāo)
OUT_A_H EQU 36H ;一邊的長度
OUT_A_L EQU 37H ;
OUT_B_H EQU 38H ;一邊的長度
OUT_B_L EQU 39H ;
OUT_C_H EQU 3AH ;一邊的長度
OUT_C_L EQU 3BH ;
START_HX EQU 40H ;轉(zhuǎn)化的X軸對應(yīng)的坐標(biāo)
START_LX EQU 41H ;轉(zhuǎn)化的X軸對應(yīng)的坐
START_HY EQU 42H ;轉(zhuǎn)化的Y軸對應(yīng)的坐標(biāo)
START_LY EQU 43H ;轉(zhuǎn)化的Y軸對應(yīng)的坐標(biāo)
OUT_1_A_H EQU 44H ;一邊的長度
OUT_1_A_L EQU 45H ;小數(shù)
OUT_1_B_H EQU 46H ;一邊的長度
OUT_1_B_L EQU 47H ;小數(shù)
OUT_1_C_H EQU 48H ;一邊的長度
OUT_1_C_L EQU 49H ;小數(shù)
CRAM EQU 4AH ;緩存
LINE_A_H EQU 4BH ;計(jì)算后輸出一邊的長度
LINE_A_L EQU 4CH ;計(jì)算后輸出小數(shù)
LINE_B_H EQU 4DH ;計(jì)算后輸出一邊的長度
LINE_B_L EQU 4EH ;計(jì)算后輸出一邊的長度
LINE_C_H EQU 4FH ;計(jì)算后輸出一邊的長度
LINE_C_L EQU 50H ;計(jì)算后輸出一邊的長度
CASE_HH EQU 56H ;緩存
CASE_HL EQU 57H ;緩存
CASE_H EQU 58H ;緩存
CASE_L EQU 59H ;緩存
;*****************************
org 00h
ljmp main
org 50h
MAIN:MOV SP,#62H
MOV KEYRAM,#00H
CLR SIGN_R
CLR EA
mov FACT_HX,#01h
mov FACT_LX,#2Ch
mov FACT_Hy,#00h
mov FACT_ly,#00h
mov END_HX,#00h
mov END_LX,#00h
mov END_Hy,#00h
mov END_ly,#00h
;;;;;;;;;;;;;;;;;
LOGIN:LCALL SCAN
LCALL EUX_2
LCALL LCM
JB SIGN_R,EU_1
MOV A,KEYRAM
CJNE A,#01H,LOGIN
LOGIN_1:LCALL SCAN
LCALL EUX_2
LCALL LCM
JB SIGN_R,EU_1
MOV A,KEYRAM
CJNE A,#02H,LOGIN_1
LOGIN_2:LCALL SCAN
LCALL EUX_2
LCALL LCM
JB SIGN_R,EU_1
MOV A,KEYRAM
CJNE A,#03H,LOGIN_2
LOGIN_3:LCALL SCAN
LCALL EUX_2
LCALL LCM
JB SIGN_R,EU_1
MOV A,KEYRAM
CJNE A,#04H,LOGIN_3
MOV KEYRAM,#00H
AJMP LOGIN
EU_1: LJMP KNOW_1
EU_END:ajmp MAIN
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*****************按鍵數(shù)據(jù)處理區(qū)
EUX_2:MOV R2,ST_3
MOV R3,ST_2
MOV R4,ST_1
LCALL BCD3
MOV A,KEYRAM
CJNE A,#00H,EUX_3
MOV FACT_HX,R6
MOV FACT_LX,R7
RET
EUX_3:CJNE A,#01H,EUX_4
MOV FACT_HY,R6
MOV FACT_LY,R7
RET
EUX_4:CJNE A,#02H,EUX_5
MOV END_HX,R6
MOV END_LX,R7
RET
EUX_5:CJNE A,#03H,EUX_6
MOV END_HY,R6
MOV END_LY,R7
EUX_6:RET
;;;;*********************************************
;標(biāo)號： BCD3 功能：無符號三字節(jié)BCD碼轉(zhuǎn)換成兩字節(jié)十六進(jìn)制數(shù)
;入口條件：R2、R3,R4 數(shù) 注意高字節(jié)是R2
;出口信息：R6,R7存放轉(zhuǎn)換后的十六進(jìn)制數(shù)注意高字節(jié)是R6
;影響資源：PSW、A、B、R2～R7 堆棧需求： ２字節(jié)
BCD3:CLR C
MOV A,R2
MOV B,#100
MUL AB
MOV R7,A
MOV R6,B
MOV A,R3
MOV B,#10
MUL AB
CLR C
ADD A,R7
MOV R5,A ;緩存
MOV A,B
ADDC A,R6
MOV R6,A
CLR C
MOV A,R4
ADD A,R5
MOV R7,A
MOV A,R6
ADDC A,#00H
MOV R6,A
RET
;=========================================
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;鍵盤掃描子程序
SCAN:
MOV P0,#7FH
MOV A,P0
CJNE A,#7FH, KEY1
MOV P0,#0BFH
MOV A,P0
CJNE A,#0BFH, KEY5
MOV P0,#0DFH
MOV A,P0
CJNE A,#0DFH,KEY9
MOV P0,#0EFH
MOV A,P0
CJNE A,#0EFH,T_O
RET
T_O:LJMP KEY13
KEY1:CJNE A,#77H,KEY2
NOP
RET
KEY2:CJNE A,#7BH,KEY3
NOP
RET
KEY3:CJNE A,#7DH,KEY4
NOP
RET
KEY4:CJNE A,#7EH,MM
NOP
MM:RET
KEY5:CJNE A,#0B7H,KEY6 ;數(shù)字鍵
MOV R7,#00H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY6:CJNE A,#0BBH,KEY7
MOV R7,#01H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY7:CJNE A,#0BDH,KEY8
MOV R7,#02H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY8:CJNE A,#0BEH,KEY9
MOV R7,#03H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY9:CJNE A,#0D7H,KEY10
MOV R7,#04H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY10:CJNE A,#0DBH,KEY11
MOV R7,#05H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY11:CJNE A,#0DDH,KEY12
MOV R7,#06H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY12:CJNE A,#0DEH,KEY13
MOV R7,#07H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY13:CJNE A,#0E7H,KEY14
MOV R7,#08H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY14:CJNE A,#0EBH,KEY15
MOV R7,#09H
MOV ST_3,ST_2
MOV ST_2,ST_1
MOV ST_1,R7
LCALL DELAY1
RET
KEY15:CJNE A,#0EDH,KEY16 ;停止鍵
INC KEYRAM
LCALL DELAY1
LCALL DELAY1
RET ;電機(jī)正轉(zhuǎn)
KEY16:CJNE A,#0EEH,LL ;確認(rèn)鍵
LCALL DELAY1
SETB SIGN_R
LCALL DELAY1
LCALL DELAY1
LL:RET
;;;;;;;;;;;;;
delay1:
MOV R5,#250
XX: MOV R6,#250
DJNZ R6,$
DJNZ R5, XX
RET
;;;************************
;;;;;;;;;;;;;;;;;;;;;;;;;;液晶子程序
LCM:
MOV P1,#8fH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,KEYRAM
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV A,KEYRAM
CJNE A,#00H,LCM_1
LCALL KEY_SX
RET
LCM_1: CJNE A,#01H,LCM_2
LCALL KEY_SY
RET
LCM_2:CJNE A,#02H,LCM_3
LCALL KEY_EX
RET
LCM_3: CJNE A,#03H,LCM_4
LCALL KEY_EY
LCM_4: RET
KEY_SX:
MOV P1,#83H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_3
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#84H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_2
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#85H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_1
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
RET
;;;;***************************************
KEY_SY: MOV P1,#88H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_3
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#89H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_2
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#8AH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_1
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
RET
;;;***************************
KEY_EX: MOV P1,#0C3H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_3
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0C4H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_2
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0C5H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_1
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
RET
;;;********************************
KEY_EY: MOV P1,#0C9H
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_3
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0CAH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_2
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
MOV P1,#0CBH
ACALL Ming_Lin
MOV DPTR, #TABLE
MOV A,ST_1
MOVC A,@A+DPTR
MOV P1,A
ACALL DADE
RET
;;*********************************
DADE:SETB P2.2
CLR P2.3
SETB P2.4 ;給下降沿
CPL P2.4
ACALL DALAY1
RET
Ming_Lin: CLR P2.2 ;RS=0
CLR P2.3 ;R/W=0
SETB P2.4
;給下降沿
CPL P2.4
ACALL DALAY
RET
DALAY: MOV R5,#10H
ALJSDH:MOV R6,#123
DJNZ R6,$
DJNZ R5,ALJSDH
RET
DALAY1:MOV R7,#25
DJNZ R7,$
RET
Ming_Lin_1: CLR P2.2 ;RS=0
CLR P2.3 ;R/W=0
SETB P2.4
ACALL DALAY
;給下降沿
CPL P2.4
ACALL DALAY
RET
TABLE:DB 30H,31H,32H,33H,34H,35H,36H,37H,38H,39H
;;;***********************************************************步進(jìn)電機(jī)優(yōu)先級掃描
KNOW_1:MOV LOGO_A,#02H
MOV LOGO_B,#02H
MOV LOGO_B,#02H
LCALL CONTROL
JB SIGN_P_A,KNOW_2
INC LOGO_A
KNOW_2:JB SIGN_P_B,KNOW_3
INC LOGO_B
KNOW_3:JB SIGN_P_C,POCESS_1
INC LOGO_C
POCESS_1:
CLR SIGN_HAVE
MOV PICK_A,#00H
MOV PICK_B,#00H
MOV PICK_C,#00H
MOV R0,#31H
MOV A,@R0
CLR C
SUBB A,#03H
JC POCESS_2
MOV R1,#17H
MOV A,R0
MOV @R1,A
AJMP POCESS_3
POCESS_2:MOV R1,#19H
MOV A,R0
MOV @R1,A
SETB SIGN_HAVE
POCESS_3: INC R0
MOV A,@R0
CLR C
SUBB A,#03H
JC POCESSX_2
JNB SIGN_HAVE,POCESS_10
MOV R1,#17H
AJMP POCESS_11
POCESS_10:INC R1
POCESS_11:MOV A,R0
MOV @R1,A
AJMP POCESSX_3
POCESSX_2:JNB SIGN_HAVE,POCESS_Y
DEC R1
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -