📄 0525.lst
字号:
01C4 3400 ADDC A,#00H
01C6 FE MOV R6,A
01C7 C254 CLR 54H
01C9 21B8 AJMP DVL3
01CB A254 RLN: MOV C,54H
01CD 7804 MOV R0,#04H
01CF 7950 MOV R1,#50H
01D1 E7 RLNO: MOV A,@R1
01D2 33 RLC A
01D3 F7 MOV @R1,A
01D4 09 INC R1
01D5 D8FA DJNZ R0,RLNO
01D7 EC MOV A,R4
01D8 33 RLC A
01D9 FC MOV R4,A
01DA ED MOV A,R5
01DB 33 RLC A
01DC FD MOV R5,A
01DD EE MOV A,R6
C:\YOU4\LPC767\0525.ASM
页 7
06-07-01
10:01:58
伟福汇编器 V5.00 Copyright (c) 1989, 99 by CHY
地址 机器码 源程序
01DE 33 RLC A
01DF FE MOV R6,A
01E0 22 RET
;
;
DIV1:
01E1 7C80 MOV R4,#80H ;每分钟计数器计数值
01E3 7DC3 MOV R5,#0C3H ;......
01E5 7EC9 MOV R6,#0C9H ;......
01E7 7F01 MOV R7,#01H ;......
01E9 E53B MOV A,3Bh ;除数高八位为零?
01EB 7004 JNZ BEIGN ;不为零转BRIGN开始
01ED E53C MOV A,3Ch ;
01EF 6036 JZ OVER ;除数低八位为零?为零结束.
01F1 E4 BEIGN: CLR A ;清余数寄存器R3,R2
01F2 FB MOV R3,A
01F3 FA MOV R2,A
01F4 7920 MOV R1,#20H ;被除数位数进R1
01F6 5137 DIV0: ACALL RLC4 ;调余数和被除数循环左移一位子程
01F8 EA MOV A,R2 ;左移后,余数低八位减除数低八位
01F9 953C SUBB A,3Ch
01FB F8 MOV R0,A ;差进R0
01FC EB MOV A,R3
01FD 953B SUBB A,3Bh ;余数高八位减除数高八位
01FF 4004 JC NEXT ;不够减转
0201 0C INC R4 ;够减商加一
0202 FB MOV R3,A ;余数进R3
0203 E8 MOV A,R0 ;差
0204 FA MOV R2,A ;差进R2
0205 D9EF NEXT: DJNZ R1,DIV0 ;不够减看10H次到否,否则转
0207 EB MOV A,R3 ;到则看余数高位为一否?
0208 33 RLC A
0209 4010 JC ROUND ;为一,则五入,商加一
020B EA MOV A,R2
020C 33 RLC A ;余数大于二分之一
020D FA MOV R2,A
020E EB MOV A,R3
020F 33 RLC A
0210 953B SUBB A,3Bh
0212 4009 JC DON ;余数乘2小于除数
0214 7005 JNZ ROUND ;非零,大于除数,商加一
0216 EA MOV A,R2
0217 953B SUBB A,3Bh
0219 4002 JC DON
021B 512A ROUND: ACALL ADD1 ;调商加一子程
021D E4 DON: CLR A
021E 8C40 MOV 40H,R4
0220 8D41 MOV 41H,R5
C:\YOU4\LPC767\0525.ASM
页 8
06-07-01
10:01:58
伟福汇编器 V5.00 Copyright (c) 1989, 99 by CHY
地址 机器码 源程序
0222 8E42 MOV 42H,R6
0224 8F43 MOV 43H,R7
0226 22 RET
0227 74FF OVER: MOV A,#0FFH
0229 22 RET
022A EC ADD1: MOV A,R4
022B 2401 ADD A,#01H
022D FC MOV R4,A
022E ED MOV A,R5
022F 3400 ADDC A,#0
0231 FD MOV R5,A
0232 EE MOV A,R6
0233 3400 ADDC A,#0
0235 FE MOV R6,A
0236 22 RET
0237 C3 RLC4: CLR C
0238 EC MOV A,R4
0239 33 RLC A
023A FC MOV R4,A
023B ED MOV A,R5
023C 33 RLC A
023D FD MOV R5,A
023E EE MOV A,R6
023F 33 RLC A
0240 FE MOV R6,A
0241 EF MOV A,R7
0242 33 RLC A
0243 FF MOV R7,A
0244 EA MOV A,R2
0245 33 RLC A
0246 FA MOV R2,A
0247 EB MOV A,R3
0248 33 RLC A
0249 FB MOV R3,A
024A 22 RET
count1:
024B E541 MOV A,41H ;转速表高八位
024D C4 SWAP A
024E 540F ANL A,#0FH
0250 F538 MOV 38H,A ;转速表高八位除16后,结果进38H,作下标(i)
0252 E540 MOV A,40H ;转速表低八位
0254 54F0 ANL A,#0F0H
0256 C4 SWAP A
0257 F539 MOV 39H,A ;转速表低八位除16后,结果进39H,作下标(j)
0259 E541 MOV A,41H ;转速表高八位进ACC
025B C4 SWAP A ;高低四位互换
025C 54F0 ANL A,#0F0H ;屏蔽低四位
025E 4239 ORL 39H,A ;与直接地址39H相或进39H
C:\YOU4\LPC767\0525.ASM
页 9
06-07-01
10:01:58
伟福汇编器 V5.00 Copyright (c) 1989, 99 by CHY
地址 机器码 源程序
0260 517B ACALL READ_T
0262 22 RET
count2:
0263 E551 MOV A,51H ;转速表高八位
0265 C4 SWAP A
0266 540F ANL A,#0FH
0268 F538 MOV 38H,A ;转速表高八位除16后,结果进38H,作下标(i)
026A E550 MOV A,50H ;转速表低八位
026C 54F0 ANL A,#0F0H
026E C4 SWAP A
026F F539 MOV 39H,A ;转速表低八位除16后,结果进39H,作下标(j)
0271 E551 MOV A,51H ;转速表高八位进ACC
0273 C4 SWAP A ;高低四位互换
0274 54F0 ANL A,#0F0H ;屏蔽低四位
0276 4239 ORL 39H,A ;与直接地址39H相或进39H
0278 51A7 ACALL READ_T2
027A 22 RET
;=============================================
; 读TAB表 子程序
;=============================================
027B E538 READ_T: mov a,38h
027D 600D jz done
027F B40102 done1: cjne a,#01h,done2
0282 418C ajmp done
0284 B40202 done2: cjne a,#02h,done3
0287 418C ajmp done
0289 14 done3: dec a
028A 4184 ajmp done2
done:
028C F538 MOV 38H,A
028E 240A add a,#0Ah
0290 F583 mov dph,a
0292 853982 MOV DPL,39h
0295 E4 clr a
0296 93 MOVc A,@a+DPTR
0297 F536 MOV 36H,A
0299 E538 mov a,38h
029B 240D add a,#0Dh
029D F583 mov dph,a
029F 853982 MOV DPL,39h
02A2 E4 clr a
02A3 93 MOVc A,@a+DPTR
02A4 F537 MOV 37H,A
02A6 22 RET
;
READ_T2:
02A7 E538 mov a,38h
C:\YOU4\LPC767\0525.ASM
页 10
06-07-01
10:01:58
伟福汇编器 V5.00 Copyright (c) 1989, 99 by CHY
地址 机器码 源程序
02A9 600D jz DDD
02AB B40102 DDD1: cjne a,#01h,DDD2
02AE 41B8 ajmp DDD
02B0 B40202 DDD2: cjne a,#02h,DDD3
02B3 41B8 ajmp DDD
02B5 14 DDD3: dec a
02B6 41B0 ajmp DDD2
DDD:
02B8 F538 MOV 38H,A
02BA 240A add a,#0Ah
02BC F583 mov dph,a
02BE 853982 MOV DPL,39h
02C1 E4 clr a
02C2 93 MOVc A,@a+DPTR
02C3 F536 MOV 36H,A
02C5 E538 mov a,38h
02C7 240D add a,#0Dh
02C9 F583 mov dph,a
02CB 853982 MOV DPL,39h
02CE E4 clr a
02CF 93 MOVc A,@a+DPTR
02D0 F537 MOV 37H,A
02D2 22 RET
;======================================================
;
;======================================================================================
org 0A00h
;======================================================================================
tabA00:
0A00 FFFFFF
0A03 FFFFFF
0A06 FFFFFF
0A09 FFFFFF
0A0C FFFFFF
0A0F FF DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
0A10 FFFFFF
0A13 FFFFFF
0A16 FFFFFF
0A19 FFFFFF
0A1C FFFFFF
0A1F FF DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH
0A20 FFFFFF
0A23 FFFFFF
0A26 FFFFFE
0A29 FEFEFE
0A2C FEFEFE
0A2F FE DB 0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH
0A30 FEFEFE
C:\YOU4\LPC767\0525.ASM
页 11
06-07-01
10:01:58
伟福汇编器 V5.00 Copyright (c) 1989, 99 by CHY
地址 机器码 源程序
0A33 FEFEFE
0A36 FEFEFE
0A39 FEFEFE
0A3C FEFEFE
0A3F FE DB 0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH
0A40 FEFEFE
0A43 FEFEFE
0A46 FEFEFE
0A49 FEFEFE
0A4C FEFEFE
0A4F FE DB 0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH,0FEH
0A50 FDFDFD
0A53 FDFDFD
0A56 FDFDFD
0A59 FDFDFD
0A5C FDFDFD
0A5F FD DB 0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH
0A60 FDFDFD
0A63 FDFDFD
0A66 FDFDFD
0A69 FDFDFD
0A6C FDFDFD
0A6F FD DB 0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH
0A70 FDFDFD
0A73 FDFDFD
0A76 FDFDFC
0A79 FCFCFC
0A7C FCFCFC
0A7F FC DB 0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH
0A80 FCFCFC
0A83 FCFCFC
0A86 FCFCFC
0A89 FCFCFC
0A8C FCFCFC
0A8F FC DB 0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH
0A90 FCFCFC
0A93 FCFCFC
0A96 FCFCFC
0A99 FCFCFC
0A9C FCFCFC
0A9F FC DB 0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH,0FCH
0AA0 FBFBFB
0AA3 FBFBFB
0AA6 FBFBFB
0AA9 FBFBFB
0AAC FBFBFB
0AAF FB DB 0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH
0AB0 FBFBFB
C:\YOU4\LPC767\0525.ASM
页 12
06-07-01
10:01:58
伟福汇编器 V5.00 Copyright (c) 1989, 99 by CHY
地址 机器码 源程序
0AB3 FBFBFB
0AB6 FBFBFB
0AB9 FBFBFB
0ABC FBFBFB
0ABF FB DB 0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH,0FBH
0AC0 FBFBFB
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -