AVR单片机 汇编自学笔记 100例

学习笔记-avr单片机C编程1这几天在看AVR 单片机的书。

ASURO 的项目的编程是建立在已有的成熟函数上，所以导致我对AVR 单片机的运行机理（中断、定时器的使用）不甚了解。

突然一个个超声波模块的程序放在眼前，才发现我连AVR 单片机的了解基本上等于零。

另外一个项目需要用mega128 控制直流电机，还有和无线、有线遥控器的通信，电路（模块）需要自己搭起来，那么就必须知道AVR 单片机的原理和编程。

和已经学过的51 单片机相比，MEGA 系列单片机是十分高级的单片机，功能强大，因而在构造和使用上也复杂了一些。

存储器区别，AVR 分为5 个部分，访问指令上有区别。

输入输出，51 是准双向口，每个端口只有一个寄存器。

而AVR 的I/O 口是标准双向口，每个端口有三个寄存器，DDRX(输出使能)，PORTX（输出数据，上拉使能？），PINX（输入管脚）。

定时器，51 的定时器两种用法，即以晶振频率的十二分频信号作为输入的定时器工作方式，或以外部引脚INT0,INT1 上输入信号的计数器工作方式。

而AVR 的定时器除了普通的定时/计数功能外，还有一些增强的功能，如：比较匹配（？），PWM 调制器，由ICP 引脚或模拟比较器触发的捕捉功能（？）。

在选择输入信号上，分频比有1、8、64、256、1024 几种，作为计数器使用，既可上升沿触发，也可以下降沿触发。

