ex5113.asm

启东计算机厂实验程序

        ORG 0000H
        LJMP   START
        ;
        ORG     0030H
START:  MOV SP,#50H
        MOV B,#33H
        ;
LP:     MOV A,B
        ORL A,#0F0H
        MOV P1,A
        ;
        MOV A,B
        JB P3.5,SK1
        RR A
        SJMP SK2
SK1:    RL A
SK2:    MOV B,A
        ;
        MOV A,P3
        ANL A,#1FH
        ADD A,#01H
        RL A
        RL A
        ;
DE:     MOV R1,#06H
DE1:    MOV R0,#0FFH
        DJNZ R0,$
        DJNZ R1,DE1
        DJNZ ACC,DE
        ;
        SJMP LP
        ;
        END