ex5116.asm

启东计算机厂实验程序

        ORG 0000H
        LJMP STRT
        ;
        ORG 0003H
        LJMP INT_0
        ;
        ORG 0030H
STRT:   MOV SP,#60H
        SETB EX0
        SETB EA
        SETB IT0
        MOV A,#88H
        MOV 41H,A
        MOV P1,A
        ACALL DE6
LOOP:
        MOV A,#82H
        MOV 41H,A
        MOV P1,A
        ACALL DE12
        MOV R2,#03H
AAA:
        MOV A,#80H
        MOV 41H,A
        MOV P1,A
        ACALL DE04
        MOV A,#82H
        MOV 41H,A
        MOV P1,A
        ACALL DE04
        DJNZ R2,AAA
        MOV A,#84H
        MOV 41H,A
        MOV P1,A
        ACALL DE3
        MOV A,#88H
        MOV 41H,A
        MOV P1,A
        ACALL DE01
        MOV A,#28H
        MOV 41H,A
        MOV P1,A
        ACALL DE12
        MOV R2,#03H
BBB:
        MOV A,#08H
        MOV 41H,A
        MOV P1,A
        ACALL DE04
        MOV A,#28H
        MOV 41H,A
        MOV P1,A
        ACALL DE04
        DJNZ R2,BBB
        MOV A,#21H
        MOV 40H,A
        MOVX @DPTR,A
        MOV A,#48H
        MOV 41H,A
        MOV P1,A
        ACALL DE3
        MOV A,#88H
        MOV 41H,A
        MOV P1,A
        ACALL DE01
        LJMP LOOP
DE12:   MOV R5,#240
        LJMP DEY1
DE6:    MOV R5,#120
        LJMP DEY1
DE3:    MOV R5,#60
        LJMP DEY1
DE04:   MOV R5,#08H
        LJMP DEY1
DE01:   MOV R5,#02H
DEY1:   MOV R6,#200
DEY2:   MOV R7,#126
DEY3:   DJNZ R7,DEY3
        DJNZ R6,DEY2
        DJNZ R5,DEY1
        RET
INT_0:  PUSH ACC
        PUSH PSW
        MOV A,R5
        PUSH ACC
        MOV A,#88H
        MOV P1,A
DE5:    MOV R3,#100
DEL1:   MOV R4,#200
DEL2:   MOV R5,#126
DEL3:   DJNZ R5,DEL3
        DJNZ R4,DEL2
        DJNZ R3,DEL1
        MOV A,41H
        MOV P1,A
        POP ACC
        MOV R5,A
        POP PSW
        POP ACC
        SETB EX0
        RETI
        END