单片机实验汇编源程序.docVIP

;软件实验〇：发光二极管右移显示 org 0 ajmp main main: mov sp,#5fh mov a,#7fh loop: mov p0,a lcall delay rr a ajmp loop delay: mov r7,#0 del0: mov r6,#0 del1: nop nop djnz r6,del1 djnz r7,del0 ret end ;软件实验一：存储器块清零 ;将内部RAM从30H开始至5h单元内容清零 ORG 0000H LJMP START ORG 0100H START: mov r0,#30h mov a,#00h loop: mov @r0,a inc r0 cjne r0,#60h,loop sjmp $ END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;将外部RAM从90H开始至0CH单元内容清零 ORG 0000H LJMP START ORG 0100H START: mov r0,#90h mov a,#00h loop: movx @r0,a inc r0 cjne r0,#0c0h,loop sjmp $ END ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;将外部RAM从2000H开始的100个单元内容清零 ORG 0000H LJMP START ORG 0100H START: mov dptr,#2000h mov b,#100 mov a,#00h loop: movx @dptr,a inc dptr djnz b,loop sjmp $ END ;******************* Block equ 3000h mov dptr, #Block ; 起始地址 mov r0, #0ffh ; 清 256 字节 clr a Loop: movx @dptr, a inc dptr ; 指向下一个地址 djnz r0, Loop ; 记数减一 ljmp $ end ；软件实验二：二进制到BCD转换 程序功能：单字节二进制数转换成为压缩BCD码程序 条件： 待转换的单字节二进制数放在累加器A中 结果： 转换后的BCD码十位和个位仍放在累加器A中，百位放在R3中 ORG 0000H LJMP START ORG 0100H START: mov B,#100 ;分离出百位放在R3中 DIV AB MOV R3,A mov a,#10 ;余数继续分离 XCH A,B DIV AB SWAP A ORL A,B ；将十位和个位组合成压缩BCD码 sjmp $ END **************************************** ; 将 A 拆为三个 BCD 码, 并存入 Result 开始的叁个单元 Result equ 20h org 0 ljmp Start BinToBCD: mov b, #100 div ab mov Result, a ; 除以 100, 得百位数 mov a, b mov b, #10 div ab mov Result+1, a ; 余数除以 10, 得十位数 mov R