📄 bin2bcd.ls1
字号:
005A F6 230 MOV @R0,A
231 ;
232
233 ; DEC R0
005B 18 234 DEC R0
235 ; MOV A,@R0
005C E6 236 MOV A,@R0
237 ; ADDC A,ACC
005D 35E0 238 ADDC A,ACC
239 ; DA A
005F D4 240 DA A
241 ; MOV @R0,A
0060 F6 242 MOV @R0,A
243 ;
244
245 ; DEC R0
0061 18 246 DEC R0
247 ; MOV A,@R0
0062 E6 248 MOV A,@R0
249 ; ADDC A,ACC
0063 35E0 250 ADDC A,ACC
251 ; DA A
0065 D4 252 DA A
253 ; MOV @R0,A
0066 F6 254 MOV @R0,A
255 ;
256
A51 MACRO ASSEMBLER BIN2BCD 09/11/2005 06:36:51 PAGE 5
257 ; MOV A,R7
0067 EF 258 MOV A,R7
259 ; MOV R0,A
0068 F8 260 MOV R0,A
261 ;
262
263 ; DJNZ R1,F4Bin2BCDLP1
0069 D9D3 264 DJNZ R1,F4Bin2BCDLP1
265 ;
266
267 ; #pragma endasm
268 ; }
269 ; SOURCE LINE # 124
006B 22 270 RET
271 ; END OF LongToBcd
272
273 ; //------------------------------------------------------------------------------------
274 ; void WordToBcd(void)
275
---- 276 RSEG ?PR?WordToBcd?BIN2BCD
0000 277 WordToBcd:
278 ; SOURCE LINE # 126
279 ; {
280 ; SOURCE LINE # 127
281 ;
282 ; #pragma asm
283 ; MOV A,20H
0000 E520 284 MOV A,20H
285 ; MOV R7,A
0002 FF 286 MOV R7,A
287 ; MOV A,21H
0003 E521 288 MOV A,21H
289 ; MOV R5,A
0005 FD 290 MOV R5,A
291 ; MOV A, R7
0006 EF 292 MOV A, R7
293 ; MOV R0,A
0007 F8 294 MOV R0,A
295 ; MOV A,R5
0008 ED 296 MOV A,R5
297 ; MOV R1,A
0009 F9 298 MOV R1,A
299 ; MOV A,@R0
000A E6 300 MOV A,@R0
301 ; MOV R6,A
000B FE 302 MOV R6,A
303 ; INC R0
000C 08 304 INC R0
305 ; MOV A,@R0
000D E6 306 MOV A,@R0
307 ; MOV R7,A
000E FF 308 MOV R7,A
309 ; CLR A
000F E4 310 CLR A
311 ; MOV R3,A
0010 FB 312 MOV R3,A
313 ; MOV R4,A
0011 FC 314 MOV R4,A
315 ; MOV R5,A
0012 FD 316 MOV R5,A
317 ; MOV R2,#10H
0013 7A10 318 MOV R2,#10H
319 ; HBCD20: MOV A,R7
0015 EF 320 HBCD20: MOV A,R7
321 ; RLC A
0016 33 322 RLC A
A51 MACRO ASSEMBLER BIN2BCD 09/11/2005 06:36:51 PAGE 6
323 ; MOV R7,A
0017 FF 324 MOV R7,A
325 ; MOV A,R6
0018 EE 326 MOV A,R6
327 ; RLC A
0019 33 328 RLC A
329 ; MOV R6,A
001A FE 330 MOV R6,A
331 ; MOV A,R5
001B ED 332 MOV A,R5
333 ; ADDC A,R5
001C 3D 334 ADDC A,R5
335 ; DA A
001D D4 336 DA A
337 ; MOV R5,A
001E FD 338 MOV R5,A
339 ; MOV A,R4
001F EC 340 MOV A,R4
341 ; ADDC A,R4
0020 3C 342 ADDC A,R4
343 ; DA A
0021 D4 344 DA A
345 ; MOV R4,A
0022 FC 346 MOV R4,A
347 ; MOV A,R3
0023 EB 348 MOV A,R3
349 ; ADDC A,R3
0024 3B 350 ADDC A,R3
351 ; DA A
0025 D4 352 DA A
353 ; MOV R3,A
0026 FB 354 MOV R3,A
355 ; DJNZ R2,HBCD20
0027 DAEC 356 DJNZ R2,HBCD20
357 ; MOV A,R3
0029 EB 358 MOV A,R3
359 ; MOV @R1,A
002A F7 360 MOV @R1,A
361 ; INC R1
002B 09 362 INC R1
363 ; MOV A,R4
002C EC 364 MOV A,R4
365 ; MOV @R1,A
002D F7 366 MOV @R1,A
367 ; INC R1
002E 09 368 INC R1
369 ; MOV A,R5
002F ED 370 MOV A,R5
371 ; MOV @R1,A
0030 F7 372 MOV @R1,A
373 ; #pragma endasm
374 ; }
375 ; SOURCE LINE # 176
0031 22 376 RET
377 ; END OF WordToBcd
378
379 ; /*************************** The End ********************************************/
380 ; //------------------------------------------------------------------------------------
381 ; void KeilWordToBcd(unsigned char idata *pWord,unsigned char idata *pBcd)
382
---- 383 RSEG ?PR?_KeilWordToBcd?BIN2BCD
0000 384 _KeilWordToBcd:
385 USING 0
386 ;---- Variable 'pWord?240' assigned to Register 'R7' ----
387 ;---- Variable 'pBcd?241' assigned to Register 'R5' ----
388 ; SOURCE LINE # 179
A51 MACRO ASSEMBLER BIN2BCD 09/11/2005 06:36:51 PAGE 7
389 ; {
390 ; SOURCE LINE # 180
391 ; AsmParam1=pWord;
392 ; SOURCE LINE # 181
0000 8F20 393 MOV AsmParam1,R7
394 ; AsmParam2=pBcd;
395 ; SOURCE LINE # 182
0002 AF05 396 MOV R7,AR5
0004 8F21 397 MOV AsmParam2,R7
398 ;
399 ; WordToBcd();
400 ; SOURCE LINE # 184
0006 020000 F 401 LJMP WordToBcd
402 ; }
403 ; SOURCE LINE # 185
404 ; END OF _KeilWordToBcd
405
406 ; //-------------------------------------------------------------------------------------
407 ; void KeilLongToBcd(unsigned char idata *pLong,unsigned char idata *pBcd)
408
---- 409 RSEG ?PR?_KeilLongToBcd?BIN2BCD
0000 410 _KeilLongToBcd:
411 USING 0
412 ;---- Variable 'pLong?342' assigned to Register 'R7' ----
413 ;---- Variable 'pBcd?343' assigned to Register 'R5' ----
414 ; SOURCE LINE # 187
415 ; {
416 ; SOURCE LINE # 188
417 ; AsmParam1=pLong;
418 ; SOURCE LINE # 189
0000 8F20 419 MOV AsmParam1,R7
420 ; AsmParam2=pBcd;
421 ; SOURCE LINE # 190
0002 AF05 422 MOV R7,AR5
0004 8F21 423 MOV AsmParam2,R7
424 ;
425 ; LongToBcd();
426 ; SOURCE LINE # 192
0006 020000 F 427 LJMP LongToBcd
428 ; }
429 ; SOURCE LINE # 193
430 ; END OF _KeilLongToBcd
431
432 END
A51 MACRO ASSEMBLER BIN2BCD 09/11/2005 06:36:51 PAGE 8
SYMBOL TABLE LISTING
------ ----- -------
N A M E T Y P E V A L U E ATTRIBUTES
?PR?LONGTOBCD?BIN2BCD. . . C SEG 006CH REL=UNIT
?PR?WORDTOBCD?BIN2BCD. . . C SEG 0032H REL=UNIT
?PR?_KEILLONGTOBCD?BIN2BCD C SEG 0009H REL=UNIT
?PR?_KEILWORDTOBCD?BIN2BCD C SEG 0009H REL=UNIT
ACC. . . . . . . . . . . . D ADDR 00E0H A
AR5. . . . . . . . . . . . D ADDR 0005H A
ASMPARAM1. . . . . . . . . D ADDR 0020H A
ASMPARAM2. . . . . . . . . D ADDR 0021H A
ASMPARAM3. . . . . . . . . D ADDR 0022H A
BIN2BCD. . . . . . . . . . N NUMB -----
F4BIN2BCDLP1 . . . . . . . C ADDR 003EH R SEG=?PR?LONGTOBCD?BIN2BCD
F4BIN2BCDLP2 . . . . . . . C ADDR 0023H R SEG=?PR?LONGTOBCD?BIN2BCD
F4BIN2BCDLP3 . . . . . . . C ADDR 0034H R SEG=?PR?LONGTOBCD?BIN2BCD
F4BIN2BCDLP4 . . . . . . . C ADDR 0033H R SEG=?PR?LONGTOBCD?BIN2BCD
HBCD20 . . . . . . . . . . C ADDR 0015H R SEG=?PR?WORDTOBCD?BIN2BCD
LONGTOBCD. . . . . . . . . C ADDR 0000H R SEG=?PR?LONGTOBCD?BIN2BCD
WORDTOBCD. . . . . . . . . C ADDR 0000H R SEG=?PR?WORDTOBCD?BIN2BCD
_KEILLONGTOBCD . . . . . . C ADDR 0000H R SEG=?PR?_KEILLONGTOBCD?BIN2BCD
_KEILWORDTOBCD . . . . . . C ADDR 0000H R SEG=?PR?_KEILWORDTOBCD?BIN2BCD
REGISTER BANK(S) USED: 0
ASSEMBLY COMPLETE. 0 WARNING(S), 0 ERROR(S)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -