8155io.asm

学林电子实验箱源码 完整板

org 00h
clr p3.5
setb p3.5
clr p3.5
setb p3.4
mov r1,#00h
mov a,#0fh
movx @r1,a
a1:MOV R1,#01H
MOV R2,#08H
MOV A,#0FEH
A2:MOVX @R1,A
CALL DELAY
RL A
DJNZ R2,A2
MOV R1,#02H
MOV R2,#08H
MOV A,#0FEH
A3: MOVX @R1,A
CALL DELAY
RL A
DJNZ R2,A3
MOV R1,#03H
MOV R2,#06H
MOV A,#0FEH
A4:MOVX @R1,A
CALL DELAY
RL A
DJNZ R2,A4
JMP A1


 DELAY: ; 延时程序
MOV  R7,#255
D1:MOV R6,#255
D2: DJNZ R6,D2
DJNZ R7,D1
RET

end

                                                                                                                                                                                                                                                                                2