实验一二进制数到BCD码转换.doc

实验一 二进制数到BCD码转换 ; 将 A 拆为三个 BCD 码, 并存入 Result 开始的三个单元 Result equ 20h org 0 0000 020015 ljmp Start BinToBCD: 0003 75F064 mov b, #100 0006 84 div ab 0007 F520 mov Result, a ; 除以 100, 得百位数 0009 E5F0 mov a, b 000B 75F00A mov b, #10 000E 84 div ab 000F F521 mov Result+1, a ; 余数除以 10, 得十位数 0011 85F022 mov Result+2, b ; 余数为个位数 0014 22 ret Start: 0015 758140 mov sp, #40h 0018 747B mov a, #123 001A 1103 call BinToBCD 001C 02001C ljmp $ end 软件实验三 二进制数到ASCII码转换 ; 将 A 拆为二个 ASCII 码, 并存入 Result 开始的二个单元 Result equ 20h org 0 0000 020026 ljmp Start ASCIITab: 0003 303132 0006 333435 0009 363738 000C 394142 000F 434445 0012 46 db 0123456789ABCDEF ; 定义数字对应的ASCII表 BinToHex: 0013 900003 mov dptr, #ASCIITab 0016 F5F0 mov b, a ; 暂存 A 0018 C4 swap a 0019 540F anl a, #0fh ; 取高四位 001B 93 movc a, @a+dptr ; 查ASCII表 001C F520 mov Result, a 001E E5F0 mov a, b ; 恢复 A 0020 540F anl a, #0fh ; 取低四位 0022 93 movc a, @a+dptr ; 查ASCII表 0023 F521 mov Result+1, a 0025 22 ret Start: 0026 758140 mov sp, #40h 0029 741A mov a, #1ah 002B 1113 call BinToHex 002D 02002D ljmp $ end ; 软件实验四 存储器块移动 ; 移动 3000H -- 4000H, 256 字节 0000 7830 mov r0, #30h 0002 7900 mov r1, #00h 0004 7A40 mov r2, #40h 0006 7B00 mov r3, #00h 0008 7F00 mov r7, #0 Loop: 000A 8883 mov dph, r0 000C 8982 mov dpl, r1 000E E0 movx a, @dptr 000F 8A83