微机原理实验-往返流水灯

编写实现同一时刻只有一只LED灯亮的流水灯程序.
往返流水灯
从左往右,再从右往左,如此往返.

 

SSTACK  SEGMENT STACK
DW 32 DUP(?)
SSTACK  ENDS
CODE SEGMENT
ASSUME CS:CODE
START:  
    MOV DX, 0646H
    MOV AL, 80H
    OUT DX, AL
    MOV BH, 80H
    MOV BL, 80H
    MOV CX, 09H
    
AA1: 
    MOV DX, 0642H
    MOV AL, BL
    OUT DX, AL
    SHR BL, 1
    CALL DELAY
    CALL DELAY
    LOOP AA1
    MOV CX,09H

AA2:
    MOV DX, 0640H
    MOV AL, BH
    OUT DX, AL
    SHR BH, 1
    CALL DELAY
    CALL DELAY
    LOOP AA2
    MOV BH,01H
    MOV BL,01H
    MOV CX,09H

AA3: 
    MOV DX, 0640H
    MOV AL, BH
    OUT DX, AL
    SHL BH, 1
    CALL DELAY
    CALL DELAY
    LOOP AA3
    MOV CX,09H

AA4 : 
    MOV DX, 0642H
    MOV AL, BL
    OUT DX, AL
    SHL BL, 1
    CALL DELAY
    CALL DELAY
    LOOP AA4
    MOV CX,09H
    JMP START

DELAY:  
    PUSH CX
    MOV CX, 0F000H
AA5: 
    PUSH AX
    POP AX
    LOOP AA5
    POP CX
    RET
    CODE ENDS
    END START