100例汇编程序

dummy@example.com (batsom) — Fri, 26 Aug 2022 05:56:38 +0000

定点运算和定点数制转换
;范例1
LSDAA: ADC R16,R16 ;十进制数（在R16中）左移调整子程序
ADDAA: IN R6,SREG ;bcd码相加调整子程序，先保存相加后的
LDI R17,$66 ;状态the old status
ADD R16,R17 ;再将和预加立即数$66
IN R17,SREG ;输入相加后新状态(the new status)
OR R6,R17 ;新旧状态相或
SBRS R6,0 ;相或后进位置位则跳行
SUBI R16,$60 ;否则减去$60(十位bcd不满足调整条件)
SBRS R6,5 ;半进位置位则跳行
SUBI R16,6 ;否则减去$06(个位bcd不满足调整条件)
ROR R6 ;向高位字节BCD返还进位位!
RET
;范例2

SUDAA: BRCC SBD1 ;bcd码减法调整子程序,差在R16中
BRHC SBD3
SUBI R16,$66 ;进位半进位都置位，将差减去立即数$66
SEC ;并恢复借位C
RET ;ret. with seC
SBD1: BRHC SBD2 ;进位半进位都清位，返回
SUBI R16,6 ;进位清除而半进位置位，将差减去6
SBD2: RET ;ret. with clC
SBD3: SUBI R16,$60 ;进位置位而半进位清除，将差减去$60
SEC ;并恢复借位C
RET ;ret. with seC

;范例3
RSDAA: SBRC R16,7 ;bcd码（在R16中）右移调整子程序
SUBI R16,$30 ;十位BCD最高位为1（代表8），将其变为5(否则跳行）
SBRC R16,3
SUBI R16,3 ;个位BCD最高位为1（代表8），将其变为5(否则跳行）
RET

;范例4
ADBCD4: MOV R16,R15 ;4字节压缩bcd码相加子程序
ADD R16,R11 ;R12,R13,R14,R15内为被加数,R8,R9,R10,R11内为加数
RCALL ADDAA ;相加后调整
MOV R15,R16 ;并返还调整后结果
MOV R16,R14
ADC R16,R10
RCALL ADDAA
MOV R14,R16
MOV R16,R13
ADC R16,R9
RCALL ADDAA
MOV R13,R16
MOV R16,R12
ADC R16,R8
RCALL ADDAA
MOV R12,R16
RET

;范例5
ADBCD: LDI R16,4 ;多字节压缩bcd码相加子程序
MOV R7,R16 ;(r7):字节数
CLC
ADLOP: LD R16,-X ;X-1指向被加数;
LD R6,-Y ;Y-1指向加数
ADC R16,R6
RCALL ADDAA ;相加后调整
ST X,R16 ;返还调整后结果
DEC R7
BRNE ADLOP
RET

;范例6
SUBCD4: MOV R16,R15 ;4字节压缩bcd码减法子程序
SUB R16,R11 ;R12,R13,R14,R15内为被减数，R8,R9,R10,R11内为减数
RCALL SUDAA ;相减后调整
MOV R15,R16 ;并返还调整后结果
MOV R16,R14
SBC R16,R10
RCALL SUDAA
MOV R14,r16
MOV R16,R13
SBC R16,R9
RCALL SUDAA
MOV R13,R16
MOV R16,R12
SBC R16,R8
RCALL SUDAA
MOV R12,R16
RET

;范例7
SUBCD: LDI R16,4 ;多字节压缩bcd码相减子程序
MOV R7,R16 ;(r7):压缩bcd码字节数
CLC
SUBLP: LD R16,-X ;X-1指向被减数
LD R6,-Y ;Y-1指向减数
SBC R16,R6
RCALL SUDAA ;相减后调整
ST X,R16 ;返还调整后结果
DEC R7
BRNE SUBLP
RET
;范例8 ;16位被乘数*16位乘数-->32位积
MUL16: LDI R16,17 ;(r10r11)*(r14r15)-->r12r13r14r15
ClR R12
ClR R13 ;积的高位字预清除
CLC ;第1次只右移，不相加
MLOOP: BRCC MUL1 ;
ADD R13,R11 ;乘数右移移出位为1，将被乘数加入部分积
ADC R12,R10
MUL1: ROR R12
ROR R13
ROR R14
ROR R15 ;部分积连同乘数整体右移1位
DEC R16
BRNE MLOOP ;17次右移后结束
RET

;范例9 ;16位整数被乘数*16位小数乘数-->16位整数积，精确到0.5
MUL165: RCALL MUL16 ;先得到32位积
SBRS R14,7 ;积小数部分最高位为1，将整数部分加1
RET ;否则返回
LDI R17,255
SUB R13,R17
SBC R12,R17 ;以减去-1（$FFFF）替代加1
RET

;范例10 ;32位被除数/16位除数-->16位商，精确到1
DIV16: LDI R16,16 ;(r12r13r14r15)/(r10r11)-->r14r15
DLOOP: LSL R15
ROL R14
ROL R13
ROL R12 ;被除数左移1位
BRCS DI1
SUB R13,R11
SBC R12,R10 ;移出位为0，被除数高位字减去除数试商
BRCC DI2 ;够减，本位商为1
ADD R13,R11
ADC R12,R10 ;否则恢复被除数
RJMP DI3 ;本位商0
DI1: SUB R13,R11
SBC R12,R10 ;移出位为1，被除数高位字减去除数
DI2: INC R15 ;本位商1
DI3: DEC R16
BRNE DLOOP
RET

;范例11 ;32位被除数/16位除数-->16位商，精确到0.5
;可能产生溢出！例$7FFFC000/$8000=$FFFF.8->$10000!
DIV165: RCALL DIV16 ;(r12r13r14r15)/(r10r11)-->r14r15
LSL R13
ROL R12 ;余数乘2
BRCS D165 ;有进位，转5入
SUB R13,R11
SBC R12,R10 ;否则，余数乘2减去除数
BRCS D164 ;不够减，转4舍
D165: CLR R13 ;否则将商增1
SEC
ADC R15,R13
ADC R14,R13
ADC R13,R13 ;若有溢出，溢出位在R13中
RET
D164: CLR R13
RET
;范例12 ;32位整数/16位整数->16整数+16位小数->4字节浮点数
;(r12r13r14r15)/(r10r11)-->r12r13r14r15
DIV16F: RCALL DIV16 ;先做整数除法
MOV R9,r15
MOV R8,r14 ;保存整数部分
CLR R15
CLR R14
RCALL DIV16 ;除得小数部分
MOV R11,R15
MOV R15,R14
MOV R13,R8
MOV R14,R9 ;整数部分在r13r14，小数部分在r15r11
LDI R17,$90 ;预设阶码$90（整数为16位）
MOV R12,R17
LDI R17,32 ;设32次右移
DIV16L: SBRC R13,7
RJMP NMLDN ;最高位为1，已完成规格化
LSL R11 ;否则继续右移R13，R14，R15，R11
ROL R15
ROL R14
ROL R13
DEC R12 ;阶码减1
DEC R17
BRNE DIV16L
CLR R12 ;右移达32次，浮点数为零，置零阶
RET
NMLDN: SBRS R11,7
RJMP DIVRT ;欲舍去部分（R11）最高位为0，转4舍
RCALL INC3 ;否则尾数部分增1
BRNE DIVRT
INC R12 ;尾数增1后变为0，改为0.5，并将阶码增1
DIVRT: LDI R17,$7F ;将尾数最高位清除，表示正数（负数不要清除）
AND R13,R17 ;规格化浮点数在R12（阶码）R13R14R15（尾数）中
RET

;范例13 ;(R16,R12,R13,R14,R15)/(R10,R11)-->R13,R14,R15
DIV24: CLR R16 ;32位整数/16位整数->24位整数，要求(R10)不为0;否则
;要求(R12)<(R11)
DIV40: LDI 17,24 ;40位整数/16位整数->24位整数要求(R16,R12)
LXP: LSL R15 ; <(R10,R11)
ROL R14
ROL R13
ROL R12
ROL R16
BRCC LXP1
SUB R12,R11 ;右移后C=1 够减
SBC R16,R10 ;被除数减去除数
RJMP DIV0 ;本位商为1
LXP1: SUB R12,R11 ;C=0
SBC R16,R10 ;被除数减去除数试商
BRCC DIV0 ;C=0 够减，本位商1
ADD R12,R11
ADC R16,R10 ;否则恢复被除数，本位商0
RJMP DIV1
DIV0: INC R15 ;记本位商1
DIV1: DEC R17
BRNE LXP
LSL R12
ROL R16
BRCS GINC ;C=1,5入
SUB R12,R11
SBC R16,R10
BRCS RET3 ;不够减，舍掉
GINC: RCALL INC3 ;将商增1
RET3: RET

;范例14 ;定点整数（最大$FFFFFFFF)开平方子程序
INTSQR: LDI R16,17 ;SQR(R12,R13,R14,R15)-->(r15r8r9)
CLR R8 ;R8，R9存储平方根
CLR R9 ;r10,r11,r12,r13,r14,r15
CLR R10 ; r8, r9(根) r16 (counter)
CLR R11 ;r10，r11：被开平方数扩展字节
LDI R17,$40
SQR0: SUB R12,R17
SBC R11,R9
SBC R10,R8
BRCS SQR1
SEC ;试根够减，本位根1
RJMP SQR2
SQR1: ADD R12,R17
ADC R11,R9
ADC R10,R8
CLC ;否则恢复被开平方数，本位根0
SQR2: DEC R16
BRNE SQR3 ;when the No.17bit of root be getting
SQR20： ADC R9,R15 ;R15 HAVE BEEN CLEARED!
ADC R8,R15
ADC R15,R15 ;将开出之根4舍5入，使根最大可达65536(=$10000)!
RET ;for example:sqr.($ffff0001)≈$10000
SQR3: ROL R9
ROL R8 ;记本位根
LSL R15
ROL R14
ROL R13
ROL R12
ROL R11
ROL R10 ;被开平方数连同其扩展字节左移一位
LSL R15
ROL R14
ROL R13
ROL R12
ROL R11
ROL R10 ;被开平方数连同其扩展字节再次左移一位/左移2位开出1位根
BRCS SQR20 ;被开平方数左移2位后，若进位置位，则仅表明第17位根
;已被提前开出且该位根=1，将平方根增1，开平方结束。
RJMP SQR0 ;否则转试下一位根

;范例15 ;定点整数二翻十
CONV1: LDI R17,24 ;r12r13r14r15<--(r9r10r11)左移24次
MOV R7,R17 ;例:16777215<--$FFFFFF
CLR R12
CLR R13 ;68719476735<--$FFFFFFFFF
CLR R14 ;1099511627775<--$FFFFFFFFFF
CLR R15 ;十进制数存储区予清除
CV1: LSL R11
ROL R10
ROL R9 ;二进制数整体左移一位
MOV R16,R15
RCALL LSDAA
MOV R15,R16
MOV R16,R14
RCALL LSDAA
MOV R14,R16
MOV R16,R13
RCALL LSDAA
MOV R13,R16
MOV R16,R12
RCALL LSDAA ;十进制数左移并调整
MOV R12,R16
DEC R7
BRNE CV1
RET

;范例16 ;定点整数十翻二
CONV2: LDI R17,24 ;(r9r10r11)-->r13r14r15，右移24次
CLR R31 ;例：999999-->$0F423F
MOV R7,R17 ; 99999999-->$05F5E0FF
CV2: LSR R9
ROR R10
ROR R11
ROR R13
ROR R14
ROR R15 ;十进制数连同二进制数右移一位
LDI R30,12 ;数据指针
CV2L: LD R16,-Z
RCALL RSDAA ;十进制数右移调整
ST Z,R16
CPI R30,9 ;十进制数各字节调整完毕？
BRNE CV2L
DEC R7 ;右移次数（24次）完成？
BRNE CV2
RET

;范例17 ;定点小数二翻十
CONV3: LDI R17,24 ;(r13r14r15)--->r9r10r11r12右移24次
CONV31: MOV R7,R17
CLR R9
CLR R10 ;例:$0.FFFFFF-->0.99999994
CLR R11 ;$0.FFFFFFFF-->0.999999999767
CLR R12 ;$0.FFFFFFFFF->0.999999999985448
CLR R31
CV3: LSR R13
ROR R14
ROR R15
ROR R9
ROR R10
ROR R11
ROR R12 ;二进制数连同十进制数右移一位
LDI R30,9
CV3L: LD R16,Z
RCALL RSDAA ;十进制数右移调整
ST Z+,r16
CPI R30,13
BRNE CV3L ;十进制数各字节调整完毕？
DEC R7
BRNE CV3 ;右移次数（24次）完成？
RET

;范例18 ;定点小数十翻二
CONV4: LDI R17,32 ;r12r13r14r15<--r8r9r10r11<--(r12r13r14r15)
MOV R7,R17 ;左移32次
CV4: CLC ;例:$0.FFFFFFD5<--0.99999999
MOV R16,R15 ;$0.FFFFFFFF92<--0.9999999999
RCALL LSDAA
MOV R15,R16
MOV R16,R14
RCALL LSDAA
MOV R14,R16
MOV R16,R13
RCALL LSDAA
MOV R13,R16
MOV R16,R12
RCALL LSDAA
MOV R12,R16 ;定点十进制小数左移并调整
ROL R11
ROL R10
ROL R9
ROL R8 ;定点二进制小数带进位位左移一位
DEC R7
BRNE CV4
MOV    R12,R8 ;最终结果转入R12--R15
   MOV    R13,R9
   MOV    R14,R10
   MOV R15,R11
   RET

AVR实用程序
;范例19 ;等步距线性内插计算子程序
.EQU TBLGTH=10
CHETA: LDI R16,TBLGTH-1 ;r16<--表长（即字数）-1
LDI R31,HIGH(chtbl*2);y0（函数初值）在r14r15,STEP（步长）在r10r11,自变量X在r12r13
LDI R30,LOW(chtbl*2+1);查表指针，首指数据表第1字之高位字节!
RCALL CPMR1 ;X与表中第一个字型数据（X0）比较
BRCC CHRET ;XCHET1: RCALL CMPR1 ;X与表中下一个数据比较
BRCC NX33 ;X ADD R15,R11 ;否则Y0中加入一个STEP：Yk=Y0+k*step（步距为负时则
;减去|STEP|）
ADC R14,R10
DEC R16
BRNE CHET1 ;未查到表格终值，循环；否则结束，Y取得最大值Yn
CHRET: RET
NX33: SBIW R30,5 ;指针退回(-5)，指向Xi
MOV R8,R14
MOV R9,R15 ;保存Y0+i*STEP
RCALL SUBS ;(X-Xi)-->r16r17
MOV R15,R17
MOV R14,R16 ;转入r14r15
RCALL MUL16 ;(X-Xi)*STEP-->r12r13r14r15
MOV R10,R12
MOV R11,R13 ;保存乘积高位字
LPM ;X(i+1)低位字节
MOV R13,R0
ADIW R30,1
LPM ;X(i+1)高位字节
MOV R12,R0
SBIW R30,3 ;指针指向Xi
RCALL SUBS ;X(i+1)-Xi-->r16r17
MOV R12,R10
MOV R13,R11 ;取回乘积高位字
MOV R10,R16
MOV R11,R17 ;X(i+1)-Xi-->r10r11
RCALL DIV165 ;(X-Xi)*STEP/[X(i+1)-Xi]-->r14r15
ADD R15,R9
ADC R14,R8 ;Y0+i*STEP+(X-Xi)*STEP/[X(i+1)-Xi]-->r14r15
RET ;若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]并送入r16r17
MOV R5,R0 ;取Xi低位字节
ADIW R30,1
LPM ;取Xi高位字节
SBIW R30,1 ;仍指向Xi低位字节
SUB R13,R5
MOV R17,R13
SBC R12,R0
MOV R16,R12 ;计算差并将其转入R16R17
RET
;自变量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,R16
LDI R16,HIGH(stept*2)
MOV R6,R16 ;步距表指针
LDI R16,TBLGTH-1 ;r16<--表长（字个数）-1
RCALL CMPR1 ;X与表首数据比较
BRCC CHSTPT ;XCHSTP1: RCALL CMPR1 ;否则与表中下一数据比较
BRCC CHSTP3 ;X RCALL GTSTP ;查表取STEP字型变量
ADD R15,R11 ;Y0<--Y0+STEPk
ADC R14,R10
DEC R16
BRNE CHSTP1 ;未查到表格终值循环；否则结束，Y取得最大值Yn
CHSTPT: RET
CHSTP3: SBIW R30,5 ;指针退回，指向Xi低位字节
MOV R8,R14
MOV R9,R15 ;Y0+∑STEPk送入r14 r15
RCALL SUBS ;(X-Xi)->r16r17
MOV R15,R17
MOV R14,R16 ;(X-Xi)转入R14R15
RCALL GTSTP ;查表取STEPi-->R10R11
RCALL MUL16 ;(X-Xi)*STEPi-->R12R13R14R15
MOV R10,R12
MOV R11,R13 ;保存积高位字
LPM
MOV R13,R0
ADIW R30,1
LPM
MOV R12,R0
SBIW R30,3
RCALL SUBS ;(X(i+1)-Xi)-->r16 r17
MOV R12,R10
MOV R13,R11
MOV R10,R16
MOV R11,R17 ;取回积高位字 &(X(i+1)-Xi)-->r10r11
RCALL DIV165 ;(X-Xi)*STEPi/[X(i+1)-Xi]-->r14r15
ADD R15,R9 ;
ADC R14,R8 ;Y0+∑STEPk+(X-Xi)*STEPi/[X(i+1)-Xi]-->r14r15
RET
GTSTP: MOV R5,R6 ;查取STEP字型变量/POINTER in r6r7!
MOV R6,R30
MOV R30,R5
MOV R5,R7
MOV R7,R31
MOV R31,R5 ;(r6r7)<-->Z
LPM
MOV R11,R0
ADIW R30,1
LPM
MOV R10,R0 ;STEPk取到r10r11
ADIW R30,1
MOV R5,R6
MOV R6,R30
MOV R30,R5
MOV R5,R7
MOV R7,R31
MOV R31,R5 ;指针增2后送回r6r7
RET

;范例21 ;功能表程序
FUNC2: LDS R16,$A3 ;use r0,r8,r9,r10,r11,r16&r17/& subprogram dspa
SBR R16,$80 ;功能表程序标志
STS $A3,R16
LDI YH,2
LDI YL,0 ;功能内容表SRAM地址
RCALL FLFUNC ;CLR r27!
LDI R16,2
ST X,R16 ;显示'FUNC.2'
RCALL DL2S
CLR R9 ;功能内容寻址偏移量R9!
CLR R8 ;功能名称寻址偏移量(R8)=(r9)*3
FFUNC0: RCALL DSF_ ;显示'F- '
FF0: RCALL DSPA ;in subprogram dspy clr. r27!
CPI R16,11 ;回车键按下？
BRNE FF2P
FF0C: RCALL COMBNO ;合成功能名称送入r16
CPI R16,20 ;是最后一个功能名称？
BRNE FF1
CLR R9 ;是，两偏移量初始化!
CLR R8
FF1: LDI ZH,HIGH(FTABL*2)
LDI ZL,LOW(FTABL*2)；功能名称表指针
ADD ZL,R8
ADC ZH,R27 ;(r27)=0 ALWAYS
LPM
MOV R16,R0
RCALL BRA3A ;分解新功能名称到$6E/$6F
FF0G: LDI R28,0
ADD R28,R9 ;功能内容指针加偏移量
LD R16,Y
LDI R26,$72
RCALL BRAX ;将新功能内容分解到$72/$73
FF0A: RCALL DSPA ;显示新功能名称/内容
CPI R16,11
BRNE FF0B ;回车键按下？
INC R8
INC R8
INC R8 ;是，功能名称寻址偏移量加3
INC R9 ;功能内容寻址偏移量加1
RJMP FF0C ;转回
FF2P: RJMP FF2
FF0B: CPI R16,10
BRNE FF0D
RCALL DSF_ ;清除键按下，清除显示区后，显示‘F-’
FF1B: RCALL DSPA
CPI R16,11
BREQ FF1 ;转恢复当前显示
CPI R16,10
BRCC FF1B
RJMP FF2D ;只有数字键按下才转出去处理
FF0D: CPI R16,10
BRCC FF0A
FF1D: LDI R17,$24 ;
STS $73,R17 ;数字键处理，先在缓存区内放一空白
FF0E: LDS R17,$73
STS $72,R17 ;键入数字左移
STS $73,R16 ;存入新数字
FF0F: RCALL DSPA
CPI R16,10
BREQ FF0G ;清除键按下，恢复显示旧功能内容
BRCS FF0E ;键入数字左移更新
CPI R16,11
BRNE FF0F
LDS R26,$72 ;回车键按下
RCALL COMBA ;合成新功能内容(combin $72&$73 into binary(r16))
MOV R17,R8
INC R17
LDI ZH,HIGH(FTABL*2)
LDI ZL,LOW(FTABL*2)
ADD ZL,R17 ;取当前功能内容下限
ADC ZH,R27
FF1F: LPM
CP R16,R0
BRCS DSER2 ;新功能内容小于下限，错误
INC R17
LDI ZH,HIGH(FTABL*2)
LDI ZL,LOW(FTABL*2)
ADD ZL,R17 ;取当前功能内容上限
ADC ZH,R27
LPM
CP R0,R16
BRCS DSER3 ;新功能内容大于上限，错误
FF7: LDI R28,0
ADD R28,R9 ;功能内容表首地址为$200!
ST Y,R16 ;合法的新功能内容进入功能内容表
INC R9
INC R8
INC R8
INC R8 ;调整偏移量，进入下一个功能显示
RJMP FF0C
FF1P: RJMP FF1
DSER2: RCALL FERR2 ;显示'F Err.2'2秒
RCALL EXCH0
RJMP FF0G ;恢复原数据显示
DSER3: RCALL FERR3 ;显示'F Err.3'2秒
RCALL EXCH0
RJMP FF0G ;恢复原数据显示
FF2: CPI R16,10
BRCS FF2D ;功能键按下，转初始
RJMP FF0
FF2D: LDI R17,$24 ;数字键按下，在显示缓存区内左移
STS $6F,R17 ;
FF3: LDS R17,$6F
STS $6E,R17
STS $6F,R16
FF4: RCALL DSPA
CPI R16,10
BRNE FF41
RCALL DSF_ ;清除数字，显示‘F-’
FF40: RCALL DSPA
CPI R16,11
BREQ FF1P ;转回显示当前功能名称及内容
CPI R16,10
BRCC FF40 ;无效键按下，转回
RJMP FF2D ;否则转数字处理
FF41: BRCS FF3
CPI R16,11
BRNE FF4
RCALL COMBNO ;合成新功能名称
CLR R10 ;功能名称偏移量计数器清除
CLR R11 ;功能内容偏移量计数器清除
SFFLP: LDI ZH,HIGH(FTABL*2)
LDI ZL,LOW(FTABL*2)
ADD ZL,R10
ADC ZH,R27
LPM
CP R0,R16 ;
BREQ SFFND ;在功能名称表中找到新名称
INC R11 ;
INC R10
INC R10
INC R10 ;调整偏移量
LDI R17,60
CP 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,$24
BRNE CMBA
CLR R16
CMBA: MOV R0,R16
LSL R16
LSL R16
ADD R16,R0
LSL R16 ;高位BCD乘10
LD R0,X
ADD R16,R0 ;加低位BCD
RET
DSF_: RCALL FIL8 ;准备显示'F- '
LDI R16,$0F
STS $6C,R16
LDI R16,$14
STS $6D,R16
RET
BRA3A: LDI XL,$6E ;二进制数转换为两位BCD码并显示
BRAX: LDI R17,$24 ;十位为0时显示空白
ST X,R17
BRHOUR: CLR R0 ;
BRX0: SUBI R16,10 ;减10
BRCS BRX2
INC R0
RJMP BRX0
BRX2: SUBI R16,-10 ;不够减恢复出十位BCD
TST R0
BREQ BRX1
ST X,R0 ;放入显示区
BRX1: INC R26
ST X,R16
BRART: RET
FERR1: LDI XL,$71 ;显示'F Err.1'
LDI R16,1
ST X,R16
RJMP FER123
FERR2: RCALL MOVE1 ;显示'F Err.2'
LDI R16,2
STS $71,R16
RJMP FER123
FERR3: RCALL MOVE1 ;显示'F Err.3'
LDI R16,3
STS $71,R16
FER123: LDI XL,$6C
LDI R16,$0F
ST X+,R16
LDI R16,$24
ST X+,R16
LDI R16,$0E
ST X+,R16
LDI R16,$1B
ST X+,R16
LDI R16,$3B
ST X+,R16 ;显示'F Err.1/2/3'
LDI R16,$24 ;2秒
STS $72,R16
STS $73,R16
RCALL DL2S
RET
FIL8: LDI R26,8 ;将显示缓存区充空白
MOV R10,R26
LDI R26,$6C
CLR R27
LDI R16,$24
FILP: ST X+,R16
DEC R10
BRNE FILP
RET
FLFUNC: RCALL FIL8 ;准备显示'Func.'
LDS R26,$6C
LDI R16,$0F ;'F'
ST X+,R16
LDI R16,$1E ;'u'
ST X+,R16
LDI R16,$17 ;'n'
ST X+,R16
LDI R16,$40 ;'c.'
ST X+,R16
RET
EXCH0: LDI ZL,$14 ;将显示缓存区内容转移$6C-$73<-->$214-$21B
LDI ZH,2
LDI XL,$6C
EXL: LD R16,X
LD R17,Z
ST X+,R17
ST Z+,R16
CPI R26,$74
BRNE EXL
RET
MOVE1: LDI ZL,$14 ;将显示缓存区内容传送到$214-$21B
LDI ZH,2
LDI XL,$6C
MV1: LD R16,X+
ST Z+,R16
CPI R26,$74
BRNE MV1
RET
;EEPROM 读写程序

;范例22 ;读出EEPROM子程序
REEP: LDI YH,1
LDI YL 0 ;EEPROM 读出首地址:$100
LDI XL,$60 ;读出数据存放首地址:$60
CLR XH
REEP1: SBIC $1C,1 ;查EEWE位，EEWE=1为当前尚有写入操作未结束
RJMP REEP1 ;等待EEWE=0
OUT $1F,YH
OUT $1E,YL ;读出地址写入EEPRO地址寄存器
SBI $1C,0 ;设置读出使能位(EERE)
IN R16,$1D ;从EEPROM数据寄存器中读出数据
ST X+R16 ;存入缓存区
INC YL
BRNE REEP1 ;
INC YH
CPI YH,2 ;EEPROM最末数据（地址为$1FF）读完?
BRNE REEP1
RET

;范例23 ；写入EEPROM子程序
WEEP: LDI YH,1
LDI YL 0 ;EEPROM 写入之首地址:$100
LDI XL,$60 ;写入数据存储区首地址:$60
CLR XH
WEEP1: SBIC $1C,1 ;查EEWE位，EEWE=1为当前尚有写入操作未结束
RJMP WEEP1 ;等待EEWE=0
OUT $1F,YH
OUT $1E,YL ;送写入地址到EEPRO地址寄存器
LD R16,X+ ;取写入数据并调整数据指针
OUT $1D,R16 ;送到EEPROM数据寄存器
SBI $1C,2 ;设置EEPROM写入总使能位EEMWE
SBI $1C,1 ;设置EEPROM写入使能位EEWE
INC YL
BRNE WEEP1
INC YH
CPI YH,2 ;EEPROM最末写入单元地址为$1FF
BRNE WEEP1
RET

;时钟日历芯片62×42×读写程序，时钟日历数据读入到显示缓存区$6C--$73
;范例24 ;USE 8515!使用DSPA子程序
.EQU RTCH=$40 ;rtc地址高八位
RDATE: RCALL BSYT ;初始化，兼冻结RTC
LDI XL,$6D ;数据缓存区首地址
LDI YL,$06 ;首指日单元
RDLP: LD R16,Y+ ;$6b 6c 6d 6e 6f 70 71 72 73
ANDI R16,15 ; 2 9(D) - 1 0(M) - 0 2(Y)
CPI R16,10
BRCS RDL1
ANDI R16,$7F ;容错处理
RDL1: ST X,R16$
DEC R26
CPI R26,$6B
BRNE RDLP1
LDI XL,$70
RDLP1: CPI R26,$6E
BRNE RDLP2
LDI R16,$14 ;送‘-’到$6E单元
ST X,R16
LDI XL,$73
RDLP2: CPI R26,$71
BRNE RDLP
LDI R16,$14
ST X,R16 ;送‘-’到$71单元并结束子程序
RDINVL: RJMP WCRT

RTIME: RCALL FIL2 ;请除缓存区
RCALL BSYT
LDI XL,$73
LDI YL,$02 ;指向分单元（只读时分）
RCL: LD R16,Y+
ANDI R16,15
CPI R16,10
BRCS RCL0
ANDI R16,$7F ;容错处理
RCL0: ST X,R16
DEC R26
CPI R26,$71
BRNE RCL1
LDI R16,$14 ;写入‘-’
ST X,R16
DEC R26
RCL1: CPI R26,$6E ;$6c 6d 6e 6f 70 71 72 73
BRNE RCL ; 1 6 - 3 5
CLR R16
ST Y,R16
LDS R17,$9FFB ;时制存储单元
LDS R16,$6f
SWAP R16
LDS R15,$70
ADD R16,R15 ;合成小时
SUBI R16,$24 ;模24
RCALL SUDAA ;BCD码减法调整
BRCC RCL2 ;够减，转
SUBI R16,-36 ;否则恢复被减数
RCL2: CPI R17,2
BRNE PRTD1 ;24小时制，转
SUBI R16,$12
RCALL SUDAA
BRCC PRTD1 ;12小时制处理
SUBI R16,-18
PRTD1: MOV R17,R16
SWAP R16
ANDI R16,$0F
ANDI R17,$0F
STS $6F,R16
STS $70,R17 ;小时数据送入显示区
RJMP WCRT

