简易串行存储器拷贝器-电子开发网

来源:百度文库 编辑:神马文学网 时间:2024/04/27 04:38:48

简易串行存储器拷贝器

时间:2006-07-20   来源:   作者:   点击:1065   字体大小:【大 中 小】 -

汇编源程序:

 ORG 0000H     LJMP MAIN     ORG 002DHMAIN:MOV SP,#40H     MOV 34H,#0FFH     MOV P1,0FFHM1:  CPL P1.2     LCALL YS     JB P1.3,M1     LCALL YS     JB P1.3,M1M2:  JNB P1.3,M2     CLR P1.2     MOV R7,#04H     MOV R6,#10H     MOV 30H,#0A0HM14: MOV 32H,#00HM13: MOV 31H,#40H     MOV R1,#20HMA:  DJNZ 31H,M4     MOV 34H,#88H     LJMP M1M4:  LCALL QD     MOV A,30H     LCALL FA     JNB F0,M3     SJMP MAM3:  MOV A,32H     LCALL FA     JB F0,MA     LCALL QD     MOV A,30H     ADD A,#01H     LCALL FA     JB F0,MAM7:  LCALL DU     MOV @R1,A     CJNE R1,#2FH,M5     LCALL FYD     LCALL TZ     SJMP M6M5:  LCALL YD     INC R1     SJMP M7M6:  MOV 31H,#0FFh     MOV R1,#20HM9:  DJNZ 31H,M8     MOV 34H,#30H     LJMP M1M8:  LCALL QD     MOV A,30H     ADD A,#08h     LCALL FA     JB F0,M9     MOV A,32H          LCALL FA         JB F0,M9M15: MOV A,@R1     LCALL FA         JB F0,M9         CJNE R1,#2FH,M10         LCALL TZ         MOV 34H,#0AH         LCALL YS         DJNZ R6,M11         DJNZ R7,M12         NOP         NOP         NOP         LJMP MAINM10: INC R1     SJMP M15M11: MOV A,32H     ADD A,#10H         MOV 32H,A         LJMP M13M12: MOV A,30H     ADD A,#02H         MOV 30H,A         LJMP M14    ORG 0200HYS:  MOV R5,34HLOOP1:MOV R4,#0FFHLOOP2:DJNZ R4,LOOP2      DJNZ R5,LOOP1      RET    ORG 0100HQD: SETB P1.7    SETB P1.6    NOP     NOP    CLR P1.7    NOP    NOP    CLR P1.6    RET     ORG  0140HFA: MOV R0,#08HFA2: RLC A    JC  FA1    SJMP FA3FA4:DJNZ R0,FA2    SJMP FA5FA1:SETB P1.7    SETB P1.6    NOP    NOP    CLR P1.6    CLR P1.7    SJMP FA4FA3:CLR P1.7    SETB P1.6    NOP    NOP     CLR P1.6     SJMP FA4FA5:SETB P1.7    SETB P1.6    CLR F0    MOV A,P1    JNB ACC.7,FA6    SETB F0FA6:CLR P1.6    NOP    RETDU:MOV R0,#08HDU2:SETB P1.7   SETB P1.6   MOV A,P1   JNB ACC.7,DU0   SJMP DU1DU3:DJNZ R0,DU2   RETDU0:CLR C   MOV A,R2  RLC A   MOV R2,A   CLR P1.6   SJMP DU3DU1:SETB C    MOV A,R2    RLC A    MOV R2,A    CLR P1.6    SJMP DU3   ORG 0110HTZ:CLR P1.7   SETB P1.6   NOP   NOP   SETB P1.7   NOP   NOP   CLR P1.6   RET   ORG 0120YD:CLR P1.7   SETB P1.6   NOP   NOP   CLR P1.6   NOP   NOP   SETB P1.7   RET   ORG 0130HFYD:SETB P1.7    SETB P1.6    NOP    NOP    CLR P1.6    CLR P1.7    RET    END