fasong.asm

本程序为红外仿真分析例子

;p2.0=键0     p2.1=键1        p2.2=键2          p2.3=键3       p2.4=键4        p2.5=键5
;p3.0=发射角
             jian0 equ p2.0
             jian1 equ p2.1
             jian2 equ p2.2
             jian3 equ p2.3
             jian4 equ p2.4
             jian5 equ p2.5
             shuji equ 40h
             fashe equ p3.0
bianjian:

         jnb jian0, jian0f;
         jnb jian1, jian1f;
         jnb jian2, jian2f;
         jnb jian3, jian3f;
         jnb jian4, jian4f;
         jnb jian5, jian5f;
         ajmp bianjian;
jian0f:
         mov a, #0e2h;            发用户码
         acall kaishi;
         mov a, #00h;             发键值
         acall kaishi;
         acall yanshi21;          延时
         ajmp bianjian;
jian1f:
         mov a, #0e2h;            发用户码
         acall kaishi;
         mov a, #10h;             发键值
         acall kaishi;
         acall yanshi21;          延时
         ajmp bianjian;
jian2f:
         mov a, #0e2h;            发用户码
         acall kaishi;
         mov a, #08h;             发键值
         acall kaishi;
         acall yanshi21;          延时
         ajmp bianjian;
jian3f:
         mov a, #0e2h;            发用户码
         acall kaishi;
         mov a, #18h;             发键值
         acall kaishi;
         acall yanshi21;          延时
         ajmp bianjian;
jian4f:
         mov a, #0e2h;            发用户码
         acall kaishi;
         mov a, #04h;             发键值
         acall kaishi;
         acall yanshi21;          延时
         ajmp bianjian;
jian5f:
         mov a, #0e2h;            发用户码
         acall kaishi;
         mov a, #14h;             发键值
         acall kaishi;
         acall yanshi21;          延时
         ajmp bianjian;


kaishi:
         mov shuji, #08h;         发一字节
fasong:
         rrc a;
         jc fa1;
         acall song0;
         ajmp jiesu;
fa1:
         acall song1;
jiesu:
         djnz shuji, fasong;
         ret
song0:
         clr fashe;
         mov r2, #7dh;
         djnz r2, $;
         setb fashe;
         mov r3, #03h;
yan:
         mov r2, #7ah;
         djnz r2, $;
         djnz r3, yan;
         ret;
song1:
         clr fashe;
         mov r2, #7ch;
         djnz r2, $;
         setb fashe;
         mov r3, #04h;
yan0:
         mov r2, #0d8h;
         djnz r2, $;
         djnz r3, yan0;
         ret;

yanshi21:
         clr fashe;
         mov r2, #7ch;
         djnz r2, $;
         setb fashe;
         mov r3, #29h;
yan1:
         mov r2, #0ffh;
         djnz r2, $;
         djnz r3, yan1;
         ret;