基于89C51-24c系列读写汇编程序

org 0000h clr p2.1 ajmp z0 du: acall q1 mov a,#0a0h add a,r5 acall so80 mov a,r3 acall so80 acall q1 mov a,#0a1h add a,r5 acall so80 acall do80 acall stop1 mov b,a acall yan ret xie: acall q2 mov a,#0a0h add a,r5 acall xe80 mov a,r3 acall xe80 mov a,b acall xe80 acall stop2 acall yan ret so80: mov r4,#08h clr p1.1 loop0:clr p1.1 rlc a mov p1.0,c setb p1.1 djnz r4,loop0 clr p1.1 nop nop setb p1.0 clr p1.1 nop ret do80: mov r4,#08h loop1:setb p1.1 nop mov c,p1.0 rlc a clr p1.1 nop djnz r4,loop1 nop ret q1: setb p1.0 setb p1.1 nop clr p1.0 nop clr p1.1 ret stop1: clr p1.0 nop setb p1.1 nop setb p1.0 nop ret q2: setb p1.2 setb p1.3 nop clr p1.2 nop clr p1.3 ret stop2: clr p1.2 nop setb p1.3 nop setb p1.2 nop ret xe80: mov r4,#08h clr p1.3 loop3:clr p1.3 rlc a mov p1.2,c setb p1.3 djnz r4,loop3 clr p1.3 nop nop setb p1.2 clr p1.3 nop ret yan: mov r2,#50h mov r0,#05h l1:mov r1,#05h l2:djnz r1,l2 djnz r2,l1 ret z0: mov r3,#00h mov r5,#00h mov r6,#00h mov r7,#08h zu: acall du acall xie inc r3 cjne r3,#0100h,zu cpl p2.0 inc r6 mov a,r6 mov r5,a djnz r7,zu mm: setb p2.1 clr p2.0 ajmp mm end