如下，一部分和定时器相关的寄存器T0: TCCR0: CS02 CS01 CS00 分频比T1: TCCR1A: COM1X1/0 PWM11/0 TCCR1B: ICNC1,CTC1,ICES1 TCNT1 OCIX 等等 C 中的一些位操作已经模块化了，如PORTB|=(1PWM 脉宽调制波PWM 是脉冲宽度调制的简称。

实际上，PWM 波也是一个连续的方波，但在一个周期中，其高电平和低电平的占空比是不同的。

一个典型PWM 的波形如图8-15 所示。

AVR学习笔记前言：学习一块单片机，我们要几项准备工作：1.开发软件（熟悉开发软件操作流程，基本上开发软件都差不多的，学会了一款，再学其它的就会很顺手了（新建工程、新建设计文件、把源文件加到工程里面、最后设置一些参数）2.编程语言（这个就不用说了，先学语法规则，能够熟练掌握到自己写的代码没有语法错误，然后再逐步把自己的想法驾驭到编程语言上）3.硬件（硬件包括的范围很广，不仅包括你所要学的单片机还有单片机的外围电路所用到的器件），最好要学一款仿真软件。

我们始终要记住学单片机绝对不可以纸上谈兵，一定要实践，就是把自己所写的代码下载到板上，看看实际效果。

开发板可以买，也可以自己做！我喜欢自己做。

实验一：点亮发光二极管1.avr单片机的i/o端口1）学习单片机的主要任务就是了解、掌握单片机i/o端口的功能，以及如何正确设计这些端口与外围电路的连接，从而能够组成一个嵌入式系统，并编程、管理和运用他们完成各种各样的任务。

2）atmega16有4个8位的双向i/o端口pa、pb、pc、pd，他们对外对应32个i/o引脚，每一位都可以独立地用于逻辑信号的输入和输出。

在5v工作电压下，输出高点平时，每个引脚可输出达20ma的驱动电流；而输出低电平时，每个引脚可吸收最大为40ma的电流，可以直接驱动发光二极管（一般的发光二极管的驱动电流为10ma）和小型继电器等小功率器件。

avr大部分的i/o端口都具备双重功能（有的还有第三功能）。

其中第一功能是作为数字通用i/o接口使用，而复用的功能可分别与片内的各种不同功能的外围接口电路组合成一些可以完成特殊功能的i/o口，如定时器、计数器、串行接口、模拟比较器、捕捉器、usart、spi等。

3）avr单片机的每组i/o口都搭载存有三个8为寄存器，分别就是：方向掌控寄存器ddrx、数据寄存器portx、输出插槽寄存器pinx（x=a/b/c/d）.i/o口的工作方式和整体表现特征由这三个i/o寄存器掌控。

;范例62.ORG $A00EXCH: MOV R5,R8 ;两浮点数交换子程序MOV R8,R12MOV R12,R5EXCH1: MOV R5,R9 ;尾数交换MOV R9,R13MOV R13,R5MOV R5,R10 ;双字节交换MOV R10,R14MOV R14,R5MOV R5,R11MOV R11,R15MOV R15,R5RETDP: ANDI R16,$7F ;处理积/商数符，计算积/商阶码子程序SBRC R9,7SUBI R16,$80SBRC R13,7SUBI R16,$80 ;积/商符号放在r16,7ADD R12,R8 ;移码相加（除数阶码已求补）LDI R17,$80BRCC DP1ADD R12,R17 ;移码求和有进位，将和再加上$80,再有进位为溢出RETDP1: SUB R12,R17 ;移码求和无进位，将和减去$80,有借位RET ;或差为0也为溢出NEG3: COM R15 ;3字节数据求补COM R14 ;先求反后加1COM R13INC3: LDI R17,255SUB R15,R17 ;以减去-1代替加1SBC R14,R17SBC R13,R17RET;范例63 ;浮点数比较大小子程序X1为被减数X2为减数FPCP: SBRC R9,7 ;X1为正，跳行RJMP CP1SBRC R13,7 ;X2为正，跳行RJMP CP2 ;X1，X2异号FPCP1: CP R11,R15 ;X1，X2皆为正，以尾数低位字节，中位字节，高位字节和CPC R10,R14 ;阶码的顺序（按无符号数）进行比较CPC R9,R13 ;不等，阶码大者浮点数值也大；只有阶码和尾数对应相等，CPC R8,R12 ;两浮点数才相等RET ;比较结果：Z=1时X1=X2，否则C=0时X1>X2,C=1时X1<X2 CP1: SBRC R13,7RJMP CP3 ;两负数比较,转CP2: CP R13,R9 ;正数与负数比较,只比较尾数高位字节即可RETCP3: CP R15,R11 ;X1,X2皆为负，以尾数低位字节，中位字节，高位字节和CPC R14,R10 ;阶码的顺序（按无符号数）进行比较CPC R13,R9 ;但要将X1、X2交换位置后按正数比较过程进行CPC R12,R8CP4: RET ;比较结果：Z=1时X1=X2，否则C=0时X1>X2,C=1时X1<X2;范例64FPSU: LDI R17,$80 ;浮点减法子程序SUB R13,R17 ;减数数符求反后作为加数FPAD: TST R8 ;浮点加法子程序BREQ DON1 ;被加数为0，加数为和TST R12BRNE FPLAD ;加数为0，取被加数为和SA V0: MOV R12,R8 ;传送被加数取代加数MOV R13,R9MOV R14,R10MOV R15,R11DON1: RETFPLAD: ANDI R16,$3f ;清除被加数，加数数符SBRC R9,7ORI R16,$80 ;被加数数符取到(R16,7)SBRC R13,7ORI R16,$40 ;加数数符取到(R16,6)LDI R17,$80OR R9,R17OR R13,R17 ;恢复尾数最高位MOV R17,R12SUB R17,R8 ;计算阶差BREQ GOON ;两阶相等，转BRCC NX3NEG R17 ;不够减求补CPI R17,24BRCC EXAD ;|阶差|>24,取被加数为和NX2A: LSR R13ROR R14ROR R15BRNE NX2A ;加数阶小，右移加数对阶MOV R12,R8 ;取被加数阶为和之阶BRCC GOONRCALL INC3 ;舍入移出位RJMP GOONNX3: CPI R17,24BRCC COM1 ;阶差>24,取加数为和LOOP: LSR R9ROR R10ROR R11DEC R17BRNE LOOP ;加数阶大，右移被加数对阶BRCC GOONRCALL INC3A ;舍入移出位GOON: SBRC R16,6SUBI R16,$80SBRS R16,7 ;判别两数是否同号RJMP SAMS ;同号转SUB R15,R11 ;异号，执行减法，加数为被减数SBC R14,R10SBC R13,R9BRCC NOM ;够减转SUBI R16,$40 ;否则被减数数符求反为和之数符RCALL NEG3 ;并将差求补NOM: MOV R17,R13OR R17,R14OR R17,R15BREQ DON0 ;差为0转NMLOP: SBRC R13,7RJMP COM1LSL R15ROL R14ROL R13DEC R12BRNE NMLOP ;规格化OV1: SEV ;阶码变为0，下溢（可取为0，不算溢出）RETSAMS: ADD R15,R11ADC R14,R10ADC R13,R9 ;两数同号，执行加法BRCC COM1ROR R13ROR R14INC R12 ;有进位时右规1次($7F+1=$80溢出)BREQ OV1 ;阶码增1后变为0为上溢BRNC COM1RCALL INC3COM1: CLVSBRC R16,6RETCOMA: LDI R17,$7FAND R13,R17 ;正数数符为0DON: RETEXAD: RCALL SA V0 ;取被加数为和SBRS R16,7RJMP COMA ;配置数符RETDON0: CLR R12 ;浮点数为0RET;范例65 ;浮点乘法子程序FPMU: TST R8BREQ M0 ;被乘数为0，积为0TST R12BRNE M1 ;乘数为0，积也为0M0: RJMP G0M1: RCALL DP ;处理积符号，计算积之阶码BRCS OV2BREQ OV2 ;判断溢出LDI R17,$80OR R9,R17OR R13,R17 ;恢复尾数最高位MOV R5,R13MOV R6,R14MOV R7,R15 ;乘数转入R5，R6，R7LDI R17,25 ;设右移部分积次数CLR R13CLR R14CLR R15 ;r13r14r15清除,存放积CLCLOOP1: BRCC M2ADD R15,R11ADC R14,R10ADC R13,R9 ;乘数右移移出位为1,被乘数加入部分积1次M2: ROR R13ROR R15ROR R5ROR R6ROR R7 ;部分积连同乘数右移1位DEC R17BRNE LOOP1 ;尾数相乘计算完成？SBRC R13,7RJMP M3 ;乘积最高位为1 转ROL R5ROL R15ROL R14ROL R13 ;乘积最高位为0，高4位字节左移1位SBRS R5,7RJMP M5RCALL INC3 ;末位字节舍入BRNE M5SEC ;舍入后R13变为0ROR R13 ;将其改为$80(即0.5)RJMP COM2M5: DEC R12 ;舍入后R13不为0BRNE COM2 ;阶码减1OV2: SEV ;变为0为溢出RETM3: SBRC R5,7RCALL INC3 ;乘积低3位字节舍入COM2: LDI R17,$7FSBRS R16,7AND R13,R17 ;正数将符号位请除DON2: CLVRET;范例66FPDI: TST R12 ;浮点除法子程序BREQ OV3 ;除数为0,溢出TST R8BRNE D1RJMP G0 ;被除数为0,商为0D1: NEG R12 ;除数阶码求补，以加补码代替减原码RCALL DP ;处理商符号，计算商之阶码BRCS OV3BREQ OV3 ;判断溢出LDI R17,$80OR R9,R17OR R13,R17 ;恢复尾数最高位FPD3: LDI R17,25 ;左移相减试商25次，最后1次舍入SUB R11,R15SBC R10,R14SBC R9,R13BRCS D2 ;第一次尾数相减试商INC R12 ;够减，商阶增1SECBRNE D3 ;商阶增1后不为0，转计商；否则为溢出OV3: SEVRETD2: ADD R11,R15ADC R10,R14ADC R9,R13 ;不够减则恢复被除数LOOP2: LSL R11ROL R10ROL R9 ;被除数算术左移BRCS D4 ;进位位为1，够减，本位商1SUB R11,R15SBC R10,R14SBC R9,R13 ;否则相减试商BRCS D2ASECRJMP D3 ;够减，本位商1D2A: ADD R11,R15 ;不够减，恢复被除数ADC R10,R14ADC R9,R13CLC ;本位商0RJMP D3D4: SUB R11,R15SBC R10,R14SBC R9,R13 ;被除数减去除数D3: DEC R17BRNE D5 ;除法未完成，循环(1-1=0,不溢出)MOV R13,R5MOV R14,R6MOV R15,R7 ;取回商BRCC COM3RCALL INC3 ;第25位商舍入（$800000-$FFFFFF不溢出，故INC3不会溢出！）COM3: LDI R17,$7FSBRS R16,7AND R13,R17 ;配置商数符DON3: RETD5: ROL R7 ;在R5，R6，R7中记商（不必预先清除）ROL R6ROL R5 ;商数左移1位并记商RJMP LOOP2;范例67FPSQ: ANDI R16,$7F ;模拟手算开平方子程序SBRC R13,7ORI R16，$80 ;负数建虚根标志FPS0: TST R12BREQ DON4 ;0的平方根为0LDI R17,$80OR R13,R17 ;恢复尾数最高位LSR R12 ;阶码算术右移1位BRCC FSQ2INC R12 ;移出位舍入RCALL INC3 ;先将位数增1（提前舍入）BRCS FSQ1 ;C=1，不够减SECROR R13 ;若尾数变为0将其改为0.5($80-->r13)RJMP FSQ2FSQ1: LSR R13ROR R14ROR R15 ;否则将为数算术右移FSQ2: LDI R17,25 ;开出25位根,末位舍入MOV R8,R17LDI R17,$40ADD R12,R17 ;根恢复为移码CLR R5CLR R6CLR R7 ;根扩展区清除CLR R9CLR R10CLR R11 ;根存储区清除FSQ3: SUB R13,R17SBC R7,R11SBC R6,R10SBC R5,R9 ;试根BRCS FSQ3ASECRJMP FSQ4 ;够减，本位根1FSQ3A: ADD R13,R17ADC R7,R11ADC R5,R9 ;否则恢复开平方数之尾数CLC ;本位商0FSQ4: DEC R8BRNE FSQ5 ;开出第25位根?FQDON: MOV R13,R9MOV R14,R10MOV R15,R11 ;回送根尾数BRCC COM4RCALL INC3 ;第25位根舍入COM4: LDI R17,$7FAND R13,R17 ;根尾数为正数DON4: RETFSQ5: ROL R11ROL R10ROL R9 ;根尾数带进位左移,记根LSL R15ROL R14ROL R13ROL R7ROL R6ROL R5LSL R15ROL R14ROL R13ROL R7ROL R6ROL R5 ;开平方数之尾数连同扩展区左移2位BRCC FSQ3 ;未产生进位，循环RJMP FQDON ;否则进位为第25位根（不须试,并结束子程序）！;范例68 ;牛顿迭代开平方子程序FSQR: TST R12BREQ SQRT ;0的平方根为0ANDI R16,$7ESBRC R13,7ORI R16,$80 ;虚根标志SBRC R12,0INC R16 ;阶码为奇数LDI R17,$7FAND R13,R17 ;尾数变为正数LSR R12ADC R12,R17 ;得到根之移码PUSH R12 ;暂存LDI R17,$80MOV R12,R17SBRC R16,0INC R12 ;得到X1的阶码(0.5≤X1<2)RCALL LD1 ;存X1LSR R13ROR R14ROR R15LDI R17,$40SBRS R16,0 ;阶码为奇数时算术右移尾数即得到X1之尾数；否则将其最;高位字节加上$40OR R13,R17 ;得到首次根r0=(1+x1)/2LDI R17,3MOV R0,R17 ;迭代3次FSQLP: RCALL LD2RCALL GET1RCALL FPDIRCALL GET2RCALL FPADDEC R12 ;计算r(i+1)=(x1/ri+ri)/2DEC R0BRNE FSQLP ;r3的尾数为根之尾数POP R12 ;取回根之阶码SQRT: RET ;r16,7=1 为虚数根;范例69 ;基本运算程序的演示程序DMST1: .EQU SPL=$3D.EQU SPH=$3ELDI R16,2 ;high(ramend)OUT SPH,R16LDI R16,$5F ;low(ramend)OUT SPL,R16LDS R11,$60 ;r11,7:数符r11,6 ：阶符r11,5--0:阶(最大为38)LDS R12,$61 ;r12-r15:尾数LDS R13,$62LDS R14,$63LDS R15,$64 ;尾数共8位BCD码RCALL DTOB ;转为二进制浮点数RCALL LD2 ;暂存LDS R11,$65 ;r11,7:数符r11,阶符r11,5--0:阶(最大为38)LDS R12,$66 ;r12-r15:尾数LDS R13,$67LDS R14,$68LDS R15,$69RCALL DTOB ;转为二进制浮点数RCALL GET2 ;取第一操作数RCALL FPAD ;调基本运算子程序之一(FPSU/FPMU/FPDI) RCALL BTOD ;转回十进制浮点数DMRET: RJMP DMRET;范例70 ;辅助子程序KP2: MOV R8,R12 ;复制第二操作数MOV R9,R13MOV R10,R14MOV R11,R15RETLD1: STS $70,R12 ;存浮点数STS $71,R13STS $72,R14SYS $73,R15RETLD2: STS $74,R12 ;存浮点数STS $75,R13STS $76,R14STS $77,R15RETLD3: STS $78,R12 ;存浮点数STS $79,R13STS $7A,R14STS $7B,R15RETGET1: LDS R8,$70 ;取浮点数LDS R9,$71LDS R10,$72LDS R11,$73RETGET2: LDS R8,$74 ;取浮点数LDS R9,$75LDS R10,$76LDS R11,$77RETGET3: LDS R8,$78 ;取浮点数LDS R9,$79LDS R10,$7ALDS R11,$7BRETINVPI: LDI R17,$86 ;取浮点数180/лMOV R8,R17LDI R17,$65MOV R9,R17LDI R17,$2EMOV R10,R17LDI R17,$E1MOV R11,R17RETG90: LDI R17,$87 ;取浮点数90 MOV R8,R17LDI R17,$34MOV R9,R17CLR R10CLR R11RETDTOR: RCALL PI18 ;角度化为弧度RJMP FPMURTOD: RCALL INVPI ;弧度化为角度RJMP FPMUGHPI: LDI R17,$81 ;取浮点数л/2 MOV R8,R17LDI R17,$49MOV R9,R17LDI R17,$0fMOV R10,R17LDI R17,$DBMOV R11,R17RETG01: LDI R17,$7D ;取浮点数0.1 MOV R8,R17LDI R17,$4CMOV R9,R17LDI R17,$CCMOV R10,R17LDI R17,$CDMOV R11,R17RETG1: LDI R17,$81 ;取浮点数1MOV R8,R17CLR R9CLR R10CLR R11RETPI18: LDI R17,$7B ;取浮点数л/180MOV R8,R17LDI R17,$0EMOV R9,R17LDI R17,$FAMOV R10,R17LDI R17,$35MOV R11,R17RETGINT: LDI R17,R12 ;浮点数取整CPI R17,$81BRCC GINT1RCALL G0 ;阶码<$81,结果为0RJMP KP2GINT1: ANDI R16,$DDSBRC R13,7ORI R16,2 ;记数符CPI R17,$98BRCC GOVER ;阶码>$97,溢出RCALL BRK ;分解出整数部分（在R9 R10 R11）SBRS R16,1RET ;正数返回NEG3A: COM R11 ;负数求(r9 r10 r11)之补COM R10COM R9INC3A: LDI R17,255SUBI R11,R17SBCI R10,R17SBCI R9,R17 ;求反后加1RETGOVER: ORI R16,$20 ;设整数部分超过23位标志RETBRK: ANDI R16,$DF ;将正浮点数分解为整数/小数两部分LDI R17,$80OR R13,R17 ;恢复尾数最高位CLR R9CLR R10CLR R11MOV R17,R12SUBI R17,$80BREQ BRKRTBRCS LOOPTCPI R17,$19 ;整数部分超过24位BRCC GOVER ;为溢出LOOP4: LSL R15ROL R14ROL R13ROL R11ROL R10ROL R9DEC R17BRNE LOOPT ;左移位数为阶码-$80,整数部分进入r9-r11中BRKRT: RETLOOPT: LSR R13 ;只有小数部分右移尾数（$80-阶码）位ROR R14ROR R15INC R17BRNE LOOPTRETNRML: ANDI R16,$BF ;1字节正整数（在R13中）规格化为浮点数CLR R14CLR R15LDI R12,$88 ;设阶码RJMP NMLOPG10: LDI R17,$84 ;取浮点数10MOV R8,R17LDI R17,$20MOV R9,R17CLR R10CLR R11RETGLN2: LDI R17,$80 ;取浮点数ln2(=0.6931471806)MOV R8,R17LDI R17,$31MOV R9,R17LDI R17,$72MOV R10,R17LDI R17,$18MOV R11,R17RETGLN10: LDI R17,$82 ;取浮点数ln10(=2.302585093)MOV R8,R17LDI R17,$13MOV R9,R17LDI R17,$5DLDI R17,$8EMOV R11,R17RETINVX: TST R12 ;计算1/X, X=0时溢出BRNE INVOV4: SEVRETINV: RCALL G1 ;取1RJMP FPDI;范例71 ;用荷纳法计算多项式值子程序FPLN1: ORI R16,$10 ;设计算奇函数(lnx,sinx,arcsinx 等)标志RCALL LD3 ;存XRCALL KP2RCALL FPMU ;计算X2RJMP FLN0 ;FPLN2: ANDI R16,$EF ;设计算偶函数(EXP,COSX等)标志FLN0: RCALL LD1 ;存T,T=X 或T=X2POP R30POP R31 ;系数表数据地址进入ZLSL R30ROL R31 ;由按字取数变为按字节取数LPM ;r0<--(z)取阶码MOV R8,R0ADIW R30,1 ;指针增1LPM ;取尾数高位字节MOV R9,R0ADIW R30,1 ;z+1LPM ;取尾数中位字节MOV R10,R0ADIW R30,1 ;z+1LPM ;取尾数低位字节MOV R11,R0 ;取浮点数到r8 r9 r10&r11ADIW R30,1 ;z+1PLN: RCALL M1 ;计算(....((An*T+A(n-1))*T+A(n-2))*T+....+Ai)*T LPMMOV R8,R0ADIW R30,1LPMMOV R9,R0ADIW R30,1LPMADIW R30,1LPMMOV R11,R0 ;取A(i-1)ADIW R30,1RCALL FPLAD ;计算(....((An*T+A(n-1))*T+A(n-2))*T+....+Ai)*T+A(i-1)LPMRCALL GET1DEC R0BRNE PLN ;1为停止符号；否则继续计算PEND: SBRS R16,4RJMP RENDRCALL GET3 ;奇函数取出自变量RCALL M1 ;自变量乘以计算结果才是函数值REND: LSR R31ROR R30 ;Z指针折半后ADIW R30,1 ；增1为后继指令地址IJMP ;转到该地址去执行;范例72LNX: TST R12 ;对数函数子程序BREQ OV5SBRS R13,7RJMP LN1OV5: SEV ;求负数或0的对数为错误RETLN1: ANDI R16,$7E ;R16,7:（T-1）/(T+1)或(2T-1)/(2T+1)之符号R16，0:p之符号; mMOV R0,R12 ;设X=2 *T, 则LnX=m*Ln2+LnT,存入p=mLDI R17,$F3CP R15,R17LDI R17,$04CPC R14,R17LDI R17,$35CPC R13,R17 ; _BRCC LN5 ;T>√2/2时跳转DEC R0 ;取p=m-1 LnX=(m-1)*Ln2+LN(2T)MOV R17,R15OR R17,R14OR R17,R13MOV R12,R17BREQ LN5A ;2T-1=0 只须计算(m-1)Ln2RCALL KP2 ;R12 NOUSED!LSL R9ROL R10ROL R11 ;(2T-1)LSR R13ROR R14ROR R15LDI R17,$80OR R13,R17 ;2T+1LDI R17,$7EMOV R12,R17 ;取1/(2T+1)的阶码RJMP LNTLPLN5: ORI R16,$80 ;(T-1)为负，数符位改为1RCALL KP2RCALL NEG3ALDI R17,$80ADD R9,R17 ;计算(T-1)LSR R13ROR R14ROR R15LDI R17,$C0OR R13,R17LDI R17,$7FMOV R12,R17 ;取1/(T+1)的阶码LNTLP: LSL R11ROL R10ROL R9 ;(2T-1)或(T-1)规格化DEC R12 ;调整(2T-1)/(2T+1))或(T-1)/(T+1)的阶码SBRS R9,7RJMP LNTLPRCALL FPD3 ;计算(2T-1)/(2T+1)或(T-1)/(T+1) 位r16,7为商之数符PUSH R0RCALL FPLN1 ;计算LnT或Ln(2T).DB $7E,$12,$49,$25 ;0.14285714 ;er.total<0.000000029!.DB $7E,$4C,$CC,$CD ;0.2.DB $7F,$2A,$AA,$AB ;0.33333333.DB $81,$00,$00,$00 ;1.DB $01,$00 ;结束符INC R12POP R0LN5A: LDI R17,$80ADD R0,R17BREQ LN53 ;p=$80结束BRCS LN51NEG R0INC R16 ;p为负数LN51: RCALL LD1 ;存LnT或Ln(2T)MOV R13,R0RCALL NRML ;|P|规格化RCALL GLN2 ;取ln2RCALL FPMU ;计算|p|*ln2RCALL GET1 ;取LnT或Ln(2T)SBRS R16,0RJMP LN52RCALL FPSU ;p<0 计算lnT-|p|*ln2或Ln(2T)-|p|*ln2RETLN52: RCALL FPAD ;p>0 计算lnT+|p|*ln2或Ln(2T)+|p|*ln2 LN53: RET;范例73 ;对数衍生函数子程序LGX: RCALL LNX ;计算lnxRCALL GLN10 ;取ln10RCALL EXCHRJMP FPDI ;转计算lgx=lnx/ln10LGAX: RCALL LD2 ;存aRCALL EXCHRCALL LNX ;计算lnxRCALL GET2 ;取aRCALL LD2 ;存lnxRCALL EXCHRCALL LNX ;计算lnaRCALL GET2 ;转计算logax=lnx/lnaRJMP FPDI;范例74EXP: MOV R17,R12 ;指数函数子程序CPI R17,$68 ;X之阶<$68E1: BRCC E2RCALL G0ROR R12 ;(R12)=$80INC R12 ;取exp=1RETE2: ANDI R16,$3F ;r16,6:数符SBRC R13,7ORI R16,$40 ;负数LDI R17,$7FAND R13,R17 ;取正（取|X|）LDI R17,$33CP R15,R17LDI R17,$0FCPC R14,R17LDI R17,$30CPC R13,R17LDI R17,$87CPC R12,R17 ;|X|与88.02969 比较BRCS E3 ;|X|<88.02969 转SBRS R16,6RJMP OV6G0: CLR R12 ;若x<-88.02969CLR R13CLR R14 ;Exp=0CLR R15RETOV6: SEV ;x>88.02969,Exp溢出RETE3: CLR R0 ;X整数部分予清除LDI R17,$81MOV R8,R17LDI R17,$38MOV R9,R17LDI R17,$AAMOV R10,R17LDI R17,$3BMOV R11,R17 ;取log2e(=1/ln2)RCALL FPMU ;计算X/ln2LDI R17,$80SBRC R16,6OR R13,R17MOV R17,R12CPI R17,$81BRCS E6 ;X/ln2整数部分为0 转RCALL BRK ;否则分解该数为整数I（在R11），小数F两部分LDI R17,$80MOV R12,R17RCALL NOM ;小数部分规格化为浮点数SBRC R16,6NEG R11 ;整数部分求补MOV R0,R11 ;E6: PUSH R0RCALL FPLN2 ;计算EXP(F*ln2).DB $69,$5A,$92,$9F ;0.10178086 E-6 ;er.total<0.000000024.DB $6D,$31,$60,$11 ;0.13215487 E-5.DB $70,$7F,$E5,$FE ;0.15252734 E-4.DB $74,$21,$84,$89 ;0.15403530 E-3.DB $77,$2E,$C3,$FF ;0.13333558 E-2.DB $7A,$1D,$95,$5B ;0.96181291 E-2.DB $7C,$63,$58,$47 ;0.55504109 E-1.DB $7E,$75,$FD,$F0 ;0.24022651.DB $80,$31,$72,$18 ;0.69314718.DB $81,$00,$00,$00 ;1.DB $01,$00 ;结束符POP R0ADD R12,R0 ;整数部分I 加入阶码中RET;范例75 ;指数衍生函数子程序DXP: RCALL GLN10 ;取ln10RJMP EXP0 ;转计算EXP(X*ln10) AXP: RCALL LD2 ;存XRCALL EXCHRCALL LNX ;计算lnaRCALL GET2 ;取出xEXP0: RCALL FPMURJMP EXP ;转计算EXP(X*lna);范例76 ;双曲函数和反双曲函数子程序SHX: RCALL SUB11 ;计算双曲正弦RCALL FPSUBRNE NX48RETCHX: RCALL SUB11 ;计算双曲余弦RCALL FPADNX48: DEC R12RETSUB11: RCALL EXPRCALL LD2RCALL INVXRJMP GET2ASHX: RCALL SUB2 ;计算反双曲正弦RCALL FPADASH: RCALL FPSQRCALL GET2RCALL FPADRJMP LNXACHX: RCALL SUB2 ;计算反双曲余弦RCALL EXCHRCALL FPSURJMP ASHSUB2: RCALL LD2 ;存XRCALL KP2RCALL FPMU ;得到X2RJMP G1 ;取浮点数1; 范例77 ;正弦函数子程序SINX: RCALL RTOD ;弧度化为角度SINX1: CLR R16 ;X1为角度SBRC R13,7INC R16 ;存数符LDI R17,$7F ;X1-->|X1|AND R13,R17NX30: RCALL G90INC R8INC R8 ;取360°RCALL FPCP1 ;|X1|与360°比较BREQ GE0 ;相等,转出BRCC NX31 ;|X1|<360°转出RCALL EXCHRCALL FPSU ;否则|X1|-360°-->|X1|RJMP NX30 ;循环NX31: DEC R8RCALL FPCP1 ;|X1|与180°比较BREQ GE0 ;相等,转出BRCC NX32 ;|X1|<180°，转RCALL EXCHRCALL FPSU ;否则|X1|-180°-->|X1|INC R16 ;将数符求反NX32: RCALL G90RCALL FPCP1 ;|X1|与90°比较BRCC NX36INC R8RCALL FPSU ;|X1|>90°,取180°-|x1|-->|x1| RJMP NX36GE0: RJMP G0 ;|X1|=0 则sinX=0NX36: RCALL DTOR ;变回弧度XMOV R17,R12CPI R17,$79 ;阶码<$79,sinX=XBRCS PP2RCALL FPLN1 ;计算sin|X|.DB $60,$30,$92,$32 ; 0.16059044 E-9 er.total<0.0000000071.DB $67,$D7,$32,$2A ;-0.25052108 E-7.DB $6E,$38,$EF,$1C ; 0.27557319 E-5.DB $74,$D0,$0D,$01 ;-0.19841270 E-3.DB $7A,$08,$88,$88 ; 0.83333333 E-2.DB $7E,$AA,$AA,$AA ;-0.16666667.DB $81,$00,$00,$00 ;1.DB $01,$00 ;结束符PP2: LDI R17,$80SBRC R16,0PP3: OR R13,R17 ;配置数符DON6: RET;范例78 ;衍生三角函数子程序CTNX: RCALL RTOD ;弧度化为角度CTNX1: RCALL TANX1 ;计算tgXRJMP INVX ;取倒数为ctgXTANX: RCALL RTOD ;弧度化为角度TANX1: RCALL LD2 ;存XRCALL SINX1 ;计算sinXRCALL GET2 ;取XRCALL LD2 ;存sinXRCALL EXCHRCALL COSX1 ;计算cosXBRNE NX39OV7: SEVRET ;cosX=0,溢出NX39: RCALL GET2 ;取sinXRJMP FPDI ;tgX=sinX/cosXCOSX: RCALL RTOD ;弧度化为角度COSX1: RCALL G90 ;取浮点数90°RCALL FPSURJMP SINX1 ;cosX=sin(90-X);范例79 ;反正弦函数子程序ASINX: MOV R17,R12CPI R17,$78BRCS DON6 ;X阶码<$78,acrsinX=XANDI R16,8 ;清除数符和|X|>0.5标志，保留计算acosx标志（R16，3）SBRC R13,7INC R16 ;记数符LDI R17,$7FAND R13,R17 ;取绝对值X-->|X|RCALL G1RCALL FPCP1BREQ AABRCC AA1OV8: SEV ;|X>1,溢出RETAA: RCALL GHPIRCALL EXCHRJMP PP2 ;|X|=1,arcsinX=±л/2AA1: MOV R17,R12CPI R17,$80BRNE AS1 ;|X|<0.5,y=|x|MOV R17,R13OR R17,R14OR R17,R15BREQ AS1 ;X=0.5,y=|x|ORI R16,$20 ;X>0.5，建标RCALL NEG3LDI R17,$80ADD R13,R17LDI R17,$7FMOV R12,R17 ;((1-|x|)/2)方根之阶最大为$7FNRMLP: LSL R15ROL R14ROL R13DEC R12SBRS R13,7RJMP NRMLP ; __________RCALL FPS0 ;√(1-|X|)/2-->yAS1: RCALL FPLN1 ;计算arcsiny.DB $7A,$3D,$43,$C4 ;0.11551801 E-1 er. total<0.0000000245 .DB $7A,$64,$CC,$CD ;0.13964844 E-1.DB $7B,$0E,$27,$62 ;0.17352764 E-1.DB $7B,$37,$45,$D1 ;0.22372159 E-1.DB $7B,$78,$E3,$8E ;0.30381944 E-1.DB $7C,$36,$DB,$6E ;0.44642857 E-1.DB $7D,$19,$99,$9A ;0.075.DB $7E,$2A,$AA,$AA ;0.16666667.DB $81,$00,$00,$00 ;1.DB $01,$00 ;结束符SBRS R16,5RJMP PP2 ;|x|≤0.5 转配置数符，有acsin|x|=acsinyINC R12 ;否则取2arcsiny(=arccosx)SBRC R16,3 ;测试计算ARCCOSX的标志RJMP ACSRT ;有计算ARCCOSX标志，转清除该标志（其余计算在ACOSX子程序中完成）RCALL GHPI ;否则取л/2AS2: RCALL FPSU ;|X|>0.5时,arcsin|X|=л/2 -2arcsinyPP20: RJMP PP2 ;转去配置数符;范例80 ;函数值为弧度的反三角函数子程序ACOSX: ORI R16,8 ;设计算arccosx标志RCALL ASINX ;调反正弦函数子程序RCALL GHPI ;取л/2SBRC R16,3 ;计算ARCCOS|X|标志未被清除？RJMP AS3 ;是，转计算arccosx=л/2-arcsinxSBRS R16,0 ;x>0且x>0.5RJMP ACSRT ;有arccosx=2arcsiny!INC R8 ;否则取л；即当x<0且|X|>0.5时,有arccosX=л-2arcsinyAS3: RCALL FPSUACSRT: ANDI R16,$F7 ;清除计算arccosx标志RETATANX: MOV R17,R12 ;反正切函数子程序CPI R17,$98BRCS AT1RCALL GHPI ;X阶码大于$98,取л/2RCALL EXCHROL R9BRCC AT2LDI R17,$80OR R13,R17 ;arctgx=л/2AT2: RETAT1: MOV R17,R12CPI R17,$74 ;X阶码小于$74,arctgX=XBRCS AT2RCALL KP2RCALL LD1 ;存XRCALL FPMURCALL G1RCALL FPAD ; _______RCALL FPSQ ;计算√(1+X2)RCALL GET1RCALL FPDIRJMP ASINX ;转计算arctgx=arcsin(X/√<(1+X2)ACTNX: RCALL ATANX ;反余切函数子程序RCALL GHPIRJMP FPSU ;arcctgX=л/2-arctgx;范例81 ;函数值为角度的反三角函数子程序ASNX: RCALL ASINX ;反正弦函数子程序,结果以角度表示RJMP RTODACSX: RCALL ACOSX ;反余弦函数子程序,结果以角度表示RJMP RTODATNX: RCALL ATANX ;反正切函数子程序,结果以角度表示RJMP RTODACNX: RCALL ACTNX ;反余切函数子程序,结果以角度表示RJMP RTOD;范例82 ;函数计算子程序演示程序DMST2: LDI R16,2OUT SPH,R16LDI R16,$5F ;堆栈指针初始化OUT SPL,R16LDS R11,$65 ;取操作数（自变量X）LDS R12,$66 ;r11,7:数符r11,6：阶符LDS R13,$67 ;r11,5--0:阶(最大为38)LDS R14,$68LDS R15,$69 ;r12-r15:十进制尾数（8位BCD码）RCALL DTOB ;翻为二进制浮点数RCALL LNX ;调函数子程序之一RCALL BTOD ;将函数值转为十进制浮点数DMHER: RJMP DMHER;范例83 ;阶乘子程序NP: RCALL G1 ;取浮点数1MOV R17,R12 ;二进制整数N在R12中CPI R17,2 ;N<2,N！=1BRCS GGCPI R17,34BRCS NX59OV9: SEV ;N>33,溢出RETGG: RJMP SA V0 ;取N!=1NX59: MOV R0,R12 ;存NDEC R0 ;N-1PUSH R17 ;取T=1 并存入LDI R17,$81STS $70,R17CLR R17STS $71,R17STS $72,R17STS $73,R17 ;存储浮点数1L43: POP R13 ;取TINC R13 ;T+1-->TPUSH R13 ;存TRCALL NRML ;T规格化RCALL GET1 ;取阶段阶乘结果RCALL FPMU ;得到当前T!RCALL LD1DEC R0BRNE L43 ;T=N时得到N!POP R0RET;范例84 ;长整数(r9,r10,r11,r12)规格化为浮点数LINOM: BST R9,7 ;数符存于TBRTC LI10CLR R16 ;负数求补SUB R16,R12MOV R12,R16CLR R16SBC R16,R11MOV R11,R16CLR R16SBC R16,R10MOV R10,R16CLR R16SUB R16,R9MOV R9,R16LI10: LDI R16,$A0 ;取阶32（长整数共32位）LP10: SBRC R9,7RJMP NX63 ;最高位为1，已规格化LSL R12ROL R11ROL R10ROL R9 ;否则左规1位DEC R16 ;阶码减1BRNE LP10RJMP G0 ;左规达32次，浮点数为0;范例85 ;定点十进制数翻为二进制浮点数DTOB1: RCALL LD1 ;存入十进制小数RCALL CONV2 ;定点整数十翻二RCALL GET1 ;取出十进制小数RCALL LD1RCALL SA V0RCALL CONV4 ;定点小数十翻二RCALL GET1 ;取出二进制定点整数LDI R16,$98 ;予设阶码LP11: SBRC R9,7RJMP NX63 ;最高位为1,已规格化LSL R15ROL R14ROL R13ROL R12ROL R11ROL R10ROL R9 ;整数和小数部分左移一位DEC R16 ;阶码减1CPI R16,$60BRNE LP11RET ;得到浮点数0NX63: MOV R13,R9MOV R14,R10MOV R15,R11 ;尾数取到r13-r15SBRS R12,7RJMP PP6RCALL INC3 ;尾数截去部分舍入BRNE PP6INC R16 ;尾数变为0将阶码增1SECROR R13 ;$80-->r13，即将尾数变为0.5PP6: MOV R12,R16 ;取回阶码BLD R13,7 ;装入数符(T-->R13,7)RET;范例86 ;浮点数十翻二DTOB: ANDI R16,$FC ;r11,7：数符r11,6：阶符r11，5--0：阶(最大为38)SBRC R11,6 ;R12---R15；8BCD码尾数INC R16 ;阶符存于R16，0SBRC R11,7ORI R16,2 ;数符存于R16，1MOV R17,R11ANDI R17,$3F ;取阶MOV R0,R17 ;存于R0MOV R8,R12OR R8,R13OR R8,R14OR R8,R15BREQ PP8 ;十进制浮点数尾数为0，取二进制浮点数0 PUSH R16RCALL CONV4 ;十进制浮点数尾数翻为二进制定点小数MOV R16,R15MOV R15,R14MOV R14,R13MOV R13,R12 ;二进制定点小数转入r13r14r15r16LDI R17,$80 ;予设阶码MOV R12,R17LP14: SBRC R13,7RJMP NX67LSL R16ROL R15ROL R14ROL R13DEC R12RJMP LP14 ;二进制定点小数规格化为浮点数NX67: SBRS R16,7RJMP NX66RCALL INC3 ;调整BRNE NX66INC R12SEC ;调整后结果为0将其改为0.5ROR R13 ;即$80-->r13NX66: LDI R17,$7FPOP R16SBRS R16,1AND R13,R17 ;配置数符SBRS R16,0RJMP DBL4 ;正阶转DBL1: LDI R17,$10SUB R0,R17BRCS DBL2RCALL INVDP ;RCALL FPMU ;阶码减10, X*10ˉ1o -->X RJMP DBL1DBL2: ADD R0,R17 ;不够减则恢复阶BREQ PP8DBL3: RCALL G01 ;取0.1RCALL FPMUDEC R0 ;X*0.1-->X,阶减1BRNE DBl3RETDBL4: LDI R17,$10SUB R0,R17 ;阶减10BRCS DBL5RCALL DDP ;X*101o -->XRCALL FPMURJMP DBL4DBL5: ADD R0,R17 ;不够减则恢复阶BREQ PP8DBL6: RCALL G10RCALL FPMUDEC R0 ;X*10-->X,阶减1BRNE BDL6PP8: RETINVDP: LDI R17,$5F ;取浮点数10ˉ1oMOV R8,R17LDI R17,$5BMOV R9,R17LDI R17,$E6MOV R10,R17LDI R17,$FFMOV R11,R17RET ;DDP: LDI R17,$A2 ;取浮点数101oMOV R8,R17LDI R17,$15MOV R9,R17LDI R17,$02MOV R10,R17LDI R17,$F9MOV R11,R17RET;范例87 ;浮点数二翻十BTOD: TST R12BREQ PP4 ;转取十进制浮点数0ANDI R16,$FC ;予清十进制浮点数数符及阶符(r16,1&0) CLR R0 ;予清十进制浮点数之阶SBRC R13,7ORI R16,2 ;取数符LDI R17,$7FAND R13,R17 ;取绝对值BTA: RCALL DDPRCALL FPCP1 ;|X|与101o 比较BREQ BTBBRCC BTC ;|X|<101o 转BTB: RCALL INVDPRCALL FPMU ;|X|*10ˉ1o-->|X|LDI R17,$10ADD R0,R17 ;十进制浮点数阶加10RJMP BTABTC: RCALL INVDP ;RCALL FPCP1 ;|X|与10ˉ1o 比较BREQ BTC1 ;BRCS BT0 ;|X|>10ˉ1o 转BTE: RCALL DDP ;RCALL FPMU ;|X|*101o -->|X|LDI R17,$10ADD R0,R17 ;十进制浮点数阶加10ORI R16,1 ;置负阶RJMP BTCBTC1: LDI R17,9 ;|X|=10ˉ1o 特别处理ADD R0,R17 ; -9ORI R16,1 ;取0.1*10SJMP BT4BT0: RCALL G1RCALL FPCP1 ;|X|与1比较BREQ BT1BRCC BT2 ;|X|<1转BT1: RCALL G01RCALL FPMU ;|X|*0.1-->|X|INC R0 ;十进制浮点数阶加1RJMP BT0BT2: RCALL G01RCALL FPCP1 ;|X|与0.1比较BREQ BT4BRCS BDS ;|X|≤0.1转出BT3: RCALL G10RCALL FPMU ;|X|*10--->|X|INC R0 ;十进制浮点数阶加1ORI R16,1 ;置负阶RJMP BT2PP4: RJMP KP2 ;十进制浮点数取为0BT4: LDI R17,$10MOV R9,R17CLR R10CLR R11CLR R12 ;十进制浮点数尾数取为0.10000000BT6: MOV R8,R0 ;取十进制浮点数阶SBRS R8,3RJMP BT7SBRC R8,1SUBI R8,$FA ;对产生非法BCD调整（加6）BT7: LDI R17,$40SBRC R16,0OR R8,R17 ;配置阶符(r8,6)LSL R17SBRC R16,1OR R8,R17 ;配置阶浮(r8,7)RETBDS: RCALL BT6 ;BT6将十进制浮点数阶，阶符和数符配置到R8 LDI R17,$80OR R13,R17 ;恢复尾数最高位LDI R17,$98SUB R17,R12 ;右移次数为($98-阶码)RJMP CONV31 ;调CONV31子程序完成尾数二翻十，结果在(r9r10r11r12);范例88 ;二进制浮点数快速翻为定点十进制数，整数在r9,r10,r11中，小数在r13,r14,r15中FBTOD: RCALL BRK ;二进制浮点数分解为整数和小数两部分SBRC R16,5RET ;整数部分多于24位,溢出MOV R0,R13MOV R5,R14MOV R8,R15 ;小数部分转入R0R5R8RCALL CONV1 ;定点整数二翻十，结果在R12,R13,R14,R15RCALL LD1 ;十进制整数-->RAMMOV R15,R8MOV R14,R5MOV R13,R0 ;取回二进制小数RCALL CONV3 ;定点小数二翻十，结果在r9,r10,r11,r12RCALL EXCH1 ;十进制定点小数转入r13,r14,r15,r12RCALL GET1 ;取出十进制定点整数r8,r9,r10,r11)/小数在r13,r14,r15,r12CLR R16 ;清除无用的标志!RET;范例89.ORG $E80 ;最小二乘法拟和直线子程序.EQU NUMB=10 ;取10点,即十对浮点数，按增地址存放Y1,X1,Y2,X2,..Yn,Xn .EQU TABLA=$9000 ;数据表，第一个浮点数为Y1STRT: LDI R28,$70CLR R29 ;POINT TO $0070LP51: ST Y+,R29 ;累加和或暂存区清除（LD1,LD2,LD3,LD4和LD5子程序工作区）CPI R28,$84BRNE LP51LDI R16,NUMB ;取拟合点数MOV R0,R16LDI R29,$90CLR R28 ;参加拟合数据首地址$9000IN R16,MCUCR,7SBR R16,$C0 ;片外RAM，选一个读写等待周期OUT MCUCR,R16LOOP3: RCALL GETA ;取浮点数Yi 占4字节即Yi0,Yi1,Yi2,Yi3 RCALL INVX ;计算1/YiRCALL LD6 ;暂存RCALL GET1 ;取累加和nRCALL FPAD ;1/Yi加入累加和(∑1/Yi是∑1/Yi 简写形式，下同)RCALL LD1 ; i=1RCALL GET6 ;取1/YiPUSH R28PUSH R29 ;保护堆栈指针RCALL GETA ;取浮点数Xi（Xi0,Xi1,Xi2,Xi3）占4字节POP R29POP R28 ;恢复堆栈指针，仍指向XiRCALL FPMU ;计算Xi/YiRCALL LD7 ;暂存RCALL GET2RCALL FPAD ;Xi/Yi加入累加和∑(Xi/Yi)RCALL LD2RCALL GET7 ;取出Xi/YiRCALL SA V0 ;RCALL FPMU ;计算(Xi/Yi)2RCALL GET3RCALL FPAD ;(Xi/Yi)2加入累加和∑(Xi/Yi)2RCALL LD3RCALL GET6 ;取1/YiRCALL SA V0 ;RCALL FPMU ;计算1/Yi2RCALL LD6 ;暂存RCALL GET4RCALL FPAD ;1/Yi2 加入累加和∑1/Yi2RCALL LD4RCALL GET6 ;取出1/Yi2RCALL GETA ;再取XiRCALL FPMU ;计算Xi/Yi2RCALL GET5RCALL FPAD ;Xi/Yi2加入累加和∑Xi/Yi2RCALL LD5DEC R0 ;点数减1BRNE LOOP3 ;未到总点数n，循环RCALL GET4RCALL SA V0RCALL GET3RCALL FPMU ;计算(∑1/Yi2)*(∑(Xi/Yi)2) 并存入RCALL LD6RCALL GET5 ;取出∑Xi/Yi2RCALL SA V0RCALL FPMU ;计算(∑Xi/Yi2)2RCALL GET6RCALL FPSU ;计算c=(∑1/Yi2)*(∑(Xi/Yi)2-(∑Xi/Yi2)2 RCALL LD6 ;存入RCALL GET2RCALL SA V0RCALL GET4RCALL FPMU ;计算(∑(Xi/Yi)*(∑1/Yi2)并存入RCALL LD7RCALL GET1RCALL SA V0RCALL GET5RCALL FPMU ;计算(∑1/Yi)*(∑(Xi/Yi2) 并存入RCALL GET7RCALL FPSU ;计算d=(∑Xi/Yi)*(∑1/Yi2)-(∑1/Yi)*(∑Xi/Yi2)) RCALL GET6 ;取cRCALL EXCHRCALL FPDI ;计算b=d/c并存入RCALL LD7RCALL GET5 ;取∑Xi/Yi2RCALL FPMU ;计算(∑Xi/Yi2)*bRCALL GET1RCALL FPSU ;计算(∑1/Yi)-(∑Xi/Yi2)*bRCALL GET4 ;取∑1/Yi2RCALL EXCHRCALL FPDI ;计算a=(∑1/Yi-(∑Xi/Yi2)*b)/∑1/Yi2 RCALL LD6 ;结果a在$84-$87中,b在$88-$8b中RERGETA: LD R12,Y+LD R13,Y+LD R14,Y+LD R15,Y+ ;从外部SRAM中取浮点数到R12-R15 RETLD4: STS $7C,R12 ;存浮点数STS $7D,R13STS $7E,R14STS $7F,R15RETLD5: STS $80,R12 ;计算∑Xi/Yi2的存储单元STS $81,R13STS $82,R14STS $83,R15RETLD6: STS $84,R12 ;暂存1/Yi，1/Yi2等浮点数STS $85,R13STS $86,R14STS $87,R15RETLD7: STS $88,R12 ;暂存Xi/Yi等浮点数STS $89,R13STS $8A,R14STS $8B,R15RETGET4: LDS R8,$7C ;取浮点数LDS R9,$7DLDS R10,$7ELDS R11,$7FRET ;GET5: LDS R8,$80 ;取∑Xi/Yi2或中间结果LDS R9,$81LDS R10,$82LDS R11,$83RETGET6: LDS R8,$84 ;取浮点数1/Yi，1/Yi2等LDS R9,$85LDS R10,$86LDS R11,$87RETGET7: LDS R8,$88 ;取浮点数Xi/Yi等LDS R9,$89LDS R10,$8ALDS R11,$8BRET;范例90GETAD: LDI R17,0Bxxx01110;PC0&PC4输入/PC1-PC3输出&PC3(CAL) OUT DDRC,R17 ;CBI PORTC，1GAD1: SBI PORTC,4SBIB PINC,4 ;查DRDYRJMP GAD1 ;低为数据准备好GAD2: SBI PORTC,4SBIC PINC,4 ;PINC:$13/PORTB:$15RJMP GAD2 ;DRDY低有效CBI PORTC,2 ;置片选有效LDI R16,16 ;16位数据GETL0: CLC ;予清除CSBI PORTC,0SBIC PINC,0 ;接收一位数据SECROL R14 ;数据高位在前ROL R13 ;在R13R14里带进位左移SBI PORTC,1CBI PORTC,1 ;发出时钟，下降沿读出数据DEC R16BRNE GETL0SBI PORTC,2 ;置片选无效MOV R4,R14 ;MOV R3,R13 ;保存GADCOM: CLR R15 ;3字节小数r13r14r15(0)规格化为浮点数LDI R16,$80MOV R12,R16 ;阶码为$80GAD: SBRC R13,7RJMP GETL2LSL R14。

;范例19 ;等步距线性内插计算子程序.EQU TBLGTH=10CHETA: LDI R16,TBLGTH-1 ;r16<--表长（即字数）-1LDI R31,HIGH(chtbl*2);y0（函数初值）在r14r15,STEP（步长）在r10r11,自变量X 在r12r13LDI R30,LOW(chtbl*2+1);查表指针，首指数据表第1字之高位字节!RCALL CPMR1 ;X与表中第一个字型数据（X0）比较BRCC CHRET ;X<X0 查表结束,Y=Y0CHET1: RCALL CMPR1 ;X与表中下一个数据比较BRCC NX33 ;X<X(i+1) 找到插值区间ADD R15,R11 ;否则Y0中加入一个STEP：Yk=Y0+k*step（步距为负时则;减去|STEP|）ADC R14,R10DEC R16BRNE CHET1 ;未查到表格终值，循环；否则结束，Y取得最大值Yn CHRET: RETNX33: SBIW R30,5 ;指针退回(-5)，指向XiMOV R8,R14MOV R9,R15 ;保存Y0+i*STEPRCALL SUBS ;(X-Xi)-->r16r17MOV R15,R17MOV R14,R16 ;转入r14r15RCALL MUL16 ;(X-Xi)*STEP-->r12r13r14r15MOV R10,R12MOV R11,R13 ;保存乘积高位字LPM ;X(i+1)低位字节MOV R13,R0ADIW R30,1LPM ;X(i+1)高位字节MOV R12,R0SBIW R30,3 ;指针指向XiRCALL SUBS ;X(i+1)-Xi-->r16r17MOV R12,R10MOV R13,R11 ;取回乘积高位字MOV R10,R16MOV R11,R17 ;X(i+1)-Xi-->r10r11RCALL DIV165 ;(X-Xi)*STEP/[X(i+1)-Xi]-->r14r15ADD R15,R9ADC R14,R8 ;Y0+i*STEP+(X-Xi)*STEP/[X(i+1)-Xi]-->r14r15RET ;若STEP为负值则改为计算(r8r9)减去(r14r15)之值CMPR1: LPM ;取数据高位字节ADIW R30,2 ;指向下一数据的高位字节CP R0,R12 ;与X高位字节相比较BRNE CPRT1 ;不相等即转出SBIW R30,3 ;否则调整指针LPM ;取数据低位字节ADIW R30,3 ;指向下一数据的高位字节CP R0,R13 ;与X低位字节相比较CPRT1: RET ;以进位C带回比较结果SUBS: LPM ;计算(X-Xi)或[X(i+1)-Xi]并送入r16r17MOV R5,R0 ;取Xi低位字节ADIW R30,1LPM ;取Xi高位字节SBIW R30,1 ;仍指向Xi低位字节SUB R13,R5MOV R17,R13SBC R12,R0MOV R16,R12 ;计算差并将其转入R16R17RET;自变量x表长为12字CHTBL:DW 19214,23404,27600,32799,37009,40211,45414,48618,51821,55029,57787,60070 ;步距表长为11字STEPT: DW 356,366,379,395,415,440,471,509,555,603,657;不等步距线性内插计算子程序,步距表首址在R6R7中;自变量X在R12R13之中，函数初值Y0在R14R15中;范例20 ;表长(字个数)-1在R16中CHTSTP: LDI R31,HIGH(chtbl*2)LDI R30,LOW(chtbl*2+1);查表指针LDI R16,LOW(stept*2)MOV R7,R16LDI R16,HIGH(stept*2)MOV R6,R16 ;步距表指针LDI R16,TBLGTH-1 ;r16<--表长（字个数）-1RCALL CMPR1 ;X与表首数据比较BRCC CHSTPT ;X<X0 查表结束,有Y=Y0CHSTP1: RCALL CMPR1 ;否则与表中下一数据比较BRCC CHSTP3 ;X<X(i+1),找到插值区间!RCALL GTSTP ;查表取STEP字型变量ADD R15,R11 ;Y0<--Y0+STEPkADC R14,R10DEC R16BRNE CHSTP1 ;未查到表格终值循环；否则结束，Y取得最大值Yn CHSTPT: RETCHSTP3: SBIW R30,5 ;指针退回，指向Xi低位字节MOV R8,R14MOV R9,R15 ;Y0+∑STEPk送入r14 r15RCALL SUBS ;(X-Xi)->r16r17MOV R14,R16 ;(X-Xi)转入R14R15RCALL GTSTP ;查表取STEPi-->R10R11RCALL MUL16 ;(X-Xi)*STEPi-->R12R13R14R15MOV R10,R12MOV R11,R13 ;保存积高位字LPMMOV R13,R0ADIW R30,1LPMMOV R12,R0SBIW R30,3RCALL SUBS ;(X(i+1)-Xi)-->r16 r17MOV R12,R10MOV R13,R11MOV R10,R16MOV R11,R17 ;取回积高位字&(X(i+1)-Xi)-->r10r11RCALL DIV165 ;(X-Xi)*STEPi/[X(i+1)-Xi]-->r14r15ADD R15,R9 ;ADC R14,R8 ;Y0+∑STEPk+(X-Xi)*STEPi/[X(i+1)-Xi]-->r14r15 RETGTSTP: MOV R5,R6 ;查取STEP字型变量/POINTER in r6r7!MOV R6,R30MOV R30,R5MOV R5,R7MOV R7,R31MOV R31,R5 ;(r6r7)<-->ZLPMMOV R11,R0ADIW R30,1LPMMOV R10,R0 ;STEPk取到r10r11ADIW R30,1MOV R5,R6MOV R6,R30MOV R30,R5MOV R5,R7MOV R7,R31MOV R31,R5 ;指针增2后送回r6r7RET;范例21 ;功能表程序FUNC2: LDS R16,$A3 ;use r0,r8,r9,r10,r11,r16&r17/& subprogram dspa SBR R16,$80 ;功能表程序标志LDI YH,2LDI YL,0 ;功能内容表SRAM地址RCALL FLFUNC ;CLR r27!LDI R16,2ST X,R16 ;显示'FUNC.2'RCALL DL2SCLR R9 ;功能内容寻址偏移量R9!CLR R8 ;功能名称寻址偏移量(R8)=(r9)*3FFUNC0: RCALL DSF_ ;显示'F- 'FF0: RCALL DSPA ;in subprogram dspy clr. r27!CPI R16,11 ;回车键按下？BRNE FF2PFF0C: RCALL COMBNO ;合成功能名称送入r16 CPI R16,20 ;是最后一个功能名称？BRNE FF1CLR R9 ;是，两偏移量初始化!CLR R8FF1: LDI ZH,HIGH(FTABL*2)LDI ZL,LOW(FTABL*2)；功能名称表指针ADD ZL,R8ADC ZH,R27 ;(r27)=0 ALWAYSLPMMOV R16,R0RCALL BRA3A ;分解新功能名称到$6E/$6FFF0G: LDI R28,0ADD R28,R9 ;功能内容指针加偏移量LD R16,YLDI R26,$72RCALL BRAX ;将新功能内容分解到$72/$73FF0A: RCALL DSPA ;显示新功能名称/内容CPI R16,11BRNE FF0B ;回车键按下？INC R8INC R8INC R8 ;是，功能名称寻址偏移量加3INC R9 ;功能内容寻址偏移量加1RJMP FF0C ;转回FF2P: RJMP FF2FF0B: CPI R16,10BRNE FF0DRCALL DSF_ ;清除键按下，清除显示区后，显示‘F-’FF1B: RCALL DSPACPI R16,11BREQ FF1 ;转恢复当前显示CPI R16,10BRCC FF1BRJMP FF2D ;只有数字键按下才转出去处理FF0D: CPI R16,10BRCC FF0AFF1D: LDI R17,$24 ;STS $73,R17 ;数字键处理，先在缓存区内放一空白FF0E: LDS R17,$73STS $72,R17 ;键入数字左移STS $73,R16 ;存入新数字FF0F: RCALL DSPACPI R16,10BREQ FF0G ;清除键按下，恢复显示旧功能内容BRCS FF0E ;键入数字左移更新CPI R16,11BRNE FF0FLDS R26,$72 ;回车键按下RCALL COMBA ;合成新功能内容(combin $72&$73 into binary(r16)) MOV R17,R8INC R17LDI ZH,HIGH(FTABL*2)LDI ZL,LOW(FTABL*2)ADD ZL,R17 ;取当前功能内容下限ADC ZH,R27FF1F: LPMCP R16,R0BRCS DSER2 ;新功能内容小于下限，错误INC R17LDI ZH,HIGH(FTABL*2)LDI ZL,LOW(FTABL*2)ADD ZL,R17 ;取当前功能内容上限ADC ZH,R27LPMCP R0,R16BRCS DSER3 ;新功能内容大于上限，错误FF7: LDI R28,0ADD R28,R9 ;功能内容表首地址为$200!ST Y,R16 ;合法的新功能内容进入功能内容表INC R9INC R8INC R8INC R8 ;调整偏移量，进入下一个功能显示RJMP FF0CFF1P: RJMP FF1DSER2: RCALL FERR2 ;显示'F Err.2'2秒RCALL EXCH0RJMP FF0G ;恢复原数据显示DSER3: RCALL FERR3 ;显示'F Err.3'2秒RCALL EXCH0RJMP FF0G ;恢复原数据显示FF2: CPI R16,10BRCS FF2D ;功能键按下，转初始RJMP FF0FF2D: LDI R17,$24 ;数字键按下，在显示缓存区内左移STS $6F,R17 ;FF3: LDS R17,$6FSTS $6E,R17STS $6F,R16FF4: RCALL DSPACPI R16,10BRNE FF41RCALL DSF_ ;清除数字，显示‘F-’FF40: RCALL DSPACPI R16,11BREQ FF1P ;转回显示当前功能名称及内容CPI R16,10BRCC FF40 ;无效键按下，转回RJMP FF2D ;否则转数字处理FF41: BRCS FF3CPI R16,11BRNE FF4RCALL COMBNO ;合成新功能名称CLR R10 ;功能名称偏移量计数器清除CLR R11 ;功能内容偏移量计数器清除SFFLP: LDI ZH,HIGH(FTABL*2)LDI ZL,LOW(FTABL*2)ADD ZL,R10ADC ZH,R27LPMCP R0,R16 ;BREQ SFFND ;在功能名称表中找到新名称INC R11 ;INC R10INC R10INC R10 ;调整偏移量LDI R17,60CP R10,R17 ;功能名称指针偏移量超过59？BRCS SFFLP ;否，继续查功能名称表RCALL FERR1 ;查完功能名称表未查到键入功能名称!RJMP FFUNC0 ;转回恢复原显示SFFND: MOV R9,R11 ;得到功能内容指针偏移量MOV R8,R10 ;得到功能名称指针偏移量RJMP FF0G ;转显示新功能名称及内容FTABL: .DB 1,0,1,2,1,8,3,0,2,4,0,1 5,1,2,6,0,4,7,1,4,8,1,2,9,2,7,10,1,5,11,1 .DB 5,12,0,5,13,1,2,14,1,7,15,1,10,16,1,4,17,2,4,18,2,5,19,1,2,20,1,3 COMBNO: LDI XL,$6E ;取$6E$6F中的BCD码，合成新功能名称子程序COMBA: LD R16,X+CPI R16,$24BRNE CMBACLR R16CMBA: MOV R0,R16LSL R16LSL R16ADD R16,R0LSL R16 ;高位BCD乘10LD R0,XADD R16,R0 ;加低位BCDRETDSF_: RCALL FIL8 ;准备显示'F- 'LDI R16,$0FSTS $6C,R16LDI R16,$14STS $6D,R16RETBRA3A: LDI XL,$6E ;二进制数转换为两位BCD码并显示BRAX: LDI R17,$24 ;十位为0时显示空白ST X,R17BRHOUR: CLR R0 ;BRX0: SUBI R16,10 ;减10BRCS BRX2INC R0RJMP BRX0BRX2: SUBI R16,-10 ;不够减恢复出十位BCDTST R0BREQ BRX1ST X,R0 ;放入显示区BRX1: INC R26ST X,R16BRART: RETFERR1: LDI XL,$71 ;显示'F Err.1'LDI R16,1ST X,R16RJMP FER123FERR2: RCALL MOVE1 ;显示'F Err.2' LDI R16,2STS $71,R16RJMP FER123FERR3: RCALL MOVE1 ;显示'F Err.3' LDI R16,3STS $71,R16FER123: LDI XL,$6CLDI R16,$0FST X+,R16LDI R16,$24ST X+,R16LDI R16,$0EST X+,R16LDI R16,$1BST X+,R16LDI R16,$3BST X+,R16 ;显示'F Err.1/2/3'LDI R16,$24 ;2秒STS $72,R16STS $73,R16RCALL DL2SRETFIL8: LDI R26,8 ;将显示缓存区充空白MOV R10,R26LDI R26,$6CCLR R27LDI R16,$24FILP: ST X+,R16DEC R10BRNE FILPRETFLFUNC: RCALL FIL8 ;准备显示'Func.' LDS R26,$6CLDI R16,$0F ;'F'ST X+,R16LDI R16,$1E ;'u'ST X+,R16LDI R16,$17 ;'n'ST X+,R16LDI R16,$40 ;'c.'ST X+,R16RETEXCH0: LDI ZL,$14 ;将显示缓存区内容转移$6C-$73<-->$214-$21B LDI ZH,2LDI XL,$6CEXL: LD R16,XLD R17,ZST X+,R17ST Z+,R16CPI R26,$74BRNE EXLRETMOVE1: LDI ZL,$14 ;将显示缓存区内容传送到$214-$21BLDI ZH,2LDI XL,$6CMV1: LD R16,X+ST Z+,R16CPI R26,$74BRNE MV1RET;范例22 ;读出EEPROM子程序REEP: LDI YH,1LDI YL 0 ;EEPROM 读出首地址:$100LDI XL,$60 ;读出数据存放首地址:$60CLR XHREEP1: SBIC $1C,1 ;查EEWE位，EEWE=1为当前尚有写入操作未结束RJMP REEP1 ;等待EEWE=0OUT $1F,YHOUT $1E,YL ;读出地址写入EEPRO地址寄存器SBI $1C,0 ;设置读出使能位(EERE)IN R16,$1D ;从EEPROM数据寄存器中读出数据ST X+R16 ;存入缓存区INC YLBRNE REEP1 ;INC YHCPI YH,2 ;EEPROM最末数据（地址为$1FF）读完?BRNE REEP1RET;范例23 ；写入EEPROM子程序WEEP: LDI YH,1LDI YL 0 ;EEPROM 写入之首地址:$100LDI XL,$60 ;写入数据存储区首地址:$60CLR XHWEEP1: SBIC $1C,1 ;查EEWE位，EEWE=1为当前尚有写入操作未结束RJMP WEEP1 ;等待EEWE=0OUT $1F,YHOUT $1E,YL ;送写入地址到EEPRO地址寄存器LD R16,X+ ;取写入数据并调整数据指针OUT $1D,R16 ;送到EEPROM数据寄存器SBI $1C,2 ;设置EEPROM写入总使能位EEMWESBI $1C,1 ;设置EEPROM写入使能位EEWEINC YLBRNE WEEP1INC YHCPI YH,2 ;EEPROM最末写入单元地址为$1FFBRNE WEEP1RET。

; 以下提供几个补充参考程序,都带有详细说明和指令注释.它们是主从多机通讯程序,采;用中断方式写入EEPROM,直接对晶振分频产生0.1秒和秒号的精确定时程序,以及RS-232/ ;RS-485标准转换程序,A VR频率计程序,串行时锺日历芯片DS13021302具体积小,;可靠性高,与单片机连接方便等优点.; 以下程序请参看有关章节或程序中的注释。

;范例91 ;多机通讯主机程序/晶振4MHZ.ORG 0 ;以8/9位数据模式区分被选/未被选分机通讯.EQU DTPINT=$180 ;UBRR=12 波特率19200(REL.ERR.=0.16%).EQU DRPINT=$1C0 ;主机对1#,2#,3#,4#分机发送数据块在$180-18F,$190-19F,$1A0-1AF)和$1B0-1BFSTRT38: RJMP RST38 ;主机从1#,2#,3#,4#分机接收数据块在$1C0-1CF,$1D0-1DF,$1E0-1EF)和$1F0-1FF.ORG $00B ;RJMP STRT38.ORG $00CRJMP STRT38 ;主机不设串口中断，只以查询接收.ORG $011RST38: LDI R16,12OUT UBRR,R16 ;设波特率:[BAUD RATE=FCP/16(UBRR+1)]CLR R15 ;初始化分机号LDI R27,HIGH(DTPINT)LDI R26,LOW(DTPINT);发送数据指针〔首指$180〕LDI R29,HIGH(DRPINT)LDI R28,LOW(DRPINT);接收数据指针(首指$1C0)NEXTNO: LDI R16,$18OUT UCR,R16 ;允许UART接收和发送，8位数据模式INC R15 ;指向1#分机OUTLP: OUT UDR,R15 ;呼分机号，1:1#/2:2#/03:3#/04:4#...TSLOP: IN R16,USRSBRS R16,7RJMP TSLOP ;分机返回机号？IN R16,UDRCP R16,R15 ;分机号正确返回？BRNE OUTLPLDI R16,$1C ;改为9位数据模式TXB8=0OUT UCR,R16 ;TXLOP: LD R16,X+OUT UDR,R16 ;向分机发送数据块TESTL: IN R17,USRSBRS R17,5RJMP TESTL ;等待发送完成CPI R16,$0ABRNE TXLOP ;RXTST: IN R17,USRSBRS R17,7 ;RXC=1 收到数据RJMP RXTST ;等待接收分机返回数据块IN R16,UDRST Y+,R16 ;存储接收数据CPI R16,$0A ;分机数据块发完？BRNE RXTSTMOV R16,R15CPI R16,4 ;与分机轮询通讯完毕？BRNE NEXTNO ；未完转对下一分机通信HH38: RJMP HH38 ;否那么踏步〔可改为处理分机返回的数据，之后再进行下一个轮询〕.DSEG.ORG $180DTPINT:.BYTE $40;$41 $45 $65 $73 $46 $42 $40 $6F $33 $44 $66 $5C $4D $4B $0D $0A;$42 $4F $66 $78 $47 $45 $44 $63 $32 $48 $60 $7C $6D $45 $0D $0A;$43 $56 $55 $53 $4D $4F $40 $2E $31 $42 $67 $4C $47 $4A $0D $0A;$45 $54 $59 $63 $3D $4B $48 $2F $35 $48 $69 $3C $77 $43 $0D $0A.ORG $1C0DRPINT:.BYTE $40;范例92.ORG 0 ;多机通讯1#分机程序/晶振4MHZ.EQU DTPIT1=$180 ;〔UBRR〕=12 波特率为19200(REL.ERR.=0.16%).EQU DRPNT1=$1C0STRT39: RJMP RST39.ORG $00BRJMP UARXC ;8535UART接收完成中断.ORG $00CRJMP UATXC ;UART发送完成中断.ORG $011RST39: CLR R18 ;去除分机被选中〔R18，6〕和主机数据块接收完毕标志(R18,7) LDI R16,12OUT UBRR,R16 ;设波特率[BAUD RATE=4000000/16*〔12+1)=19200]LDI R16,HIGH(DRPNT1)MOV R8,R16LDI R16,LOW(DRPNT1)MOV R9,R16 ;r8,r9:接收数据指针(FIRST POINT TO $1C0)LDI R16,$98 ;允许UART中断接收，8位数据模式OUT UCR,R16SEIRXDTS: SBRS R18,6 ;主机呼号已收到〔假设收到，在R17中〕？RJMP RXDTSOUT UDR,R17 ;返还该机号TXDON: IN R16,USRSBRS R16,5RJMP TXDON ;该机号发送完成？LDI R16,$9C ; 允许UART中断接收，9位数据模式，TXB8=0OUT UCR,R16RCVBLK: SBRS R18,7RJMP RCVBLK ;主机发来数据块已接收完毕？LDI R16,HIGH(DTPIT1)MOV R6,R16LDI R16,LOW(DTPIT1)MOV R7,R16 ;设发送数据指针r6r7,首指$180LDI R16,$3C ;允许UART中断发送，9位数据模式，TXB8=0OUT UCR,R16TXDN: SBIC UCR,5RJMP TXDN ;发送完毕？RJMP RST39 ;:UART中断接收程序UARXC: SBIC USR,4RETI ;祯错误〔主机正与其它分机进行9位数据模式通信〕，不予接收IN R14,SREG ;保存当前状态TST R18BREQ NUMB ;〔R18〕=0时收到数据，只可能是机号，转去核实PUSH R16 ;否那么为主机向本分机发来数据块〔9位模式，机号已符合〕PUSH R26PUSH R27IN R17,UDR ;接收数据MOV XH,R8MOV XL,R9 ;取接收数据指针ST X+,R17 ;转入RAMMOV R8,XHMOV R9,XL ;存数据指针CPI R17,$0A ;是数据块结束符LF?BRNE RSCOM1SBR R18,$80 ;收到完整数据块标志RSCOM1: POP R27POP R26POP R16DRETI: OUT SREG,R14RETINUMB: IN R17,UDR ;取出数据CPI R17,1 ;是1#分机？2#分机与$02比拟/3#分机与$03比拟...BRNE DRETI ;机号不符合，转!SBR R18,$40 ;建机号符合标志RJMP DRETI; UART中断发送程序UA TXC: PUSH R16 ;r6 r7:发送数据指针，首指$180IN R16,SREGPUSH R16PUSH R26PUSH R27MOV XH,R6MOV XL,R7 ;取出发送指针LD R16,X+ ;取数据，调指针MOV R6,XHMOV R7,XLOUT UDR,R16 ;送入发送存放器CPI R16,$0ABRNE SDCOMCBI UCR,5 ;发送最后1个字符后，禁止发送存放器空中断(CLR UDRIE)LDI R16,HIGH(DRPINT)MOV R8,R16LDI R16,LOW(DRPINT)MOV R9,R16 ;接收数据指针初始化〔POINT TO $1C0)SDCOM: POP R27POP R26POP R16OUT SREG,R16POP R16RETI.DSEG.ORG $180DTPIT1:.BYTE $40.ORG $1C0DRPNT1:.BYTE $10;$41 $45 $65 $73 $46 $42 $40 $6F $33 $44 $66 $5C $4D $4B $0D $0A;范例93;以中断方式写入EEPROM〔仅对8535，8515无此功能〕,克服查询方式占用过多机时的缺点，;并可在线写入;运作过程特点如下：;(1)主程序初始化时设置EEPROM就绪(ready)中断使能位和中断总使能位;(2)在主程序中写入第一个字节，写入完成后引起就绪中断，其他写入在中断效劳中完成;(3)本程序为一写入特例，写入地址为$100--$1FF，可作适当修改〔如设块长计数器等〕;(4)为防止高优先级中断破坏写入过程，中断效劳中不允许中断嵌套;(5)本例为简化程序只以查询写入地址循环作为背景程序，实用时可改为具体的背景序;(6)如能确信当前系统没有EEPROM正在写入，可删除对其进行查询局部. STWEEP: LDI R16,HIGH(ramend)OUT SPH,R16LDI R16,LOW(ramend)OUT SPL,R16SBI EECR,3 ;设置EEPROM就绪(ready)中断使能位SEI ;中断总使能RJMP SRTW.ORG $00FRJMP EEPRDY ;8535 EEPROM就绪(ready)中断向量SRTW: LDI YH,1LDI YL 0 ;EEPROM 写入首地址:$100LDI XL,$60 ;欲写入数据块首地址:$60CLR XHWEEP0: SBIC EECR,1 ;当前有EEPROM写入操作，有那么等待写入完成RJMP WEEP0RCALL WREEP ;写入第一个字节，($60)->$100，写入完成后，EEWE=0时引发EEPROM就绪中断INC YL ;调整写入地址指针HHWEEP: TST YLBRNE HHWEEPCPI YH,2 ;写入地址到达$200后，写入完成BRNE HHWEEPCBI EECR,3 ;禁止EEPROM就绪(ready)中断WDON: RJMP WDON ;踏步EEPRDY: IN R6,SREGPUSH R16RCALL WREEP ;写入一个字节INC YLBRNE WRETIINC YH ;EEPROM末地址为$1FFWRETI: POP R16OUT SREG,R6RETIWREEP: OUT EEARH,YH ;OUT EEARL,YL ;写入地址送入EEARLD R16,X+ ;取数据，调指针OUT EEDR,R16 ;数据写入EEPROM数据存放器SBI EECR,2 ;设置EEPROM写入总使能位EEMWESBI EECR,1 ;设置EEPROM写入使能位EEWERET;用定时/计数器1定时，不分頻定出0.1秒信号，由PC5脚输出正脉冲。

;范例32 ;步进电机控制程序.ORG 0STRT10: RJMP RST10 ;8535/8515/晶振4MHZ.ORG $011RST10: LDI R16,HIGH(ramend)OUT SPH,R16LDI R16,LOW(ramend)OUT SPL,R16SER R16OUT DDRB,R16 ;B口为输出LDI R17，8OUT PORTB,R16 ;接通总开关LDI R16,50 ;50次基本运作RCALL DELAY5 ;延时5毫秒LOOPX: LDI R17,$68 ;step1时序脉冲控制OUT PORTB,R17RCALL DELAY2 ;延时2毫秒LDI R17,$38 ;step2时序脉冲控制OUT PORTB,R17RCALL DELAY2 ;延时2毫秒LDI R17,$98 ;step3时序脉冲控制OUT PORTB,R17RCALL DELAY2 ;延时2毫秒LDI R17,$C8 ;step4时序脉冲控制OUT PORTB,R17RCALL DELAY2 ;延时2毫秒DEC R16BRNE LOOPX ;到50次？LDI R17,8OUT PORTB,r17 ;关闭各相位开关RCALL DELAY5RCALL DELAY5 ;延时10毫秒CLR R17OUT PORTB,R17 ;关闭所有相位开关和总开关HH0: RJMP HH0 ;踏步DELAY1: LDI R17,$06 ;延时1毫秒MOV R15,R17 ;1000/0.75=1333=$535，外層计数器装入$06 LDI R17,$35 ;DEC+BRNE=0.75微秒RJMP DLCOMDELAY2: LDI R17,$0B ;延时2毫秒MOV R15,R17 ;2000/0.75=2666=$0A6A，外層计数器装入$0B LDI R17,$6ADLCOM: DEC R17BRNE DLCOMDEC R15BRNE DLCOMRETDELAY5: LDI R17,$1B ;延时5毫秒MOV R15,R17 ;5000/0.75=6666=$1A0A，外層计数器装入$1BLDI R17,$0ARJMP DLCOM;范例33.ORG 0 ;8515采用定时器中断输出时序脉冲方式控制电机转动STRT11: RJMP RST11 ;晶振4MHZ.ORG $007RJMP T0_OVF ;中断服务程序与STRT12共用.ORG $00DRST11: LDI R17,HIGH(ramend)OUT SPH,R17LDI R17,LOW(ramend)OUT SPL,R17LDI R17,$68MOV R7,R17 ;初始脉冲为0B01101000SER R17OUT DDRB R17 ;B口为输出LDI R17,N ;运作次数N(N>0)RCALL STPDRV ;初始化子程序HH20: RJMP HH20 ;实用时改为具体的背景程序！STPDRV: TST R17BRNE STPDR1INC R17 ;N=0时，将其改为1STPDR1: MOV R6,R17INC R6 ;N+1-->r6(max.is 256；“植树问题”，N必需增1！LDI R17,$A4CBR R17,$20STS $A4,R17 ;清除连续转动电机标志LDI R17,$08OUT PORTB,R17 ;接通总开关LDI R17,4 ;0B00000100/ 256分频(4兆/256=1兆/64)OUT TCCR0,R17LDI R17,178 ;78*64=4.992msOUT TCNT0,R17 ;时间常数，首定时为5毫秒LDI R17,$02OUT TIMSK,R17 ;允许T/C0溢出中断SEIHH21: SJMP HH21;范例34.ORG $000 ;步进电机手动控制程序（8515)晶振4MHZ STRT12: RJMP RST12.ORG $007RJMP T0SEV.ORG $00DRST12: LDI R17,HIGH(ramend)OUT SPH,R17LDI R17,LOW(ramend)OUT SPL,r17LDI R17,$68MOV R7,R17 ;第一个时序脉冲LDI R17,$F8OUT DDRB,R17 ;PB7-PB3输出,PB2-PB0输入CLR R17OUT PORTB,R17 ;输出为低电平LDS R17,$A4SBR R17,$20 ;设置连续转动标志CBR R17,$40 ;设置电机正转标志TSTLP1: SBI PORTB,1 ;PB1接地，正转SBIS PINB,1RJMP TSTL11 ;TSTL10: SBI PORTB,2SBIC PINB,2 ;PB2接地，反转RJMP TSTLP1 ;PB1，PB2都未接地，反复查询SBR R17,$40 ;设置电机反转TSTL11: STS $A4,R17 ;保存标志CLR R6INC R6 ;R6中装入1，减一次即为0！LDI R17,$08OUT PORTB,R17 ;接通总开关LDI R17,4 ;0B00000100/256分频(256/4=64微秒)!OUT TCCR0,R17LDI R17,178 ;178之补为78，78*64=4.992msOUT TCNT0,R17 ;LDI R17,$02OUT TIMSK,R17 ;允许T/C0中断(toie1=$39,7 toie0=$39,1);8535,toie1:$39,2 toie0:$39,0SEITSTLP2: SBI PORTB,1SBI PORTB,2IN R17,PINBANDI R17,6CPI R17,6BRNE TSTLP2 ;两开关未全部打开，查询等待LDS R17,$A4CBR R17,$20 ;清除连续转动标志STS $A4,R17 ;TSTLP3: IN R17,TIMSKSBRC R17,1 ;已禁止8515中断？(8535:timsk,0)RJMP TSTLP3 ;未，查询等待RJMP RST12T0_OVF: PUSH R17 ;电机控制中断服务子程序IN R17,SREGPUSH R17LDS R17,$A4SBRC R17,7RJMP T0SV2 ;$A4,7：关电机前10毫秒延时标志MOV R17,R7CPI R17,$68BRNE T0SV0LDS R17,$A4SBRC R17,5RJMP T0SV0 ;电机连续转动，不减R6DEC R6 ;R6减为0，将停止电机BREQ T0SV1 ;T0SV0: LDI R17,225 ;每步进延时（256-225)*64=1.984MS err.<0.8% OUT TCNT0,R17 ;OUT PORTB,R7 ;步进控制脉冲输出LDS R17,$A4SBRC R17,6RJMP T0SV A ;$A4,6=1 为连续反转CLCSBRC R7,4 ;组织下一步控制脉冲SECROR R7LDI R17,$08 ;正转OR R7,R17 ;01101***->00111***->10011***->11001***->01101***.......RJMP T0RETT0SV A: MOV R17,R7 ;SBR R17,$04ROL R17 ;组织下一步控制脉冲（反转）BRCS T0SVBCBR R17,$10 ;01101***->11001***->10011***->00111***->01101***.......! T0SVB: MOV R7,R17RJMP T0RETT0SV1: LDS R17,$A4SBR R17,$80STS $A4,R17 ;总开关关断前10毫秒延时标志LDI R17,$08OUT PORTB,R17 ;关断4个相位开关LDI R17,100 ;156(256-100)*64=9.984msOUT TCNT0,R17 ;RJMP T0RETT0SV2: LDI R17,$07OUT PORTB,R17 ;关闭所有开关CLR R17OUT TCCR0,R17 ;关T/C0中断OUT TIMSK,R17LDS R17,$A4CBR R17,$C0STS $A4,R17 ;清除10毫秒延时和反向转动标志T0RET: POP R17OUT SREG,R17POP R17RETI。

单片机汇编语言经典一百例汇编语言是一种底层的程序设计语言，是一种将汇编指令直接翻译成机器指令的语言。

在单片机编程中，掌握汇编语言是非常重要的，因为它可以充分发挥单片机的性能，并且提高程序的运行效率。

本文将介绍一百个经典的单片机汇编语言例子，帮助读者更好地理解汇编语言的使用。

1. 点亮LED灯```ORG 0x0000 ; 程序起始地址MOV P1, #0xAA ; P1口输出高电平，LED灯点亮END ; 程序结束```2. LED流水灯效果```ORG 0x0000 ; 程序起始地址MOV P1, #0x01 ; P1口输出低电平，第一个LED点亮CALL DELAY ; 调用延时函数MOV P1, #0x02 ; P1口输出低电平，第二个LED点亮CALL DELAY ; 调用延时函数MOV P1, #0x04 ; P1口输出低电平，第三个LED点亮CALL DELAY ; 调用延时函数MOV P1, #0x08 ; P1口输出低电平，第四个LED点亮CALL DELAY ; 调用延时函数…DELAY: ; 延时函数MOV R0, #100 ; 设置延时时间DELAY_LOOP:DJNZ R0, DELAY_LOOP ; 循环减一RET ; 返回END ; 程序结束```3. 数码管动态扫描显示```ORG 0x0000 ; 程序起始地址CLR P0.0 ; P0.0口输出低电平，选择第一个数码管MOV P2, #0x7E ; 将数码管对应的值存放到P2口CALL DELAY ; 调用延时函数CLR P0.1 ; P0.1口输出低电平，选择第二个数码管MOV P2, #0x30 ; 将数码管对应的值存放到P2口CALL DELAY ; 调用延时函数CLR P0.2 ; P0.2口输出低电平，选择第三个数码管MOV P2, #0x6D ; 将数码管对应的值存放到P2口CALL DELAY ; 调用延时函数CLR P0.3 ; P0.3口输出低电平，选择第四个数码管MOV P2, #0x79 ; 将数码管对应的值存放到P2口CALL DELAY ; 调用延时函数…DELAY: ; 延时函数MOV R0, #100 ; 设置延时时间DELAY_LOOP:DJNZ R0, DELAY_LOOP ; 循环减一RET ; 返回END ; 程序结束```...通过以上例子，我们可以看到单片机汇编语言的应用非常广泛，可以实现各种各样的功能。

;时钟日历芯片62×42×读写程序，时钟日历数据读入到显示缓存区$6C--$73 ;范例24 ;USE 8515!使用DSPA子程序.EQU RTCH=$40 ;rtc地址高八位RDATE: RCALL BSYT ;初始化，兼冻结RTCLDI XL,$6D ;数据缓存区首地址LDI YL,$06 ;首指日单元RDLP: LD R16,Y+ ;$6b 6c 6d 6e 6f 70 71 72 73ANDI R16,15 ; 2 9(D) - 1 0(M) - 0 2(Y)CPI R16,10BRCS RDL1ANDI R16,$7F ;容错处理RDL1: ST X,R16$DEC R26CPI R26,$6BBRNE RDLP1LDI XL,$70RDLP1: CPI R26,$6EBRNE RDLP2LDI R16,$14 ;送‘-’到$6E单元ST X,R16LDI XL,$73RDLP2: CPI R26,$71BRNE RDLPLDI R16,$14ST X,R16 ;送‘-’到$71单元并结束子程序RDINVL: RJMP WCRTRTIME: RCALL FIL2 ;请除缓存区RCALL BSYTLDI XL,$73LDI YL,$02 ;指向分单元（只读时分）RCL: LD R16,Y+ANDI R16,15CPI R16,10BRCS RCL0ANDI R16,$7F ;容错处理RCL0: ST X,R16DEC R26CPI R26,$71BRNE RCL1LDI R16,$14 ;写入‘-’ST X,R16DEC R26RCL1: CPI R26,$6E ;$6c 6d 6e 6f 70 71 72 73BRNE RCL ; 1 6 - 3 5CLR R16ST Y,R16LDS R17,$9FFB ;时制存储单元LDS R16,$6fSW AP R16LDS R15,$70ADD R16,R15 ;合成小时SUBI R16,$24 ;模24RCALL SUDAA ;BCD码减法调整BRCC RCL2 ;够减，转SUBI R16,-36 ;否则恢复被减数RCL2: CPI R17,2BRNE PRTD1 ;24小时制，转SUBI R16,$12RCALL SUDAABRCC PRTD1 ;12小时制处理SUBI R16,-18PRTD1: MOV R17,R16SW AP R16ANDI R16,$0FANDI R17,$0FSTS $6F,R16STS $70,R17 ;小时数据送入显示区RJMP WCRTWDATE: RCALL WRTC ;将显示缓存区中日期数据写入RTC LDI XL,$6FLD R16,XCPI R16,10BRCC WDRT ;非法数据，退出LDI YL,6WDLP: LD R16,XDEC R26CPI R16,$24 ;SPC?BRNE WD0CLR R16 ;变为0WD0: ST Y+,R16CPI R26,$6DBRNE WD1 ;$6d 6e 6f 70 71 72 73LDI XL,$71 ; 2 9(日) 1 1(月) 0 2 (年)RJMP WDLPWD1: CPI R26,$6fBRNE WD2WD2: CPI R26,$71BRNE WDLPLWDRT: RJMP WCRTWTIME: RCALL WRTC ;将显示缓存区中时间数据写入RTC LDI R26,$73LD R16,XCPI R16,10BRCC WCRT ;非法数据，退出LDI YL,2WLOP: LD R16,XCPI R16,$24BRNE WT1CLR R16 ;容错处理WT1: ST Y+,R16DEC R26WLP: CPI R26,$6FBRNE WLOP ;$6E 6f 70 71 72 73WCRT: CLR R16 ; 1 5 3 8LDI YL,$0DST Y,R16 ;解除对RTC之冻结IN R16,MCUCRCBR R16,$C0OUT MCUCR,R16 ;禁止读写外部RAMRET;对rtc初始化/冻结时钟BSYT: LDI YH,RTCH ;rtc地址高八位LDI YL,$0D ;指向D寄存器IN R16,MCUCRSBR r16,$C0 ;允许读写外部RAM并选一个时钟周期等待时间OUT MCUCR,R16LDI R16,5 ;设置冻结位和中断申请位ST Y,R16CLR XHBSRT: RET;写RTC初始化子程序WRTC: RCALL BSYTLDI YL,$0E ;指向寄存器ELDI R16,6ST Y+,R16 ;指向寄存器FLDI R16,1 ;设置时制位ST Y,R16LDI R16,4 ;选24小时制CLR R16 ;请除时制位ST Y,R16RJMP BSYT;范例25 ;显示保护子程序/晶振4MHZDSPRV: LDI R16,HIGH(ramend)OUT SPH,R16LDI R16,LOW(ramend)OUT SPL,R16CLR R2 ;调DSPY次数寄存器清除WDRLDI R16,$0D ;启动看门狗,溢出时间为0.49sOUT WDTCR,R16 ;写入看门狗控制寄存器CLR XHLDI XL,$6CDSPVL: ST X+,XH ;清显示缓存区($6c-$73)CPI XL,$74BRNE DSPVLDSPV0: LDI R16,$66MOV R9,R16LDI R16,$82 ;$6582=25986，高位字节增1为$66MOV R10,R16 ;调25986次DSPA耗时120sDSNEX: LDI XL,$74 ;将显示区十进制数据增1以演示数据变化DSLOP: LD R16,-X ;实用时可以采样数据更新显示（参考范例96）INC R16ST X,R16CPI R16,$0ABRNE DSPRV1CLR R16ST X,R16CPI R26,$6CBRNE DSLOP ;增1后如有进位则调整DSPRV1: DEC R10BRNE DSPGNDEC R9BRNE DSPGN ;2分钟定时到?DSCLOS: RCALL FIL2 ;将显示缓存区充入空白（$24）RCALL DSPA ;其效果相当于关显SBRC R16,7RJMP DSCLOSRJMP DLFUNC ;有键按下，转出；否则继续关显DSPGN: RCALL DSPA ;未到，显示数据RJMP DSNEX ;无键按下，继续显示DLFUNC: CPI R16,12 ;关显键键值为12BEEQ DSCLOS ;关显键按下，转关闭显示;.;.;.;.;(其他键值处理，参考范例26 DEALKY程序)RJMP DSPV0 ;执行功能后转入二分钟定时;范例26 ;键值处理程序DEALKY: LDI R16,HIGH(ramend)OUT SPH,R16LDI R16,LOW(ramend)OUT SPL,R16CLR R2 ;调DSPY次数寄存器清除WDRLDI R16,$0D ;启动看门狗,溢出时间为0.49”OUT WDTCR,R16 ;写入看门狗控制寄存器DEALK0: RCALL DSPASBRC R16,7RJMP DEALK0 ;无键按下，反复查询CPI R16,10BRCC FNCKY ;功能键按下，跳转RCALL FIL2 ;键值<10为数字键,先清除显示缓存区NUMKY: RCALL LSDD8 ;8位数字左移，新键值加入序列尾DSLP: RCALL DSPASBRC R16,7RJMP DSLP ;无键按下，继续显示CPI R16,11BRCS NUMKY ;键入数字形成左移序列/按清除键则清除所有键入数据BRNE DSLP ;键值大于11无效;11为回车键，对键入数字进行处理（如将其两两合并为BCD;码，再转为二进制数等）RJMP DEALK0 ;转回FNCKY: SUBI R16,10 ;功能键散转处理，先计算键值偏移量LDI R31,HIGH(FKYTB)LDI R30,LOW(FKYTB);散转表表首ADD R30,R16CLR R16ADC R31,R16 ;偏移量加入指针IJMP ;散转FKYTB: RJMP CLTTL ;10:清除累加和RJMP DSTTL ;11:显示累加和RJMP DSCLS ;12:关显示RJMP SLFTS ;13:自检RJMP FDPAP ;14:打印机走纸RJMP PRSMP ;15:打印采样RJMP PRTTL ;16:打印累加和RJMP DSCLK ;17:显示系统时钟;............. ;.........;............. ;.........CLTTL: ;............. ;程序内容略;.............RJMP DEALK0 ;程序执行完毕，转回DSTTL: RCALL BRTTL ;分解累加和送显示缓存区RCALL DSPA ;显示累加和SBRC R16,7RJMP DSTTL ;任一键按下，结束显示累加和RJMP DEALK0 ;程序执行完毕，转回DSCLS: RJMP DSCLOS ;转去关显示SLFTS: ;.............;.............RJMP DEALK0 ; 自检程序执行完毕，转回FDPAP: ;.............;.............RJMP DEALK0 ; 走纸程序执行完毕，转回PRSMP: ;.............;.............RJMP DEALK0 ; 打印采样程序执行完毕，转回PRTTL: ;.............;.............RJMP DEALK0 ;打印累加和程序执行完毕，转回DSCLK: RCALL BRCLK ;分解系统时钟送入显示缓存区RCALL DL1S ;延时1秒RCALL DSPA ;显示时钟SBRC R16,7 ;任一键按下，结束显示时钟RJMP DSCLKRJMP DEALK0 ;程序执行完毕，转回;.............;............. ;其他功能键处理略;.............;范例27 ;主显子程序DSPA: SBRC R16,7 ;USE R0,R2,R11,R12,r13,r14,r15,r16,r17&Z,X POINTERS RJMP DSA2 ;无键按下，跳转DSA0: CLR R12INC R12 ;有键按下，将计数器置1DSA1: RCALL DSPYDEC R12BRNE DSA1 ;等待键释放DSA2: RCALL DSPYLDS R16,$A3SBRS R16,7 ;有进入功能表程序标志？RET ;没有返回SBI PORTA,0 ;SBIS PINA,0 ;退出功能表程序吗？RETCBR R16,$80 ;是,清除进入功能表程序标志（$A3,7）STS $A3,R16RCALL FIL2LDI R16,$0F ;'F'STS $6C,R16LDI R16,$0E ;'E'STS $6E,R16LDI R16,$17 ;'n'STS $6F,R16LDI R16,$0D ;'d'STS $70,R16 ;显示‘F End'RCALL DL2S ;2秒后RJMP DIPA1 ;转到主程序（包括对堆栈）初始化DL2S: RCALL DL1S ;延时2秒子程序DL1S: LDI R16,217 ;延时1秒子程序/4MHz clkMOV R11,R16 ;4.618×217=1000msDLCOM: RCALL DSPADEC R11BRNE DLCOMRET;范例28 ;基显子程序，显示缓存区:$6C--$73，执行时间4.618ms/晶振4MHZ ;主程序应对看门狗初始化，设置溢出时间为0.49秒！DSPY: LDI R17,$0F ;使用R0,R2,R12,R13,R14,R15,R16&R17/z&x pointer!OUT DDRA,R15 ;PA7--PA4为键列值输入CLR R15COM R15OUT DDRB,R15OUT DDRC,R15 ;口B：段选输出，口C：位选输出OUT PORTC,R15 ;关显DPY1: LDI R26,$6C ;指向显示缓存区首址:$6C CLR R27LDI R17,$7FMOV R13,R17 ;位选初始化（首显最高位）L0D: LD R17,X+LDI R31,HIGH(table*2)LDI R30,LOW(table*2)ADD R30,R17ADC R31,R27L0C: LPM ;取段选码OUT PORTB,R0 ;送段选口OUT PORTC,R13 ;位选口SEC ;ROR R13 ;指下一位位选LDI R17,3 ;4MHz(6 if 8MHz)CLR R14DLOP: DEC R14BRNE DLOPDEC R17BRNE DLOP ;延时0.5762毫秒IN R16,PORTAORI R16,$F0 ;保护PA3--PA0输出OUT PORTA,R16 ;提拉PA7-PA4IN R14,PINA ;读入列值NEX: ROL R14 ;use high 4bits!BRCC L1 ;有键按下，跳转NEX1: INC R17 ;指向下一列CPI R17,4BRNE NEX ;各列都查完？NEX2: SER R17OUT PORTC,R17 ;将$FF写入位选口（关显）CPI R26,$74BRNE L0D ;每位LED都显示一遍？?MOV R16,R15 ;YESINC R2 ;增一调DSPY次数寄存器MOV R17,R2CPI R17,100 ;到100次?BRNE NEX3CLR R2 ;清除看门狗定时器时间到计数器/4.618ms×100=0.462s(<0.49s) WDR ;看门狗定时器复位NEX3: RETL1: LDS R16,$73 ;计算键值代码/查键值SUB R16,R26 ;$73-(r26)-->r16LSL R16LSL R16 ;行值*4ADD R16,R17 ;键值代码=行值*4+列值LDI R30,LOW(TABL0*2)ADD R30,R16LDI R31,HIGH(TABL0*2)ADC R31,R27LA00: LPM ;查出键值MOV R15,R0 ;放在R15LA10: INC R12 ;计数器增1以备判断键释放RJMP NEX1 ;转回查下一列TABL0: .DB 10,0,11,20,1,2,3,16,4,5,6,22,7,8,9,18,12,15,19,23,14,17,21,13TABLE: .DB $3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$67,$77,$7C,$39 ;0--C .DB $5E,$79,$71,$6F,$74,$04,$1F,$40,$38,$37,$54,$5C ;'d'---'o'.DB $73,$67,$50,$6D,$78,$1C,$3E,$7E,$F8,$6E,$49,$00.DB $48,$52,$D3,$76 ;$25(=),$26(/)$27(?) END AT $28(H).DB $BF,$86,$DB,$CF,$E6,$ED,$FD,$87,$FF,$E7;THE 0.($29)--9.($32).DB $D7,$C9,$80 ;THE 'X.' 'Z.' &'.'($33--$35).DB $DE,$EF,$B8,$F3,$E7,$D0,$DC,$ED,$86,$F9,$B9H,$F7,$F1,$B7,$D4 ;the d.,g.,L.,p.,q.,r.,o.,s.,l.,E.,C.,A.,F.,M.,n.(36--44h);范例29 ；键入数字序列左移处理子程序LSDD8: LDI R26,$6C ;8bcd码($6C--$73H)LDS R27,$A3CBR R27,8 ;清$A3,3STS $A3,R27CLR R27CPI R16,10 ;10为清除键BRNE DDLRCALL FIL2 ;清除显示缓存区($6c-$73)!LDS R16,$A3SBR R16,8STS $A3,R16 ;建清除显示缓存区标志$A3,3=1RETDDL: INC R26 ;数字键按下，序列左移LD R16,X ;SUBI R16,$29 ;数字带小数点？BRCC DD4 ;若带则将其复原（参考DSPY子程序段码表）SUBI R16,$D7 ;恢复DD4: ST -X,R16 ;移入左邻单元DD5: INC R26CPI R26,$73BRNE DDL ;各数字都左移了一位？ST X,R15 ;新键入数字进入数字序列末位LDI R26,$6CDEL: LD R16,XCPI R16,10 ;是BCD码？BRCS DEL2CPI R16,$29BRCC DELRT ;大于$29为错误!DELA: INC R26 ;0--9/$24/$14为有效!CPI R26,$73BRNE DEL ;缓存区检查完毕？RJMP DELRTDEL2: CPI R16,0BRNE DELRTLDI R16,$24 ;0改为空白ST X,R16RJMP DELA ;DELRT: LDS R16,$A0 ;小数点位置单元TST R16BREQ DDRET ;($a0)=0,无小数点NEG R16ADD R16,$73MOV R26,R16 ;找到缓存区内带小数点的数据位LD R16,XSUBI R16,$D7 ;加上小数点ST X,R16CPI R16,$4D ;在空白码加了小数点($24(空白)+$29=$4d)？BRNE STLR1LDI R16,$29ST X,R16 ;是，将其改为'0.'STLR1: CPI R26,$73BREQ DDRET ;并将其后所有空白都改为0INC R26LD R16,XCPI R16,$24BRNE DDRETCLR R16ST X,R16RJMP STLR1DDRET: RETFIL2: LDI R26,8 ;在显示缓存区内填充空白MOV R14,R26FIL2A: LDI R26,$6CFIL: CLR R27LDI R16,$24FILP: ST X+,R16DEC R14BRNE FILPRET;范例30 ;双键输入检查数据子程序，Ky1数据键/Ky2回车键KYIN2: LDI R26,$60 ;寄存器地址：portb:$18/ddrb:$17/pinb:$16 CLR R27 ;指向数据区首地址CBI DDRB,7CBI DDRB,6 ;pb7和pb6皆为输入口SER R17OUT DDRC,R17 ;c口为数据显示口LA0: LD R17,X ;取数据CPI R17,$0ABRCS LA1CLR R17LA1: LDI R31,HIGH(table*2)LDI R30,LOW(table*2);DSPY段选码表ADD R30,R17ADC R31,R27LPMCOM R0 ;段选码取出并取反OUT PORTC,R0 ;送C口SBI PORTB,7SBIC $16,7RJMP NXA1 ;数字键未按下，转RCALL DL50 ;否则延时XA2: SBI PORTB,6SBIC $16,6RJMP XA0 ;只有数字键按下，转XA20: RCALL DL50 ;两键都按下，先延时50mS SBI PORTB,6SBIS $16,6RJMP XA20SBI PORTB,7SBIS $16,7RJMP XA20 ;等两键都释放RCALL DL50XA21: SBI PORTB,6SBIS $16,6RJMP XA21 ;等待释放SBI PORTB,7SBIS $16,7RJMP XA21 ;再次等待释放RJMP NXA6 ;先按数字键，再按回车键，待2都键释放后退出子程序XA0: SBI PORTB,7SBIS $16,7RJMP XA2 ;等待数字键释放XA1: RCALL DL50 ;延时SBI PORTB,7SBIS $16,7RJMP XA1 ;再次等待释放INC R17 ;数字增1CPI R17,10BRCS NXA1CLR R17 ;超过10，将键值归为0NXA1: SBI PORTB,6SBIC $16,6RJMP LA1 ;回车键也未按下，重新查键RCALL DL50 ;延时NXA3: SBI PORTB,6SBIS $16,6RJMP NXA3 ;再次等待回车键释放RCALL DL50SBI PORTB,6SBIS $16,6RJMP NXA3ST X+,R17 ;数字转入缓存区SER R17OUT PORTB,R17 ;关显RCALL DL50 ;CPI R26,$70 ;到规定数字个数？BRNE LA0 ;LDI R17,$86 ;显示'E'ndOUT PORTC,R17 ;NXA4: SBI PORTB,6SBIS $16,6RJMP NXA5 ;回车键按下，转SBI PORTB,7SBIC $16,7 ;数字键按下，转RJMP NXA4 ;否则反复查键NXA40: RCALL DL50SBI PORTB,7SBIS $16,7RJMP NXA40SBI PORTB,7SBIS $16,7RJMP NXA40 ;等待键释放RJMP KYIN2 ;转检查键入数据NXA5: RCALL DL50SBI PORTB,6SBIS $16,6RJMP NXA5SBI PORTB,6SBIS $16,6RJMP NXA5 ;等回车键释放NXA6: SER R17OUT PORTB,R17 ;关显，结束子程序RETDL50: ;RCALL DL25 ;延时50毫秒子程序/8Mhz（去掉指令前“；”号）DL25: CLR R14 ;延时50毫秒子程序/4MhzCLR R15DL50L: DEC R15NOPBRNE DL50LDEC R14BRNE DL50LRET;范例31LPRNT: SER R17 ;宽行打印机检测及控打程序OUT DDRC,R17 ;C口为打印机输出口!SBI DDRD,7CBI DDRD,3 ;pd7为选通输出口，pd3(INT1)查忙输入口SBI PORTD,3SBIC PIND,3 ;查打印机忙信号RJMP ERR5 ;打印机尚未工作忙信号即已为高，打印机不能打印LDI R17,$0D ;写回车命令给打印机OUT PORTC,R17CBI PORTD,7 ;发出选通信号NOPNOPNOPSBI PORTD,7 ;strobeLDI R16,50TSPRT: SBI PORTD,3SBIc PIND,3RJMP LPRT2 ;50次内忙信号高起来为正常DEC R16 ;否则为非正常状态BRNE TSPRTERR5: LDI R16,5RCALL ERRX ;显示5号错误RJMP DIPA1 ;转主程序初始化LPRT2: LDI R25,1CLR R24 ;point to $100LDI R17,$80OUT GIMSK,R17 ;允许int1中断LDI R17,$0AOUT MCUCR,R17 ;INT1下降沿中断SEI ;general interrupt enableRETEX_INT1:PUSH R26PUSH R27IN R27,SREGPUSH R27PUSH R17 ;保护现场MOV R27,R25 ;取数据指针MOV R26,R24LD R17,X+ ;MOV R25,R27MOV R24,R26 ;增1后将指针送回CPI R17,3 ;是停止符?BRNE INT1SDCLR R17OUT GIMSK,R17 ;禁止INT1中断RJMP INT1EDINT1SD: OUT PORTC,R17 ;打印数据输出到打印口CBI PORTD,7 ;clr ($12,7)NOPNOPNOPSBI PORTD,7 ;向打印机发出选通INT1ED: POP R17POP R27OUT SREG,R27POP R27POP R26 ;恢复现场RETI。