请51汇编高手进来解答，有RMB哦

只看该作者 · 2012-8-20 15:33

;;;;;;;;;;;;;;;TEST CODE
               mov 31h,#02
here1:    mov 30h,#0e0h
here2:    mov 1dh,#0e8h
               mov 1eh,#03h
               CLR C
               CLR A
               SUBB  A,53H
               MOV 4EH,A
               MOV A,1dh
               SUBB  A,54H
               MOV 4FH,A
               MOV A,1eh
               SUBB  A,55H
               MOV 50H,A
               MOV A,5AH
               RLC A
               MOV R7,#03H
               MOV R0,#59H
               MOV R1,#5EH
Q0EDD1:    MOV A,@R0
               RRC A
               MOV @R1,A
               DEC R0
               DEC R1
               DJNZ  R7,Q0EDD1
               MOV R7,#03H
               MOV R0,#5CH
               MOV R1,#4EH
               CLR C
Q0EEB1:    MOV A,@R1
               SUBB  A,@R0
               MOV @R0,A
               INC R0
               INC R1
               DJNZ  R7,Q0EEB1
               RLC A
               CLR A
               JNC Q0EF71
               CPL A
Q0EF71:    MOV @R0,A
               MOV R1,#5FH
               MOV R7,#04H
Q0EFC1:    DEC R0
               MOV A,@R0
               XCHD  A,@R1
               SWAP  A
               MOV @R0,A
               DJNZ  R7,Q0EFC1
               MOV A,@R1
               SWAP  A
               XCHD  A,@R1
               MOV R7,#05H
               MOV R0,#56H
               MOV R1,#5BH
               CLR C
Q0F0D1:    MOV A,@R1
               ADDC  A,@R0
               MOV @R0,A
               INC R0
               INC R1
               DJNZ  R7,Q0F0D1
               MOV R7,#05H
               MOV R0,#51H
               MOV R1,#56H
               CLR C
Q0F1B1:    MOV A,@R1
               ADDC  A,@R0
               MOV @R0,A
               INC R0
               INC R1
               DJNZ  R7,Q0F1B1
               MOV R7,#04H
               MOV R0,#75H
               MOV R1,#52H
               CLR C
Q0F291:    MOV A,@R0
               ADDC  A,@R1
               MOV @R0,A
               INC R0
               INC R1
               DJNZ  R7,Q0F291
               JNC Q0F331
               INC @R0
Q0F331:    djnz  30h,here2
               djnz  31h,here1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;test end