WDATE: RCALL WRTC ;将显示缓存区中日期数据写入RTC
LDI XL,$6F
LD R16,X
CPI R16,10
BRCC WDRT ;非法数据，退出
LDI YL,6
WDLP: LD R16,X
DEC R26
CPI R16,$24 ;SPC?
BRNE WD0
CLR R16 ;变为0
WD0: ST Y+,R16
CPI R26,$6D
BRNE WD1 ;$6d 6e 6f 70 71 72 73
LDI XL,$71 ; 2 9(日) 1 1(月) 0 2 (年)
RJMP WDLP
WD1: CPI R26,$6f
BRNE WD2
LDI R26,$73
WD2: CPI R26,$71
BRNE WDLP
LWDRT: RJMP WCRT

WTIME: RCALL WRTC ;将显示缓存区中时间数据写入RTC
LDI R26,$73
LD R16,X
CPI R16,10
BRCC WCRT ;非法数据，退出
LDI YL,2
WLOP: LD R16,X
CPI R16,$24
BRNE WT1
CLR R16 ;容错处理
WT1: ST Y+,R16
DEC R26
WLP: CPI R26,$6F
BRNE WLOP ;$6E 6f 70 71 72 73
WCRT: CLR R16 ; 1 5 3 8
LDI YL,$0D
ST Y,R16 ;解除对RTC之冻结
IN R16,MCUCR
CBR R16,$C0
OUT MCUCR,R16 ;禁止读写外部RAM
RET
;对rtc初始化/冻结时钟
BSYT: LDI YH,RTCH ;rtc地址高八位
LDI YL,$0D ;指向D寄存器
IN R16,MCUCR
SBR r16,$C0 ;允许读写外部RAM并选一个时钟周期等待时间
OUT MCUCR,R16
LDI R16,5 ;设置冻结位和中断申请位
ST Y,R16
CLR XH
BSRT: RET
;写RTC初始化子程序
WRTC: RCALL BSYT
LDI YL,$0E ;指向寄存器E
LDI R16,6
ST Y+,R16 ;指向寄存器F
LDI R16,1 ;设置时制位
ST Y,R16
LDI R16,4 ;选24小时制
ST Y,R16
CLR R16 ;请除时制位
ST Y,R16
RJMP BSYT

;范例25 ;显示保护子程序/晶振4MHZ
DSPRV: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
CLR R2 ;调DSPY次数寄存器清除
WDR
LDI R16,$0D ;启动看门狗,溢出时间为0.49s
OUT WDTCR,R16 ;写入看门狗控制寄存器
CLR XH
LDI XL,$6C
DSPVL: ST X+,XH ;清显示缓存区($6c-$73)
CPI XL,$74
BRNE DSPVL
DSPV0: LDI R16,$66
MOV R9,R16
LDI R16,$82 ;$6582=25986，高位字节增1为$66
MOV R10,R16 ;调25986次DSPA耗时120s
DSNEX: LDI XL,$74 ;将显示区十进制数据增1以演示数据变化
DSLOP: LD R16,-X ;实用时可以采样数据更新显示（参考范例96）
INC R16
ST X,R16
CPI R16,$0A
BRNE DSPRV1
CLR R16
ST X,R16
CPI R26,$6C
BRNE DSLOP ;增1后如有进位则调整
DSPRV1: DEC R10
BRNE DSPGN
DEC R9
BRNE DSPGN ;2分钟定时到?
DSCLOS: RCALL FIL2 ;将显示缓存区充入空白（$24）
RCALL DSPA ;其效果相当于关显
SBRC R16,7
RJMP DSCLOS
RJMP DLFUNC ;有键按下，转出；否则继续关显
DSPGN: RCALL DSPA ;未到，显示数据
SBRC R16,7
RJMP DSNEX ;无键按下，继续显示

DLFUNC: CPI R16,12 ;关显键键值为12
BEEQ DSCLOS ;关显键按下，转关闭显示
;.
;.
;.
;.
;(其他键值处理，参考范例26 DEALKY程序)
RJMP DSPV0 ;执行功能后转入二分钟定时

;范例26 ;键值处理程序
DEALKY: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
CLR R2 ;调DSPY次数寄存器清除
WDR
LDI R16,$0D ;启动看门狗,溢出时间为0.49”
OUT WDTCR,R16 ;写入看门狗控制寄存器
DEALK0: RCALL DSPA
SBRC R16,7
RJMP DEALK0 ;无键按下，反复查询
CPI R16,10
BRCC FNCKY ;功能键按下，跳转
RCALL FIL2 ;键值<10为数字键 ,先清除显示缓存区
NUMKY: RCALL LSDD8 ;8位数字左移，新键值加入序列尾
DSLP: RCALL DSPA
SBRC R16,7
RJMP DSLP ;无键按下，继续显示
CPI R16,11
BRCS NUMKY ;键入数字形成左移序列/按清除键则清除所有键入数据
BRNE DSLP ;键值大于11无效
;11为回车键，对键入数字进行处理（如将其两两合并为BCD
;码，再转为二进制数等）
RJMP DEALK0 ;转回

FNCKY: SUBI R16,10 ;功能键散转处理，先计算键值偏移量
LDI R31,HIGH(FKYTB)
LDI R30,LOW(FKYTB);散转表表首
ADD R30,R16
CLR R16
ADC 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,7
RJMP 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 DSCLK
RJMP DEALK0 ;程序执行完毕，转回

;.............
;............. ;其他功能键处理略
;.............

;范例27 ;主显子程序
DSPA: SBRC R16,7 ;USE R0,R2,R11,R12,r13,r14,r15,r16,r17&Z,X POINTERS
RJMP DSA2 ;无键按下，跳转
DSA0: CLR R12
INC R12 ;有键按下，将计数器置1
DSA1: RCALL DSPY
DEC R12
BRNE DSA1 ;等待键释放
DSA2: RCALL DSPY
LDS R16,$A3
SBRS R16,7 ;有进入功能表程序标志？
RET ;没有返回
SBI PORTA,0 ;
SBIS PINA,0 ;退出功能表程序吗？
RET
CBR R16,$80 ;是,清除进入功能表程序标志（$A3,7）
STS $A3,R16
RCALL FIL2
LDI R16,$0F ;'F'
STS $6C,R16
LDI R16,$0E ;'E'
STS $6E,R16
LDI R16,$17 ;'n'
STS $6F,R16
LDI R16,$0D ;'d'
STS $70,R16 ;显示‘F End'
RCALL DL2S ;2秒后
RJMP DIPA1 ;转到主程序（包括对堆栈）初始化
DL2S: RCALL DL1S ;延时2秒子程序
DL1S: LDI R16,217 ;延时1秒子程序/4MHz clk
MOV R11,R16 ;4.618×217=1000ms
DLCOM: RCALL DSPA
DEC R11
BRNE DLCOM
RET

;范例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 R15
COM R15
OUT DDRB,R15
OUT DDRC,R15 ;口B：段选输出，口C：位选输出
OUT PORTC,R15 ;关显
DPY1: LDI R26,$6C ;指向显示缓存区首址:$6C
CLR R27
LDI R17,$7F
MOV R13,R17 ;位选初始化（首显最高位）
L0D: LD R17,X+
LDI R31,HIGH(table*2)
LDI R30,LOW(table*2)
ADD R30,R17
ADC R31,R27
L0C: LPM ;取段选码
OUT PORTB,R0 ;送段选口
OUT PORTC,R13 ;位选口
SEC ;
ROR R13 ;指下一位位选
LDI R17,3 ;4MHz(6 if 8MHz)
CLR R14
DLOP: DEC R14
BRNE DLOP
DEC R17
BRNE DLOP ;延时0.5762毫秒
IN R16,PORTA
ORI R16,$F0 ;保护PA3--PA0输出
OUT PORTA,R16 ;提拉PA7-PA4
IN R14,PINA ;读入列值
NEX: ROL R14 ;use high 4bits!
BRCC L1 ;有键按下，跳转
NEX1: INC R17 ;指向下一列
CPI R17,4
BRNE NEX ;各列都查完？
NEX2: SER R17
OUT PORTC,R17 ;将$FF写入位选口（关显）
CPI R26,$74
BRNE L0D ;每位LED都显示一遍？?
MOV R16,R15 ;YES
INC R2 ;增一调DSPY次数寄存器
MOV R17,R2
CPI R17,100 ;到100次?
BRNE NEX3
CLR R2 ;清除看门狗定时器时间到计数器/4.618ms×100=0.462s(<0.49s)
WDR ;看门狗定时器复位
NEX3: RET
L1: LDS R16,$73 ;计算键值代码/查键值
SUB R16,R26 ;$73-(r26)-->r16
LSL R16
LSL R16 ;行值*4
ADD R16,R17 ;键值代码=行值*4+列值
LDI R30,LOW(TABL0*2)
ADD R30,R16
LDI R31,HIGH(TABL0*2)
ADC R31,R27
LA00: LPM ;查出键值
MOV R15,R0 ;放在R15
LA10: 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,13
TABLE: .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,$A3
CBR R27,8 ;清$A3,3
STS $A3,R27
CLR R27
CPI R16,10 ;10为清除键
BRNE DDL
RCALL FIL2 ;清除显示缓存区($6c-$73)!
LDS R16,$A3
SBR R16,8
STS $A3,R16 ;建清除显示缓存区标志$A3,3=1
RET
DDL: INC R26 ;数字键按下，序列左移
LD R16,X ;
SUBI R16,$29 ;数字带小数点？
BRCC DD4 ;若带则将其复原（参考DSPY子程序段码表）
SUBI R16,$D7 ;恢复
DD4: ST -X,R16 ;移入左邻单元
DD5: INC R26
CPI R26,$73
BRNE DDL ;各数字都左移了一位？
ST X,R15 ;新键入数字进入数字序列末位
LDI R26,$6C
DEL: LD R16,X
CPI R16,10 ;是BCD码？
BRCS DEL2
CPI R16,$29
BRCC DELRT ;大于$29为错误!
DELA: INC R26 ;0--9/$24/$14为有效!
CPI R26,$73
BRNE DEL ;缓存区检查完毕？
RJMP DELRT
DEL2: CPI R16,0
BRNE DELRT
LDI R16,$24 ;0改为空白
ST X,R16
RJMP DELA ;
DELRT: LDS R16,$A0 ;小数点位置单元
TST R16
BREQ DDRET ;($a0)=0,无小数点
NEG R16
ADD R16,$73
MOV R26,R16 ;找到缓存区内带小数点的数据位
LD R16,X
SUBI R16,$D7 ;加上小数点
ST X,R16
CPI R16,$4D ;在空白码加了小数点($24(空白)+$29=$4d)？
BRNE STLR1
LDI R16,$29
ST X,R16 ;是，将其改为'0.'
STLR1: CPI R26,$73
BREQ DDRET ;并将其后所有空白都改为0
INC R26
LD R16,X
CPI R16,$24
BRNE DDRET
CLR R16
ST X,R16
RJMP STLR1
DDRET: RET

FIL2: LDI R26,8 ;在显示缓存区内填充空白
MOV R14,R26
FIL2A: LDI R26,$6C
FIL: CLR R27
LDI R16,$24
FILP: ST X+,R16
DEC R14
BRNE FILP
RET

;范例30 ;双键输入检查数据子程序，Ky1数据键/Ky2回车键
KYIN2: LDI R26,$60 ;寄存器地址：portb:$18/ddrb:$17/pinb:$16
CLR R27 ;指向数据区首地址
CBI DDRB,7
CBI DDRB,6 ;pb7和pb6皆为输入口
SER R17
OUT DDRC,R17 ;c口为数据显示口
LA0: LD R17,X ;取数据
CPI R17,$0A
BRCS LA1
CLR R17
LA1: LDI R31,HIGH(table*2)
LDI R30,LOW(table*2);DSPY段选码表
ADD R30,R17
ADC R31,R27
LPM
COM R0 ;段选码取出并取反
OUT PORTC,R0 ;送C口
SBI PORTB,7
SBIC $16,7
RJMP NXA1 ;数字键未按下，转
RCALL DL50 ;否则延时
XA2: SBI PORTB,6
SBIC $16,6
RJMP XA0 ;只有数字键按下，转
XA20: RCALL DL50 ;两键都按下，先延时50mS
SBI PORTB,6
SBIS $16,6
RJMP XA20
SBI PORTB,7
SBIS $16,7
RJMP XA20 ;等两键都释放
RCALL DL50
XA21: SBI PORTB,6
SBIS $16,6
RJMP XA21 ;等待释放
SBI PORTB,7
SBIS $16,7
RJMP XA21 ;再次等待释放
RJMP NXA6 ;先按数字键，再按回车键，待2都键释放后退出子程序
XA0: SBI PORTB,7
SBIS $16,7
RJMP XA2 ;等待数字键释放
XA1: RCALL DL50 ;延时
SBI PORTB,7
SBIS $16,7
RJMP XA1 ;再次等待释放
INC R17 ;数字增1
CPI R17,10
BRCS NXA1
CLR R17 ;超过10，将键值归为0
NXA1: SBI PORTB,6
SBIC $16,6
RJMP LA1 ;回车键也未按下，重新查键
RCALL DL50 ;延时
NXA3: SBI PORTB,6
SBIS $16,6
RJMP NXA3 ;再次等待回车键释放
RCALL DL50
SBI PORTB,6
SBIS $16,6
RJMP NXA3
ST X+,R17 ;数字转入缓存区
SER R17
OUT PORTB,R17 ;关显
RCALL DL50 ;
CPI R26,$70 ;到规定数字个数？
BRNE LA0 ;
LDI R17,$86 ;显示'E'nd
OUT PORTC,R17 ;
NXA4: SBI PORTB,6
SBIS $16,6
RJMP NXA5 ;回车键按下，转
SBI PORTB,7
SBIC $16,7 ;数字键按下，转
RJMP NXA4 ;否则反复查键
NXA40: RCALL DL50
SBI PORTB,7
SBIS $16,7
RJMP NXA40
SBI PORTB,7
SBIS $16,7
RJMP NXA40 ;等待键释放
RJMP KYIN2 ;转检查键入数据
NXA5: RCALL DL50
SBI PORTB,6
SBIS $16,6
RJMP NXA5
SBI PORTB,6
SBIS $16,6
RJMP NXA5 ;等回车键释放
NXA6: SER R17
OUT PORTB,R17 ;关显，结束子程序
RET
DL50: ;RCALL DL25 ;延时50毫秒子程序/8Mhz（去掉指令前“；”号）
DL25: CLR R14 ;延时50毫秒子程序/4Mhz
CLR R15
DL50L: DEC R15
NOP
BRNE DL50L
DEC R14
BRNE DL50L
RET

;范例31
LPRNT: SER R17 ;宽行打印机检测及控打程序
OUT DDRC,R17 ;C口为打印机输出口!
SBI DDRD,7
CBI DDRD,3 ;pd7为选通输出口，pd3(INT1)查忙输入口
SBI PORTD,3
SBIC PIND,3 ;查打印机忙信号
RJMP ERR5 ;打印机尚未工作忙信号即已为高，打印机不能打印
LDI R17,$0D ;写回车命令给打印机
OUT PORTC,R17
CBI PORTD,7 ;发出选通信号
NOP
NOP
NOP
SBI PORTD,7 ;strobe
LDI R16,50
TSPRT: SBI PORTD,3
SBIc PIND,3
RJMP LPRT2 ;50次内忙信号高起来为正常
DEC R16 ;否则为非正常状态
BRNE TSPRT
ERR5: LDI R16,5
RCALL ERRX ;显示5号错误
RJMP DIPA1 ;转主程序初始化
LPRT2: LDI R25,1
CLR R24 ;point to $100
LDI R17,$80
OUT GIMSK,R17 ;允许int1中断
LDI R17,$0A
OUT MCUCR,R17 ;INT1下降沿中断
SEI ;general interrupt enable
RET
EX_INT1:PUSH R26
PUSH R27
IN R27,SREG
PUSH R27
PUSH R17 ;保护现场
MOV R27,R25 ;取数据指针
MOV R26,R24
LD R17,X+ ;
MOV R25,R27
MOV R24,R26 ;增1后将指针送回
CPI R17,3 ;是停止符?
BRNE INT1SD
CLR R17
OUT GIMSK,R17 ;禁止INT1中断
RJMP INT1ED
INT1SD: OUT PORTC,R17 ;打印数据输出到打印口
CBI PORTD,7 ;clr ($12,7)
NOP
NOP
NOP
SBI PORTD,7 ;向打印机发出选通
INT1ED: POP R17
POP R27
OUT SREG,R27
POP R27
POP R26 ;恢复现场
RETI

;范例32 ;步进电机控制程序
.ORG 0
STRT10: RJMP RST10 ;8535/8515/晶振4MHZ
.ORG $011
RST10: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
SER R16
OUT DDRB,R16 ;B口为输出
LDI R17，8
OUT PORTB,R16 ;接通总开关
LDI R16,50 ;50次基本运作
RCALL DELAY5 ;延时5毫秒
LOOPX: LDI R17,$68 ;step1时序脉冲控制
OUT PORTB,R17
RCALL DELAY2 ;延时2毫秒
LDI R17,$38 ;step2时序脉冲控制
OUT PORTB,R17
RCALL DELAY2 ;延时2毫秒
LDI R17,$98 ;step3时序脉冲控制
OUT PORTB,R17
RCALL DELAY2 ;延时2毫秒
LDI R17,$C8 ;step4时序脉冲控制
OUT PORTB,R17
RCALL DELAY2 ;延时2毫秒
DEC R16
BRNE LOOPX ;到50次？
LDI R17,8
OUT PORTB,r17 ;关闭各相位开关
RCALL DELAY5
RCALL DELAY5 ;延时10毫秒
CLR R17
OUT 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 DLCOM
DELAY2: LDI R17,$0B ;延时2毫秒
MOV R15,R17 ;2000/0.75=2666=$0A6A，外層计数器装入$0B
LDI R17,$6A
DLCOM: DEC R17
BRNE DLCOM
DEC R15
BRNE DLCOM
RET
DELAY5: LDI R17,$1B ;延时5毫秒
MOV R15,R17 ;5000/0.75=6666=$1A0A，外層计数器装入$1B
LDI R17,$0A
RJMP DLCOM

;范例33
.ORG 0 ;8515采用定时器中断输出时序脉冲方式控制电机转动
STRT11: RJMP RST11 ;晶振4MHZ
.ORG $007
RJMP T0_OVF ;中断服务程序与STRT12共用
.ORG $00D
RST11: LDI R17,HIGH(ramend)
OUT SPH,R17
LDI R17,LOW(ramend)
OUT SPL,R17
LDI R17,$68
MOV R7,R17 ;初始脉冲为0B01101000
SER R17
OUT DDRB R17 ;B口为输出
LDI R17,N ;运作次数N(N>0)
RCALL STPDRV ;初始化子程序
HH20: RJMP HH20 ;实用时改为具体的背景程序！
STPDRV: TST R17
BRNE STPDR1
INC R17 ;N=0时，将其改为1
STPDR1: MOV R6,R17
INC R6 ;N+1-->r6(max.is 256；“植树问题”，N必需增1！
LDI R17,$A4
CBR R17,$20
STS $A4,R17 ;清除连续转动电机标志
LDI R17,$08
OUT PORTB,R17 ;接通总开关
LDI R17,4 ;0B00000100/ 256分频(4兆/256=1兆/64)
OUT TCCR0,R17
LDI R17,178 ;78*64=4.992ms
OUT TCNT0,R17 ;时间常数，首定时为5毫秒
LDI R17,$02
OUT TIMSK,R17 ;允许T/C0溢出中断
SEI
HH21: SJMP HH21
;范例34
.ORG $000 ;步进电机手动控制程序（8515)晶振4MHZ
STRT12: RJMP RST12
.ORG $007
RJMP T0SEV
.ORG $00D
RST12: LDI R17,HIGH(ramend)
OUT SPH,R17
LDI R17,LOW(ramend)
OUT SPL,r17
LDI R17,$68
MOV R7,R17 ;第一个时序脉冲
LDI R17,$F8
OUT DDRB,R17 ;PB7-PB3输出,PB2-PB0输入
CLR R17
OUT PORTB,R17 ;输出为低电平
LDS R17,$A4
SBR R17,$20 ;设置连续转动标志
CBR R17,$40 ;设置电机正转标志
TSTLP1: SBI PORTB,1 ;PB1接地，正转
SBIS PINB,1
RJMP TSTL11 ;
TSTL10: SBI PORTB,2
SBIC PINB,2 ;PB2接地，反转
RJMP TSTLP1 ;PB1，PB2都未接地，反复查询
SBR R17,$40 ;设置电机反转
TSTL11: STS $A4,R17 ;保存标志
CLR R6
INC R6 ;R6中装入1，减一次即为0！
LDI R17,$08
OUT PORTB,R17 ;接通总开关
LDI R17,4 ;0B00000100/256分频(256/4=64微秒)!
OUT TCCR0,R17
LDI R17,178 ;178之补为78，78*64=4.992ms
OUT TCNT0,R17 ;
LDI R17,$02
OUT TIMSK,R17 ;允许T/C0中断(toie1=$39,7 toie0=$39,1)
;8535,toie1:$39,2 toie0:$39,0
SEI
TSTLP2: SBI PORTB,1
SBI PORTB,2
IN R17,PINB
ANDI R17,6
CPI R17,6
BRNE TSTLP2 ;两开关未全部打开，查询等待
LDS R17,$A4
CBR R17,$20 ;清除连续转动标志
STS $A4,R17 ;
TSTLP3: IN R17,TIMSK
SBRC R17,1 ;已禁止8515中断？(8535:timsk,0)
RJMP TSTLP3 ;未，查询等待
RJMP RST12

T0_OVF: PUSH R17 ;电机控制中断服务子程序
IN R17,SREG
PUSH R17
LDS R17,$A4
SBRC R17,7
RJMP T0SV2 ;$A4,7：关电机前10毫秒延时标志
MOV R17,R7
CPI R17,$68
BRNE T0SV0
LDS R17,$A4
SBRC R17,5
RJMP T0SV0 ;电机连续转动，不减R6
DEC 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,$A4
SBRC R17,6
RJMP T0SVA ;$A4,6=1 为连续反转
CLC
SBRC R7,4 ;组织下一步控制脉冲
SEC
ROR R7
LDI R17,$08 ;正转
OR R7,R17 ;01101***->00111***->10011***->11001***->01101***.......
RJMP T0RET
T0SVA: MOV R17,R7 ;
SBR R17,$04
ROL R17 ;组织下一步控制脉冲（反转）
BRCS T0SVB
CBR R17,$10 ;01101***->11001***->10011***->00111***->01101***.......!
T0SVB: MOV R7,R17
RJMP T0RET
T0SV1: LDS R17,$A4
SBR R17,$80
STS $A4,R17 ;总开关关断前10毫秒延时标志
LDI R17,$08
OUT PORTB,R17 ;关断4个相位开关
LDI R17,100 ;156(256-100)*64=9.984ms
OUT TCNT0,R17 ;
RJMP T0RET
T0SV2: LDI R17,$07
OUT PORTB,R17 ;关闭所有开关
CLR R17
OUT TCCR0,R17 ;关T/C0中断
OUT TIMSK,R17
LDS R17,$A4
CBR R17,$C0
STS $A4,R17 ;清除10毫秒延时和反向转动标志
T0RET: POP R17
OUT SREG,R17
POP R17
RETI
;精确定时及时钟日历走时子程序
;范例35
.EQU DTPNT=$75 ;年年月日时分秒(from $7B to $75)
.ORG $000
STRT20: RJMP RST20 ;晶体实测频率4.000119MHZ
.ORG $006 ;8515 t1 overflow INT.vector
RJMP T1_OVF
.ORG $00D
RST20: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
LDI R16,2 ;8分频，4000119/8=500015
OUT TCCR1B,R16
LDI R16,$5E ;500015=65536*8-24273=8*$10000-$5ed1/TCC=$5Ed1
OUT TCNT1H,R16 ;
LDI R16,$D1 ;
OUT TCNT1L,R16 ;将TCC写入TCNT1
LDI R16,$80
OUT TIMSK,R16 ;允许T/C1溢出中断
LDI R16,8 ;8次中断出秒号
MOV R6,R16
SEI
HH10: RJMP HH10 ;可改为具体的实用程序
T1_OVF: PUSH R16
PUSH R17
IN R7,SREG
DEC R6 ;到8次中断?
BRNE GOON1
IN R17,TCNT1L ;*
IN R16,TCNT1H ;*读回TCNT1自然计数值
SUBI R17,$2F ;*$5ED1之补为$A12F，以减法替代加法修正TCC
SBCI R16,$A1 ;*减去$A12E可不做下面的加1修正
SUBI R17,$FF ;*8条修正指令占用一个计数单位时间
SBCI R16,$FF ;*修正后TCC=$5ED1+(TCNT1)+1
OUT TCNT1H,R16 ;*
OUT TCNT1L,R17 ;*将修整后TCC写入TCNT1
LDI R16,8
MOV R6,R16 ;重装中断次数8
;.
;.
RCALL ACLK ;时钟走时
GOON1: POP R17
POP R16
OUT SREG,R7
RETI
;范例36
.EQU DTPNT=$75 ;yyyy mm dd hh mm ss(from $7B--$75)
.ORG $000 ;晶体实测频率8.000267MHZ，8分频
;INT(8000267/8)=1000033
STRT21: RJMP STRT21
.ORG $006 ;8515 t1 overflow INT. vector
RJMP T1_OVF
.ORG $00D
STRT21: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
LDI R16,2
OUT TCCR1B,R16 ;8分频
LDI R16,1 ;1000033=62332*15+65053
;=($10000-$0C84)*15-$10000-$1E3
OUT TCNT1H,R16 ;主常数62332(补码为$0C84) 补尝常数TCC=$01E3
LDI R16,$E3 ;$FE1D=65053\65053+62332*15=1000033
OUT TCNT1L,R16
CLR R16
OUT TCCR1A,R16 ;DISABLE CMPA/CMPB/PWM!
LDI R16,$80 ;8515
OUT TIMSK,R16 ;允许T/C1溢出中断
LDI R16,16 ;16次中断
MOV R6,R16
SEI
HH11: RJMP HH11 ;
T1_OVF: PUSH R17
PUSH R16
IN R7,SREG
DEC R6 ;中断次数到?未到转装入主常数
BRNE COMP ;否则重装入TCC
IN R17,TCNT1L ;*
IN R16,TCNT1H ;*读回自然计数值
SUBI R17,$1D ;*
SBCI R16,$FE ;*减去TCC之补码
SUBI R17,255 ;*再加1
SBCI R16,255 ;*修正后TCC=$01E3+(TCNT1)+1
OUT TCNT1H,R16 ;*
OUT TCNT1L,R17 ;*
LDI R16,16
MOV R6,R16 ;重写中断次数
;.
;.
RCALL ACLK ;时钟走时
RJMP GOON2
COMP: IN R17,TCNT1L ;*
IN R16,TCNTIH ;*读回TCNT1自然计数值
SUBI R17,$7C ;*先减去$0C84$'补码$F37C
SBCI R16,$F3 ;*再作加1补偿
SUBI R17,$FF ;*
SBCI R16,$FF ;*修整后重装值=[$0C84+(TCNT1)+1]
OUT TCNT1H,R16 ;*
OUT TCNT1L,R17 ;*
GOON2: POP R16
POP R17
OUT SREG,R7
RETI
;范例37 ;8515使用T/C0定时，64分频，晶振频率4000131HZ
.ORG $000
.EQU DTPNT=$75
STRT22: RJMP RST22
.ORG $007
RJMP T0_OVF ;INT(4000131/64)=62502=245*256-218
.ORG $00D
RST22: LDI R16,245 ;245次中断
MOV R6,R16
LDI R16,3
OUT TCCR0,R16 ;主频FCK(4000131HZ)64分频
LDI R16,$02
OUT TIMSK,R16 ;允许T/C0溢出中断
LDI R16,218
OUT TCNT0,R16 ;TCC=218
SEI
HH12: RJMP HH12 ;
T0_OVF: IN R7,SREG
DEC R6
BRNE DECL1 ;
IN R16,TCNT0 ;1秒时间到!
SUBI R16,38 ;218之补
OUT TCNT0,R16 ;
LDI R16,245
MOV R6,R16 ;重装中断次数
RCALL ACLK ;时钟走时
DECL1; OUT SREG,R7
RETI
;范例38 ;8535异步时钟定时程序
.ORG $000 ;时钟频率32768HZ
.EQU DTPNT=$75
STRT23: RJMP RST23
.ORG $004
RJMP T2_OVF
.ORG $011
RST23: LDI R16,8
OUT ASSR,R16 ;选异步时钟

LDI R16,5
OUT TCCR2,R16 ;128分频
CLR R16
OUT TCNT2,R16 ;时间常数256($00)
LDI R16,$40
OUT TIMSK,R16 ;允许T/C2溢出中断
;............
SEI
HH13: LDI R16,$70 ;掉电休眠模式
OUT MCUCR,R16
SLEEP ;进入休眠
RJMP HH13 ;
T2_OVF IN R7,SREG ;
RCALL ACLK ;时钟走时
;...........
OUT SREG,R7
RETI
;范例39
ACLK: PUSH R16
PUSH R27
PUSH R26
PUSH R7
LDI R26,LOW(dtpnt);
LDI R27,HIGH(dtpnt);时钟日历单元指针
RCALL DHM3 ;秒单元加1调整
CPI R16,$60 ;
BRNE COM0 ;未到60秒返回
RCALL DHM ;分单元加1调整
CPI R16,$60
BRNE COM0 ;未到60分返回
RCALL DHM ;时单元加1调整
CPI R16,$24
BRNE COM0 ;未到24时返回
RCALL DHM ;日单元加1调整
SUBI R16,$29
BRCS COM0 ;小于29返回
BRNE T30 ;转继续测试30/31/32日
ADIW R26,1 ;29，指向月
LD R16,X
CPI R16,2
BRNE COM0 ;非二月返回
ADIW R26,1 ;指向年
LD R16,X ;取年十个位
TST R16
BRNE TYLB
ADIW R26,1
LD R16,X ;年十个位为0，取年千百位
TYLB: SWAP R16
ANDI R16,15
MOV R7,R16
LSL R7
LSL R7 ;高位BCD乘4
ADD R16,R7 ;乘5
LSL R16 ;乘10
LD R7,X ;加个位BCD
ADD R16,R7 ;年十个位（千百位）转成二进制数
ANDI R16,3 ;该二进制数末两位皆为0，为闰年
BREQ COM0 ;返回（二月有29日）
RJMP DAY1 ;否则为3月1日
T30: SUBI R16,7 ;减7调整
BRNE T31 ;$30-$29-7=0
ADIW R26,1 ;指向月
LD R16,X
CPI R16,2
BRNE COM0 ;非2月返回
RJMP DAY1 ;闰年的2月30日为3月1日
T31: DEC R16 ;$31-$29-7=1&$32-$29-7=2
BRNE DAY1 ;日为32 ,为下月1日
ADIW R26,1 ;日为31 ,指向月
LD R16,X
SUBI R16,8 ;月份减去8
BRCC SCHY
INC R16 ;月份小于8，差增1，奇数变偶数
SCHY: SBRS R16,0
RJMP COM0 ;1-7月奇数月为大月/8-12月偶数月为大月;有31日，返回
DAY1: LDI R26,LOW(dtpnt+3)
LDI R27,HIGH(dtpnt+3);指向日
LDI R16,1 ;
RCALL DHM1 ;日置为1，月加1
CPI R16,$13
BRNE COM0
LDI R16,1 ;月变为13,改为1
RCALL DHM1 ;年十个位加1调整，可能有$99+1=$A0
CPI R16,$A0
BRNE COM0 ;
RCALL DHM ;年千百位加1调整
COM0: POP R7
POP R26
POP R27
POP R16
RET
DHM: CLR R16 ;秒,分，时单元清除，高位加1
DHM1: ST X+,R16
DHM3: LD R16,X
INC R16 ;
CPI R16,$0A ;若个位BCD码未变成$0A
BRHS DHM2 ;例如$58+1=$59，不须调整;
SUBI R16,$FA ;否则做减$FA调整：例如$49+1-$FA=$50
DHM2: ST X,R16 ;并将调整结果送回
RET
;范例40
.ORG 0 ;8535UART串行通讯程序，晶振4MHZ
.EQU DTPINT=$180 ;UBRR=12 波特率19200(REL.ERR.=0.16%)
.EQU DRPINT=$1D0
STRT30: RJMP RST30
.ORG $00B
RJMP U_RXC ;UART接收完成中断
.ORG $00C
RJMP U_TXC ;UART发送寄存器空中断
.ORG $011
RST30: LDS R16,$A3 ;
CBR R16,3
STS $A3,R16 ;清完整ASCII数据块接收到标志($A3,1),错误标志(FE/OR)($A3,0)
LDI R16,12
OUT UBRR,R16 ;BAUD RATE=FCP/16(UBRR+1)=19200
LDI R27,HIGH(DIPINT)
MOV R6,R27
LDI R26,LOW(DTPINT)
MOV R7,R26 ;发送数据指针在r6r7（dtpint）
CLR R11
INC R11
LDI R16,$30 ;发送数据块长度为$30
MOV R12,R16
RCALL CRC0 ;得到CRC检测之余式（冲掉$0D&$0A）
INC XL
INC XL
LDI R16,$0D
ST X+,R16
LDI R16,$0A
ST X,R16 ;在数据块末尾加$0D&$0A,实际发送数据块长度为$32
LDI R16,$B8 ;允许UART发送和接收，接收中断,发送寄存器空中断，8位数据
OUT UCR,R16
LDI R16,HIGH(DRPINT)
MOV R8,R16
LDI R16,LOW(DRPINT)
MOV R9,R16 ;r8,r9:接收缓存区指针(FIRST POINT TO $1D0)
CLR R10 ;接收数据块长预先清除
SEI ;
HH30: LDS R16,$A3
SBRC R16,0 ;错误接收?
RJMP RCVER ;错误处理
SBRS R16,1 ;接收数据完成？
RJMP HH30 ;否，转再查询
RCVEF: CLR R11 ;块长予处理
INC R11
DEC R10
DEC R10 ;$0D&$0A不算块长度之内（故将块长减2）
MOV R12,R10 ;(R11,R12)：块长
LDI XH,HIGH(DRPINT)
MOV R8,XH
LDI XL,LOW(DRPINT)
MOV R9,XL
RCALL CRC0 ;恢复出CRC余式
LDI R16,$0D
CP R16,R14
BRNE CRCER
LDI R16,$0A
CP R16,R15 ;恢复出$0D$0A为正确接收
BREQ HH30
CRCER: ;. ;循环冗余检测错误处理
;.
;.
RJMP STRT30
RCVER: CBI UCR,RXCIE
;. ;接收错误（FE/OR）处理
;. ;(过程略)
;.
RJMP STRT30
:UART接收数据块程序
U_RXC: PUSH R16
IN R16,SREG
PUSH R16
PUSH R26
PUSH R27
RSC1: IN R16,USR ;UART状态寄存器
ANDI R16,$18 ;FE/OR ERROR?
BRNE RVERR ;错误转
INC R10 ;块长加1
MOV XH,R8
MOV XL,R9 ;r8r9:接收数据指针，首指$1D0
IN R16,UDR
ST X+,r16 ;
MOV R8,XH
MOV R9,XL
CPI R16,$0A ;收到最末字符（回车命令LF）?
BRNE RSCOM
LDS R16,$A3
SBR R16,2 ;建立数据块接收完毕标志
STS $A3,R16
CBI UCR,RXCIE ;禁止接收中断
RJMP RSCOM
RVERR: LDS R16,$A3
SBR R16,1
STS $A3,R16 ;$A3,0:FE/OR错误接收标志
RSCOM: POP R27
POP R26
POP R16
OUT SREG,R16
POP R16
RETI
; UART发送数据块程序
U_TXC: PUSH R16
IN R16,SREG
PUSH R16
PUSH R26
PUSH R27
SPSV1: MOV XH,R6
MOV XL,R7 ;发送数据指针，首指$180
LD R16,X+ ;取发送数据，调指针
MOV R6,XH
MOV R7,XL
SPS11: OUT UDR,R16 ;送入数据寄存器，移入发送移位寄存器后即引起数据寄存器空中断
CPI R16,$0A
BRNE SPCOM
CBI UCR,UDRIE ;发送最末字符后禁止发送寄存器空中断
LDI R16,HIGH(DRPINT)
MOV R8,R16
LDI R16,LOW(DRPINT)
MOV R9,R16 ;接收数据指针初始化，指向$1D0
;CBI USR,6 ;
SPCOM: POP R27
POP R26
POP R16
OUT SREG,R16
POP R16
RETI
.DSEG
.ORG $180
DTPINT:.BYTE $32
;$41,$45,$65,$73,$46,$42,$40,$6F,$33,$44,$66,$8C,$4D,$4B,$2F,$67
;$42,$4F,$66,$78,$47,$45,$44,$63,$32,$48,$60,$7C,$6D,$45,$2A,$63
;$43,$56,$55,$53,$4D,$4F,$40,$2E,$31,$42,$67,$4C,$47,$4A,$38,$39
;$0D,$0A
.EQU DRPINT=$1D0
.ORG $1D0
DRPINT: .BYTE $34 ;(内容略)

;范例41 ;外部中断int0接收ASCII码数据块
.ORG 0 ;8515/8535/晶振4MHZ
STRT31: RJMP RST31
RJMP EX_INT0
.ORG $00D ;8535外部中断0
RST31: LDI R17,HIGH(ramend)
OUT SPH,R17
LDI R17,LOW(ramend)
OUT SPL R17
LDI R17,2
OUT TCCR1B,R17 ;4mhz/8分频，计数单位为2微秒，TCCR1B:$2e
LDI R17,$40
OUT GIMSK,R17 ;gimsk,6(允许int0中断)
LDI R17,2
OUT MCUCR,R17 ;设INT0为下降沿中断(mcucr'b1&b0=10)
CBI DDRD,2 ;int0 为输入
;.
;. ;其他初始化略
SEI ;
CLRBUF: LDI R27,1
CLR R26 ;接收数据缓存区首址$100
LDI R17,$40
OUT GIMSK,R17 ;gimsk,6
CLR R17
CLRLOP: ST X+,R17
CPI R26,$48
BRNE CLRLOP ;清接收缓存区($100--$147)
LDS R16,$A3
CBR R16,$60
STS $A3,R16 ;接收错误（$A3，6）和接收完成（$A3，5）标志清除
CLR5: ;.
;. ;背景程序略
RJMP CLR5 ;
RCVST: CBI DDRD,2 ;int0 为输入
SER R16 ;接收开始
OUT PORTC,R16 ;关显
LDI R27,1
CLR R26 ;接收数据指针，首指$100
LDI R17,18 ;接收18个字符，其末尾为$0D$0A
MOV R14,R17
RCALL RVBYT1 ;接收第一个字符
RJMP RVBYT
RVBLOP: RCALL RVBYT2 ;接收第二个字符及其后字符
RVBYT: LDS R17,$A3
SBRC R17,6
RJMP CLRBUF ;接收出错，转去清除$100--$14F
SBRC R17,5
RJMP DTCOM ;接收完整数据块，转去处理
ST X+,R16
DEC R14
BRNE RVBLOP ;未收完18个字符，继续
CPI R26,$42 ;指针达到$142?
BREQ DTCOM ;接收完整数据块，转去处理
DEC R26
DEC R26 ;$0D$0A（CR&LF）丢掉
RCVLP: LDI R17,18
MOV R14,R17
RJMP RVBLOP
DTCOM: LDI R27,1
CLR R26 ;接收数据首地址：$100
DLLOP: CLR R29
LDI R28,$90 ;处理ASCII码程序acum要求将数据放在$90--$9f
LD R16,X
CPI R16,$50 ;第一个字符约定为‘P’才有效
BRNE RVCOM1 ;也是判断处理结束符
DLLOP1: LD R16,X+
ST Y+,R16
CPI R28,$A0
BRNE DLLOP1 ;传16个字符
PUSH R26
PUSH R27
RCALL ACUM ;ASCII变BCD再变为二进制数，累加
POP R27
POP R26
BRTS RVCOM1 ;ASCII码无效，转出!
RJMP DLLOP
RVCOM1:
CLT
RJMP CLRBUF ;转去清缓存区，重新接收
;晶振采用4MHZ，指令(DEC+BRNE）耗时0.75微秒)!
EX_INT0:POP R16 ;int0中断服务子程序
POP R16 ;废弃返回地址
LDI R16,HIGH(RCVST)
PUSH R16
LDI R16,LOW(RCVST)
PUSH R16 ;设置返回地址
IN R16,GIMSK ;禁止int0中断
CBR R16,$40
OUT GIMSK,R16
RETI
RVBYT1: LDI R17,2 ;查到0接收时，再做一次接收
MOV R15,R17
LDI R17,50 ;第一个起始位半位延时(50*0.75=38微秒）
MOV R12,R17
RJMP RVBCM
RVBYT2: LDI R17,2
MOV R15,R17
RVBY2: LDI R17,147 ;110微秒>1位宽/9600baud，110/0.75=147
MOV R12,R17
TEST3: SBI PORTD,2
SBIS PIND,2 ;停止位超宽测试
RJMP RVST
DEC R12
BRNE TEST3
LDS R16,$A3 ;110微秒内查到低电平为起始位
ORI R16,$20
STS $A3,R16 ;否则为接收结束，令$A3,5=1
RET
RVST: LDI R17,60 ;60*0.75=45微秒（半位延时）
MOV R12,R17
RVBCM: DEC R12
BRNE RVBCM
LDI R17,9 ;1位起始+8位数据
MOV R13,R17
SBI PORTD,2
SBIC PIND,2
RJMP RVER1 ;无效起始位（半位测试）
RVLOP: LDI R17,130 ;may be 128-132/位延时常数
MOV R12,R17
RVLP1: DEC R12 ;0.25微秒
BRNE RVLP1 ;0.5微秒/if condition is true
SEC
SBI PORTD,2
SBIS PIND,2
CLC
DEC R13
BRNE OVRRC ;不是停止位，转数据位接收
BRCC RVER1 ;无效停止位，出错
TST R16 ;
BRNE RBYRT ;不为0，收到一个有效字符
DEC R15
BRNE RVBY2 ;2次接收到$00,出错
RVER1: LDS R16,$A3
ORI R16,$40 ;接收出错标志
CBR R16,$20
STS $A3,R16
RBYRT: RET
OVRRC: ROR R16 ;组织数据
RJMP RVLOP ;100.7微秒/程序实设位宽

;范例42 ;8535'T0中断发送ASCII码程序，晶振4MHZ
.EQU DATA2=$150
.ORG $000
STRT32: RJMP RST32
.ORG 009
RJMP T0_OVF
.ORG $011
RST32: SER R17
OUT DDRB,R17 ;B口为输出
OUT PORTB,R17 ;输出高电平
LDI R16,2 ;0B00000010/8 DIVIDED(4fc/8:2微秒)
OUT $33,R17 ;写入tccr0
LDI R16,204 ;(256-204)*2=104微秒/9600baud 104微秒/位!
OUT TCNT0,R17 ;
LDI R17,HIGH(ramend)
OUT SPH,R17
LDI R17,LOW(ramend)
OUT SPL,R17
LDI R25,HIGH(DATA2)
LDI R24,LOW(DATA2);发送数据指针
LDS R17,$A3
CBR R17,$14 ;发送出错标志（$A3,4)/发送完毕标志位($A3,2)清除!
STS $A3,R17
SEI
LDI R17,1
OUT TIMSK,R17 ;允许T/C0溢出中断
CLR R17 ;位计数器请除
HH32: LDS R16,$A3
SBRC R16,4
RJMP HHER32 ;出错
SBRS R16,2 ;
RJMP HH32 ;查询等待数据块发送完成
;. ;其他程序略
;. ;可安排接收对方发来数据程序，见STRT33
RJMP RST32
HHER32:;.
;. ;错误处理略
RJMP RST32
T0_OVF: PUSH R16
IN R16,SREG
PUSH R16
PUSH R26
PUSH R27
IN R16,TCNT0
INC R16
SUBI R16,52 ;重写入一位定时常数（带修正）
OUT TCNT0,R16
MOV R26,R24 ;数据指针
MOV R27,R25
CPI R17,10
BREQ SND10
TST R17
BRNE SND9
SND0: CBI PORTB,0 ;发起始位(0)
RJMP SVCOM
SND9: CPI R17,9
BRNE SND18 ;1-8为数据位
SBI PORTB,0 ;9为停止位(1)
CLR R17 ;停止位发完后，位计数器清除
ADIW R24,1 ;指针增1，指下一位数据
LD R16,X
CPI R16,$0A ;本次发送的是$0A?
BRNE SVCOM1
LDI R17,10 ;停止位标志
RJMP SVCOM1
SND10: LDS R16,$A3
SBR R16,4 ;发送完成标志
STS $A3,R16 ;
SND11: CLR R16
OUT TCCR0,R16 ;关闭T/C0
CLR R17 ;清位计数器
LDI R24,LOW(DATA2);发送指针初始化
LDI R25,HIGH(DATA2)
RJMP SVCOM1
SENDER: LDS R16,$A3
SBR R16,$10
STS $A3,R16 ;建出错标志
RJMP SND11
SND18: BRCC SENDER ;大于10为错误
LD R16,X
ROR R16 ;发送位传到进位C
BRCC S182
SBI PORTB,0 ;C(=1)-->PB0（$18,0）
BRCS S183
S182: CBI PORTB,0 ;C(=0)-->PB0（$18,0）
S183: LD R16,X
ROR R16 ;
ST X,R16 ;保存剩余位
MOV R24,R26 ;存数据指针
MOV R25,R27
SVCOM: INC R17 ;位计数器增1
SVCOM1: POP R27
POP R26
POP R16
OUT SREG,R16
POP R16 ;恢复现场
RETI
;范例43 ;8515/8535/晶振4MHZ RECEIVING ASCII CHAR. BY TCNT0&PB0
.EQU DATA3=$100 ;UES R11 SAVE SREG, R12 R13:数据指针DATA3
      ;R14: 块长（BLOCK LENGTH） ,R15:接收字符暂存寄存器
.ORG 0 ;R16:（THE BIT SEQUENCE COUNTER）位序列计数器
;R17:WORKING REG.R18:FLAG UNIT， BAUD RATE:9600
STRT33: RJMP RST33 ;X&Y:POINTER/接收数据缓存区首地址：$100
.ORG $009 ;$007(8515)
RJMP T0_OVF1
.ORG $011 ;$00D(8515)
RST33: LDI R17,HIGH(ramend)
OUT SPH,R17
LDI R17,LOW(ramend)
OUT SPL,R17
LDI R17,HIGH(DATA3)
MOV R12,R17
LDI R17,LOW(DATA3)
MOV R13,R17 ;R12R13：接收数据指针
CLRBF1: CLR R16
CLRLP: ST X+,R16
CPI R26,$48
BRNE CLRLP ;接收数据缓存区请除
CLR R18 ;标志寄存器请除/R18，2：完整数据块收到，R18，1
;第一字符（块长）收到：R18，0：出错
LDI R17,$02 ;8535:$01
OUT TIMSK,R17 ;允许T/C0溢出中断
LDI R17,6 ;外部脉冲下降沿计数
OUT TCCR0,R17
CBI DDRB,0 ;PB0为输入
LDI R17,$FF
OUT TCNT0,R17 ;计一个数即中断
;
SEI ;
TEST1: RCALL DSPLY3 ;调串行移位显示子程序
SBRC R18,0 ;
RJMP DLERR ;出错，转错误处理
SBRS R18,2 ;数据块接收完成?
RJMP TEST1
LDI R16,128
DECLP: DEC R16
BRNE DECLP
RJMP DTCOM0 ;先延时，再转处理数据块
DLERR: ;. ;出错处理
;.
;.
RCALL DL50 ;延时50毫秒后
RJMP RST33 ;重新接收
DTCOM0: LDI R27,1
CLR R26 ;数据存储区首地址$100
DLLOP0: CLR R29
LDI R28,$90 ;ASCII码处理区为$90--$9f
LD R16,X
CPI R16,$50 ;字母P打头才有效
BRNE RVCOM0 ;否则为无效字串或ASCII码处理结束
DLLO1: LD R16,X+
ST Y+,R16
CPI R28,$A0
BRNE DLLO1 ;传送16个字符
PUSH R26
PUSH R27
RCALL ACUM ;处理一组ASCII码数据
POP R27
POP R26
BRTC DLLOP0 ;T=1，ASCII码数据无效
CLT
;. ;错误处理
RJMP STRT33
RVCOM0:;. ;错误处理
;.
RJMP STRT33
T0_OVF1:IN R11,SREG ;T/C0中断服务
PUSH R17
CPI R16,0 ;起始位下降沿中断?
BRNE T0SV10
LDI R17,2 ;YES
OUT TCCR0,R17 ;改为内定时（4MHZ/8分频)
LDI R17,232 ;半位时间常数24 定48微秒（<52）
OUT TCNT0,R17
RJMP T0SV6
T0SV10: CPI R16,1 ;1,半位定时到
BRNE T0SV2
SBI PORTB,0
SBIC PINB,0
RJMP T0ERR ;高电平，错误
RJMP T0SV60 ;低电平，有效起始位
T0SV2: CPI R16,10 ;
BRNE T0SV3
SBI PORTB0 ;10,接收停止位
SBIS PINB,0
RJMP T0ERR ;低电平，错误
LDI R17,6
OUT TCCR0,R17 ;改为外部脉冲下降沿计数，为接受下一位字符准备
LDI R17,$FF ;计一个数即中断
OUT TCNT0,R17
CLR R16 ;位计数器请除
SBRC R18,1 ;是第一个字符(r18,1=0)？
RJMP T0SV21 ;否，为块内数据
MOV R14,R15 ;块长转入r14
SBR R18,2 ;块长已收到
RJMP T0SV61
T0SV21: PUSH XL
PUSH XH
MOV XH,R12
MOV XL,R13 ;取缓存区指针
ST X+,R15 ;字符送入缓存区
MOV R12,XH
MOV R13,XL
POP XH
POP XL
DEC R14
BRNE T0SV61
SBR R18,4 ;块长减为0，完整数据块收到
CLR R16
OUT TCCR0,R16 ;停止TCNT0
RJMP T0SV61
T0SV3: BRCC T0ERR ;出错(大于10)
CLC ;2--9:数据位
SBI PORTB,0 ;接收一位数据
SBIC PINB,0
SEC
ROR R15 ;数据组织到R15
T0SV60: IN R17,TCNT0 ;读TCNT0计数值
INC R17 ;
SUBI R17,52
OUT TCNT0,R17 ;写入补偿后的时间常数
T0SV6: INC R16 ;位序列计数器增1
T0SV61: POP R17
OUT SREG,R11
RETI
T0ERR: CLR R16
T0ERL: SBR R18,1 ;错误接收标志
OUT TCCR0,R16 ;停止TCNT0
RJMP T0SV61
;范例44
.ORG 0 ;8535多机通讯主机程序/振4MHZ
.EQU DTPINT=$180 ;UBRR=12，波特率19200(REL.ERR.=0.16%)
.EQU DRPINT=$1C0 ;主机发往#1,#2,#3,#分机数据在
;$180-18F,$190-19F,$1A0-1AF和$1B0-1BF
STRT34: RJMP RST34 ;主机接收#1,#2,#3,#4分机之数据块分别在
;$1C0-1CF,$1D0-1DF,$1E0-1EF和$1F0-1FF
.ORG $00B
RJMP U_RXC ;UART接收完成中断
.ORG $00C
RJMP U_TXC ;UART 发送完成中断
.ORG $011
RST34: LDI R16,12
OUT UBRR,R16 ;BAUD RATE=FCP/16(UBRR+1)=4000000/（16*13）=19200
CLR R15 ;分机号初始化
LDI R27,HIGH(DTPINT)
LDI R26,LOW(DTPINT);发送数据指针，首指$180
LDI R29,HIGH(DRPINT)
LDI R28,LOW(DRPINT);接收数据指针（POINT TO $1C0)
NEXTNO: LDI R16,$18
OUT UCR,R16 ;允许UART接收和发送，8位数据模式
INC R15 ;指向分机
OUTLP: OUT UDR,R15 ;呼分机号
TSLOP: IN R16,USR
SBRS R16,7
RJMP TSLOP ;分机返回机号？
IN R16,UDR
CP R16,R15 ;与发送分机号符合？
BRNE OUTLP ;不符再发
TXLOP: LD R16,X+
OUT UDR,R16 ;向分机发送数据块
TESTL: IN R17,USR
SBRS R17,5 ;发送寄存器空？
RJMP TESTL
CPI R16,$0A
BRNE TXLOP ;发完整个数据块？
RXTST: IN R17,USR
SBRS R17,7 ;RXC=1 分机发来数据
RJMP RXTST
IN R16,UDR
ST Y+,R16 ;接收数据转入内存
CPI R16,$0A
BRNE RXTST ;接收完整数据块后
MOV R16,R15
CPI R16,4 ;转与下一分机通讯（只有4台分机）
BRNE NEXTNO ;直到轮询完毕
HH34: RJMP HH34 ;可改为处理分机发来数据，再转入下一周轮询
.DSEG
.ORG $180
DTPINT:.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 $1C0
DRPINT: .BYTE $40
;范例45
.ORG 0 ;8535多机通讯1#分机程序，晶振4MHZ
.EQU DTPIT1=$180 ;UBRR=12 波特率19200(REL.ERR.=0.16%)
.EQU DRPNT1=$1C0
STRT35: RJMP RST35
.ORG $00B
RJMP UARXC ;UART接收完成中断
.ORG $00C
RJMP UATXC ;UART发送寄存器空中断
.ORG $011
RST35： CLR R18 ;请除主机发来完整数据块标志(R18,7)/主机呼号选中分机
;标志(R18,6)
LDI R16,12
OUT UBRR,R16 ;[BAUD RATE=FCP/16(UBRR+1)]
LDI R16,HIGH(DRPNT1)
MOV R8,R16
LDI R16,LOW(DRPNT1)
mov R9,R16 ;r8,r9:接收数据指针(FIRST POINT TO $1C0)
LDI R16,$98 ;允许UART发送，接收，接收完成中断
OUT UCR,R16
SEI
   CLR R15
   INC R15 ;1#分机设为1/2#分机设为2/3#分机设为3/4#分机设为4
RXDTS: SBRS R18,6 ;收到主机发来呼号？
RJMP RXDTS
OUT UDR,R15 ;将分机号反还主机
TXDON: IN R16,USR
SBRS R16,5
RJMP TXDON ;发送寄存器空？
RCVBLK: SBRS R18,7
RJMP RCVBLK ;等待接收主机发来数据块
LDI R16,HIGH(DTPIT1)
MOV R6,R16
LDI R16,LOW(DTPIT1)
MOV R7,R16 ;设置发送数据指针r6r7,首指$180
SBI UCR,5 ;UDRIE=1 ，引起发送寄存器空中断
TXDN: SBIC UCR,5
RJMP TXDN
RJMP RST35 ;等待UDRIE=0 ，向主机发送数据块完毕后，转下一轮通讯

:UART中断接收程序
UARXC: IN R14,SREG
TST R18
BREQ NUMB ;无主机呼号选中标志，查机号
PUSH R26
PUSH R27
IN R17,UDR ;读入接收数据
MOV XH,R8
MOV XL,R9 ;r8r9:接收数据缓存区指针，首指$1C0
ST X+,R17
MOV R8,XH
MOV R9,XL
CPI R17,$0A ;收到换行符?
BRNE RSCOM1
SBR R18,$80 ;建立数据块接收完毕标志
RSCOM1: POP R27
POP R26
DRETI: OUT SREG,R14
RETI
NUMB: IN R17,UDR
CP R17,R15 ;主机呼号与本分机号符合？
BRNE DRETI ;不符，转
SBR R18,$40 ;建选中标志
RJMP DRETI
; UART中断发送数据程序
UATXC: IN R16，SREG ;r6 r7:the sendDATA pointer(FIRST POINT TO $180)
PUSH R16
PUSH R26
PUSH R27
MOV XH,R6
MOV XL,R7 ;发送数据指针
LD R16,X+
MOV R6,XH
MOV R7,XL
OUT UDR,R16 ;发送数据写入数据寄存器
CPI R16,$0A ;发送LF?
BRNE SDCOM
CBI UCR,5 ;禁止数据寄存器空中断(清UDRIE)
LDI R16,HIGH(DRPINT)
MOV R8,R16
LDI R16,LOW(DRPINT)
MOV R9,R16 ;为接收作准备(FIRST POINT TO $1C0)
SDCOM: POP R27
POP R26
POP R16
OUT SREG,R16
POP R16
RETI
.DSEG
.ORG $180
DTPIT1: .BYTE $10
;$41 $45 $65 $73 $46 $42 $40 $6F $33 $44 $66 $5C $4D $4B $0D $0A
.ORG $1C0
DRPNT1: .BYTE $10
;$41 $45 $65 $73 $46 $42 $40 $6F $33 $44 $66 $5C $4D $4B $0D $0A
;范例46
.ORG $000 ;RS232<->RS485通讯标准转换/晶振4MHZ
STRT36: RJMP RST485 ;使用8515!
.ORG $009
RJMP U_RXC ;UART 接收中断
.ORG $00D
RST485: LDI R16,2
OUT SPH,R16
LDI R16,$5f ;
OUT SPL,R16
LDI R16,$98 ;允许UART接收和发送，允许接收中断
OUT UCR,R16
LDI R16,12
OUT UBRR,R16 ;波特率19200
SBI DDRB,7
SBI DDRB,6 ;PB7，PB6为输出
CBI PORTB,7
CBI PORTB,6 ;PB7控制485发送（高有效）PB6控制485接收（低有效)
SEI
HERE0: CPI R16,3 ;收到停止符？
BRNE HERE0 ；未收到循环等待
HERE1: SBIS USR,6 ;
RJMP HERE1 ;等待停止符发送完毕
CBI PORTB,7 ;禁止485发送
CBI PORTB,6 ;允许485接收
SBI USR,6 ;写‘1’清除发送完成标志!
CLR R16
RJMP HERE0 ;转等待下一轮中转
U_RXC: SBI PORTB,7 ;允许485发送
SBI PORTB,6 ;禁止485接收,
IN R16,UDR ;读出接收数据，同时清除接收中断标志
TSAGN: SBIS USR,6 ;上一数据发送完毕?
RJMP TSAGN
SBI USR,6 ;清除发送完成标志
OUT UDR,R16 ;转发本次接收数据
RETI
;范例47
.EQU DATA4=$220
.ORG $000 ;同步串口通讯主机程序，晶振4MHZ
STRT37: RJMP RST37
.ORG $00A ;8535 SPI中断矢量(8515为$008)
RJMP SPINT
.ORG $011 ;$00D(8515)
RST37: LDI R16,2
OUT SPH,R16
LDI R16,$5f
OUT SPL,R16 ;堆栈指针初始化
LDI R16,$A0
OUT DDRB,R16 ;SCK,MOSI为输出
LDI R16,$DC
OUT SPCR,R16 ;允许SPI中断，先发送高位，主控方式，时钟为主频4分
;频，后沿有效
LDI XH,HIGH(DATA4)
LDI XL,LOW(DATA4);数据指针
LDI R16,$30
MOV R15,R16 ;数据块长
LDI R16,12 ;0.25微秒
SPI0: DEC R16 ;0.25微秒
BRNE SPI0 ;0.5微秒总延时9微秒
LD R16,X
OUT SPDR,R16 ;写发送数据寄存器，启动发送
SEI
HH37: RJMP HH37 ;背景程序略

SPINT: IN R14,SREG
IN R16,SPDR ;读出接收数据
ST X+,R16
DEC R15
BRNE SPI1 ;数据收发完毕？
OUT SPCR,R15 ;是，停止收发
OUT SREG,R14
RETI
SPI1: LDI R16,6 ;0.25微秒
SPI1A: DEC R16 ;0.25微秒
BRNE SPI1A ;0.5微秒总共4.5微秒
LD R16,X
OUT SPDR,R16 ;发下一个数据
OUT SREG,R14
RETI
;范例48
.ORG $000
STRT37S:RJMP RST37S ;同步串口通讯从机程序(8515) 晶振4MHZ
.ORG $008 ;$00A(8535)
RJMP SPINTS ;同步串口中断矢量
.ORG $00D ;$011(8535)
RST37S: LDI R16,2
OUT SPH,R16
LDI R16,$5f
OUT SPL,R16
LDI R16,$40
OUT DDRB,R16 ;MISO为输出
LDI R16,$CC
OUT SPCR,R16 ;允许SPI中断，先发送高位，从控方式，时钟为主频4分频，后沿有效
LDI YH,HIGH(DATA4)
LDI YL,LOW(DATA4);数据指针
LDI R16,$30 ;数据长度
LD R15,Y
OUT SPDR,R15 ;写入数据寄存器
SEI
HH37S: RJMP HH37S ;背景程序从略
SPINTS: IN R14,SREG
IN R15,SPDR ;读接收数据
ST Y+,R15
DEC R16
BRNE SPI2 ;数据块收发完毕
OUT SPCR,R16 ;停止中断收发
RJMP SPI3
SPI2: LD R15,Y
OUT SPDR,R15 ;发下一数据
SPI3: OUT SREG,R14
RETI
;范例49 以模拟串口与串行移位寄存器74165通讯，以74165驱动LED显示子程序
DSPLY3: SBI DDRC,1 ;PC1,串行数据输出
SBI DDRC,0 ;PC0,移位时钟
CBI PORTC,0 ;
LDI R17,8 ;8字节显示缓存区$60(高)--$67(低))
MOV R8,R17
CLR XH
LDI XL,$60 ;指针，首指最高位($60)
SRDLOP: LDI R17,8 ;8位/字节
MOV R9,R17
LD R10,X+
LDI ZH,HIGH(TABLE*2)
LDI ZL,LOW(TABLE*2);使用DSPY子程序段选表
ADD ZL,R10 ;加代码寻址
BRCC DSPL1
INC ZH
DSPL1: LPM ;取段选码
COM R0 ;取为反码
SENDLP: ROR R0 ;段选码右移一位 C<--R0最低位
CBI PORTC,1
BRCC SNDL1 ;进位C传给PC1
SBI PORTC,1
SNDL1: SBI PORTC,0 ;移位时钟，上升沿有效
CBI PORTC,0 ;移位时钟变低
DEC R9
BRNE SENDLP ;8位段选码循环右移
DEC R8
BRNE SRDLOP ;8位LED显示数据都更新一遍？
RET ;是，结束
;脉宽调制（PWM）输出程序
;范例50 ;以定时器定时产生精确半秒信号，以PD5输出精确秒号
.ORG $000 ;晶体实测频率为8000367HZ
STRT40: RJMP RST40 ;USE 8535
.ORG $008 ;t/C1 overflow vector
RJMP T1_OVF
.ORG $011
RST40: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
SBI DDRD,5 ;PD5(OC1A)为输出
CBI PORTD,5 ;初始输出为低
LDI R16,2 ;8分频 INT(8000367/8)=1000046) 折半500023定半秒
OUT TCCR1B,R16 ;T/C1控制寄存器(I/O ADDR:$2E)
LDI R16,$5E ;500023=65536*8-24265=$10000*8-$5EC9
OUT TCNT1H,R16 ;TCC=$5EC9 先写高位字节
LDI R16,$C9
OUT TCNTIL,R16
LDI R16,$04
OUT TIMSK,R16 ;允许T/C1溢出中断/8535C/t1:timsk,2&t0:timsk,0
LDI R17,8 ;8次中断定半秒
CLR R16
OUT TIFR,R16 ;清除定时/计数器中断标志
SEI ;
HH40: RJMP HH40 ;背景程序略
T1_OVF: IN R5,SREG ;保存状态寄存器
DEC R17
BRNE COMP1 ;定时时间到？
IN R16,PORTD ;读入PD5当前状态
LDI R17,$20
EOR R16,R17 ;求反PD5(OC1A)输出
OUT PORTD,R16
IN R17,TCNT1L ;*
IN R16,TCNT1H ;*读回TCNT1计数值
SUBI R17,$37 ;*
SBCI R16,$A1 ;*减去$5EC9之补码$A137
SUBI R17,$FF ;*补偿指令8条占一个计数单位
SBCI R16,$FF ;*补偿后TCC=$5EC9+(TCNT1)+1
OUT TCNT1H,R16 ;*
OUT TCNT1L,R17 ;*写入TCNT1
LDI R17,8 ;重新写入中断次数
COMP1: OUT SREG,R5
RETI
;范例51 ;以比较匹配A达到时交替输出高低电平及写入其维持
;时间常数之方法实现脉宽调制输出
.ORG $000
STRT41: RJMP RST41 ;5.008MS(高):10.000MS(低) 晶振4MHZ
.ORG $006
RJMP T1_CMPA ;USE 8535
.ORG $011
RST41: LDI R16,HIGH(RAMEND)
OUT SPH,R16
LDI R16,LOW(RAMEND)
OUT SPL,R16
LDI R16,$80 ;T/C1比较匹配A达到时，清除输出脚oc1a
OUT TCCR1A,R16
LDI R16,$0B ;64分频 ctc1=1 比较匹配达到清tcnt1
OUT TCCR1B,R16
SBI DDRD,5
SBI PORTD,5 ;pd5(oc1a)初始化输出为高
CLR R16
OUT TCNT1H,R16 ;予清除tcnt1
OUT TCNT1L,R16
LDI R16,1
OUT OCR1AH,R16
LDI R16,$39 ;写比较匹配寄存器(313*0.25*64=5.008MS)
OUT OCR1AL,R16
LDI R16,$10
OUT TIMSK,R16 ;允许比较匹配A中断
SEI
HH41: RJMP HH41 ;背景程序略
T1_CMPA:IN R5,SREG
IN R16,TCCR1A
SBRS R16,6
RJMP OUTLOW ;当前输出低电平，转
LDI R16,1
OUT OCR1AH,R16
LDI R16,$39 ;写入高电平维持时间313
OUT OCR1AL,R16
LDI R16,$80 ;比较匹配A达到时，OC1A输出为低
OUT TCCR1A,R16
OUT SREG,R5
RETI
OUTLOW: LDI R16,2
OUT OCR1AH,R16
LDI R16,$71 ;写入低电平维持时间625(=$271) (625*0.25*64=10.000MS)
OUT OCR1AL,R16
LDI R16,$C0 ;比较匹配A达到时，OC1A输出为高
OUT TCCR1A,R16
OUT SREG,R5
RETI
;范例52 ;以比较匹配达到时求反输出并按高低电平写入
.ORG $000 ;维持时间之方法实现脉宽调制输出
STRT42: RJMP RST42 ;5.008MS(高):10.000MS(低) 晶振4MHZ
.ORG $006
RJMP T1_CMPA
.ORG $011
RST42: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(RAMEND)
OUT SPL,R16
LDI R16,$40 ;比较匹配A达到时，对OC1A输出求反
OUT TCCR1A,R16
LDI R16,$0C ;256分频 ctc1=1 比较匹配达到时清除cnt1
OUT TCCR1B,R16
SBI DDRD,5 ;PD5(oc1a)为输出
SBI PORTD,5 ;初始输出为高
CLR R16
OUT TCNT1H,R16 ;清除tcnt1
OUT TCNT1L,R16
OUT OCR1AH,R16
LDI R16,78 ;高电平时间常数78
OUT OCR1AL,R16
LDI R16,$10
OUT TIMSK,R16 ;允许比较匹配A中断
SEI
HH42: RJMP HH42 ;背景程序略
T1_CMPA:IN R5,SREG ;
IN R16,PORTD
SBRC R16,5
RJMP T1CM1 ;当前oc1a为高，转
LDI R16,0
OUT OCR1AH,R16
LDI R16,156 ;低电平时间常数156
OUT OCR1AL,R16
OUT SREG,R5
RETI
T1CM1: LDI R16,0
OUT OCR1AH,R16
LDI R16,78 ;高电平时间常数78
OUT OCR1AL,R16
OUT SREG,R5
RETI
;模/数转换和数/模转换及脉宽调制输出应用
;范例53 ;模拟量采集和3路脉宽调制输出（OCR1A/OCR1B&OCR2）综合程
;序/晶振4MHZ
.ORG $000
STRT50: RJMP RST50 ;avr is AT90S8535
.ORG $00E
RJMP ADCOM ;模数转换完成中断
.ORG $011
RST50: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16 ;堆栈指针初始化
CLR R11 ;通道号初始化
CLR R12
CLR R13 ;累加和予清除
OUT $07,R11 ;ADC通道初始化，指向0#通道
LDI R16,$6C ;T/C2为自运行pwm输出，加法计数匹配清除OC2，减法计
;数匹配置位OC2(正向PWM);对晶振64分频
OUT TCCR2,R16 ;tccr2' ADDR.:$25
LDI R16,$ED ;使能，启动ADC/自由运行/转换完成中断/对晶振32分频
OUT ADCSR,R16 ;ADDR:$06 adc控制状态寄存器
IN R16,ASSR
CBR R16,8
OUT ASSR,R16 ;TCNT2 用主时钟!
INC R11
OUT $07,R11 ;予切换到1号ADC通道
SBI DDRD,4
SBI PORTB,4 ;pd4:oc1b
SBI DDRD,5 ;pd5:oc1a pd4,pd5 皆为输出 oc1b初始输出为高
SBI DDRD,7 ;oc2 输出
LDI R16,$E3 ;0B11100011，自运行PWM，COM1A1/0=11，COM1B1/0=10
OUT TCCR1A,R16 ;减法计数匹配清除OC1A，加法计数匹配置位OC1A（反向PWM);加法计
;数匹配清除OC1B，减法计数匹配置位OC1B（正向PWM）
LDI R16,2
OUT TCCR1B,R16 ;tcnt1 8分频
LDI R16,0
OUT TCNT1H,R16 ;wr.high B at first
OUT TCNT1L,R16 ;清除TCNT1
OUT TCNT2,R16 ;清除TCNT2
OUT DDRA,R16 ;A口输入
OUT PORTA,R16 ;输入为高阻态
SEI
COMLP: CPI R11,1
BREQ COMLP ;通道号初始为1，等待切换过去
COML0: CPI R11,1
BRNE COML0 ;通道号再次为1时，0#通道正在转换，7#通道已转换完毕，
;已得到8个A/D采样累加和
ASR R12
ROR R13
ASR R12
ROR R13
ASR R12
ROR R13 ;累加和除以8
BRCC COML1
CLR R16
ADC R13,R16
ADC R12,R16 ;四舍五入
COML1: OUT OCR1AH,R12
OUT OCR1AL,R13
OUT OCR1BH,R12
OUT OCR1BL,R13 ;10位数据写入比较匹配寄存器
ASR R12
ROR R13
ASR R12
ROR R13
BRCC COML2
INC R13
BRNE COML2
DEC R13
COML2: OUT OCR2,R13 ;8位数据写入比较匹配寄存器
CLR R12
CLR R13 ;累加和清除
RJMP COMLP
ADCOM: IN R15,ADCL ;ADC完成中断
IN R14,ADCH
ADD R13,R15 ;模拟数值加入累加和
ADC R12,R14
INC R11
SBRC R11,3
CLR R11 ;total 8 chanales!&8 CHANGED TO 0
OUT $07,R11 ;$07:admux'address REGISTER
RETI
;范例54 ;以R-2R电阻网络和C口配合组成DAC与输入模拟量比较实现模数转换
.ORG $000 ;电阻网络DAC最大输出(AIN0)只能达到3.32V（PCi输出只能达到5V）
STRT51: RJMP RST51 ;输入模拟量最大为4.98V，故应将DAC输出放大1.5倍再与前者比较
.ORG $011 ;也可将输入模拟量衰减为2/3再与DAC输出比较
RST51: LDI R16,2 ;但应将转换结果乘以1.5以使其复原，程序取后者
OUT SPH,R16 ;堆栈指针初始化
LDI R16,$5F
OUT SPL,R16
SER R16
OUT DDRC,R16 ;C口全部为输出，DAC输出为AIN0输入
CLR R16
OUT DDRB,R16 ;B口为输入
LDI R16,$F3
OUT PORTB,R16 ;PB2(AIN0),PB3(AIN1）输入为高阻状态
CLR R15 ;模数转换结果予清除
LDI R16,$80 ;逼近增量初始值
CMPLP: ADD R15,R16 ;模数转换阶段值加逼近增量
OUT PORTC,R15 ;转成模拟量
NOP
NOP
NOP ;4MHZ/等待1微秒
SBIC ACSR,ACO ;输入模拟量大于DAC模拟量，清除ACO
SUB R15,R16 ;否则去掉逼近增量
LSR R16 ;逼近增量折半
BRNE CMPLP ;逼近增量变为0?
MOV R16,R15 ;*是,转换结束
LSR R15 ;*
ADC R15,R16 ;*将转换结果乘以1.5
HH50: RJMP HH50 ;背景程序略

;范例55 ;40点平均在r18r19，累加和在r5r6r7；20点平均在R14R15，累加和在R1R3R4
SLPAV: PUSH R26 ;采样在R8R9，采样数据存储区$150--$19F/工作寄存器r1--r19&r26 r27
PUSH R27
LDI R27,1
LDS R26,$14F ;数据存储区首地址$14F
ADD R7,R9
ADC R6,R8 ;采样加入40点平均累加和
BRCC SLP1
INC R5 ;有进位，高位字节增1
SLP1: ADD R4,R9
ADC R3,R8 ;采样加入20点平均累加和
BRCC SLP2
INC R1 ;有进位，高位字节增1
SLP2: LD R16,X
ST X+,R9
MOV R9,R16 ;置换出最旧采样低位字节
LD R16,X
ST X+,R8
MOV R8,R16 ;置换出最旧采样高位字节
CPI R26,$A0
BRNE SLPA1
LDI R26,$50 ;采样放满存储区后，指针初始化($1A0=$150)
STS $14F,R26
LDS R16,$A4
SBRC R16,4
RJMP SLPA2 ;40点平均时间达到，转
SBR R16,$10 ;设置40点平均时间达到标志
STS $A4,R16
RJMP SLDIV ;转去计算40点平均
SLPA1: STS $14F,R26 ;暂存指针
LDS R16,$A4
SBRS R16,4
RJMP SLPB0 ;还未到40点平均，转
SLPA2: SUB R7,R9
SBC R6,R8 ;到40点平均后除加上新采样外，还要减去最旧采样
BRCC SLDIV
DEC R5 ;不够减，高位字节减1
SLDIV: CLR R12
LDI R16,40
MOV R11,R16
CLR R10
MOV R13,R5
MOV R14,R6
MOV R15,R7
RCALL DIV165 ;计算40点平均
MOV R18,R14
MOV R19,R15 ;存入r18r19
SLPB0: CPI R26,$78
BRNE SLPB1
LDS R16,$A4
SBRC R16,3
RJMP SLPB2
SBR R16,8 ;建20点平均时间到标志
STS $A4,R16
RJMP SLPDV ;
SLPB1: LDS R16,$A4
SBRS R16,3
RJMP SLRET ;20点平均时间未到
SLPB2: SUBI R26,42 ;指针退回42字节，指向20点平均最旧数据
CPI R26,$50 ;不小于80，未超出采样数据存储区
BRCC SLPB20
SUBI R26,-80 ;否则加80调整回$150-$19F
SLPB20: LD R11,X+ ;
LD R10,X
SUB R4,R11
SBC R3,R10 ;找到20点平均最旧采样，并将其从累加和中减去!
BRCC SLPDV
DEC R1
SLPDV: LDI R16,20
MOV R11,R16
CLR R10
CLR R12
MOV R13,R1
MOV R14,R3
MOV R15,R4
RCALL DIV165 ;20点平均在r14r15中
SLRET: POP R27
POP R26
RET
;范例56 ;断电保护芯片MAX704,/RESET脚接8515同名脚
;/PFO接INT0,由VOUT脚给UT6264（或UT62256）/62x42x供电，
;本程序不涉及休眠！
.ORG $000 ;AT90S8515/时钟4MHZ
STRT60: RJMP RST60
RJMP EX_INT0 ;外部中断0
RJMP EX_INT1 :外部中断1
.ORG $009 ;uart_rxc interrupt
RJMP RCVSV
.ORG $010
RST60: LDI R16,2
OUT SPH,R16
LDI R16,$5f
OUT SPL,R16 ;堆栈指针初始化，指向$25f
CLR XH
LDI XL,$60
CLR R16
CLRX: ST X+,R16
CPI XL,$5E
BRNE CLRX
CPI XH,2
BRNE CLRX ;清除$60--$25d
LDI R16,$F0
OUT DDRB,R16 ;PB3-PB0输入 PB7-PB4输出
OUT PORTB,R16 ;上拉PB7-PB4
SBI PORTB,0
SBIS PINB,0
RJMP BG1A ;若将PB0接地，不做断电启动
LDI R16,70
CLR R12
CLR R11
DLOPX: DEC R11
BRNE DLOPX
DEC R12
BRNE DLOPX
DEC R16
BRNE DLOPX ;延时3.4秒(clk 4mhz)
CLR R27
LDI R26,$60
CLR R16
LOPX1: ST X+,R16
CPI R26,$5E
BRNE LOPX1
CPI R27,2 ;清除$60--$25d
BRNE LOPX1
CLI
LDI R16,$80
OUT GIMSK,R16 ;int1中断使能
LDI R16,$DA ;激活外部RAM，加1等待周期，不休眠，int0/int1下降沿有效
OUT MCUCR,R16
;.
;.
;. ;
LDS R16,$9FFE ;片外sram $8000-$9fff)
CPI R16,$55
BRNE BG1A ;查断电标志
LDS R16,$9FFF
CPI R16,$AA
BREQ BG2B ;查到
BG1A: LDI R27,$80
LDI R26,0
CLR R16
CLOPX: ST X+,R16
CPI R27,$A0
BRNE CLOPX ;清除$8000--$9FFF
LDI R16,$AA
ST -X,R16 ;$AA-->($9fff)
COM R16
ST -X,R16 ;$55-->($9ffe)
BG1A0: IN R16,GIMSK
SBR R16,$40
OUT GIMSK,R16 ;允许int0中断
RJMP NRMST

BG2B: LDS R16,$9FFD ;$9FFD:最高位为生产标志
SBRS R16,7
RJMP NRMST ;无生产标志转平常启动
BG5C: CBI PORTB,7 ;指示断电启动
LDI R27,$80
LDI R26,2 ;SRAM 8002-825F传回片内
LDI R29,0
LDI R28,2
CLR R0 ;检查和清除
APX0: LD R1,X+
ST Y+,R1 ;传送数据块
ADD R0,R1
CPI R28,26 ;指向r26?
BRNE APX0
LD R1,X+ ;取r26
ADD R0,R1
LD R1,X+ ;取r27
ADD R0,R1
LD R1,X+ ;取r28
ADD R0,R1
LD R1,X+ ;取r29/ r26--r29为数据指针，不能当作数据传送
ADD R0,R1
LDI R28,30
APX2: LD R1,X+
ADD R0,R1
ST Y+,R1
CPI R28,$5F
BRNE APX2
INC XL
INC YL ;SREG不断变化，不能加入累加和!
APX3: LD R1,X+
ADD R0,R1
ST Y+,R1
CPI R28,$60
BRNE APX3
CPI R29,2
BRNE APX3 ;到$25f?
LDS R1,$9FFC ;取检查和
ADD R0,R1 ;检查和(CHECKSUM)正确?
BREQ BG5D
RJMP BG1A ;错，转总清
BG5D: WDR
LDI R16,$0D ;看门狗初始化，溢出时间0.49"
OUT WDTCR,R16
CLR R2 ;调DSPA次数计数器清除
IN R16,GIMSK
SBR R16,$40
OUT GIMSK,R16 ;允许int0中断
LDS R26,$235
OUT SPH,R26
LDS R26,$234
OUT SPL,R26
POP R26
POP R27
POP R28
POP R29 ;数据指针出栈
POP R1
OUT SREG,R1 ;
POP R1
POP R0
RETI ;弹出断点，开放中断
NRMST: WDR
LDI R16,$0D ;看门狗初始化，溢出时间0.49"
OUT WDTCR,R16
CLR R2
;.......
SEI
;(略)
RCVSV: ;.
;.
;.
EX_INT0:PUSH R0 ;断电中断服务 I BE CLEARED!
PUSH R1
IN R1,SREG
PUSH R1
PUSH R29
PUSH R28
PUSH R27
PUSH R26 ;保护X，Y指针
LDI R26,$1D
OUT WDTCR,R26
LDI R26,$15
OUT WDTCR,R26 ;禁止看门狗
IN R26,SPL
STS $234,R26
IN R26,SPH
STS $235,R26 ;保护堆栈指针
LDI R27,0
LDI R26,2
LDI R29,$80
LDI R28,2 ;SRAM $002-25F 转片外$8002-$825f
CLR R0 ;检查和予清除
ALPX1: LD R1,X+
ST Y+,R1
ADD R0,R1 ;加入累加和
CPI R26,26 ;
BRNE ALPX1 ;
POP R1 ;R26～R29从堆栈中取!
ADD R0,R1
ST Y+,R1
POP R1 ;取R27
ADD R0,R1
ST Y+,R1
POP R1 ;取R28
ADD R0,R1
ST Y+,R1
POP R1 ;取R29
ADD R0,R1
ST Y+,R1
IN R26,SPL
SUBI R26,4 ;恢复堆栈指针，抵消4个POP
OUT SPL,R26
LDI R26,30 ;越过R26-R29，指向R30
APX10: LD R1,X+
ST Y+,R1
ADD R0,R1
CPI R26,$5F
BRNE APX10
INC XL ;SREG 越过!
INC YL
APX20: LD R1,X+
ST Y+,R1
ADD R0,R1
CPI R26,$60
BRNE APX20
CPI R27,2
BRNE APX20 ;完成到$8002-825F之转移
NEG R0
STS $9FFC,R0 ;SAVE THE CHECKSUM TO $9FFC
LDI R26,62
CLR R27
CLR R28
DLPX5: DEC R28
BRNE DLPX5
DEC R27
BRNE DLPX5
DEC R26
BRNE DLPX5 ;延时3秒(49.16ms*62=3")
LDI R27,$80
LDI R26,2 ;$8002-$825F
LDI R29,0
LDI R28,2 ;$002-25F
CLR R0
APX1A: LD R1,X+
ST Y+,R1 ;将片外SRAM数据传回片内
ADD R0,R1
CPI R28,26
BRNE APX1A
LD R1,X+ ;R26
ADD R0,R1
LD R1,X+ ;R27
ADD R0,R1
LD R1,X+ ;R28
ADD R0,R1
LD R1,X+ ;R29
ADD R0,R1
LDI R28,30
APX1B: LD R1,X+
ST Y+,R1
ADD R0,R1
CPI R26,$5F
BRNE APX1B
INC XL ;越过SREG!
INC YL
APX2A: LD R1,X+
ADD R0,R1
ST Y+,R1
CPI R28,$60
BRNE APX2A
CPI R29,2
BRNE APX2A ;到$25f?
LDS R1,$9FFC
ADD R0,R1
BRNE ERRDL
RJMP BG5D ;检查和正确
ERRDL: (略) ;错误处理
;范例57
;使用干电池便携系统断电保护程序 MAX704 RESET引脚接8535同名脚
;/PFO接8535INT0 断电时由电池给AT90LS8535供电
;晶振4MHZ
.ORG $000 ;AT90LS8535只使用片内sram；在片内RAM中保护数据
STRT61: RJMP RST61
RJMP EX_INT0
RJMP EX_INT1
.ORG $00B
RJMP RVCMPLT ;串行数据接收完成
.ORG $011
RST61: LDI R16,$00
OUT DDRA,R16 ;PA7-PA0为输入
LDI R16,21
CLR R12
CLR R13
DLPX: DEC R13
BRNE DLOPX
DEC R12
BRNE DLPX
DEC R16
BRNE DLOPX ;延时1秒(clk 4mhz)
LDI R16,2
OUT SPH,R16
LDI R16,$5f
OUT SPL,R16 ;堆栈指针$25f
CLR R2 ;调DSPB次数预清除
WDR
LDI R16,$0D ;设置看门狗溢出时间0.49"
OUT WDTCR,R16
LDI R16,$0F
OUT PORTA,R16
IN R16,PINA
CBR R16,$F0 ;清除无用的高4位
CPI R16,15
BRNE BG3A ;K0-K3有键按下，转
LDS R16,$23E ;
CPI R16,$55
BRNE BG3A
LDS R16,$23F
CPI R16,$AA
BRNE BG3A ;无断电标志，转
CLR R16
STS $23E,R16 ;清除断电标志
CLI
LDI R16,$C0
OUT GIMSK,R16 ;
LDI R16,$60 ;掉电休眠，
OUT MCUCR,R16 ;int0 INT0 电平中断
;.
;. ;其他初始化程序略
;. ;
RJMP REST2 ;转断电启动!
RVCMPLT:;(MISSING)
BG3A: CLR R27
LDI R26,$60
CLR R16
LOPX1: ST X+,R16
CPI R26,$60
BRNE LOPX1
CPI R27,2
BRNE LOPX1 ;清除$60--$25f
LDI R16,2
OUT SPH,R16
LDI R16,$5FH
OUT SPL,R16
CLI
LDI R16,$C0
OUT GIMSK,R16 ;允许int0/int1中断
LDI R16,$60 ;掉电休眠
OUT MCUCR,R16 ;INT0/INT1 电平中断
;.
;. ;其他初始化程序略
;.
SEI
HH61: RCALL DSPB ;液晶显示子程序略
LDI R16,$0F ;激活上拉电阻
OUT PORTA,R16 ;
IN R16,PINA ;读入键状态
CBR R16,$F0
CPI R16,$0F ;有键按下？
BRNE HH61 ;等待释放
IN R16,TIMSK
SBR R16,$C0
OUT TIMSK,R16 ;重新允许INT1中断
SLEEP ;进入掉电休眠
RJMP HH61 ;唤醒后显示新采集的数据
EX_INT1:SEI ;允许INT0中断
PUSH R16 ;K0/K1/K2/K3有按下者，产生电平中断唤醒MCU,采集数据
IN R16,SREG
PUSH R16
SBI PORTA,3
SBIS PINA,3
RJMP DLK63 ;K3按下采集数据
SBI PORTA,2
SBIS PINA,2
RJMP DLK62 ;K2按下采集数据
SBI PORTA,1
SBIS PINA,1
RJMP DLK61 ;K1按下采集数据
RJMP DLK60 ;K0按下采集数据
DLKRT: IN R16,TIMSK
CBR R16,$80
OUT TIMSK,R16 ;禁止INT1中断(键未释放或抖动时不引起中断)
POP R16
OUT SREG,R16
POP R16
RETI
DLK60: ;. ;采集、处理数据,数据处理后送入显示缓存区
;.
;.
RJMP DLKRT
DLK61: ;. ;采集、处理数据,数据处理后送入显示缓存区,
;.
;.
RJMP DLKRT
DLK62: ;. ;采集、处理数据,数据处理后送入显示缓存区
;.
;.
RJMP DLKRT
DLK63: ;. ;采集、处理数据,数据处理后送入显示缓存区
;.
;.
RJMP DLKRT
EX_INT0:PUSH R0 ;掉电中断服务子程序
PUSH R2
PUSH R12
PUSH R13 ;CLI ALREADY!
PUSH R14
PUSH R15
PUSH R16
PUSH R17
PUSH R26
PUSH R27
PUSH R30
PUSH R31
IN R16,SREG
PUSH R16 ;保护状态寄存器
LDI R16,$1D
OUT WDTCR,R16
LDI R16,$15
OUT WDTCR,R16 ;停止看门狗
IN R16,SPL
STS $23C,R16
IN R16,SPH
STS $23D,R16 ;保护堆栈指针
LDI R16,$55
STS $23E,R16
COM R16
STS $23F,R16 ;写断电标志
SER R16
OUT PORTC,R16 ;关显示
CLR R16
OUT GIMSK,R16 ;禁止外部中断(INT0&INT1)
SLEEP ;进入掉电休眠
REST2: LDS R16,$23D
OUT SPH,R16
LDS R16,$23C
OUT SPL,R16 ;取出堆栈指针
POP R16
OUT SREG,R16 ;恢复状态寄存器
POP R31
POP R30
POP R27
POP R26
POP R17
POP R16
POP R15
POP R14
POP R13
POP R12
POP R2
POP R0 ;恢复工作寄存器，主程序初始化时只能使用这些寄存器!
RETI ;弹出断点，开放中断

;范例58
.EQU DPOINT=$100 ;DATA BLOCK from $100 to $22b
CRCST: LDI R16,2 ;最末2字节在发送方已清为零（或仍为$0D$0A）
MOV R11,R16 ;在接收方则为对方计算出的CRC校验码（余式）
LDI R16,$2C
MOV R12,R16 ;(r11r12)内装入$22C，块长为$12C
CRCST1: LDI R26,HIGH(DPOINT)
LDI R27,LOW(DPOINT);数据指针
CRC0: CLR R14
CLR R15
   LDI R17,$80 ; 16 15 2
   LDI    R18,$05 ;P(X)=X +X +X +1=$18005
CRC1: LDI R16,8
MOV R13,R16 ;8位/字节
LD R16,X+
CRC2: LSL R16
ROL R15
ROL R14
BRCC CRC3
EOR R14,R17
EOR R15,R18 ;移出位为1时，将寄存器r14r15内容异或立即数$8005
CRC3: DEC R13 ;位数减1
BRNE CRC2
DEC R12 ;字节数减1
BRNE CRC1
DEC R11
BRNE CRC1
ST -X,R15
ST -X,R14 ;除得余数放在数据块尾部（或将原始数据恢复）!
RET
;范例58A ;DS18B20读出温度数据CRC检测子程序，生成多项式为P(X)=X8+X4+X3+1
CRCSTA：LDI    XL，$70 ;温度数据指针
   CLR    XH
   LDI    R16，9 ;温度数据，上、下限......CRC校验码等共9字节
   CLR    R15 ;异或除法工作单元
   LDI    R18,$8C
CRC1A： LD    R14，X+
   LDI    R17，8
CRC2A： LSR    R14
   ROR    R15 ;位序列右移
   BRCC CRC3A
   EOR    R15，R18 ;移出位为1时，位序列异或立即数$8C
CRC3A： DEC    R17
   BRNE CRC2A    ;右移次数减1
   DEC    R16
   BRNE CRC1A ;块长减1
   RET ;(R15）=0 接收正确！
;范例59
DEMCRC: LDI R27,1 ;CRC演示程序(校验码16位)
CLR R26 ;数据块首地址为$100
DEMLP: ST X+,R26 ;
CPI R26,$2A ;在$100-$229中充入数据
BRNE DEMLP
CPI R27,2
BRNE DEMLP ;$100--$229中充入$00--$FF和$00-$29
CLR R16
ST X+,R16
ST X,R16 ;$22A,$22B两单元请除，将计算出余式(即CRC校验码)放在其中
RCALL CRCST ;在发送方计算出CRC校验码
RETEST: RCALL CRCST ;在接收方做CRC检测（余式在r14r15）
OR R15,R14 ;r14r15恢复为$0000(或恢复出原数据为正确接收)
BRNE ERCRC
HCRC: RJMP HCRC
ERCRC: ;. ;出错处理，要求对方重发
;.
RJMP RETEST ;重新CRC检测
.DSEG
.ORG $100
DPOINT: .BYTE $12C
; $00 $01 $02 $03 $04 $05 $06 $07 $08 $09 $0a $0b $0c $0d $0e $0f
; $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $1a $1b $1c $1d $1e $1f
; $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $2a $2b $2c $2d $2e $2f
; $30 $31 $32 $33 $34 $35 $36 $37 $38 $39 $3a $3b $3c $3d $3e $3f
; $40 $41 $42 $43 $44 $45 $46 $47 $48 $49 $4a $4b $4c $4d $4e $4f
; $50 $51 $52 $53 $54 $55 $56 $57 $58 $59 $5a $5b $5c $5d $5e $5f
; $60 $61 $62 $63 $64 $65 $66 $67 $68 $69 $6a $6b $6c $6d $6e $6f
; $70 $71 $72 $73 $74 $75 $76 $77 $78 $79 $7a $7b $7c $7d $7e $7f
; $80 $81 $82 $83 $84 $85 $86 $87 $88 $89 $8a $8b $8c $8d $8e $8f
; $90 $91 $92 $93 $94 $95 $96 $97 $98 $99 $9a $9b $9c $9d $9e $9f
; $a0 $a1 $a2 $a3 $a4 $a5 $a6 $a7 $a8 $a9 $aa $ab $ac $ad $ae $af
; $b0 $b1 $b2 $b3 $b4 $b5 $b6 $b7 $b8 $b9 $ba $bb $bc $bd $be $bf
; $c0 $c1 $c2 $c3 $c4 $c5 $c6 $c7 $c8 $c9 $ca $cb $cc $cd $ce $cf
; $d0 $d1 $d2 $d3 $d4 $d5 $d6 $d7 $d8 $d9 $da $db $dc $dd $de $df
; $e0 $e1 $e2 $e3 $e4 $e5 $e6 $e7 $e8 $e9 $ea $eb $ec $ed $ee $ef
; $f0 $f1 $f2 $f3 $f4 $f5 $f6 $f7 $f8 $f9 $fa $fb $fc $fd $fe $ff
; $00 $01 $02 $03 $04 $05 $06 $07 $08 $09 $0a $0b $0c $0d $0e $0f
; $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $1a $1b $1c $1d $1e $1f
; $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $00 $00
;码制转换
;范例60
;地址 $90 1 2 3 4 5 6 7 8 9 a b c d e f $a0
;ascii码数据 P i , A S , +/- x x x x . x x k g
.EQU DPNT=$90 ;the first ascii character addr.
;DataPoint(.'sit):$a0/weighing unit:$a1,$a2
;P1-P4'no.:$a6$a7--$ac$ad/max.no.:$ae$af
.EQU TPTR=$b0 ;the first total(total1($b0-$b3)) addr.
.EQU CPTR=$C0 ;print char. buffer addr.
.EQU SREG=$3F
.EQU SPH=$3E
.EQU SPL=$3D
ACUM: CLR R29
CLR R27 ;ASCII码存放区为$90-9F
LDI R26,$90
LD R16,X
CPI R16,$50 ;P打头方为有效
BRNE ACRT
ADIW R26,2 ;指向$92
LD R16,X
CPI R16,$2C ;是'，'?
BREQ DOP0
ACRT: SET ;非法数据!
RET
DOP0: LDI R17,4
LDI R26,$99 ;设指针，寻找小数点
DOP1: LD R16,X+
CPI R16,$2E
BREQ DOP3 ;找到'.'
DOP2: DEC R17
BRNE DOP1
DOP3: LDI R28,$A0 ;小数点放入$A0，1,2,3,4表示小数点后有1,2,3,4位数据
ST Y+,r17 ;0表示无小数点
LDI R26,$9E ;指向质量单位
LD R17,X+
ST Y+,R17
LD R17,X+
ST Y,R17 ;质量单位(kg/ t)-->$a1,$a2
LDI R28,11
CLR R9
CLR R10
CLR R11 ;予请除，存放BCD码
LDI R26,$9E
F1: LD R16,-X ;减1后指向$9d!
CPI R16,$2E ;从低位到高位顺序将ASCII转为BCD，两两合成1字节压缩BCD码
BREQ F1 ;遇到小数点跳过
F2: BRCS FEND ;遇空格/+/-等结束
SUBI R16,$30 ;十进制数ascii变bcd
MOV R12,R16
ST Y,R16
F3: LD R16,-X
CPI R16,$2E
BREQ F3
F4: BRCS FEND ;小于$2E转换结束
SUBI R16,$30
SWAP R16
ADD R16,R12
ST Y,R16
DEC R28
CPI R28,8
BRNE F1
FEND: MOV R17,R9
OR R17,R10
OR R17,R11
BREQ ACRT ;0数据转出
RCALL CONV2 ;整数二翻十(r9r10r11-->r13r14r15)
MOV R5,R13
MOV R6,R14
MOV R7,R15
CLR R12
LDS R16,$96 ;取数据符号
CPI R16,$2d ;'-'ASCII码
BRNE F09
LDI R26,16
RCALL NEG4 ;负数取补
F09: LDI R26,$91 ;指向数据序号ASCII码
LD R16,X+
SUBI R16,$31 ;将ASCII码序号$31--$34变为0--3,
CPI R16,4
BRCC FRET ;大于3为无效
MOV R9,R16 ;暂存
LSL R16
LSL R16 ;乘4
LDI R26,$B0 ;$B0为第一个累加和首地址(TPTR)
ADD R26,R16 ;得到实际首地址
LDI R16,4
LDI R28,16 ;数据指针
CLC
LACM: LD R17,X ;取累加和一字节数据
LD R10,-Y
ADC R17,R10
ST X+,R17
DEC R16
BRNE LACM ;r12,13,14,15 加入累加和
LSL R9 ;序号乘2
LDI R26,$AE ;指向最大累加次数
LDI R28,$A6 ;指向第一个累加次数
ADD R28,R9 ;指向实际累加次数
LD R11,X+
LD R10,X ;取最大累加次数（2字节）
LD R13,Y
INC R13 ;实际累加次数增1
ST Y+,R13 ;低位字节送回
LD R12,Y
TST R13
BRNE F10
INC R12 ;低位字节增1后为0，高位字节增1
ST Y,R12
F10: SUB R11,R13
SBC R10,R12 ;与最大累加次数相比较
BRCC F12
ST X,R12
ST -X,R13 ;存最大累加次数
F12: MOV r15,r7
MOV r14,r6
MOV r13,r5
LDI R17,$98 ;予设阶码（假定为24位整数）
MOV R12,R17
F120: SBRC R13,7
RJMP F13
LSL R15
ROL R14
ROL R13
DEC R12
RJMP F120
F13: LDS R0,$A0 ;取小数点位数(0,1,2,3,4)
TST R0
BREQ F14 ;整数转
F130: RCALL G01 ;取浮点数0.1（范例70）
RCALL FPMU ;（范例65）
DEC R0
BRNE F130 ;小数点位置决定乘几个0.1
F14: LDS R16,$96
CPI R16,$2B ;负数？
BRNE F9
LDI R16,$7F
AND R13,R16 ;正数清除数符位
F9: CLT ;合法数据出口（T=0）
RET
FRET: SET ;非法数据出口（T=1）
RET
NEG4: LDI R16,4 ;4字节二进制数据求补
CLC
NG4L: CLR R17
LD R11,-X ;X-1指向最低位字节
SBC R17,R11
ST X,R11
DEC R16
BRNE NG4L
RET

FLSPC: LDI R26,$C0 ;准备一行空格字符，为打印一行空格做准备
CLR R31
LDI R16,$20 ;SPC
FSLOP: ST X+,R16
CPI r30,$d0
BRNE FSLOP
LDI R16,$0D ;$0D-->($D0)
ST X+,R16
LDI R16,$0A ;$0A-->($D1)
ST X+,R16
RET
BRDT: RCALL CONV1A ;二翻十并将压缩BCD码转换为ASCII码
RCALL FLSPC
LDI R28,$A3 ;$A1,$A2 is the weighing unit
CLR R29 ;取质量单位到打印数据存储区
LDI R26,$D0
LD R16,-Y
ST -X,R16 ;'g'-->($D0-1)
LD R16,-Y
ST -X,R16 ;取质量单位：（$A1)-->$ce &($A2)-->$CF
LD R10,-Y ;取小数点位置：($A0)->R10
LP59: LDI R28,15
LP60: LD R16,Y
RCALL BTOA ;低位BCD变为ASCII码
LD R16,Y
RCALL BTOA0 ;高位BCD变为ASCII码
DEC R28
CPI R28,10 ;r11,12,13,14,15 都分解完毕?
BRNE LP60
DL30H: LDI R26,$C5
BRTC DL300 ;数据为负？
LDI R16,$2D
ST X,R16 ;负数加'-'，送入$C5
CLT ;并清除负数标志
DL300: INC R26
LD R16,X
CPI R16,$30
BRCS DL300 ;去掉数据头无效的零ASCII码$30
DL301: CPI R16,$30
BRNE DLRT ;非零结束
INC R26
LD R16,X
CPI R16,$30
BRCS DLRT ;小于$30结束(质量单位 t)
CPI R16,$3A
BRCS DL302 ;大于$3A结束(质量单位kg)
DLRT: RET
DL302: DEC R26
LDI R16,$20 ;无效零充以空格
ST X+,R16
LD R16,X
RJMP DL301
BTOA0: SWAP R16
BTOA: ANDI R16,15
SUBI R16,$D0 ;加$30变为ASCII码
ST X,R16
DEC R26
DEC R10
BRNE BART
LDI R16,$2E ;加入小数点ASCII码
ST X,R16
DEC R26
BART: RET

PRAV: LDI R17,4 ;打印4组平均数据
MOV R0,R17
DEC R0
PRV: MOV R17,R0
LSL R17
LSL R17 ;组别序号之偏移量
LDI R26,$B0 ;TOTAL1首趾
ADD R26,R17 ;得到实际组别之首地址
LDI R28,16 ;将TOTAL取入 R12R13R14&R15
CLR R10
BRV: LD R16,X+
ST -Y,R16
OR R10,R16
NOC: CPI R28,12
BRNE BRV
TST R10
BREQ NBR ;TOTAL为零不打印!
BRV1: BST R12,7 ;数符位送入T
BRTC BRV2
LDI R26,16
RCALL NEG4 ;负数求补
BRV2: MOV R26,R0
LSL R26
SUBI R26,-$A6 ;取本组累加和之累加次数（第一组从$A6开始）
LD R11,X+
LD R10,X+
RCALL DIV24 ;计算平均值（在r13r14r15中）
CLR R7
MOV R8,R13
MOV R9,R14
MOV R10,R15 ;r11r12r13r14r15<--r7r8r9r10
RCALL BRDT ;二翻十，再将BCD码转为ASCII码，如为负数将'-'装入$c5!
LDI R26,$C5
LDI R16,$56 ;'V'
ST -X,R16 ;start from $c4!
LDI R16,$41 ;'A'
ST -X,R16
LDI R16,$2C ;','
ST -X,R16
MOV R16,R0 ;i(=1/2/3/4)
SUBI R16,$CF ;加上$31
ST -X,R16
LDI R16,$50
ST -X,R16 ;'P'
RCALL PR1 ;打印一行
NBR: DEC R0
BRNE PRV
RET
PRNO: RCALL FLSPC ;打印最大累加次数（整数），不加小数点
LDI R26,$CD ;存放ASCII码指针
LDI R28,$AE ;指向最大累加次数
LD R10,Y+
LD R9,Y ;最大累加次数取到R9R10
CLR R8
CLR R7
RCALL CONV1A ;二进制数变为BCD码
BRN: CLR R10 ;不加 '.'
RCALL LP59 ;转为ASCII码
LDI R26,$C4
LDI R16,$2E ;'.'
ST -X,R16
LDI R16,$4F ;'O'
ST -X,R16
LDI R16,$4E
ST X,R16 ;'N'，加上‘NO.’后
RJMP PR1 ;打印

PRTL: LDI R17,4
MOV R0,r17 ;取序号之偏移量
DEC R0
PRL: MOV R17,R0
LSL R17
LSL R17 ;乘4：累加和为4字节
CLR R27
LDI R26,$B0 ;第一个累加和TOTAL1之首地址
ADD R26,R17 ;累加和之实际地址
CLR R15
LDI R28,11
BRL: LD R16,X+
ST -Y,R16
OR R15,R16
CPI R28,7
BRNE BRL ;累加和取到r7r8r9r10
NINC: TST R15
BREQ NBL ;累加和为零，不打印
BST R7,7
BRTC BRTL1
LDI R26,11
RCALL NEG4 ;累加和为负数，取补
BRTL1: RCALL BRDT ;BCD转为ASCII
LDI R26,$C5
LDI R16,$4C ;加'L'
ST -X,R16
LDI R16,$54 ;加'T'
ST -X,R16
LDI R16,$2C
ST -X,R16 ;加','
MOV R16,R0
SUBI R16,$CF ;i(=1/2/3/4)/加上$30变为ASCII码
ST -X,R16
LDI R16,$50
ST -X,R16 ;加'P'
RCALL PR1 ;打印一行累加和数据（一个TOTAL）
NBL: DEC R0
BRNE PRL ;共打印4行
RET

PR1: LDI R26,$C0 ;打印区首地址
CLR R27
LDI R16,$28 ;允许UART发送，允许发送寄存器空中断，8位数据
OUT UCR,R16
SEI ;使能总中断
RET
CONV1A: LDI R17,32 ;整数二翻十(最大$FFFFFFFF=4294967295)
MOV R0,R17
CLR R11
CLR R12 ;r11r12r13r14r15(BCD)<--(r7r8r9r10二进制)
CLR R13
CLR R14
CLR R15 ;十进制数存储区清除
CV1A: LSL R10
ROL R9
ROL R8
ROL R7 ;二进制数左移一位
MOV R16,R15
RCALL LSDAA
MOV R15,R16
MOV R16,R14
RCALL LSDAA
MOV R14,R16
MOV R16,R13
RCALL LSDAA
MOV R13,R16 ;十进制数带进位左移并调整
MOV R16,R12
RCALL LSDAA
MOV R12,R16
MOV R16,R11
RCALL LSDAA
MOV R11,R16
DEC R0
BRNE CV1A
RET
;范例61 ;格雷码与二进制数相互转换
GTB8: LDI R16,7 ;8格雷码（在R17中）翻为二进制数
CLR R15
LSL R17
ADC R17,R15 ;将左移移出位加到末位上
GB1: SBRC R17,0
SUBI R17,$80 ;Bi⊕G(i+1)-->B(i+1)
GB2: LSL R17
ADC R17,R15 ;将左移移出位加到末位上
DEC R16
BRNE BG1 ;循环7次，结束
RET ;二进制数在r17中

GTB9: LDI R16,8 ;9位格雷码（最高位在进位C，低8位在R17中）翻为二进制数
CLR R15
INC R15 ;1-->r15
ROL R17 ;9位格雷码带进位循环左移一位
GB90: ROL R17 ;the ORIGINAL highest bit->r17,1 AT THE FIRST!
SBRC R17,1
EOR R17,R15 ;Bi⊕G(i+1)-->B(i+1)
DEC R16
BRNE GB90
RET ;结果仍在进位C和r17中

BTG8: LDI R16,7 ;8位二进制数翻为格雷码
CLR R15
INC R15 ;1-->r15
CLC
ROL R17 ;0-->r17,0&B1-->C
BRCC BGLOP
INC R17 ;B1-->r17.0
BGLOP: ROL R17
BRCC BG4
EOR R17,R15 ;Bi⊕B(i+1)-->G(i+1)/FOR EXAMPLE:(1110-->1001)
BG4: DEC R16
BRNE BGLOP
RET ;结果在R17
AVR浮点程序库
;范例62
.ORG $A00
EXCH: MOV R5,R8 ;两浮点数交换子程序
MOV R8,R12
MOV R12,R5
EXCH1: MOV R5,R9 ;尾数交换
MOV R9,R13
MOV R13,R5
MOV R5,R10 ;双字节交换
MOV R10,R14
MOV R14,R5
MOV R5,R11
MOV R11,R15
MOV R15,R5
RET
DP: ANDI R16,$7F ;处理积/商数符，计算积/商阶码子程序
SBRC R9,7
SUBI R16,$80
SBRC R13,7
SUBI R16,$80 ;积/商符号放在r16,7
ADD R12,R8 ;移码相加（除数阶码已求补）
LDI R17,$80
BRCC DP1
ADD R12,R17 ;移码求和有进位，将和再加上$80,再有进位为溢出
RET
DP1: SUB R12,R17 ;移码求和无进位，将和减去$80,有借位
RET ;或差为0也为溢出
NEG3: COM R15 ;3字节数据求补
COM R14 ;先求反后加1
COM R13
INC3: LDI R17,255
SUB R15,R17 ;以减去-1代替加1
SBC R14,R17
SBC R13,R17
RET
;范例63 ;浮点数比较大小子程序 X1为被减数 X2为减数
FPCP: SBRC R9,7 ;X1为正，跳行
RJMP CP1
SBRC 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时X1CP1: SBRC R13,7
RJMP CP3 ;两负数比较,转
CP2: CP R13,R9 ;正数与负数比较,只比较尾数高位字节即可
RET
CP3: CP R15,R11 ;X1,X2皆为负，以尾数低位字节，中位字节，高位字节和
CPC R14,R10 ;阶码的顺序（按无符号数）进行比较
CPC R13,R9 ;但要将X1、X2交换位置后按正数比较过程进行
CPC R12,R8
CP4: RET ;比较结果：Z=1时X1=X2，否则C=0时X1>X2,C=1时X1 ;范例64
FPSU: LDI R17,$80 ;浮点减法子程序
SUB R13,R17 ;减数数符求反后作为加数
FPAD: TST R8 ;浮点加法子程序
BREQ DON1 ;被加数为0，加数为和
TST R12
BRNE FPLAD ;加数为0，取被加数为和
SAV0: MOV R12,R8 ;传送被加数取代加数
MOV R13,R9
MOV R14,R10
MOV R15,R11
DON1: RET
FPLAD: ANDI R16,$3f ;清除被加数，加数数符
SBRC R9,7
ORI R16,$80 ;被加数数符取到(R16,7)
SBRC R13,7
ORI R16,$40 ;加数数符取到(R16,6)
LDI R17,$80
OR R9,R17
OR R13,R17 ;恢复尾数最高位
MOV R17,R12
SUB R17,R8 ;计算阶差
BREQ GOON ;两阶相等，转
BRCC NX3
NEG R17 ;不够减求补
CPI R17,24
BRCC EXAD ;|阶差|>24,取被加数为和
NX2A: LSR R13
ROR R14
ROR R15
DEC R17
BRNE NX2A ;加数阶小，右移加数对阶
MOV R12,R8 ;取被加数阶为和之阶
BRCC GOON
RCALL INC3 ;舍入移出位
RJMP GOON
NX3: CPI R17,24
BRCC COM1 ;阶差>24,取加数为和
LOOP: LSR R9
ROR R10
ROR R11
DEC R17
BRNE LOOP ;加数阶大，右移被加数对阶
BRCC GOON
RCALL INC3A ;舍入移出位
GOON: SBRC R16,6
SUBI R16,$80
SBRS R16,7 ;判别两数是否同号
RJMP SAMS ;同号转
SUB R15,R11 ;异号，执行减法，加数为被减数
SBC R14,R10
SBC R13,R9
BRCC NOM ;够减转
SUBI R16,$40 ;否则被减数数符求反为和之数符
RCALL NEG3 ;并将差求补
NOM: MOV R17,R13
OR R17,R14
OR R17,R15
BREQ DON0 ;差为0转
NMLOP: SBRC R13,7
RJMP COM1
LSL R15
ROL R14
ROL R13
DEC R12
BRNE NMLOP ;规格化
OV1: SEV ;阶码变为0，下溢（可取为0，不算溢出）
RET
SAMS: ADD R15,R11
ADC R14,R10
ADC R13,R9 ;两数同号，执行加法
BRCC COM1
ROR R13
ROR R14
ROR R15
INC R12 ;有进位时右规1次($7F+1=$80溢出)
BREQ OV1 ;阶码增1后变为0为上溢
BRNC COM1
RCALL INC3
COM1: CLV
SBRC R16,6
RET
COMA: LDI R17,$7F
AND R13,R17 ;正数数符为0
DON: RET
EXAD: RCALL SAV0 ;取被加数为和
SBRS R16,7
RJMP COMA ;配置数符
RET
DON0: CLR R12 ;浮点数为0
RET
;范例65 ;浮点乘法子程序
FPMU: TST R8
BREQ M0 ;被乘数为0，积为0
TST R12
BRNE M1 ;乘数为0，积也为0
M0: RJMP G0
M1: RCALL DP ;处理积符号，计算积之阶码
BRCS OV2
BREQ OV2 ;判断溢出
LDI R17,$80
OR R9,R17
OR R13,R17 ;恢复尾数最高位
MOV R5,R13
MOV R6,R14
MOV R7,R15 ;乘数转入R5，R6，R7
LDI R17,25 ;设右移部分积次数
CLR R13
CLR R14
CLR R15 ;r13r14r15清除,存放积
CLC
LOOP1: BRCC M2
ADD R15,R11
ADC R14,R10
ADC R13,R9 ;乘数右移移出位为1,被乘数加入部分积1次
M2: ROR R13
ROR R14
ROR R15
ROR R5
ROR R6
ROR R7 ;部分积连同乘数右移1位
DEC R17
BRNE LOOP1 ;尾数相乘计算完成？
SBRC R13,7
RJMP M3 ;乘积最高位为1 转
ROL R5
ROL R15
ROL R14
ROL R13 ;乘积最高位为0，高4位字节左移1位
SBRS R5,7
RJMP M5
RCALL INC3 ;末位字节舍入
BRNE M5
SEC ;舍入后R13变为0
ROR R13 ;将其改为$80(即0.5)
RJMP COM2
M5: DEC R12 ;舍入后R13不为0
BRNE COM2 ;阶码减1
OV2: SEV ;变为0为溢出
RET
M3: SBRC R5,7
RCALL INC3 ;乘积低3位字节舍入
COM2: LDI R17,$7F
SBRS R16,7
AND R13,R17 ;正数将符号位请除
DON2: CLV
RET
;范例66
FPDI: TST R12 ;浮点除法子程序
BREQ OV3 ;除数为0,溢出
TST R8
BRNE D1
RJMP G0 ;被除数为0,商为0
D1: NEG R12 ;除数阶码求补，以加补码代替减原码
RCALL DP ;处理商符号，计算商之阶码
BRCS OV3
BREQ OV3 ;判断溢出
LDI R17,$80
OR R9,R17
OR R13,R17 ;恢复尾数最高位
FPD3: LDI R17,25 ;左移相减试商25次，最后1次舍入
SUB R11,R15
SBC R10,R14
SBC R9,R13
BRCS D2 ;第一次尾数相减试商
INC R12 ;够减，商阶增1
SEC
BRNE D3 ;商阶增1后不为0，转计商；否则为溢出
OV3: SEV
RET
D2: ADD R11,R15
ADC R10,R14
ADC R9,R13 ;不够减则恢复被除数
LOOP2: LSL R11
ROL R10
ROL R9 ;被除数算术左移
BRCS D4 ;进位位为1，够减，本位商1
SUB R11,R15
SBC R10,R14
SBC R9,R13 ;否则相减试商
BRCS D2A
SEC
RJMP D3 ;够减，本位商1
D2A: ADD R11,R15 ;不够减，恢复被除数
ADC R10,R14
ADC R9,R13
CLC ;本位商0
RJMP D3
D4: SUB R11,R15
SBC R10,R14
SBC R9,R13 ;被除数减去除数
D3: DEC R17
BRNE D5 ;除法未完成，循环(1-1=0,不溢出)
MOV R13,R5
MOV R14,R6
MOV R15,R7 ;取回商
BRCC COM3
RCALL INC3 ;第25位商舍入（$800000-$FFFFFF不溢出，故INC3不会溢出！）
COM3: LDI R17,$7F
SBRS R16,7
AND R13,R17 ;配置商数符
DON3: RET
D5: ROL R7 ;在R5，R6，R7中记商（不必预先清除）
ROL R6
ROL R5 ;商数左移1位并记商
RJMP LOOP2
;范例67
FPSQ: ANDI R16,$7F ;模拟手算开平方子程序
SBRC R13,7
ORI R16，$80 ;负数建虚根标志
FPS0: TST R12
BREQ DON4 ;0的平方根为0
LDI R17,$80
OR R13,R17 ;恢复尾数最高位
LSR R12 ;阶码算术右移1位
BRCC FSQ2
INC R12 ;移出位舍入
RCALL INC3 ;先将位数增1（提前舍入）
BRCS FSQ1 ;C=1，不够减
SEC
ROR R13 ;若尾数变为0将其改为0.5($80-->r13)
RJMP FSQ2
FSQ1: LSR R13
ROR R14
ROR R15 ;否则将为数算术右移
FSQ2: LDI R17,25 ;开出25位根,末位舍入
MOV R8,R17
LDI R17,$40
ADD R12,R17 ;根恢复为移码
CLR R5
CLR R6
CLR R7 ;根扩展区清除
CLR R9
CLR R10
CLR R11 ;根存储区清除
FSQ3: SUB R13,R17
SBC R7,R11
SBC R6,R10
SBC R5,R9 ;试根
BRCS FSQ3A
SEC
RJMP FSQ4 ;够减，本位根1
FSQ3A: ADD R13,R17
ADC R7,R11
ADC R6,R10
ADC R5,R9 ;否则恢复开平方数之尾数
CLC ;本位商0
FSQ4: DEC R8
BRNE FSQ5 ;开出第25位根?
FQDON: MOV R13,R9
MOV R14,R10
MOV R15,R11 ;回送根尾数
BRCC COM4
RCALL INC3 ;第25位根舍入
COM4: LDI R17,$7F
AND R13,R17 ;根尾数为正数
DON4: RET
FSQ5: ROL R11
ROL R10
ROL R9 ;根尾数带进位左移,记根

LSL R15
ROL R14
ROL R13
ROL R7
ROL R6
ROL R5
LSL R15
ROL R14
ROL R13
ROL R7
ROL R6
ROL R5 ;开平方数之尾数连同扩展区左移2位
BRCC FSQ3 ;未产生进位，循环
RJMP FQDON ;否则进位为第25位根（不须试,并结束子程序）！
;范例68 ;牛顿迭代开平方子程序
FSQR: TST R12
BREQ SQRT ;0的平方根为0
ANDI R16,$7E
SBRC R13,7
ORI R16,$80 ;虚根标志
SBRC R12,0
INC R16 ;阶码为奇数
LDI R17,$7F
AND R13,R17 ;尾数变为正数
LSR R12
LDI R17,$40
ADC R12,R17 ;得到根之移码
PUSH R12 ;暂存
LDI R17,$80
MOV R12,R17
SBRC R16,0
INC R12 ;得到X1的阶码(0.5≤X1<2)
RCALL LD1 ;存 X1
LSR R13
ROR R14
ROR R15
LDI R17,$40
SBRS R16,0 ;阶码为奇数时算术右移尾数即得到X1之尾数；否则将其最
;高位字节加上$40
OR R13,R17 ;得到首次根r0=(1+x1)/2
LDI R17,3
MOV R0,R17 ;迭代3次
FSQLP: RCALL LD2
RCALL GET1
RCALL FPDI
RCALL GET2
RCALL FPAD
DEC R12 ;计算r(i+1)=(x1/ri+ri)/2
DEC R0
BRNE FSQLP ;r3的尾数为根之尾数
POP R12 ;取回根之阶码
SQRT: RET ;r16,7=1 为虚数根
;范例69 ;基本运算程序的演示程序
DMST1: .EQU SPL=$3D
.EQU SPH=$3E
LDI R16,2 ;high(ramend)
OUT SPH,R16
LDI R16,$5F ;low(ramend)
OUT SPL,R16
LDS R11,$60 ;r11,7:数符 r11,6 ：阶符 r11,5--0:阶(最大为38)
LDS R12,$61 ;r12-r15:尾数
LDS R13,$62
LDS R14,$63
LDS 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,$67
LDS R14,$68
LDS R15,$69
RCALL DTOB ;转为二进制浮点数
RCALL GET2 ;取第一操作数
RCALL FPAD ;调基本运算子程序之一(FPSU/FPMU/FPDI)
RCALL BTOD ;转回十进制浮点数
DMRET: RJMP DMRET
;范例70 ;辅助子程序
KP2: MOV R8,R12 ;复制第二操作数
MOV R9,R13
MOV R10,R14
MOV R11,R15
RET
LD1: STS $70,R12 ;存浮点数
STS $71,R13
STS $72,R14
SYS $73,R15
RET
LD2: STS $74,R12 ;存浮点数
STS $75,R13
STS $76,R14
STS $77,R15
RET
LD3: STS $78,R12 ;存浮点数
STS $79,R13
STS $7A,R14
STS $7B,R15
RET
GET1: LDS R8,$70 ;取浮点数
LDS R9,$71
LDS R10,$72
LDS R11,$73
RET
GET2: LDS R8,$74 ;取浮点数
LDS R9,$75
LDS R10,$76
LDS R11,$77
RET
GET3: LDS R8,$78 ;取浮点数
LDS R9,$79
LDS R10,$7A
LDS R11,$7B
RET
INVPI: LDI R17,$86 ;取浮点数180/л
MOV R8,R17
LDI R17,$65
MOV R9,R17
LDI R17,$2E
MOV R10,R17
LDI R17,$E1
MOV R11,R17
RET
G90: LDI R17,$87 ;取浮点数90
MOV R8,R17
LDI R17,$34
MOV R9,R17
CLR R10
CLR R11
RET
DTOR: RCALL PI18 ;角度化为弧度
RJMP FPMU
RTOD: RCALL INVPI ;弧度化为角度
RJMP FPMU
GHPI: LDI R17,$81 ;取浮点数л/2
MOV R8,R17
LDI R17,$49
MOV R9,R17
LDI R17,$0f
MOV R10,R17
LDI R17,$DB
MOV R11,R17
RET
G01: LDI R17,$7D ;取浮点数0.1
MOV R8,R17
LDI R17,$4C
MOV R9,R17
LDI R17,$CC
MOV R10,R17
LDI R17,$CD
MOV R11,R17
RET
G1: LDI R17,$81 ;取浮点数1
MOV R8,R17
CLR R9
CLR R10
CLR R11
RET
PI18: LDI R17,$7B ;取浮点数л/180
MOV R8,R17
LDI R17,$0E
MOV R9,R17
LDI R17,$FA
MOV R10,R17
LDI R17,$35
MOV R11,R17
RET
GINT: LDI R17,R12 ;浮点数取整
CPI R17,$81
BRCC GINT1
RCALL G0 ;阶码<$81,结果为0
RJMP KP2
GINT1: ANDI R16,$DD
SBRC R13,7
ORI R16,2 ;记数符
CPI R17,$98
BRCC GOVER ;阶码>$97,溢出
RCALL BRK ;分解出整数部分（在R9 R10 R11）
SBRS R16,1
RET ;正数返回
NEG3A: COM R11 ;负数求(r9 r10 r11)之补
COM R10
COM R9
INC3A: LDI R17,255
SUBI R11,R17
SBCI R10,R17
SBCI R9,R17 ;求反后加1
RET
GOVER: ORI R16,$20 ;设整数部分超过23位标志
RET
BRK: ANDI R16,$DF ;将正浮点数分解为整数/小数两部分
LDI R17,$80
OR R13,R17 ;恢复尾数最高位
CLR R9
CLR R10
CLR R11
MOV R17,R12
SUBI R17,$80
BREQ BRKRT
BRCS LOOPT
CPI R17,$19 ;整数部分超过24位
BRCC GOVER ;为溢出
LOOP4: LSL R15
ROL R14
ROL R13
ROL R11
ROL R10
ROL R9
DEC R17
BRNE LOOPT ;左移位数为阶码-$80,整数部分进入r9-r11中
BRKRT: RET
LOOPT: LSR R13 ;只有小数部分右移尾数（$80-阶码）位
ROR R14
ROR R15
INC R17
BRNE LOOPT
RET
NRML: ANDI R16,$BF ;1字节正整数（在R13中）规格化为浮点数
CLR R14
CLR R15
LDI R12,$88 ;设阶码
RJMP NMLOP
G10: LDI R17,$84 ;取浮点数10
MOV R8,R17
LDI R17,$20
MOV R9,R17
CLR R10
CLR R11
RET
GLN2: LDI R17,$80 ;取浮点数ln2(=0.6931471806)
MOV R8,R17
LDI R17,$31
MOV R9,R17
LDI R17,$72
MOV R10,R17
LDI R17,$18
MOV R11,R17
RET
GLN10: LDI R17,$82 ;取浮点数ln10(=2.302585093)
MOV R8,R17
LDI R17,$13
MOV R9,R17
LDI R17,$5D
MOV R10,R17
LDI R17,$8E
MOV R11,R17
RET
INVX: TST R12 ;计算1/X, X=0时溢出
BRNE INV
OV4: SEV
RET
INV: RCALL G1 ;取1
RJMP FPDI
;范例71 ;用荷纳法计算多项式值子程序
FPLN1: ORI R16,$10 ;设计算奇函数(lnx,sinx,arcsinx 等)标志
RCALL LD3 ;存X
RCALL KP2
RCALL FPMU ;计算X2
RJMP FLN0 ;
FPLN2: ANDI R16,$EF ;设计算偶函数(EXP,COSX等)标志
FLN0: RCALL LD1 ;存T,T=X 或T=X2
POP R30
POP R31 ;系数表数据地址进入Z
LSL R30
ROL R31 ;由按字取数变为按字节取数
LPM ;r0<--(z)取阶码
MOV R8,R0
ADIW R30,1 ;指针增1
LPM ;取尾数高位字节
MOV R9,R0
ADIW R30,1 ;z+1
LPM ;取尾数中位字节
MOV R10,R0
ADIW R30,1 ;z+1
LPM ;取尾数低位字节
MOV R11,R0 ;取浮点数到r8 r9 r10&r11
ADIW R30,1 ;z+1
PLN: RCALL M1 ;计算(....((An*T+A(n-1))*T+A(n-2))*T+....+Ai)*T
LPM
MOV R8,R0
ADIW R30,1
LPM
MOV R9,R0
ADIW R30,1
LPM
MOV R10,R0
ADIW R30,1
LPM
MOV R11,R0 ;取A(i-1)
ADIW R30,1
RCALL FPLAD ;计算(....((An*T+A(n-1))*T+A(n-2))*T+....+Ai)*T+A(i-1)
LPM
RCALL GET1
DEC R0
BRNE PLN ;1为停止符号；否则继续计算
PEND: SBRS R16,4
RJMP REND
RCALL GET3 ;奇函数取出自变量
RCALL M1 ;自变量乘以计算结果才是函数值
REND: LSR R31
ROR R30 ;Z指针折半后
ADIW R30,1 ；增1为后继指令地址
IJMP ;转到该地址去执行
;范例72
LNX: TST R12 ;对数函数子程序
BREQ OV5
SBRS R13,7
RJMP LN1
OV5: SEV ;求负数或0的对数为错误
RET
LN1: ANDI R16,$7E ;R16,7:（T-1）/(T+1)或(2T-1)/(2T+1)之符号 R16，0:p之符号
; m
MOV R0,R12 ;设X=2 *T, 则LnX=m*Ln2+LnT,存入p=m
LDI R17,$F3
CP R15,R17
LDI R17,$04
CPC R14,R17
LDI R17,$35
CPC R13,R17 ; _
BRCC LN5 ;T>√2/2时跳转
DEC R0 ;取p=m-1 LnX=(m-1)*Ln2+LN(2T)
MOV R17,R15
OR R17,R14
OR R17,R13
MOV R12,R17
BREQ LN5A ;2T-1=0 只须计算(m-1)Ln2
RCALL KP2 ;R12 NOUSED!
LSL R9
ROL R10
ROL R11 ;(2T-1)
LSR R13
ROR R14
ROR R15
LDI R17,$80
OR R13,R17 ;2T+1
LDI R17,$7E
MOV R12,R17 ;取1/(2T+1)的阶码
RJMP LNTLP
LN5: ORI R16,$80 ;(T-1)为负，数符位改为1
RCALL KP2
RCALL NEG3A
LDI R17,$80
ADD R9,R17 ;计算(T-1)
LSR R13
ROR R14
ROR R15
LDI R17,$C0
OR R13,R17
LDI R17,$7F
MOV R12,R17 ;取1/(T+1)的阶码
LNTLP: LSL R11
ROL R10
ROL R9 ;(2T-1)或(T-1)规格化
DEC R12 ;调整(2T-1)/(2T+1))或(T-1)/(T+1)的阶码
SBRS R9,7
RJMP LNTLP
RCALL FPD3 ;计算(2T-1)/(2T+1)或(T-1)/(T+1) 位r16,7为商之数符
PUSH R0
RCALL 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 R12
POP R0
LN5A: LDI R17,$80
ADD R0,R17
BREQ LN53 ;p=$80结束
BRCS LN51
NEG R0
INC R16 ;p为负数
LN51: RCALL LD1 ;存LnT或Ln(2T)
MOV R13,R0
RCALL NRML ;|P|规格化
RCALL GLN2 ;取ln2
RCALL FPMU ;计算|p|*ln2
RCALL GET1 ;取LnT或Ln(2T)
SBRS R16,0
RJMP LN52
RCALL FPSU ;p<0 计算lnT-|p|*ln2或Ln(2T)-|p|*ln2
RET
LN52: RCALL FPAD ;p>0 计算lnT+|p|*ln2或Ln(2T)+|p|*ln2
LN53: RET
;范例73 ;对数衍生函数子程序
LGX: RCALL LNX ;计算lnx
RCALL GLN10 ;取ln10
RCALL EXCH
RJMP FPDI ;转计算lgx=lnx/ln10
LGAX: RCALL LD2 ;存a
RCALL EXCH
RCALL LNX ;计算lnx
RCALL GET2 ;取a
RCALL LD2 ;存lnx
RCALL EXCH
RCALL LNX ;计算lna
RCALL GET2 ;转计算logax=lnx/lna
RJMP FPDI
;范例74
EXP: MOV R17,R12 ;指数函数子程序
CPI R17,$68 ;X之阶<$68
E1: BRCC E2
RCALL G0
ROR R12 ;(R12)=$80
INC R12 ;取exp=1
RET
E2: ANDI R16,$3F ;r16,6:数符
SBRC R13,7
ORI R16,$40 ;负数
LDI R17,$7F
AND R13,R17 ;取正（取|X|）
LDI R17,$33
CP R15,R17
LDI R17,$0F
CPC R14,R17
LDI R17,$30
CPC R13,R17
LDI R17,$87
CPC R12,R17 ;|X|与88.02969 比较
BRCS E3 ;|X|<88.02969 转
SBRS R16,6
RJMP OV6
G0: CLR R12 ;若x<-88.02969
CLR R13
CLR R14 ;Exp=0
CLR R15
RET
OV6: SEV ;x>88.02969,Exp溢出
RET
E3: CLR R0 ;X整数部分予清除
LDI R17,$81
MOV R8,R17
LDI R17,$38
MOV R9,R17
LDI R17,$AA
MOV R10,R17
LDI R17,$3B
MOV R11,R17 ;取log2e(=1/ln2)
RCALL FPMU ;计算X/ln2
LDI R17,$80
SBRC R16,6
OR R13,R17
MOV R17,R12
CPI R17,$81
BRCS E6 ;X/ln2整数部分为0 转
RCALL BRK ;否则分解该数为整数I（在R11），小数F两部分
LDI R17,$80
MOV R12,R17
RCALL NOM ;小数部分规格化为浮点数
SBRC R16,6
NEG R11 ;整数部分求补
MOV R0,R11 ;
E6: PUSH R0
RCALL 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 R0
ADD R12,R0 ;整数部分I 加入阶码中
RET
;范例75 ;指数衍生函数子程序
DXP: RCALL GLN10 ;取ln10
RJMP EXP0 ;转计算EXP(X*ln10)
AXP: RCALL LD2 ;存X
RCALL EXCH
RCALL LNX ;计算lna
RCALL GET2 ;取出x
EXP0: RCALL FPMU
RJMP EXP ;转计算EXP(X*lna)

;范例76 ;双曲函数和反双曲函数子程序
SHX: RCALL SUB11 ;计算双曲正弦
RCALL FPSU
BRNE NX48
RET
CHX: RCALL SUB11 ;计算双曲余弦
RCALL FPAD
NX48: DEC R12
RET
SUB11: RCALL EXP
RCALL LD2
RCALL INVX
RJMP GET2
ASHX: RCALL SUB2 ;计算反双曲正弦
RCALL FPAD
ASH: RCALL FPSQ
RCALL GET2
RCALL FPAD
RJMP LNX
ACHX: RCALL SUB2 ;计算反双曲余弦
RCALL EXCH
RCALL FPSU
RJMP ASH
SUB2: RCALL LD2 ;存X
RCALL KP2
RCALL FPMU ;得到X2
RJMP G1 ;取浮点数1
; 范例77 ;正弦函数子程序
SINX: RCALL RTOD ;弧度化为角度
SINX1: CLR R16 ;X1为角度
SBRC R13,7
INC R16 ;存数符
LDI R17,$7F ;X1-->|X1|
AND R13,R17
NX30: RCALL G90
INC R8
INC R8 ;取360°
RCALL FPCP1 ;|X1|与360°比较
BREQ GE0 ;相等,转出
BRCC NX31 ;|X1|<360° 转出
RCALL EXCH
RCALL FPSU ;否则|X1|-360°-->|X1|
RJMP NX30 ;循环
NX31: DEC R8
RCALL FPCP1 ;|X1|与180°比较
BREQ GE0 ;相等,转出
BRCC NX32 ;|X1|<180°，转
RCALL EXCH
RCALL FPSU ;否则|X1|-180°-->|X1|
INC R16 ;将数符求反
NX32: RCALL G90
RCALL FPCP1 ;|X1|与90°比较
BRCC NX36
INC R8
RCALL FPSU ;|X1|>90°,取180°-|x1|-->|x1|
RJMP NX36
GE0: RJMP G0 ;|X1|=0 则sinX=0
NX36: RCALL DTOR ;变回弧度X
MOV R17,R12
CPI R17,$79 ;阶码<$79,sinX=X
BRCS PP2
RCALL 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,$80
SBRC R16,0
PP3: OR R13,R17 ;配置数符
DON6: RET
;范例78 ;衍生三角函数子程序
CTNX: RCALL RTOD ;弧度化为角度
CTNX1: RCALL TANX1 ;计算tgX
RJMP INVX ;取倒数为ctgX
TANX: RCALL RTOD ;弧度化为角度
TANX1: RCALL LD2 ;存X
RCALL SINX1 ;计算sinX
RCALL GET2 ;取X
RCALL LD2 ;存sinX
RCALL EXCH
RCALL COSX1 ;计算cosX
BRNE NX39
OV7: SEV
RET ;cosX=0,溢出
NX39: RCALL GET2 ;取sinX
RJMP FPDI ;tgX=sinX/cosX
COSX: RCALL RTOD ;弧度化为角度
COSX1: RCALL G90 ;取浮点数90°
RCALL FPSU
RJMP SINX1 ;cosX=sin(90-X)

;范例79 ;反正弦函数子程序
ASINX: MOV R17,R12
CPI R17,$78
BRCS DON6 ;X阶码<$78,acrsinX=X
ANDI R16,8 ;清除数符和|X|>0.5标志，保留计算acosx标志（R16，3）
SBRC R13,7
INC R16 ;记数符
LDI R17,$7F
AND R13,R17 ;取绝对值 X-->|X|
RCALL G1
RCALL FPCP1
BREQ AA
BRCC AA1
OV8: SEV ;|X>1,溢出
RET
AA: RCALL GHPI
RCALL EXCH
RJMP PP2 ;|X|=1,arcsinX=±л/2
AA1: MOV R17,R12
CPI R17,$80
BRNE AS1 ;|X|<0.5,y=|x|
MOV R17,R13
OR R17,R14
OR R17,R15
BREQ AS1 ;X=0.5,y=|x|
ORI R16,$20 ;X>0.5，建标
RCALL NEG3
LDI R17,$80
ADD R13,R17
LDI R17,$7F
MOV R12,R17 ;((1-|x|)/2)方根之阶最大为$7F
NRMLP: LSL R15
ROL R14
ROL R13
DEC R12
SBRS R13,7
RJMP NRMLP ; __________
RCALL FPS0 ;√(1-|X|)/2-->y
AS1: 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,5
RJMP PP2 ;|x|≤0.5 转配置数符，有acsin|x|=acsiny
INC R12 ;否则取2arcsiny(=arccosx)
SBRC R16,3 ;测试计算ARCCOSX的标志
RJMP ACSRT ;有计算ARCCOSX标志，转清除该标志（其余计算在ACOSX子程序中完成）
RCALL GHPI ;否则取л/2
AS2: RCALL FPSU ;|X|>0.5时,arcsin|X|=л/2 -2arcsiny
PP20: RJMP PP2 ;转去配置数符
;范例80 ;函数值为弧度的反三角函数子程序
ACOSX: ORI R16,8 ;设计算arccosx标志
RCALL ASINX ;调反正弦函数子程序
RCALL GHPI ;取л/2
SBRC R16,3 ;计算ARCCOS|X|标志未被清除？
RJMP AS3 ;是，转计算arccosx=л/2-arcsinx
SBRS R16,0 ;x>0且x>0.5
RJMP ACSRT ;有arccosx=2arcsiny!
INC R8 ;否则取л；即当x<0且|X|>0.5时,有arccosX=л-2arcsiny
AS3: RCALL FPSU
ACSRT: ANDI R16,$F7 ;清除计算arccosx标志
RET
ATANX: MOV R17,R12 ;反正切函数子程序
CPI R17,$98
BRCS AT1
RCALL GHPI ;X阶码大于$98,取л/2
RCALL EXCH
ROL R9
BRCC AT2
LDI R17,$80
OR R13,R17 ;arctgx=л/2
AT2: RET
AT1: MOV R17,R12
CPI R17,$74 ;X阶码小于$74,arctgX=X
BRCS AT2
RCALL KP2
RCALL LD1 ;存X
RCALL FPMU
RCALL G1
RCALL FPAD ; _______
RCALL FPSQ ;计算 √(1+X2)
RCALL GET1
RCALL FPDI
RJMP ASINX ;转计算arctgx=arcsin(X/√<(1+X2)
ACTNX: RCALL ATANX ;反余切函数子程序
RCALL GHPI
RJMP FPSU ;arcctgX=л/2-arctgx
;范例81 ;函数值为角度的反三角函数子程序
ASNX: RCALL ASINX ;反正弦函数子程序,结果以角度表示
RJMP RTOD
ACSX: RCALL ACOSX ;反余弦函数子程序,结果以角度表示
RJMP RTOD
ATNX: RCALL ATANX ;反正切函数子程序,结果以角度表示
RJMP RTOD
ACNX: RCALL ACTNX ;反余切函数子程序,结果以角度表示
RJMP RTOD
;范例82 ;函数计算子程序演示程序
DMST2: LDI R16,2
OUT SPH,R16
LDI R16,$5F ;堆栈指针初始化
OUT SPL,R16
LDS R11,$65 ;取操作数（自变量X）
LDS R12,$66 ;r11,7:数符 r11,6：阶符
LDS R13,$67 ;r11,5--0:阶(最大为38)
LDS R14,$68
LDS R15,$69 ;r12-r15:十进制尾数（8位BCD码）
RCALL DTOB ;翻为二进制浮点数
RCALL LNX ;调函数子程序之一
RCALL BTOD ;将函数值转为十进制浮点数
DMHER: RJMP DMHER
;范例83 ;阶乘子程序
NP: RCALL G1 ;取浮点数1
MOV R17,R12 ;二进制整数N在R12中
CPI R17,2 ;N<2,N！=1
BRCS GG
CPI R17,34
BRCS NX59
OV9: SEV ;N>33,溢出
RET
GG: RJMP SAV0 ;取N!=1
NX59: MOV R0,R12 ;存N
DEC R0 ;N-1
LDI R17,1
PUSH R17 ;取T=1 并存入
LDI R17,$81
STS $70,R17
CLR R17
STS $71,R17
STS $72,R17
STS $73,R17 ;存储浮点数1
L43: POP R13 ;取T
INC R13 ;T+1-->T
PUSH R13 ;存T
RCALL NRML ;T规格化
RCALL GET1 ;取阶段阶乘结果
RCALL FPMU ;得到当前T!
RCALL LD1
DEC R0
BRNE L43 ;T=N时得到N!
POP R0
RET
;范例84 ;长整数(r9,r10,r11,r12)规格化为浮点数
LINOM: BST R9,7 ;数符存于T
BRTC LI10
CLR R16 ;负数求补
SUB R16,R12
MOV R12,R16
CLR R16
SBC R16,R11
MOV R11,R16
CLR R16
SBC R16,R10
MOV R10,R16
CLR R16
SUB R16,R9
MOV R9,R16
LI10: LDI R16,$A0 ;取阶32（长整数共32位）
LP10: SBRC R9,7
RJMP NX63 ;最高位为1，已规格化
LSL R12
ROL R11
ROL R10
ROL R9 ;否则左规1位
DEC R16 ;阶码减1
CPI R16,$80
BRNE LP10
RJMP G0 ;左规达32次，浮点数为0
;范例85 ;定点十进制数翻为二进制浮点数
DTOB1: RCALL LD1 ;存入十进制小数
RCALL CONV2 ;定点整数十翻二
RCALL GET1 ;取出十进制小数
RCALL LD1
RCALL SAV0
RCALL CONV4 ;定点小数十翻二
RCALL GET1 ;取出二进制定点整数
LDI R16,$98 ;予设阶码
LP11: SBRC R9,7
RJMP NX63 ;最高位为1,已规格化
LSL R15
ROL R14
ROL R13
ROL R12
ROL R11
ROL R10
ROL R9 ;整数和小数部分左移一位
DEC R16 ;阶码减1
CPI R16,$60
BRNE LP11
RET ;得到浮点数0
NX63: MOV R13,R9
MOV R14,R10
MOV R15,R11 ;尾数取到r13-r15
SBRS R12,7
RJMP PP6
RCALL INC3 ;尾数截去部分舍入
BRNE PP6
INC R16 ;尾数变为0将阶码增1
SEC
ROR R13 ;$80-->r13，即将尾数变为0.5
PP6: 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，0
SBRC R11,7
ORI R16,2 ;数符存于R16，1
MOV R17,R11
ANDI R17,$3F ;取阶
MOV R0,R17 ;存于R0
MOV R8,R12
OR R8,R13
OR R8,R14
OR R8,R15
BREQ PP8 ;十进制浮点数尾数为0，取二进制浮点数0
PUSH R16
RCALL CONV4 ;十进制浮点数尾数翻为二进制定点小数
MOV R16,R15
MOV R15,R14
MOV R14,R13
MOV R13,R12 ;二进制定点小数转入r13r14r15r16
LDI R17,$80 ;予设阶码
MOV R12,R17
LP14: SBRC R13,7
RJMP NX67
LSL R16
ROL R15
ROL R14
ROL R13
DEC R12
RJMP LP14 ;二进制定点小数规格化为浮点数
NX67: SBRS R16,7
RJMP NX66
RCALL INC3 ;调整
BRNE NX66
INC R12
SEC ;调整后结果为0将其改为0.5
ROR R13 ;即$80-->r13
NX66: LDI R17,$7F
POP R16
SBRS R16,1
AND R13,R17 ;配置数符
SBRS R16,0
RJMP DBL4 ;正阶转
DBL1: LDI R17,$10
SUB R0,R17
BRCS DBL2
RCALL INVDP ;
RCALL FPMU ;阶码减10, X*10ˉ1o -->X
RJMP DBL1
DBL2: ADD R0,R17 ;不够减则恢复阶
BREQ PP8
DBL3: RCALL G01 ;取0.1
RCALL FPMU
DEC R0 ;X*0.1-->X,阶减1
BRNE DBl3
RET
DBL4: LDI R17,$10
SUB R0,R17 ;阶减10
BRCS DBL5
RCALL DDP ;X*101o -->X
RCALL FPMU
RJMP DBL4
DBL5: ADD R0,R17 ;不够减则恢复阶
BREQ PP8
DBL6: RCALL G10
RCALL FPMU
DEC R0 ;X*10-->X,阶减1
BRNE BDL6
PP8: RET
INVDP: LDI R17,$5F ;取浮点数10ˉ1o
MOV R8,R17
LDI R17,$5B
MOV R9,R17
LDI R17,$E6
MOV R10,R17
LDI R17,$FF
MOV R11,R17
RET ;
DDP: LDI R17,$A2 ;取浮点数101o
MOV R8,R17
LDI R17,$15
MOV R9,R17
LDI R17,$02
MOV R10,R17
LDI R17,$F9
MOV R11,R17
RET
;范例87 ;浮点数二翻十
BTOD: TST R12
BREQ PP4 ;转取十进制浮点数0
ANDI R16,$FC ;予清十进制浮点数数符及阶符(r16,1&0)
CLR R0 ;予清十进制浮点数之阶
SBRC R13,7
ORI R16,2 ;取数符
LDI R17,$7F
AND R13,R17 ;取绝对值
BTA: RCALL DDP
RCALL FPCP1 ;|X|与101o 比较
BREQ BTB
BRCC BTC ;|X|<101o 转
BTB: RCALL INVDP
RCALL FPMU ;|X|*10ˉ1o-->|X|
LDI R17,$10
ADD R0,R17 ;十进制浮点数阶加10
RJMP BTA
BTC: RCALL INVDP ;
RCALL FPCP1 ;|X|与10ˉ1o 比较
BREQ BTC1 ;
BRCS BT0 ;|X|>10ˉ1o 转
BTE: RCALL DDP ;
RCALL FPMU ;|X|*101o -->|X|
LDI R17,$10
ADD R0,R17 ;十进制浮点数阶加10
ORI R16,1 ;置负阶
RJMP BTC
BTC1: LDI R17,9 ;|X|=10ˉ1o 特别处理
ADD R0,R17 ; -9
ORI R16,1 ;取0.1*10
SJMP BT4
BT0: RCALL G1
RCALL FPCP1 ;|X|与1比较
BREQ BT1
BRCC BT2 ;|X|<1转
BT1: RCALL G01
RCALL FPMU ;|X|*0.1-->|X|
INC R0 ;十进制浮点数阶加1
RJMP BT0
BT2: RCALL G01
RCALL FPCP1 ;|X|与0.1比较
BREQ BT4
BRCS BDS ;|X|≤0.1转出
BT3: RCALL G10
RCALL FPMU ;|X|*10--->|X|
INC R0 ;十进制浮点数阶加1
ORI R16,1 ;置负阶
RJMP BT2
PP4: RJMP KP2 ;十进制浮点数取为0
BT4: LDI R17,$10
MOV R9,R17
CLR R10
CLR R11
CLR R12 ;十进制浮点数尾数取为0.10000000
BT6: MOV R8,R0 ;取十进制浮点数阶
SBRS R8,3
RJMP BT7
SBRC R8,1
SUBI R8,$FA ;对产生非法BCD调整（加6）
BT7: LDI R17,$40
SBRC R16,0
OR R8,R17 ;配置阶符(r8,6)
LSL R17
SBRC R16,1
OR R8,R17 ;配置阶浮(r8,7)
RET
BDS: RCALL BT6 ;BT6将十进制浮点数阶，阶符和数符配置到R8
LDI R17,$80
OR R13,R17 ;恢复尾数最高位
LDI R17,$98
SUB R17,R12 ;右移次数为($98-阶码)
RJMP CONV31 ;调CONV31子程序完成尾数二翻十，结果在(r9r10r11r12)
;范例88 ;二进制浮点数快速翻为定点十进制数，整数在r9,r10,r11中，小数在r13,r14,r15中
FBTOD: RCALL BRK ;二进制浮点数分解为整数和小数两部分
SBRC R16,5
RET ;整数部分多于24位,溢出
MOV    R0,R13
MOV    R5,R14
MOV    R8,R15 ;小数部分转入R0R5R8
RCALL CONV1 ;定点整数二翻十，结果在R12,R13,R14,R15
RCALL LD1 ;十进制整数-->RAM
MOV    R15,R8
MOV R14,R5
MOV R13,R0 ;取回二进制小数
RCALL CONV3 ;定点小数二翻十，结果在r9,r10,r11,r12
RCALL EXCH1 ;十进制定点小数转入r13,r14,r15,r12
RCALL GET1 ;取出十进制定点整数r8,r9,r10,r11)/小数在r13,r14,r15,r12
CLR R16 ;清除无用的标志!
RET
;范例89
.ORG $E80 ;最小二乘法拟和直线子程序
.EQU NUMB=10 ;取10点,即十对浮点数，按增地址存放Y1,X1,Y2,X2,..Yn,Xn
.EQU TABLA=$9000 ;数据表，第一个浮点数为Y1
STRT: LDI R28,$70
CLR R29 ;POINT TO $0070
LP51: ST Y+,R29 ;累加和或暂存区清除（LD1,LD2,LD3,LD4和LD5子程序工作区）
CPI R28,$84
BRNE LP51
LDI R16,NUMB ;取拟合点数
MOV R0,R16
LDI R29,$90
CLR R28 ;参加拟合数据首地址$9000
IN R16,MCUCR,7
SBR R16,$C0 ;片外RAM，选一个读写等待周期
OUT MCUCR,R16
LOOP3: RCALL GETA ;取浮点数Yi 占4字节即Yi0,Yi1,Yi2,Yi3
RCALL INVX ;计算1/Yi
RCALL LD6 ;暂存
RCALL GET1 ;取累加和 n
RCALL FPAD ;1/Yi加入累加和(∑1/Yi是 ∑1/Yi 简写形式，下同)
RCALL LD1 ; i=1
RCALL GET6 ;取1/Yi
PUSH R28
PUSH R29 ;保护堆栈指针
RCALL GETA ;取浮点数Xi（Xi0,Xi1,Xi2,Xi3）占4字节
POP R29
POP R28 ;恢复堆栈指针，仍指向Xi
RCALL FPMU ;计算Xi/Yi
RCALL LD7 ;暂存
RCALL GET2
RCALL FPAD ;Xi/Yi加入累加和∑(Xi/Yi)
RCALL LD2
RCALL GET7 ;取出Xi/Yi
RCALL SAV0 ;
RCALL FPMU ;计算(Xi/Yi)2
RCALL GET3
RCALL FPAD ;(Xi/Yi)2加入累加和∑(Xi/Yi)2
RCALL LD3
RCALL GET6 ;取1/Yi
RCALL SAV0 ;
RCALL FPMU ;计算1/Yi2
RCALL LD6 ;暂存
RCALL GET4
RCALL FPAD ;1/Yi2 加入累加和∑1/Yi2
RCALL LD4
RCALL GET6 ;取出1/Yi2
RCALL GETA ;再取Xi
RCALL FPMU ;计算Xi/Yi2
RCALL GET5
RCALL FPAD ;Xi/Yi2加入累加和∑Xi/Yi2
RCALL LD5
DEC R0 ;点数减1
BRNE LOOP3 ;未到总点数n，循环
RCALL GET4
RCALL SAV0
RCALL GET3
RCALL FPMU ;计算(∑1/Yi2)*(∑(Xi/Yi)2) 并存入
RCALL LD6
RCALL GET5 ;取出∑Xi/Yi2
RCALL SAV0
RCALL FPMU ;计算(∑Xi/Yi2)2
RCALL GET6
RCALL FPSU ;计算c=(∑1/Yi2)*(∑(Xi/Yi)2-(∑Xi/Yi2)2
RCALL LD6 ;存入
RCALL GET2
RCALL SAV0
RCALL GET4
RCALL FPMU ;计算(∑(Xi/Yi)*(∑1/Yi2)并存入
RCALL LD7
RCALL GET1
RCALL SAV0
RCALL GET5
RCALL FPMU ;计算(∑1/Yi)*(∑(Xi/Yi2) 并存入
RCALL GET7
RCALL FPSU ;计算d=(∑Xi/Yi)*(∑1/Yi2)-(∑1/Yi)*(∑Xi/Yi2))
RCALL GET6 ;取c
RCALL EXCH
RCALL FPDI ;计算b=d/c并存入
RCALL LD7
RCALL GET5 ;取 ∑Xi/Yi2
RCALL FPMU ;计算(∑Xi/Yi2)*b
RCALL GET1
RCALL FPSU ;计算(∑1/Yi)-(∑Xi/Yi2)*b
RCALL GET4 ;取 ∑1/Yi2
RCALL EXCH
RCALL FPDI ;计算a=(∑1/Yi-(∑Xi/Yi2)*b)/∑1/Yi2
RCALL LD6 ;结果a在$84-$87中,b在$88-$8b中
RER
GETA: LD R12,Y+
LD R13,Y+
LD R14,Y+
LD R15,Y+ ;从外部SRAM中取浮点数到R12-R15
RET

LD4: STS $7C,R12 ;存浮点数
STS $7D,R13
STS $7E,R14
STS $7F,R15
RET
LD5: STS $80,R12 ;计算∑Xi/Yi2的存储单元
STS $81,R13
STS $82,R14
STS $83,R15
RET
LD6: STS $84,R12 ;暂存1/Yi，1/Yi2等浮点数
STS $85,R13
STS $86,R14
STS $87,R15
RET
LD7: STS $88,R12 ;暂存Xi/Yi等浮点数
STS $89,R13
STS $8A,R14
STS $8B,R15
RET

GET4: LDS R8,$7C ;取浮点数
LDS R9,$7D
LDS R10,$7E
LDS R11,$7F
RET ;
GET5: LDS R8,$80 ;取∑Xi/Yi2或中间结果
LDS R9,$81
LDS R10,$82
LDS R11,$83
RET
GET6: LDS R8,$84 ;取浮点数1/Yi，1/Yi2等
LDS R9,$85
LDS R10,$86
LDS R11,$87
RET
GET7: LDS R8,$88 ;取浮点数Xi/Yi等
LDS R9,$89
LDS R10,$8A
LDS R11,$8B
RET
;范例90
GETAD: LDI R17,0Bxxx01110;PC0&PC4输入/PC1-PC3输出&PC3(CAL)
OUT DDRC,R17 ;
CBI PORTC，1
GAD1: SBI PORTC,4
SBIB PINC,4 ;查DRDY
RJMP GAD1 ;低为数据准备好
GAD2: SBI PORTC,4
SBIC PINC,4 ;PINC:$13/PORTB:$15
RJMP GAD2 ;DRDY低有效
CBI PORTC,2 ;置片选有效
LDI R16,16 ;16位数据
GETL0: CLC ;予清除C
SBI PORTC,0
SBIC PINC,0 ;接收一位数据
SEC
ROL R14 ;数据高位在前
ROL R13 ;在R13R14里带进位左移
SBI PORTC,1
CBI PORTC,1 ;发出时钟，下降沿读出数据
DEC R16
BRNE GETL0
SBI PORTC,2 ;置片选无效
MOV R4,R14 ;
MOV R3,R13 ;保存
GADCOM: CLR R15 ;3字节小数r13r14r15(0)规格化为浮点数
LDI R16,$80
MOV R12,R16 ;阶码为$80
GAD: SBRC R13,7
RJMP GETL2
LSL R14
ROL R13 ;尾数左移，阶码递减
DEC R12
BRNE GAD
RET ;如果(r12)=0 得到0浮点数
GETL2: LDI R16,$7F
AND R13,R16 ;正数
LDI R16,$82 ;取浮点数2.5(基准源为2.5v)
MOV R8,R16
LDI R16,$20
MOV R9,R16
CLR R10
CLR R11
RCALL FPMU ;相乘
RET ;(r12)不为0
; 以下提供几个补充参考程序,都带有详细说明和指令注释.它们是主从多机通讯程序,采
;用中断方式写入EEPROM,直接对晶振分频产生0.1秒和秒号的精确定时程序,以及RS-232/
;RS-485标准转换程序,AVR频率计程序,串行时锺日历芯片DS1302读写,共享时基的PWM输出、
;输入捕获测周期程序和定时信号获取，以及DS18B20测温等程序.多机通讯主要用8和9位数
;据模式区分被选分机(9位)和其它分机(8位),达到主机只与被选分机交换数据之目的.以中
;断方式写EEPROM的优点是可与系统运行同时进行(即在线写入)，占用很少机时.
;精确定时用定时/计数器1(或0)直接对MCU主频(不设分频)设定时间常数,分频精度可达到
;1HZ.RS-232/RS-485标准转换程序中AVR不作中转,使两种器件相关脚位直接连接.以TCNT0
;定时,以T0引脚接收RS-232数据.以收到RS-232字符起始位下跳沿或结束符($03)为依据,
;控制切换RS-485的收发使能.(系统中的主AVR可兼做对通信标准之监控转换,即只是在完成
;主要工作任务的同时'附带'进行).具体过程不再细述.串行时锺日历芯片DS1302具体积小,
;可靠性高,与单片机连接方便等优点.
; 以下程序请参看有关章节或程序中的注释。

;范例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-1BF
STRT38: RJMP RST38 ;主机从1#,2#,3#,4#分机接收数据块在$1C0-1CF,$1D0-1DF,$1E0-1EF)和$1F0-1FF
.ORG $00B ;
RJMP STRT38
.ORG $00C
RJMP STRT38 ;主机不设串口中断，只以查询接收
.ORG $011
RST38: LDI R16,12
OUT 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,$18
OUT UCR,R16 ;允许UART接收和发送，8位数据模式
INC R15 ;指向1#分机
OUTLP: OUT UDR,R15 ;呼分机号，1:1#/2:2#/03:3#/04:4#...
TSLOP: IN R16,USR
SBRS R16,7
RJMP TSLOP ;分机返回机号？
IN R16,UDR
CP R16,R15 ;分机号正确返回？
BRNE OUTLP
LDI R16,$1C ;改为9位数据模式 TXB8=0
OUT UCR,R16 ;
TXLOP: LD R16,X+
OUT UDR,R16 ;向分机发送数据块
TESTL: IN R17,USR
SBRS R17,5
RJMP TESTL ;等待发送完成
CPI R16,$0A
BRNE TXLOP ;
RXTST: IN R17,USR
SBRS R17,7 ;RXC=1 收到数据
RJMP RXTST ;等待接收分机返回数据块
IN R16,UDR
ST Y+,R16 ;存储接收数据
CPI R16,$0A ;分机数据块发完？
BRNE RXTST
MOV R16,R15
CPI R16,4 ;与分机轮询通讯完毕？
BRNE NEXTNO ；未完转对下一分机通信
HH38: RJMP HH38 ;否则踏步（可改为处理分机返回的数据，之后再进行下一个轮询）
.DSEG
.ORG $180
DTPINT:.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 $1C0
DRPINT:.BYTE $40
;范例92
.ORG 0 ;多机通讯1#分机程序/晶振4MHZ
.EQU DTPIT1=$180 ;（UBRR）=12 波特率为19200(REL.ERR.=0.16%)
.EQU DRPNT1=$1C0
STRT39: RJMP RST39
.ORG $00B
RJMP UARXC ;8535UART接收完成中断
.ORG $00C
RJMP UATXC ;UART发送完成中断
.ORG $011
RST39: CLR R18 ;清除分机被选中（R18，6）和主机数据块接收完毕标志(R18,7)
LDI R16,12
OUT UBRR,R16 ;设波特率[BAUD RATE=4000000/16*（12+1)=19200]
LDI R16,HIGH(DRPNT1)
MOV R8,R16
LDI R16,LOW(DRPNT1)
MOV R9,R16 ;r8,r9:接收数据指针(FIRST POINT TO $1C0)
LDI R16,$98 ;允许UART中断接收，8位数据模式
OUT UCR,R16
SEI
RXDTS: SBRS R18,6 ;主机呼号已收到（若收到，在R17中）？
RJMP RXDTS
OUT UDR,R17 ;返还该机号
TXDON: IN R16,USR
SBRS R16,5
RJMP TXDON ;该机号发送完成？
LDI R16,$9C ; 允许UART中断接收，9位数据模式，TXB8=0
OUT UCR,R16
RCVBLK: SBRS R18,7
RJMP RCVBLK ;主机发来数据块已接收完毕？
LDI R16,HIGH(DTPIT1)
MOV R6,R16
LDI R16,LOW(DTPIT1)
MOV R7,R16 ;设发送数据指针r6r7,首指$180
LDI R16,$3C ;允许UART中断发送，9位数据模式，TXB8=0
OUT UCR,R16
TXDN: SBIC UCR,5
RJMP TXDN ;发送完毕？
RJMP RST39 ;

:UART中断接收程序
UARXC: SBIC USR,4
RETI ;祯错误（主机正与其它分机进行9位数据模式通信），不予接收
IN R14,SREG ;保存当前状态
TST R18
BREQ NUMB ;（R18）=0时收到数据，只可能是机号，转去核实
PUSH R16 ;否则为主机向本分机发来数据块（9位模式，机号已符合）
PUSH R26
PUSH R27
IN R17,UDR ;接收数据
MOV XH,R8
MOV XL,R9 ;取接收数据指针
ST X+,R17 ;转入RAM
MOV R8,XH
MOV R9,XL ;存数据指针
CPI R17,$0A ;是数据块结束符LF?
BRNE RSCOM1
SBR R18,$80 ;收到完整数据块标志
RSCOM1: POP R27
POP R26
POP R16
DRETI: OUT SREG,R14
RETI
NUMB: IN R17,UDR ;取出数据
CPI R17,1 ;是1#分机？2#分机与$02比较/3#分机与$03比较...
BRNE DRETI ;机号不符合，转!
SBR R18,$40 ;建机号符合标志
RJMP DRETI
; UART中断发送程序
UATXC: PUSH R16 ;r6 r7:发送数据指针，首指$180
IN R16,SREG
PUSH R16
PUSH R26
PUSH R27
MOV XH,R6
MOV XL,R7 ;取出发送指针
LD R16,X+ ;取数据，调指针
MOV R6,XH
MOV R7,XL
OUT UDR,R16 ;送入发送寄存器
CPI R16,$0A
BRNE SDCOM
CBI UCR,5 ;发送最后1个字符后，禁止发送寄存器空中断(CLR UDRIE)
LDI R16,HIGH(DRPINT)
MOV R8,R16
LDI R16,LOW(DRPINT)
MOV R9,R16 ;接收数据指针初始化（POINT TO $1C0)
SDCOM: POP R27
POP R26
POP R16
OUT SREG,R16
POP R16
RETI
.DSEG
.ORG $180
DTPIT1:.BYTE $40
.ORG $1C0
DRPNT1:.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,R16
LDI R16,LOW(ramend)
OUT SPL,R16
SBI EECR,3 ;设置EEPROM就绪(ready)中断使能位
SEI ;中断总使能
RJMP SRTW
.ORG $00F
RJMP EEPRDY ;8535 EEPROM就绪(ready)中断向量
SRTW: LDI YH,1
LDI YL 0 ;EEPROM 写入首地址:$100
LDI XL,$60 ;欲写入数据块首地址:$60
CLR XH
WEEP0: SBIC EECR,1 ;当前有EEPROM写入操作，有则等待写入完成
RJMP WEEP0
RCALL WREEP ;写入第一个字节，($60)->$100，写入完成后，EEWE=0时引发EEPROM就绪中断
INC YL ;调整写入地址指针
HHWEEP: TST YL
BRNE HHWEEP
CPI YH,2 ;写入地址达到$200后，写入完成
BRNE HHWEEP
CBI EECR,3 ;禁止EEPROM就绪(ready)中断
WDON: RJMP WDON ;踏步
EEPRDY: IN R6,SREG
PUSH R16
RCALL WREEP ;写入一个字节
INC YL
BRNE WRETI
INC YH ;EEPROM末地址为$1FF
WRETI: POP R16
OUT SREG,R6
RETI
WREEP: OUT EEARH,YH ;
OUT EEARL,YL ;写入地址送入EEAR
LD R16,X+ ;取数据，调指针
OUT EEDR,R16 ;数据写入EEPROM数据寄存器
SBI EECR,2 ;设置EEPROM写入总使能位EEMWE
SBI EECR,1 ;设置EEPROM写入使能位EEWE
RET
;范例94 ；精确定时产生0.1秒信号
;用定时/计数器1定时，不分頻定出0.1秒信号，由PC5脚输出正脉冲。
;晶体4.000119MHZ，计400012个数定出0.1秒信号
;对定时/计数器1重装常数进行加法补偿（扣除自然计数和补偿占用时间）.
;加法补偿若产生进位，将中断次数减1
.ORG $000 ;精确定时产生0.1秒信号
STRT24: RJMP RST24
.ORG $006 ;8515 t1 overflow vector
RJMP T1_OVFL ;400012=65536*7-58740=7*$10000-$E574/故TCC=$E574
.ORG $00D
RST24: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
SBI DDRC,5 ;PC5,0.1秒号输出（高有效）
CBI PORTC,5
LDI R16,1 ;不分頻
OUT TCCR1B,R16
LDI R16,$E5
OUT TCNT1H,R16
LDI R16,$74
OUT TCNT1L,R16 ;写入时间常数TCC
LDI R16,$80
OUT TIMSK,R16 ;允许定时/计数器1溢出中断
LDI R16,7 ;7次中断输出0.1秒号
MOV R6,R16
SEI ;中断总使能
HH1A: RJMP HH1A ;
T1_OVFL:PUSH R16
PUSH R17
IN R7,SREG
DEC R6 ;中断次数减一
BRNE GOON10 ;0.1秒时间到？
LDI R16,7
MOV R6,R16 ;重新装入中断次数
SBI PORTC,5 ;0.1秒号输出前沿
IN R17,TCNT1L ;*
IN R16,TCNT1H ;*读入TCNT1自然计数值
LDI R18,$7C ;*TCC=$E574
ADD R17,R18 ;*TCC+8=$E57C
LDI R18,$E5 ;*8条单周期补偿指令占用8个时钟周期
ADC R16,R18 ;*修正后TCC=$E574+(TCNT1)+8
OUT TCNT1H,R16 ;*
OUT TCNT1L,R17 ;*重新装入补偿修正后的TCC
BRCC GOON09
DEC R6 ;加法补偿若产生进位，将中断次数减1
GOON09: ;. ;数据处理略
;.
;.
;.
;.
RCALL ACLK1 ;0.1秒走时软时钟
RJMP GOON11
GOON10: CBI PORTC,5 ;输出信号后沿
GOON11: POP R17
POP R16
OUT SREG,R7
RETI
;范例95
;用定时/计数器1定时，不分頻定出1秒信号，由PC5脚输出正脉冲
;晶体4.000133MHZ，计4000133个数定出1秒信号
;对定时/计数器1重装常数进行加法补偿（扣除自然计数和补偿占用时间）.
;加法补偿若产生进位，将中断次数减1
.ORG $000 ;精确定时产生秒号
STRT25: RJMP RST25
.ORG $006
RJMP T1_OVFB ;4000133=62*65536-63099=62*$10000-$F67B/故TCC=$F67B
.ORG $00D
RST25: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
SBI DDRC,5 ;PC5输出秒信号（正脉冲）
CBI PORTC,5
LDI R16,1 ;不分頻
OUT TCCR1B,R16
LDI R16,$F6 ;
OUT TCNT1H,R16 ;写入TCC高8位
LDI R16,$7B ;
OUT TCNT1L,R16 ;写入TCC低8位
LDI R16,$80 ;
OUT TIMSK,R16 ;允许T/C1溢出中断
LDI R16,62 ;62次中断定出秒号
MOV R6,R16
SEI ;
HH1B: RJMP HH1B ;等待中断
T1_OVFB:PUSH R16
PUSH R17
IN R7,SREG
DEC R6 ;到62次中断?
BRNE GOON12
LDI R17,62
MOV R6,R17 ;重装中断次数
SBI PORTC,5 ;输出秒信号
IN R17,TCNT1L ;*
IN R16,TCNT1H ;*读入T/C1自然计数值
LDI R18,$83 ;*TCC=$F67B
ADD R17,R18 ;*TCC+8=$F683
LDI R18,$F6 ;*8条单周期补偿指令占用8个时钟周期
ADC R16,R18 ;*
OUT TCNT1H,R16 ;*
OUT TCNT1L,R17 ;*重新装入补偿修正后的TCC

BRCC GOON19
DEC R6 ;加法补偿若产生进位，将中断次数减1
GOON19: ;. ;数据处理略
;.
;.
;.
;.
RJMP GOON13
GOON12: CBI PORTC,5 ;秒号后沿
GOON13: POP R17
POP R16
OUT SREG,R7
RETI

;范例96
;AVR频率计程序
;运作特点如下:
;此程序为一完整频率测量显示程序,所测频率较高(2MHZ),使用4兆晶振
;程序兼有启动看门狗及对其管理功能
;以TCNT0精确定时输出秒号作为捕获信号,用TCNT1对被测信号频率计数
;用TCNT0直接对(8515)4兆晶振计数产生秒号,定时精度达1Hz 主常数选为256(即0)
;由PA0输出精确定时产生的秒信号(与ICP脚相连)捕获TCNT1计数值,相减计算频率
;将频率转换为十进制数,装入显示缓存区,调DSPA子程序显示之（参考范例27和图4-5）
;重装TCC时对TCC进行修正,若修正(减法)计算不产生借位,将中断次数n减1
;被测频率可近2兆,故须设1字节扩展计数器,以tcnt1溢出中断对其计数(共3字节计数器)
;在TCNT1捕获中断服务中,以3字节减法计算频率,并置位T标志；若TCNT1溢出标志置位
;必须提前增1扩展计数器,并将TCNT1溢出标志清除(不再增1扩展计数器),再计算频率.
;TCNT1溢出中断优先级高于TCNT0,故TCNT1中断服务可能影响秒号精度,导致测量误差
;可以排队法剔除坏值,即将几个连续采样按大小顺序排队,‘掐头去尾'只留中间再作平均.
;也可以监视LED显示,连续3秒稳定显示(高频测量允许有2Hz误差)即为所测频率正确值.
;若晶振采用12兆,被测信号频率(暂空比1:1或接近1:1)可接近6兆.
.ORG $000
STRT26: RJMP RST26 ;实测8515晶振频率4.000167MHZ 计4000167个数为1秒
.ORG $003
RJMP T1_CAPT ;T/C1捕获中断
.ORG $006
RJMP T1_OVRF ;T/C1溢出中断
.ORG $007
RJMP T0_OVFB ;T/C0溢出中断
.ORG $00D ;4000167=256*15626-89=256*$3D0A-89/故TCC=89 n=15626
RST26: LDI R16,HIGH(ramend)
OUT SPH,R16
LDI R16,LOW(ramend)
OUT SPL,R16
SBI DDRA,0 ;PA0输出秒定时信号，捕获频率计数值
CBI PORTA,0 ;初始为低
CLR R22
CLR R21
CLR R20 ;R20,R21,R22为频率量瞬时计数采样
CLR R2
WDR
LDI R16,$0D ;启动看门狗,溢出时间为0.49"
OUT WDTCR,R16 ;写入看门狗控制寄存器
CLR XH
LDI XL,$6C ;set the display buffer pointer
T26LP: ST X+,R2
CPI R26,$74
BRNE T26LP ;清除$6C--$73
LDI R16,$01 ;T/C0为定时器，不分频
OUT TCCR0,R16
LDI R16,89 ;
OUT TCNT0,R16 ;写TCC到TCNT0
LDI R16,$C6 ;上升沿捕获，允许噪音滤除，外部脉冲计数
OUT TCCR1B,R16
LDI R16,$8A ;允许T/C1捕获，溢出以及T/C0溢出中断
OUT TIMSK,R16 ;
LDI R16,$3E ;设15626(=$3D0A)次中断（高位字节已增1）
MOV R1,R16 ;
MOV R19,$0A ;
SEI ;
HH1C: BRTS HH2C ;已采集到频率？
RCALL DSPA ;仍显示原数据
RJMP HH1C
HH2C: CLT ;频率量已在R3,R4,R5
MOV R9,R3
MOV R10,R4
MOV R11,R5
RCALL CONV1 ;翻为十进制数(R12R13R14R15<--R9R10R11)
LDI XL,$74
CLR XH
LDI YL,15
CLR YH
HHLOP: LD R16,Y ;分解十进制数，送入LED显示区($6C--$73)
ADNI R16,$0F
ST -X,R16
LD R16,Y
SWAP R16
ANDI R16,$0F
ST -X,R16
DEC YL
CPI R26,$6C ;分解完毕？
BRNE HHLOP
RJMP HH1C ;显示新数据
T0_OVFB:SEI ;TCNT0溢出，允许中断嵌套
PUSH R16
IN R8,SREG
DEC R19
BRNE GOON13
CBI PORTA,0 ;秒信号后沿
DEC R1 ;到15626次中断?
BRNE GOON13
SBI PORTA,0 ;秒定时捕获信号前沿
IN R16,TCNT0 ;*读TCNT0自然计数值
SUBI R16,164 ;*89之补为167,考虑补偿操作本身耗时，减去164
OUT TCNT0,R16 ;*第15626次中断后，重新装入TCC=89+(TCNT0)+3到TCNT0
LDI R16,$3E
MOV R1,R16 ;重新装入中断次数
LDI R19,$0A
BRCC GOON13 ;补偿操作如有借位，将中断次数减1
DEC R19 ;->252 253 254 255 | 0 1 2 3 4 5...加法计数方向-->
GOON13: POP R16 ; | | | | | | | | | | |
OUT SREG,R8 ;<--15626次范围-->|<-15625次范围(补偿后进（借）位
；C=l)->
RETI
T1_OVRF:IN R18,SREG ;TCNT1溢出中断服务
INC R3 ;R3为TCNT1扩展字节
OUT SREG,R18
RETI
T1_CAPT:IN R6,SREG ;T/C1捕获中断
PUSH R16
IN R5,ICR1L
IN R4,ICR1H
MOV R16,R22
MOV R22,R5
SUB R5,R16
MOV R16,R21
MOV R21,R4 ;与上一次采集的频率量相减，得到频率值
SBC R4,R16
IN R16,TIFR
SBRS R16,7
RJMP T1CP1
INC R3 ;8515TCNT1溢出中断，预先对扩展字节计数
LDI R16,$80 ;并将溢出标志清除，(中断返回后不再计数）
OUT TIFR,R16 ;清除TIFR,7
T1CP1: MOV R16,R20
MOV R20,R3
SBC R3,R16 ;采集频率量在R3,R4,R5
SET ;建采集频率量标志
POP R16
OUT SREG,R6
RETI
;范例97 时基资源共享式综合测量系统
；本时基资源共享式综合测量系统，具有精确定时PWM输出、输入捕获测外部信号
；周期、获取TCNT1溢出中断信号等多种功能。特点是TCNT1启动之后即不停运行。
；时基资源共享式PWM的特点在于装入比较匹配寄存器之数据方式，它不是在比较
；匹配达到时清除定时/计数器，再装入高（或低）电平时间常数：而是当比较匹配
；达到时以定时/计数器当前值加上时间常数后将和装入比较匹配寄存器，二者效果
；是相同的。可称前者为静态设置，后者为动态设置。后者因不停运行定时/计数器
；，其资源可同时用于输出比较匹配A及B、输入捕获、定时信号输出等等。
; 本程序使用晶体标称值4MHZ实测为4，000，236HZ。使用定时/计数器1直接
；对主频精确定时设定PWM高低电平的维持时间。以ICP脚输入被测周期脉冲信号。
；本程序PWM之暂空比与范例51相同，为5毫秒（高）：10毫秒。故维持
；高电平的时间常数为4，000，236÷200=20，001，维持低电平的时间常数为
；4，000，236÷100=40，002。此即输出比较匹配A达到时交替写入比较匹配寄
；存器OCR1A之对TCNT1当前内容的超前值。
；因以TCNT1直接对主频计数，频率高周期短，输入捕获的外部信号周期不能
；大于65536÷4，000，236=0.01638（秒）即16.38毫秒（但也不能太小，对频率
；较高的脉冲信号应改为测频率）。以相邻两次捕获值相减之差除以主频得到被测信
；号之周期（单位为秒）。
；为避免小数除法运算，可将相邻两次捕获值相减之差先乘以1，000，再将乘积
；除以主频，将得到以毫秒为单位的周期值；考虑到除法子程序DIV16只实现整数
；除法，且除数不能大于65535，可将主频缩小100倍，即以40，002作除数，故
；除得之商扩大了100倍。这样将整数商二翻十后，其末两位皆为小数。本程序采用
；这种计算方法。并在主循环程序中调DSPA子程序显示所测周期值。。
；若将以上算法中乘以1，000改为乘以10，000，并增加对商的万位转换，
；其余保留不变，则所得商数末3位皆为小数位。本算法精度高于上一种方法，如有
；提高测量精度之必要，应采用后种算法。
；若扩大测量信号周期，应对TCNT1溢出信号计数，做3字节减法（见范例96）
；后再计算被测信号周期（除以4，000，236）。所测信号周期可达4.194秒。
；本示例定时精度可与范例51做如下比较：本例中高低电平分别对主频计数
；20，001个和40，002个。范例51中高低电平分别对主频计数19，968个和
；40，000个。本示例定时精度明显高于范例51。
；本示例TCNT1产生溢出中断之周期为16.38毫秒，其频率约为61HZ。在TCNT1
；溢出中断服务子程序中由PA3以正脉冲形式输出该信号。
.ORG $000 ;USE 8535
STRT43: RJMP RST43 ;5.0000MS(高):9.9999MS(低) 晶振4,OOO,236HZ
.ORG    $005
RJMP    T1_CP43    ;T/C1输入捕获中断
.ORG $006
RJMP T1_CA43 ;T/C1输出比较匹配A中断
   .ORG    $008
RJMP    T1_OV43 ;TCNT1溢出中断
.ORG $011
RST43: LDI R16,HIGH(RAMEND)
OUT SPH,R16
LDI R16,LOW(RAMEND)
OUT SPL,R16
LDI R16,$80 ;T/C1比较匹配A达到时，清除输出脚OC1A
OUT TCCR1A,R16
LDI R16,$41 ;不分频，比较匹配达到不清TCNT1；上升沿捕获/禁止噪音滤除
OUT TCCR1B,R16
SBI DDRD,5
SBI PORTD,5 ;PD5(OC1A)初始化输出为高
SBI DDRA，3 ;PA3为TCNT1溢出中断信号输出
CBI PORTA，3 ;PA3输出为低
LDI R16,$4E
OUT OCR1AH,R16
LDI R16,$21 ;写比较匹配寄存器($4E21=20001脉宽5毫秒)
OUT OCR1AL,R16
LDI R16,$34 ;允许输入捕获/输出比较匹配A/TCNT1溢出中断
OUT TIMSK,R16
CLR    R21
   CLR    R20 ;捕获值暂存单元
   CLR    XH
   LDI    XL，$6C
CLR43： ST    X+，R20
   CPI    XL，$74
   BRNE    CLR43 ;清除显示区$6C--$73
SEI
HH43: RCALL    DSPA ;背景程序:显示捕获频率信号之周期，单位：毫秒
   BRTC HH43
RCALL FIL2 ;T=1，已捕获到数据在R4,R5/先关显示
CLT
MOV    R14，R4
MOV    R15，R5
LDI    R16,3
MOV    R12，R16
LDI    R16,$E8 ;取立即数1000(=$3E8)
MOV    R13,R16
RCALL    MUL16 ;乘以1000
LDI    R16,$9C ;使周期单位为毫秒
MOV    R10,R16
LDI    R16,$42 ;$9C42=40002
MOV    R11,R16
RCALL    DIV16 ;除以立即数40002，得到被测脉冲周期之单位为毫秒，且含因子100
MOV    R16,R14
MOV    R17,R15
LDI    R18,3
LDI    R19,$E8
RCALL    CONVT ;二翻十，得千位
STS    $70,R11 ;送入显示区
CLR    R18
LDI    R19,$64
RCALL    CONVT ;二翻十，得百位
LDI    R19,-$29 ;在百位处加小数点（百位实为个位）
SUB    R11,R19
STS    $71,R11 ;送入显示区
LDI    R19,10
RCALL    CONVT ;二翻十，得十位
STS    $72,R11
STS    $73,R17 ;小数送入显示区
RJMP    HH43 ;转去显示新采样数据
CONVT: CLR    R11
COVLOP:SUB    R17,R19
SBC    R16,R18 ;减去十进制数某位之权
BRCS    CONVCM
INC    R11 ;够减，增权
RJMP    COVLOP
CONVCM:ADD    R17,R19 ;否则恢复余数
ADC    R16,R18
RET
T1_CA43:SEI
IN R1,SREG
IN R24,TCCR1A
SBRS R24,6
RJMP OUTLW ;当前输出低电平，转
IN R24，OCR1AL
IN    R25，OCR1AH
SUBI    R24，$DF ;LOW(-20001)
   SBCI R25，$B1 ;HIGH(-20001)/$B1DF为20，001之补码
OUT OCR1AH,R25
OUT OCR1AL,R24 ;写入高电平维持时间超前值
LDI R24,$80 ;比较匹配A达到时，OC1A输出为低
OUT TCCR1A,R24
OUT SREG,R1
RETI
OUTLW: IN R24，OCR1AL
IN    R25，OCR1AH
   SUBI    R24，$BE ;LOW(-40002)
   SBCI    R25，$63 ;HIGH(-40002)/$63BE为40，002之补码
OUT OCR1AH,R25 ;
OUT OCR1AL,R24 ;写入低电平维持时间超前值
LDI R24,$C0 ;比较匹配A达到时，OC1A输出为高
OUT TCCR1A,R24
OUT SREG,R1
RETI
T1_CP43:IN R3,SREG ;T/C1捕获中断
IN R5,ICR1L
IN R4,ICR1H
MOV R17,R21
MOV R21,R5
SUB R5,R17
MOV R17,R20
MOV R20,R4 ;与上一次采集的频率量相减，得到频率值
SBC R4,R17 ;在R4，R5中
SET ;建采集频率量标
OUT SREG,R3
   RETI
T1_OV43:SEI
SBI    PORTA，3 ；OUTPUT THE 61HZ PULS
   SBI    PORTA，3
   SBI    PORTA，3
   SBI    PORTA，3
   CBI    PORTA，3 ；脉冲宽度2微秒
   RETI
;范例98
;智能型RS-232与RS-485标准转换程序
;MAX232'R1OUT接MAX483'DI/MAX483'RO接MAX232'T1IN
;由TCNT0配合PB0以软件接收RS-232数据对485进行监控:PB1接DE和/RE
;AVR对485发来数据不接收,该数据经MAX483'RO->MAX232'T1IN-->RS-232远端
;数据起始位下降沿引起中断接收,中断服务一开始,将对RS-485的控制改为允发禁收使RS-
;232发来数据直接通过RS-485向远端发送
;当收到RS-232数据结束符$03后,经半位延时,对RS-485的控制改为允收禁发使能接收RS-
;485远端发来数据(故要求经RS-232发来数据要以$03为结束符,对来自RS-485数据无此要求)
;可采用avr专门管理两种标准转换方案(可采用少脚ATtiny系列),也可采取主avr兼管方案.
;主avr兼管时,它既接收处理完整串行数据块(及执行其它程序),又控制通讯标准转换.
.EQU DATA4=$100
.ORG 0 ;R16:THE BIT SEQUENCE COUNTER R17:WORKING
;REG.R18:FLAG UNIT
STRT3S: RJMP RST3S ;BAUD RATE:9600 USE 8515/may REPLACE BY ATtiny serials
.ORG $007 ;$007(8515)
RJMP T0_OF
.ORG $00D
RST3S: LDI R17,HIGH(ramend)
OUT SPH,R17
LDI R17,LOW(ramend)
OUT SPL,R17
LDI R17,$02 ;8535:$01
OUT TIMSK,R17 ;timsk,1(允许tcnt0中断)
LDI R17,6 ;设外部脉冲计数
OUT TCCR0,R17
CBI DDRB,0 ;T0 为输入
LDI R17,$FF
OUT TCNT0,R17 ;计1个数即中断
SBI DDRB,1 ;PB1输出,控制DE和/RE
CBI PORTB,1 ;禁止485发送
SEI
CLR R18
CLR R16
HERE0: SBRC R18,0
BRNE RST3S ;无错误标志循环
SBRS R18,1
BRNE HERE0 ;未收到数据块结束符（$03）循环
LDI R16,64
HERE1: DEC R16
BRNE HERE1 ;延时(48+3.5=)52微秒（超过半位，以等待半个停止位发过去）
RJMP RST3S ;以使远端485正确收到停止位

T0_OF: SBI PORTB,1 ;允许485发送
IN R11,SREG
PUSH R17
CPI R16,0 ;接收起始位?
BRNE T0SV11
LDI R17,2 ;YES
OUT TCCR0,R17 ;改为内定时，8分频(4MHZ/8)
LDI R17,232 ;半位定时常数24，定出48微秒（<52微秒）
OUT TCNT0,R17
RJMP T0SV7
T0SV11: CPI R16,1 ;半位定时后，查起始位有效性
BRNE T0SV12
SBI PORTB,0
SBIC PINB,0 ;低电平为有效
RJMP T0ER ;否则转错误处理
RJMP T0SV62 ;
T0SV12: CPI R16,10 ;停止位?
BRNE T0SV3S
CLR R16 ;是
SBI PORTB,0 ;停止位为l？
SBIS PINB,0
RJMP T0ER ;否，转错误处理

MOV R17,R15
CPI R17,3 ;收到结束符$03？
BRNE T0SV13
ORI R18,2 ;结束符收到
OUT TCCR0,R16 ;停止TCNT0
RJMP T0SV63
T0SV13: LDI R17,6
OUT TCCR0,R17 ;改为外定时
LDI R17,$FF ;停止位下降沿即中断
OUT TCNT0,R17
RJMP T0SV63
T0SV3S: BRCC T0ER ;出错（位计数器超过10)
CLC ;2--9:接收一位数据
SBI PORTB,0 ;本位为1?
SBIC PINB,0
SEC
ROR R15 ;接收数据组织到R15
T0SV62: IN R17,TCNT0 ;读入TCNT0自然计数值
INC R17
SUBI R17,52 ;1位时间常数为52
OUT TCNT0,R17 ;补偿后回送定时常数
T0SV7: INC R16 ;位计数器增1
T0SV63: POP R17
OUT SREG,R11
RETI
T0ER: SBR R18,1 ;出错标志 ERR. FLAG
CLR R16
OUT TCCR0,R16 ;停止TCNT0
RJMP T0SV63
;范例99
; 串行日历/时钟芯片DS1302的应用子程序。AVR与DS1302接口为:PC0--SCLK,PC1--DATA,PC2--/RST。请参看本范例之附图。
; 结构与运作特点如下:
;(1)采用标准频率晶体（32768HZ），便于调整（可加电容补偿），可对PC0/PC1/PC2加提拉电阻。
;(2)DS1302只有8只脚，小巧精悍，耗电省，抗干扰.便于与单片机接口，以串行方式按位读写数据.
;(3)以备用电池供电保存数据，断电后自动执行写保护，故可靠性高。上电后须用指令解除写保护。
;(4)片内除8个时钟日历单元外还有31个RAM单元，可作为系统断电保护数据存储单元
;(5)可以并发（BURST，即连续）方式读写8个时钟日历单元（秒/分/时/日/月/周/年/年）或读写31个RAM单元，
; 命令如下：
; $BE为以并发方式写8个时钟日历单元,$BF为以并发方式读8个时钟日历单元。
; $FE为以并发方式写31个RAM单元,$FF为以并发方式读31个RAM单元。
;(6)除以并发方式读写外，还可按字节读写，但读写前须先写入命令。
; 读写命令格式为:1 Y A4 A3 A2 A1 A0 X,最高位为1表示命令有效,Y=0,选择读写时间/日期
; Y=1,选择读写片内RAM,A4-A0,片内RAM/时钟单元地址,X=0,选择写操作,X=1,选择读
；操作.
;(7)串行时钟上升沿写入一位数据，下降沿读出一位数据；且读写只有在/RST信号为高时才有效。
; 故要求/RST信号有效前时钟信号应已就绪。
;(8）本程序AVR时钟为4MHZ，若使用其他时钟，重新调整读写延时时间（程序中NOP之个数）
;(9)对RAM并发读写方法可参考并发读写时钟日历子程序进行.

;1)并发(BURST)方式写时钟日历单元（时钟日历数据秒，分，时，日，月，周，年，年分别在R8--R15，）
WBURST: CLR YH ;
LDI YL,8 ;数据指针，首指秒单元R8
RCALL DEPRV ;解除写保护（写入$8E00）
CBI PORTC,0 ;为上升沿写作准备（SCLK升高)
NOP
NOP
NOP
SBI PORTC,2 ;复位信号变高(SETB RST)
NOP
NOP
NOP
NOP
NOP
NOP
LDI R18,$BE ;BURST(wr.) ADDR.&INSTRUC.(命令$BE)
RCALL WBYTE ;
WLOP: LD R18,Y+
RCALL WBYTE ;写入1字节数据
CPI YL,16
BRNE WLOP ;数据都写完?
CBI PORTC,2 ;禁止读写
NOP
NOP
NOP
NOP
CBI PORTC,0
RET
;2)并发(BURST)方式读时钟日历单元（时钟日历数据秒，分，时，日，月，周，年，
；分别读到R8--R14中）
RBURST: CLR YH ;首指R8
LDI YL,8
SBI DDRC,0 ;SCLK 输出
SBI DDRC,2 ;WR/RD ENABLE 输出
SBI PORTC,0 ;时钟SCLK初始输出为低
NOP
NOP
NOP
SBI PORTC,2 ;复位有效，允许时钟相关沿有效
NOP
NOP
NOP
NOP
NOP
NOP
LDI R18,$BF ;BURST(rd.) ADDR.&INSTRUC.
RCALL WBYTE ;写入并发读命令
RLOP: RCALL RBYTE ;读出一字节时钟/日历数据
ST Y+,R18 ；存储
CPI R28,15
BRNE RLOP ;数据都读完？
CBI PORTC,2 ;禁止读写
NOP
NOP
NOP
NOP
CBI PORTC,0 ;使SCLK变低
RET
;3)解除写保护子程序（对DS1302写入$8E,$00)
DEPRV: SBI DDRC,0 ;SCLK 输出
SBI DDRC,2 ;WR/RD ENABLE 输出
CBI PORTC,0 ;时钟SCLK初始输出为低
NOP
NOP
NOP
SBI PORTC,2 ;复位有效，允许时钟相关沿有效
NOP
NOP
NOP
NOP
NOP
NOP
LDI R18,$8E
RCALL WBYTE
   NOP
   NOP
CLR R18
RCALL WBYTE ;写入$8E和$00
CBI PORTC,2 ;禁止读写
NOP
NOP
NOP
NOP
CBI PORTC,0
RET
;4)对DS1302秒，分，时单元写入3字节数据
WTIME: CLR YH ;
LDI R17,$80 ;写秒单元命令
LDI YL,8 ;R8(秒)R9(分)R10(时)
LDI R19,3
WCOM: RCALL DEPRV ;解除写保护
WLOP1: CBI PORTC,0 ;时钟SCLK初始输出为低
NOP
NOP
NOP
SBI PORTC,2 ;复位有效，允许时钟相关沿有效
NOP
NOP
NOP
NOP
NOP
NOP
MOV R18,R17
RCALL WBYTE ;写入一字节命令
SUBI R17,$FE ;指向时间下一单元
LD R18,Y+
RCALL WBYTE ;写入时间单元1字节
CBI PORTC,2 ;禁止读写
NOP
NOP
NOP
NOP
CBI PORTC,0
DEC R19
BRNE WLOP1 ;写完规定字节？
RET
;5)写入日期子程序
WDATE: CLR YH ;
LDI YL,11 ;R11(日)R12(月)R13（周）R14(年)
LDI R17,$86 ;写日单元命令
LDI R19,4
RJMP WCOM
;6)读出时间子程序
RTIME: CLR YH ;
LDI R17,$81 ;读秒单元命令
LDI YL,8 ;读出数据送到R8(秒)R9(分)R10(时)
LDI R19,3
RCOM: SBI DDRC,0 ;SCLK 输出
SBI DDRC,2 ;WR/RD ENABLE 输出
RLOP1: CBI PORTC,0 ;时钟SCLK初始输出为低
NOP
NOP
NOP
SBI PORTC,2 ;允许读写
NOP
NOP
NOP
NOP
NOP
NOP
MOV R18,R17
RCALL WBYTE ;写入读命令
SUBI R17,$FE ;指向下一单元地址
RCALL RBYTE ;读出一字节数据
ST Y+,R18
CBI PORTC,2 ;禁止读写
NOP
NOP
NOP
NOP
CBI PORTC,0 ;时钟变低
DEC R19
BRNE RLOP1 ;已读出规定字节?
RET
;7)读出日期子程序
RDATE: CLR YH
LDI YL,11 ;读出数据放入R11(日)R12(月)R13（周）R14(年)
LDI R17,$87 ;读出日单元命令
LDI R19,4
RJMP RCOM
;8)将R18中数据写入DS1302
WBYTE: LDI R16,8 ;8位/字节
SBI DDRC,1 ;PC1为输出
WB1: CBI PORTC,0 ;时钟SCLK初始输出为低
ROR R18 ;一位数据传到进位C
BRCC WB10
SBI PORTC,1
RJMP WB2
WB10: CBI PORTC,1 ;1位数据输出到数据线(DS1302'DATA BUS)
WB2: NOP
NOP
NOP
NOP
SBI PORTC,0 ;上升沿写入一位
DEC R16
BRNE WB1 ;8位数据都写完?
RET
;9)读出DS1302一字节数据在r18中
RBYTE: LDI R16,8 ;8位/字节
CBI DDRC,1 ;PC1输入
RD1: CBI PORTC,0 ;下降沿读出一位数据
NOP
NOP
NOP
NOP
SBI PORTC,1 ;上拉电阻激活
CLC
SBIC PINC,1
SEC ;读出一位数据并-->C
ROR R18 ;组织数据
SBI PORTC,0 ;SCLK升高，为下位读准备
DEC R16
BRNE RD1 ;8位数据都写完?
RET
;范例100 ；DALLAS 18B20测温程序
; DS18B20为美国DALLAS公司(已被MAXIM公司并购）生产的单线数字温度传感器，
;可将温度信号直接转换成数字信号供单片机处理，所测温度范围-55°C～125°C，精度
;达0.5°C，转换时间为750毫秒。该器件出厂时带有固化的8字节‘身份’编号，最低
;位字节为家族号码$28，接下来6字节为器件流水线编号，最高位字节为CRC校验码。
;有读ROM，匹配ROM，启动温度变换，读RAM数据等十余种命令对18B20操作。使用
;18B20之前要用读ROM命令读出其身份编号并记录。一条单总线上可挂接任意多个
;18B20，单片机通过单总线发出启动转换命令之后，所有18B20同时进行温度转换。
;经等待延时后，单片机通过发出匹配ROM命令，18B20编号，读RAM数据等命令等，
;读取各18B20温度数据组（每组数据共9字节）。程序中对每组数据都进行CRC校验。
;温度数据占2字节，为补码形式。最高位为符号位，0为正1为负。高位字节和低位
;字节的高4位为温度整数部分，最低4位为温度小数部分。程序中对温度数据进行取
;补、左移将整数部和小数部分分离，再将它们分别转成十进制数。整数二翻十用减
;十进一法，小数二翻十采用按权累加法（并以减负替代加正），再将它们冠以数符
;并加小数点送入DSPA子程序的显示缓存区，调该子程序进行显示。
; 由于DSPA子程序中含0.462秒定时复位看门狗指令，故以调用DSPA为主循环程序
;不必考虑对看门狗管理问题（初始化设置看门狗溢出周期为0.49秒）。
; DS18B20不象一般串行器件既有数据线又有时钟线，它只有一条数据线，故它
;只能靠较严格的时序脉冲信号进行读写，程序中多种延时环节就是为调整时序所
;设。本程序AVR使用4MHZ时钟，如改变时钟，应按定时时间重新确定延时常数。
; 18B20的使用可采用窃电方式，此种方式要将18B20电源端接地。在线缆长测点
;的应用场合，可控制MOS管取得数据线的强上拉，以提高总线驱动能力。
;对18B20的ROM操作命令如下：
; 命令代码
; 读ROM $33
; 匹配ROM $55
; 跳过ROM $CC
; 搜索ROM $F0
; 告警搜索 $EC
; 对18B20的存储器操作命令如下：
; 命令代码
; 写暂时存储器 $4E
; 读暂时存储器 $BE
; 复制暂时存储器 $48
; 启动温度变换 $44
; EEPROM内容调出 $B8
; 读电源 $B4
; 有关18B20初始化，读写命令,读写时序等请参看参考文献9和10,18B20与AVR接口
;见程序附图,CRC检测请参看4.8.4小节。
START2:LDI R16,2
OUT SPH,R16
LDI R16,$5FH
OUT SPL,R16 ;堆栈指针初始化
SBI DDRA,2
CBI PORTA,2 ;MOS管不上拉
RCALL RESET ;复位18B20
WDR
LDI R16,$0D
OUT WDTCR,R16 ;启动看门狗，溢出时间为0.49秒
CLR R2    ;执行请除看门狗指令WDR的定时器初始化请除
LDI R16,$CC ;跳越ROM（SKIP ROM）
RCALL WB
LDI R16,$44 ;START DS18B20 TEMPORATURE CONVERTING
RCALL WB
CLR XH
CLR YH ;指针高位字节清除
LDI YL,$6C
CLR44:ST Y+,YH
CPI YL,$74
BRNE CLR44 ;清除显示缓存区($6C～$74)
LDI R17,163 ;4.618×163=753(ms)
STR0: RCALL DSPA
DEC R17
BRNE STR0 ;总共延时753ms,等待转换完成
RCALL RESET ;再次复位DS18B20
LDI XL,$60 ;温度数据指针
LDI R17,4 ;总共4只DS18B20
LDI ZH,HIGH(DATA*2)
LDI ZL,LOW(DATA*2);18B20身份数据指针
LOOP0:LDI R16,$55 ;匹配ROM命令（match rom）
RCALL WB ;写入18B20
LDI R18,8 ;18B20身份数据共8个字节固化在FLASH中
LOOP4:LPM ;取数据
MOV R16,R0 ;转入R16
RCALL WB ;写入18B20 1字节
ADIW ZL,1 ;指向下一字节
DEC R18
BRNE LOOP4 ;共写入8个字节
LDI R16,$BE ;读18B20数据存储器命令
RCALL WB ;写入该命令
LDI YL,$74
LOP40:RCALL RB ;读出18B20数据共9个字节
ST Y+,R16 ;存入$74-$7C
CPI YL,$7D
BRNE LOP40
RCALL RESET ;再次复位18B20
LDI YL,$74
RCALL CRC9 ;对读得数据进行CRC校验
TST R15
BREQ LLL
ERROR:LDI R16,15 ;CRC余式不为零，温度数据错误
LDI YL,$6C
EER1: ST Y+,R16
CPI YL,$74
BRNE EER1
ERR1: RCALL DSPA ;显示$FFFFFFFF，等待按键
SBRC R16,7
RJMP ERR1
RJMP START2 ;有键按下，重新启动
LLL: LDS R16,$74
LDS R15,$75 ;取温度数据 R15为HIGH BYTE
ST X+，R16
ST X+，R15 ;温度转入SRAM
BST R15,7 ;数符存于T
BRTC PLUS ;正数转
COM R16
COM R15
LDI R18,255
SUBI R16,R18
SBCI R15,R18 ;负数求补
PLUS: LDI R18,4
LOOP5:ADD R16,R16
ADC R15,R15
DEC R18
BRNE LOOP5 ;整数部分在R15
MOV R19,R16 ;小数部分转入R19
CLR R9 ;百位BCD予清
LDI R16,100
CP R15,R16
BRCS LOP51
INC R9 ;百位BCD存在（EXISTED）!
SUB R15,R16 ;减去100
LOP51:LDI R16,10
CLR R10
LOP52:SUB R15，R16
BRCS LOP53
INC R10
RJMP LOP52 ;十位及个位BCD转换
LOP53:ADD R15，R16 ;十位在R10，个位在R15
CLR R16
SBRC R19,7
SUBI R16,-$50 ;小数最高位值为0.5
SBRC R19,6 ;其余折半递减
SUBI R16,-$25 ;0.25
SBRC R19,5
SUBI R16,-$13 ;0.125
SBRC R19,4
SUBI R16,-6 ;0.0625
CPI R16,$0A ;产生非法BCD?（只可能在低位产生）
BRHC LOP54
SUBI R16,$FA ;小数部分二翻十/调整（在R16中）
LOP54:MOV R11,R16
LDI YL,$6C
LDI R16,$24
ST Y+,R16
ST Y+,R16
ST Y,R16
RTC LOP55
LDI R16,$14 ;负温度，加负号!
ST Y,R16
LOP55:INC YL
ST Y+,R9 ;百位BCD装入 $6F 单元
ST Y+,R10 ;十位BCD直接装入$70单元
MOV R16,R15
SUBI R16,-$29 ;个位BCD加小数点后
ST Y+,R16 ;装入$71单元
MOV R16,R11
SWAP R16
ANDI R16,$0F
ST Y+,R16
MOV R16,R11
ANDI R16,$0F
ST Y+,R16 ;分解小数BCD/并装入$72及$73单元
CLR R8
NORML:RCALL DSPA ;显示温度数据2.4秒
RCALL DSPA    ;4.62ms×2×256=2.4s
DEC R8
BRNE NORML
DEC R17
BREQ HALT ;采集完4点温度？
RJMP LOOP0 ;未完循环
HALT: LDI R16，$1D
OUT WDTCR,R16
LDI R16,$15
OUT WDTCR,R16 ;已采集到4点温度，关看门狗
RDSPA:RCALL DSPA
SBRC R16，7
RJMP RDSPA ;无键按下，显示最后采集的温度
RJMP START2 ;否则再次启动
DATA: .DB $28,$3A,$13,$08,$00,$00,$00,$E5 ;18B20身份数据
.DB $28,$4A,$4D,$08,$00,$00,$00,$14
.DB $28,$3A,$19,$08,$00,$00,$00,$5E
.DB $28,$32,$33,$08,$00,$00,$00,$66

RESET: SBI    DDRA,3 ;PA3为输出
CBI    PORTA,3 ;负脉冲前沿
LDI    R19,4
RES1: RCALL DL170
DEC    R19
BRNE    RES1 ;延时682.75微秒（最短可555微秒）
SBI PORTA,3 ;负脉冲结束
LDI R18,146
RES2: DEC    R18
BRNE    RES2 ;延时110微秒
RCALL DL170 ;总共280微秒
CBI    DDRA3 ;转为输入（CHANGE TO INPUT）
SBI    PORTA,3 ;上拉电阻激活（PULL UP MOS ACTIVED）
CLC
SBIC PINA,3 ;18B20存在标志存于 C
SEC
RCALL DL170 ;再次延时
RET
DL170: LDI R18 ,224 ;延时170.75微秒（含RCALL和RET时间）
LP170: DEC R18
BRNE LP170
RET
WB: LDI R19,8 ;写入1字节数据
MOV    R15,R19
SBI DDRA,3
LOOP2: CBI PORTA,3 ;数据线输出为低
LDI R19,23
LOP21: DEC R19
BRNE LOP21 ;延时17微秒
ROR R16
BRCC LOP22 ;1位数据由进位C转入PC3
SBI PORTA,3
RJNP LOP23
LOP22: CBI PORTA,3
LOP23: LDI R19,88
LOP24: DEC R19
BRNE LOP24 ;延时66微秒
SBI PORTA,3
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DEC R15
BRNE LOOP2
RET
RB: LDI R19,8 ;读出1字节数据
MOV R15,R19
LOOP3: SBI DDRA,3
SBI PORTA,3 ;数据线输出为高
LDI R19,5
LOP31: DEC R19
BRNE LOP31 ;延时3.5微秒
CBI PORTA，3 ;数据线输出为低
LDI R19，6
LOP3A：DEC R19
BRNE LOP3A ;延时4.5微秒
SBI PORTA,3 ;数据线输出为高
LDI R19,26
LOP32: DEC R19
BRNE LOP32 ;延时19微秒
CBI DDRA,3 ;转为输入
SBI PORTA,3 ;上拉MOS管激活
CLC
SBIC PINA,3
SEC ;读出1位数据到C
LDI R19，88
LOP33：DEC R19
BRNE LOP33    ;延时66微秒
ROR R16
DEC R15
BRNE LOOP3
RET
CRC9: LDI R18,9 ;9字节数据CRC检测程序
CRC90: CLR R15 ;异或工作单元
LDI R19,$8C
MOV R14,R19
LP6: LDI R19,8
LD R16,Y+
LP7: LSR R16
ROR R15
BRCC NXRL
EOR R15,R14
NXRL: DEC R19
BRNE LP7
DEC R18
BRNE LP6
RET
;范例101 产生循环冗余检测（CRC）校验码表格子程序
;本子程序为生成$00--$FF共256个数据之双字节CRC校验码表子程序，生成多项式为
;P(X)=X16+X15+X2+1=$18005。因每一字节都生成两字节的CRC校验码，故CRC校
;验码表格长度为512字节。程序中规定将其放在片内SRAM$100--$2FF之中。也可将该
;表存放地址作为子程序的入口条件，在主程序中规定存放地址。使用的单片机为MEGA8
;/16/128；若使用8515单片机，须使用外部扩展SRAM；本子程序产生的CRC校验码表，
;可直接烧录到FLASH，或另行作为文件保存。
;若采用4字节的CRC校验码，表格长度达1024字节，则必须使用MEGA103/128等高档AVR
;单片机，或外扩SRAM的8515；故若处理的位序列信息不是很长，或对CRC检测的实时性
;要求不是很强，不必采用查表处理方式。
CRCTABL:LDI    XH,$01 ;CRC-CODE-TABLE -GENERATING SUBPROGRAM
CLR    XL ;CRCTABLE FROM $100 TO $2FF
CLR    R16 ;USE MEGA8/16/128
LDI    R17,$05
LDI    R18,$80    ;P(X)=$18005
CRCT0: LDI    R19,8
CLR    R14
CLR    R15 ;add 2bytes $00 behind a Bi
CRCT1: LSL    R14
ROL    R15
ROL    R16
BRCC    CRCT2
EOR    R14,R17
EOR    R15,R18
CRCT2: DEC R19
BRNE    CRCT1
ST    X+,R14
ST    X+,R15
INC    R16
BRNE CRCT0
RET
;范例102 快速生成位序列校验码/或对接收位序列进行循环冗余检测子程序
;100字节位序列m0,m1,m2,m3,m4,...m98,m99在发送方以递推方式生成CRC校验码子程序
;或在接收方对该序列进行CRC检测之子程序
;在发送方，本程序为CRC校验码生成子程序。将此位序列除以生成多项式P(X)
;=X16+X15+X2+1，将生成的CRC校验码（即余式）装入位序列的最低两位字节
;(冲掉m0,m1)，将最终处理的位序列发送出去。
;在接收方，本程序为CRC检测子程序。将接收到的位序列除以生成多项式P(X)
;=X16+X15+X2+1，若将原位序列最低两位字节m0,m1恢复（即除得的余式R15R14
;与原始位序列最高两位字节相等），则为正确接收。
;本程序中循环次数为98，比位序列字节数少2。因为位序列最低两个字节m0,m1直
;接作为（第一个）余式，不对它们查取CRC校验码。
;X为按字节寻址位序列指针
;寻址CRC校验码表格先按字计算地址指针，将其增倍后变为按字节寻址。
CRCOUT:LDI XH,$1 ;THE BIT SEQUENCE IS IN $100---$163
CLR XL ;TOTAL 100 BYTES
LDI R16,$62 ;THE DATA BLOCK LENGTH IS 98(=100-2)
LD R14,X+ ;m0
LD R15,X+ ;m1
CRCO1:LD R13,X+ ;fetch m2 at the first!
LDI ZH,HIGH(DATA5)
LDI ZL,LOW(DATA5)
ADD R30,R13
CLR R13
ADC R31,R13
LSL R30
ROL R31 ;point to the CRC CODE!
LPM
EOR R14,R0
ADIW R30,1
LPM
EOR R15,R0 ;CRC CODE IN R14&R15(HIGH)!
DEC R16
BRNE CRCO1
STS $101,R15
STS $100,R14 ;将生成的CRC校验码放在位序列的最低两位字节中
RET    ;或将原始位序列的最低两位字节恢复
DATA5:.DB $00,$00,$80,$05 ;THE CRC CODE TABLE
.DB $80,$0F,$00,$0A ;与范例101中SRAM$100--$2FF单元内容完全相同！
.DB $80,$1B,$00,$1E
;.................... ;其余略
end

Gentoo中文社区 / 100例汇编程序

100例汇编程序