?? 0603.asm
字號:
JZ OVER ;除數(shù)低八位為零?為零結(jié)束.
BEIGN: CLR A ;清余數(shù)寄存器R3,R2
MOV R3,A
MOV R2,A
MOV R1,#20H ;被除數(shù)位數(shù)進(jìn)R1
DIV0: ACALL RLC4 ;調(diào)余數(shù)和被除數(shù)循環(huán)左移一位子程
MOV A,R2 ;左移后,余數(shù)低八位減除數(shù)低八位
SUBB A,3Ch
MOV R0,A ;差進(jìn)R0
MOV A,R3
SUBB A,3Bh ;余數(shù)高八位減除數(shù)高八位
JC NEXT ;不夠減轉(zhuǎn)
INC R4 ;夠減商加一
MOV R3,A ;余數(shù)進(jìn)R3
MOV A,R0 ;差
MOV R2,A ;差進(jìn)R2
NEXT: DJNZ R1,DIV0 ;不夠減看10H次到否,否則轉(zhuǎn)
MOV A,R3 ;到則看余數(shù)高位為一否?
RLC A
JC ROUND ;為一,則五入,商加一
MOV A,R2
RLC A ;余數(shù)大于二分之一
MOV R2,A
MOV A,R3
RLC A
SUBB A,3Bh
JC DON ;余數(shù)乘2小于除數(shù)
JNZ ROUND ;非零,大于除數(shù),商加一
MOV A,R2
SUBB A,3Bh
JC DON
ROUND: ACALL ADD1 ;調(diào)商加一子程
DON: CLR A
MOV 40H,R4
MOV 41H,R5
MOV 42H,R6
MOV 43H,R7
RET
OVER: MOV A,#0FFH
RET
ADD1: MOV A,R4
ADD A,#01H
MOV R4,A
MOV A,R5
ADDC A,#0
MOV R5,A
MOV A,R6
ADDC A,#0
MOV R6,A
RET
RLC4: CLR C
MOV A,R4
RLC A
MOV R4,A
MOV A,R5
RLC A
MOV R5,A
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,41H ;轉(zhuǎn)速表高八位
SWAP A
ANL A,#0FH
MOV 38H,A ;轉(zhuǎn)速表高八位除16后,結(jié)果進(jìn)38H,作下標(biāo)(i)
MOV A,40H ;轉(zhuǎn)速表低八位
ANL A,#0F0H
SWAP A
MOV 39H,A ;轉(zhuǎn)速表低八位除16后,結(jié)果進(jìn)39H,作下標(biāo)(j)
MOV A,41H ;轉(zhuǎn)速表高八位進(jìn)ACC
SWAP A ;高低四位互換
ANL A,#0F0H ;屏蔽低四位
ORL 39H,A ;與直接地址39H相或進(jìn)39H
ACALL READ_T
RET
count2:
MOV A,51H ;轉(zhuǎn)速表高八位
SWAP A
ANL A,#0FH
MOV 38H,A ;轉(zhuǎn)速表高八位除16后,結(jié)果進(jìn)38H,作下標(biāo)(i)
MOV A,50H ;轉(zhuǎn)速表低八位
ANL A,#0F0H
SWAP A
MOV 39H,A ;轉(zhuǎn)速表低八位除16后,結(jié)果進(jìn)39H,作下標(biāo)(j)
MOV A,51H ;轉(zhuǎn)速表高八位進(jìn)ACC
SWAP A ;高低四位互換
ANL A,#0F0H ;屏蔽低四位
ORL 39H,A ;與直接地址39H相或進(jìn)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,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH
DB 0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH
DB 0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH
DB 0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH
DB 0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH
DB 0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH
DB 0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH
DB 0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH
DB 0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH
DB 0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH
DB 0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH
DB 0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH
DB 0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH,0FAH
DB 0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H
TABB00:
DB 0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H
DB 0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F9H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H
DB 0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H
DB 0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H,0F8H
DB 0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H
DB 0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H
DB 0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F7H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H
DB 0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H
DB 0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H,0F6H
DB 0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H
DB 0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H
DB 0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F5H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H
DB 0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H
DB 0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H,0F4H
DB 0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H
DB 0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H
TABC00:
DB 0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F3H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H
DB 0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H
DB 0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H,0F2H
DB 0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H
DB 0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H
DB 0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F1H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H
DB 0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H
DB 0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H,0F0H
DB 0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH
DB 0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH
DB 0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH
DB 0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH
DB 0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH,0EEH
DB 0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH
DB 0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH
DB 0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0ECH,0EBH,0EBH,0EBH,0EBH,0EBH,0EBH,0EBH,0EBH
tabD00:
DB 8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH
DB 8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH
DB 8AH,8AH,8AH,8AH,8AH,8AH,8AH,8AH,89H,89H,89H,89H,89H,89H,89H,89H
DB 89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H
DB 89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H,89H
DB 88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H
DB 88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H,88H
DB 88H,88H,88H,88H,88H,88H,88H,88H,87H,87H,87H,87H,87H,87H,87H,87H
DB 87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H
DB 87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H,87H
DB 86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H
DB 86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H,86H
DB 86H,86H,86H,86H,86H,86H,86H,86H,85H,85H,85H,85H,85H,85H,85H,85H
DB 85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H
DB 85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H,85H
DB 84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H
TABE00:
DB 84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H,84H
DB 84H,84H,84H,84H,84H,84H,84H,83H,83H,83H,83H,83H,83H,83H,83H,83H
DB 83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H
DB 83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H,83H
DB 82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H
DB 82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H,82H
DB 82H,82H,82H,82H,82H,82H,82H,82H,81H,81H,81H,81H,81H,81H,81H,81H
DB 81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H
DB 81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H,81H
DB 80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H
DB 80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H,80H
DB 80H,80H,80H,80H,80H,80H,80H,80H,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH
DB 7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH
DB 7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH,7FH
DB 7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH
DB 7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH
TABF00:
DB 7EH,7EH,7EH,7EH,7EH,7EH,7EH,7EH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH
DB 7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH
DB 7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH,7DH
DB 7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH
DB 7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH
DB 7CH,7CH,7CH,7CH,7CH,7CH,7CH,7CH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH
DB 7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH
DB 7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH,7BH
DB 7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH
DB 7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH
DB 7AH,7AH,7AH,7AH,7AH,7AH,7AH,7AH,79H,79H,79H,79H,79H,79H,79H,79H
DB 79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H
DB 79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H,79H
DB 78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H
DB 78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H,78H
DB 78H,78H,78H,78H,78H,78H,78H,78H,77H,77H,77H,77H,77H,77H,77H,77H
;======================================================================================
END
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -