📄 0615.txt
字号:
MOV 44H,A
DEC A
MOV 45H,A
ADD A,#02H
MOV 46H,A
INC A
MOV 47H,A
RET
READ:
MOV A,4EH
ADD A,#0AH
MOV DPH,A
MOV DPL,4FH
CLR A
MOVC A,@A+DPTR
MOV 4CH,A
MOV A,#01H
MOVC A,@A+DPTR
MOV 4DH,A
RET
;
;======================================================
; (53H52H51H50H)/(3BH3CH)=(51H50H)
; (R3R2)=余数部分 ADD1=BIT 54H
;======================================================
;
DIV2:
MOV 50H,#80H
MOV 51H,#0C3H
MOV 52H,#0C9H
MOV 53H,#01H
DVT2:
MOV R6,#00H
MOV R5,#00H
MOV R4,#00H
MOV R3,3BH
MOV R2,3CH
DVT20: MOV R7,#20H
CLR 54H
ACALL RLN
DVL1: CLR C
MOV A,R4
SUBB A,R2
MOV R4,A
MOV A,R5
SUBB A,R3
MOV R5,A
MOV A,R6
SUBB A,#00H
MOV R6,A
JC DVL2
SETB 54H
DVL3: ACALL RLN
DJNZ R7,DVL1
RET
DVL2: MOV A,R4
ADD A,R2
MOV R4,A
MOV A,R5
ADDC A,R3
MOV R5,A
MOV A,R6
ADDC A,#00H
MOV R6,A
CLR 54H
AJMP DVL3
RLN: MOV C,54H
MOV R0,#04H
MOV R1,#50H
RLNO: MOV A,@R1
RLC A
MOV @R1,A
INC R1
DJNZ R0,RLNO
MOV A,R4
RLC A
MOV R4,A
MOV A,R5
RLC A
MOV R5,A
MOV A,R6
RLC A
MOV R6,A
RET
;
;
DIV1:
MOV R4,#0C8H ;每分钟200RPM
MOV R5,#0H ;......
MOV R6,50H ;......
MOV R7,51H ;......
MOV A,R5 ;除数高八位为零?
JNZ BEIGN ;不为零转BRIGN开始
MOV A,R4 ;
JZ OVER ;除数低八位为零?为零结束.
BEIGN: CLR A ;清余数寄存器R3,R2
MOV R3,A
MOV R2,A
MOV R1,#10H ;被除数位数进R1
DIV0: ACALL RLC4 ;调余数和被除数循环左移一位子程
MOV A,R2 ;左移后,余数低八位减除数低八位
SUBB A,R4
MOV R0,A ;差进R0
MOV A,R3
SUBB A,R5 ;余数高八位减除数高八位
JC NEXT ;不够减转
INC R6 ;够减商加一
MOV R3,A ;余数进R3
MOV A,R0 ;差
MOV R2,A ;差进R2
NEXT: DJNZ R1,DIV0 ;不够减看10H次到否,否则转
MOV A,R3 ;到则看余数高位为一否?
RLC A
JC ROUND ;为一,则五入,商加一
MOV A,R2
RLC A ;余数大于二分之一
MOV R2,A
MOV A,R3
RLC A
SUBB A,R5
JC DON ;余数乘2小于除数
JNZ ROUND ;非零,大于除数,商加一
MOV A,R2
SUBB A,R5
JC DON
ROUND: ACALL ADD1 ;调商加一子程
DON: CLR A
MOV 20H,R6
MOV 60H,R7
RET
OVER: MOV A,#0FFH
RET
ADD1: MOV A,R6
ADD A,#01H
MOV R6,A
MOV A,R7
ADDC A,#0
MOV R7,A
RET
RLC4: CLR C
MOV A,R6
RLC A
MOV R6,A
MOV A,R7
RLC A
MOV R7,A
MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
MOV R3,A
RET
count1:
MOV A,51H ;转速表高八位
SWAP A
ANL A,#0FH
MOV 38H,A ;转速表高八位除16后,结果进38H,作下标(i)
MOV A,50H ;转速表低八位
ANL A,#0F0H
SWAP A
MOV 39H,A ;转速表低八位除16后,结果进39H,作下标(j)
MOV A,51H ;转速表高八位进ACC
SWAP A ;高低四位互换
ANL A,#0F0H ;屏蔽低四位
ORL 39H,A ;与直接地址39H相或进39H
ACALL READ_T
RET
count2:
MOV A,51H ;转速表高八位
SWAP A
ANL A,#0FH
MOV 38H,A ;转速表高八位除16后,结果进38H,作下标(i)
MOV A,50H ;转速表低八位
ANL A,#0F0H
SWAP A
MOV 39H,A ;转速表低八位除16后,结果进39H,作下标(j)
MOV A,51H ;转速表高八位进ACC
SWAP A ;高低四位互换
ANL A,#0F0H ;屏蔽低四位
ORL 39H,A ;与直接地址39H相或进39H
ACALL READ_T2
RET
;=============================================
; 读TAB表 子程序
;=============================================
READ_T: mov a,38h
jz done
done1: cjne a,#01h,done2
ajmp done
done2: cjne a,#02h,done3
ajmp done
done3: dec a
ajmp done2
done:
MOV 38H,A
add a,#0Ah
mov dph,a
MOV DPL,39h
clr a
MOVc A,@a+DPTR
MOV 36H,A
mov a,38h
add a,#0Dh
mov dph,a
MOV DPL,39h
clr a
MOVc A,@a+DPTR
MOV 37H,A
RET
;
READ_T2:
mov a,38h
jz DDD
DDD1: cjne a,#01h,DDD2
ajmp DDD
DDD2: cjne a,#02h,DDD3
ajmp DDD
DDD3: dec a
ajmp DDD2
DDD:
MOV 38H,A
add a,#0Ah
mov dph,a
MOV DPL,39h
clr a
MOVc A,@a+DPTR
MOV 36H,A
mov a,38h
add a,#0Dh
mov dph,a
MOV DPL,39h
clr a
MOVc A,@a+DPTR
MOV 37H,A
RET
;======================================================
;
;======================================================================================
org 0A00h
;======================================================================================
tabA00:
DB 0FFH,0FFH,0FFH,0EFH,0FFH,0DFH,0FFH,0CFH,0FFH,0BFH,0FFH,0AFH,0FFH,9FH,0FFH,8FH
DB 0FFH,7FH,0FFH,6FH,0FFH,5FH,0FFH,4FH,0FFH,3FH,0FFH,2FH,0FFH,1FH,0FFH,0FH
DB 0FEH,0FFH,0FEH,0EFH,0FEH,0DFH,0FEH,0CFH,0FEH,0BFH,0FEH,0AFH,0FEH,9FH,0FEH,8FH
DB 0FEH,7FH,0FEH,6FH,0FEH,5FH,0FEH,4FH,0FEH,3FH,0FEH,2FH,0FEH,1FH,0FEH,0FH
DB 0FDH,0FFH,0FDH,0EFH,0FDH,0DFH,0FDH,0CFH,0FDH,0BFH,0FDH,0AFH,0FDH,9FH,0FDH,8FH
DB 0FDH,7FH,0FDH,6FH,0FDH,5FH,0FDH,4FH,0FDH,3FH,0FDH,2FH,0FDH,1FH,0FDH,0FH
DB 0FCH,0FFH,0FCH,0EFH,0FCH,0DFH,0FCH,0CFH,0FCH,0BFH,0FCH,0AFH,0FCH,9FH,0FCH,8FH
DB 0FCH,7FH,0FCH,6FH,0FCH,5FH,0FCH,4FH,0FCH,3FH,0FCH,2FH,0FCH,1FH,0FCH,0FH
DB 0FBH,0FFH,0FBH,0EFH,0FBH,0DFH,0FBH,0CFH,0FBH,0BFH,0FBH,0AFH,0FBH,9FH,0FBH,8FH
DB 0FBH,7FH,0FBH,6FH,0FBH,5FH,0FBH,4FH,0FBH,3FH,0FBH,2FH,0FBH,1FH,0FBH,0FH
DB 0FAH,0FFH,0FAH,0EFH,0FAH,0DFH,0FAH,0CFH,0FAH,0BFH,0FAH,0AFH,0FAH,9FH,0FAH,8FH
DB 0FAH,7FH,0FAH,6FH,0FAH,5FH,0FAH,4FH,0FAH,3FH,0FAH,2FH,0FAH,1FH,0FAH,0FH
DB 0F9H,0FFH,0F9H,0EFH,0F9H,0DFH,0F9H,0CFH,0F9H,0BFH,0F9H,0AFH,0F9H,9FH,0F9H,8FH
DB 0F9H,7FH,0F9H,6FH,0F9H,5FH,0F9H,4FH,0F9H,3FH,0F9H,2FH,0F9H,1FH,0F9H,0FH
DB 0F8H,0FFH,0F8H,0EFH,0F8H,0DFH,0F8H,0CFH,0F8H,0BFH,0F8H,0AFH,0F8H,9FH,0F8H,8FH
DB 0F8H,7FH,0F8H,6FH,0F8H,5FH,0F8H,4FH,0F8H,3FH,0F8H,2FH,0F8H,1FH,0F8H,0FH
TABB00:
DB 0F7H,0F7H,0F7H,0EFH,0F7H,0DFH,0F7H,0CFH,0F7H,0BFH,0F7H,0AFH,0F7H,9FH,0F7H,8FH
DB 0F7H,7FH,0F7H,6FH,0F7H,5FH,0F7H,4FH,0F7H,3FH,0F7H,2FH,0F7H,1FH,0F7H,0FH
DB 0F6H,0FFH,0F6H,0EFH,0F6H,0DFH,0F6H,0CFH,0F6H,0BFH,0F6H,0AFH,0F6H,9FH,0F6H,8FH
DB 0F6H,7FH,0F6H,6FH,0F6H,5FH,0F6H,4FH,0F6H,3FH,0F6H,2FH,0F6H,1FH,0F6H,0FH
DB 0F5H,0FFH,0F5H,0EFH,0F5H,0DFH,0F5H,0CFH,0F5H,0BFH,0F5H,0AFH,0F5H,9FH,0F5H,8FH
DB 0F5H,7FH,0F5H,6FH,0F5H,5FH,0F5H,4FH,0F5H,3FH,0F5H,2FH,0F5H,1FH,0F5H,0FH
DB 0F4H,0FFH,0F4H,0EFH,0F4H,0DFH,0F4H,0CFH,0F4H,0BFH,0F4H,0AFH,0F4H,9FH,0F4H,8FH
DB 0F4H,7FH,0F4H,6FH,0F4H,5FH,0F4H,4FH,0F4H,3FH,0F4H,2FH,0F4H,1FH,0F4H,0FH
DB 0F3H,0FFH,0F3H,0EFH,0F3H,0DFH,0F3H,0CFH,0F3H,0BFH,0F3H,0AFH,0F3H,9FH,0F3H,8FH
DB 0F3H,7FH,0F3H,6FH,0F3H,5FH,0F3H,4FH,0F3H,3FH,0F3H,2FH,0F3H,1FH,0F3H,0FH
DB 0F2H,0FFH,0F2H,0EFH,0F2H,0DFH,0F2H,0CFH,0F2H,0BFH,0F2H,0AFH,0F2H,9FH,0F2H,8FH
DB 0F2H,7FH,0F2H,6FH,0F2H,5FH,0F2H,4FH,0F2H,3FH,0F2H,2FH,0F2H,1FH,0F2H,0FH
DB 0F1H,0FFH,0F1H,0EFH,0F1H,0DFH,0F1H,0CFH,0F1H,0BFH,0F1H,0AFH,0F1H,9FH,0F1H,8FH
DB 0F1H,7FH,0F1H,6FH,0F1H,5FH,0F1H,4FH,0F1H,3FH,0F1H,2FH,0F1H,1FH,0F1H,0FH
DB 0F0H,0FFH,0F0H,0EFH,0F0H,0DFH,0F0H,0CFH,0F0H,0BFH,0F0H,0AFH,0F0H,9FH,0F0H,8FH
DB 0F0H,7FH,0F0H,6FH,0F0H,5FH,0F0H,4FH,0F0H,3FH,0F0H,2FH,0F0H,1FH,0F0H,0FH
TABC00:
DB 0F0H,0H,0EFH,0F8H,0EFH,0F0H,0EFH,0E8H,0EFH,0E0H,0EFH,0D8H,0EFH,0D0H,0EFH,0C8H
DB 0EFH,0C0H,0EFH,0B8H,0EFH,0B0H,0EFH,0A8H,0EFH,0A0H,0EFH,98H,0EFH,90H,0EFH,88H
DB 0EFH,80H,0EFH,78H,0EFH,70H,0EFH,68H,0EFH,60H,0EFH,58H,0EFH,50H,0EFH,48H
DB 0EFH,40H,0EFH,38H,0EFH,30H,0EFH,28H,0EFH,20H,0EFH,18H,0EFH,10H,0EFH,08H
DB 0EFH,0H,0EEH,0F8H,0EEH,0F0H,0EEH,0E8H,0EEH,0E0H,0EEH,0D8H,0EEH,0D0H,0EEH,0C8H
DB 0EEH,0C0H,0EEH,0B8H,0EEH,0B0H,0EEH,0A8H,0EEH,0A0H,0EEH,98H,0EEH,90H,0EEH,88H
DB 0EEH,80H,0EEH,78H,0EEH,70H,0EEH,68H,0EEH,60H,0EEH,58H,0EEH,50H,0EEH,48H
DB 0EEH,40H,0EEH,38H,0EEH,30H,0EEH,28H,0EEH,20H,0EEH,18H,0EEH,10H,0EEH,08H
DB 0EEH,0H,0EDH,0F8H,0EDH,0F0H,0EDH,0E8H,0EDH,0E0H,0EDH,0D8H,0EDH,0D0H,0EDH,0C8H
DB 0EDH,0C0H,0EDH,0B8H,0EDH,0B0H,0EDH,0A8H,0EDH,0A0H,0EDH,98H,0EDH,90H,0EDH,88H
DB 0EDH,80H,0EDH,78H,0EDH,70H,0EDH,68H,0EDH,60H,0EDH,58H,0EDH,50H,0EDH,48H
DB 0EDH,40H,0EDH,38H,0EDH,30H,0EDH,28H,0EDH,20H,0EDH,18H,0EDH,10H,0EDH,08H
DB 0EDH,0H,0ECH,0F8H,0ECH,0F0H,0ECH,0E8H,0ECH,0E0H,0ECH,0D8H,0ECH,0D0H,0ECH,0C8H
DB 0ECH,0C0H,0ECH,0B8H,0ECH,0B0H,0ECH,0A8H,0ECH,0A0H,0ECH,98H,0ECH,90H,0ECH,88H
DB 0ECH,80H,0ECH,78H,0ECH,70H,0ECH,68H,0ECH,60H,0ECH,58H,0ECH,50H,0ECH,48H
DB 0ECH,40H,0ECH,38H,0ECH,30H,0ECH,28H,0ECH,20H,0ECH,18H,0ECH,10H,0ECH,08H
tabD00:
DB 0FFH,0FFH,0FFH,0EFH,0FFH,0DFH,0FFH,0CFH,0FFH,0BFH,0FFH,0AFH,0FFH,9FH,0FFH,8FH
DB 0FFH,7FH,0FFH,6FH,0FFH,5FH,0FFH,4FH,0FFH,3FH,0FFH,2FH,0FFH,1FH,0FFH,0FH
DB 0FEH,0FFH,0FEH,0EFH,0FEH,0DFH,0FEH,0CFH,0FEH,0BFH,0FEH,0AFH,0FEH,9FH,0FEH,8FH
DB 0FEH,7FH,0FEH,6FH,0FEH,5FH,0FEH,4FH,0FEH,3FH,0FEH,2FH,0FEH,1FH,0FEH,0FH
DB 0FDH,0FFH,0FDH,0EFH,0FDH,0DFH,0FDH,0CFH,0FDH,0BFH,0FDH,0AFH,0FDH,9FH,0FDH,8FH
DB 0FDH,7FH,0FDH,6FH,0FDH,5FH,0FDH,4FH,0FDH,3FH,0FDH,2FH,0FDH,1FH,0FDH,0FH
DB 0FCH,0FFH,0FCH,0EFH,0FCH,0DFH,0FCH,0CFH,0FCH,0BFH,0FCH,0AFH,0FCH,9FH,0FCH,8FH
DB 0FCH,7FH,0FCH,6FH,0FCH,5FH,0FCH,4FH,0FCH,3FH,0FCH,2FH,0FCH,1FH,0FCH,0FH
DB 0FBH,0FFH,0FBH,0EFH,0FBH,0DFH,0FBH,0CFH,0FBH,0BFH,0FBH,0AFH,0FBH,9FH,0FBH,8FH
DB 0FBH,7FH,0FBH,6FH,0FBH,5FH,0FBH,4FH,0FBH,3FH,0FBH,2FH,0FBH,1FH,0FBH,0FH
DB 0FAH,0FFH,0FAH,0EFH,0FAH,0DFH,0FAH,0CFH,0FAH,0BFH,0FAH,0AFH,0FAH,9FH,0FAH,8FH
DB 0FAH,7FH,0FAH,6FH,0FAH,5FH,0FAH,4FH,0FAH,3FH,0FAH,2FH,0FAH,1FH,0FAH,0FH
DB 0F9H,0FFH,0F9H,0EFH,0F9H,0DFH,0F9H,0CFH,0F9H,0BFH,0F9H,0AFH,0F9H,9FH,0F9H,8FH
DB 0F9H,7FH,0F9H,6FH,0F9H,5FH,0F9H,4FH,0F9H,3FH,0F9H,2FH,0F9H,1FH,0F9H,0FH
DB 0F8H,0FFH,0F8H,0EFH,0F8H,0DFH,0F8H,0CFH,0F8H,0BFH,0F8H,0AFH,0F8H,9FH,0F8H,8FH
DB 0F8H,7FH,0F8H,6FH,0F8H,5FH,0F8H,4FH,0F8H,3FH,0F8H,2FH,0F8H,1FH,0F8H,0FH
TABE00:
DB 0F7H,0F7H,0F7H,0EFH,0F7H,0DFH,0F7H,0CFH,0F7H,0BFH,0F7H,0AFH,0F7H,9FH,0F7H,8FH
DB 0F7H,7FH,0F7H,6FH,0F7H,5FH,0F7H,4FH,0F7H,3FH,0F7H,2FH,0F7H,1FH,0F7H,0FH
DB 0F6H,0FFH,0F6H,0EFH,0F6H,0DFH,0F6H,0CFH,0F6H,0BFH,0F6H,0AFH,0F6H,9FH,0F6H,8FH
DB 0F6H,7FH,0F6H,6FH,0F6H,5FH,0F6H,4FH,0F6H,3FH,0F6H,2FH,0F6H,1FH,0F6H,0FH
DB 0F5H,0FFH,0F5H,0EFH,0F5H,0DFH,0F5H,0CFH,0F5H,0BFH,0F5H,0AFH,0F5H,9FH,0F5H,8FH
DB 0F5H,7FH,0F5H,6FH,0F5H,5FH,0F5H,4FH,0F5H,3FH,0F5H,2FH,0F5H,1FH,0F5H,0FH
DB 0F4H,0FFH,0F4H,0EFH,0F4H,0DFH,0F4H,0CFH,0F4H,0BFH,0F4H,0AFH,0F4H,9FH,0F4H,8FH
DB 0F4H,7FH,0F4H,6FH,0F4H,5FH,0F4H,4FH,0F4H,3FH,0F4H,2FH,0F4H,1FH,0F4H,0FH
DB 0F3H,0FFH,0F3H,0EFH,0F3H,0DFH,0F3H,0CFH,0F3H,0BFH,0F3H,0AFH,0F3H,9FH,0F3H,8FH
DB 0F3H,7FH,0F3H,6FH,0F3H,5FH,0F3H,4FH,0F3H,3FH,0F3H,2FH,0F3H,1FH,0F3H,0FH
DB 0F2H,0FFH,0F2H,0EFH,0F2H,0DFH,0F2H,0CFH,0F2H,0BFH,0F2H,0AFH,0F2H,9FH,0F2H,8FH
DB 0F2H,7FH,0F2H,6FH,0F2H,5FH,0F2H,4FH,0F2H,3FH,0F2H,2FH,0F2H,1FH,0F2H,0FH
DB 0F1H,0FFH,0F1H,0EFH,0F1H,0DFH,0F1H,0CFH,0F1H,0BFH,0F1H,0AFH,0F1H,9FH,0F1H,8FH
DB 0F1H,7FH,0F1H,6FH,0F1H,5FH,0F1H,4FH,0F1H,3FH,0F1H,2FH,0F1H,1FH,0F1H,0FH
DB 0F0H,0FFH,0F0H,0EFH,0F0H,0DFH,0F0H,0CFH,0F0H,0BFH,0F0H,0AFH,0F0H,9FH,0F0H,8FH
DB 0F0H,7FH,0F0H,6FH,0F0H,5FH,0F0H,4FH,0F0H,3FH,0F0H,2FH,0F0H,1FH,0F0H,0FH
TABF00:
DB 0F0H,0H,0EFH,0F8H,0EFH,0F0H,0EFH,0E8H,0EFH,0E0H,0EFH,0D8H,0EFH,0D0H,0EFH,0C8H
DB 0EFH,0C0H,0EFH,0B8H,0EFH,0B0H,0EFH,0A8H,0EFH,0A0H,0EFH,98H,0EFH,90H,0EFH,88H
DB 0EFH,80H,0EFH,78H,0EFH,70H,0EFH,68H,0EFH,60H,0EFH,58H,0EFH,50H,0EFH,48H
DB 0EFH,40H,0EFH,38H,0EFH,30H,0EFH,28H,0EFH,20H,0EFH,18H,0EFH,10H,0EFH,08H
DB 0EFH,0H,0EEH,0F8H,0EEH,0F0H,0EEH,0E8H,0EEH,0E0H,0EEH,0D8H,0EEH,0D0H,0EEH,0C8H
DB 0EEH,0C0H,0EEH,0B8H,0EEH,0B0H,0EEH,0A8H,0EEH,0A0H,0EEH,98H,0EEH,90H,0EEH,88H
DB 0EEH,80H,0EEH,78H,0EEH,70H,0EEH,68H,0EEH,60H,0EEH,58H,0EEH,50H,0EEH,48H
DB 0EEH,40H,0EEH,38H,0EEH,30H,0EEH,28H,0EEH,20H,0EEH,18H,0EEH,10H,0EEH,08H
DB 0EEH,0H,0EDH,0F8H,0EDH,0F0H,0EDH,0E8H,0EDH,0E0H,0EDH,0D8H,0EDH,0D0H,0EDH,0C8H
DB 0EDH,0C0H,0EDH,0B8H,0EDH,0B0H,0EDH,0A8H,0EDH,0A0H,0EDH,98H,0EDH,90H,0EDH,88H
DB 0EDH,80H,0EDH,78H,0EDH,70H,0EDH,68H,0EDH,60H,0EDH,58H,0EDH,50H,0EDH,48H
DB 0EDH,40H,0EDH,38H,0EDH,30H,0EDH,28H,0EDH,20H,0EDH,18H,0EDH,10H,0EDH,08H
DB 0EDH,0H,0ECH,0F8H,0ECH,0F0H,0ECH,0E8H,0ECH,0E0H,0ECH,0D8H,0ECH,0D0H,0ECH,0C8H
DB 0ECH,0C0H,0ECH,0B8H,0ECH,0B0H,0ECH,0A8H,0ECH,0A0H,0ECH,98H,0ECH,90H,0ECH,88H
DB 0ECH,80H,0ECH,78H,0ECH,70H,0ECH,68H,0ECH,60H,0ECH,58H,0ECH,50H,0ECH,48H
DB 0ECH,40H,0ECH,38H,0ECH,30H,0ECH,28H,0ECH,20H,0ECH,18H,0ECH,10H,0ECH,08H
;======================================================================================
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -