简易串行存储器拷贝器-电子开发网
来源:百度文库 编辑:神马文学网 时间:2024/05/08 02:21:22
简易串行存储器拷贝器
时间: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