“跑马灯”实验汇编程序

ORG 0000H
        AJMP DIS1
        ORG 030H
DIS1:        MOV P1,#0FEH
        ACALL DEL
        MOV P1,#0FDH
        ACALL DEL
        MOV P1,#0FBH
        ACALL DEL
        MOV P1,#0F7H
        ACALL DEL
        MOV P1,#0EFH
        ACALL DEL
        MOV P1,#0DFH
        ACALL DEL
        MOV P1,#0BFH
        ACALL DEL
        MOV P1,#07FH
        ACALL DEL
DIS3:        MOV P1,#0FFH
        MOV P3,#0FEH
        ACALL DEL
        MOV P3,#0FDH
        ACALL DEL
        MOV P3,#0FBH
        ACALL DEL
        MOV P3,#0F7H
        ACALL DEL
        MOV P3,#0EFH
        ACALL DEL
        MOV P3,#0DFH
        ACALL DEL
        MOV P3,#0BFH
        ACALL DEL
        MOV P3,#07FH
        ACALL DEL
DIS2:        MOV P3,#0FFH
        MOV P2,#0FEH
        ACALL DEL
        MOV P2,#0FDH
        ACALL DEL
        MOV P2,#0FBH
        ACALL DEL
        MOV P2,#0F7H
        ACALL DEL
        MOV P2,#0EFH
        ACALL DEL
        MOV P2,#0DFH
        ACALL DEL
        MOV P2,#0BFH
        ACALL DEL
        MOV P2,#07FH
        ACALL DEL
DIS0:        MOV P2,#0FFH
        MOV P0,#07FH
        ACALL DEL
        MOV P0,#0BFH
        ACALL DEL
        MOV P0,#0DFH
        ACALL DEL
        MOV P0,#0EFH
        ACALL DEL
        MOV P0,#0F7H
        ACALL DEL
        MOV P0,#0FBH
        ACALL DEL
        MOV P0,#0FDH
        ACALL DEL
        MOV P0,#0FEH
        ACALL DEL
        MOV P0,#0FFH
        AJMP DIS1
DEL:        MOV R5,#04H
DEL1:        MOV R6,#0FFH
DEL2:        MOV R7,#0FFH
DEL3:        DJNZ R7, DEL3
        DJNZ R6, DEL2
        DJNZ R5, DEL1
        RET
        END

能便宜点儿程序不？