Aplicación del principio de microcomputadora 8255A: programa de control de tráfico

SEGMENTO DE CÓDIGO

ASUME CS:CODE

IOCONPT EQU 0FF2BH

IOAPT EQU 0FF28H

IOBPT EQU 0FF29H

IOCPT EQU 0FF2AH

ORG 10e0H

INICIO: MOV DX,IOCONPT

MOV AL,80H

SALIDA DX,AL

MOV DX,IOBPT

MOV AL,00H

SALIDA DX,AL

MOV DX,IOCPT p>

MOV AL,0FH ;H

SAL DX,AL

RETARDO LLAMADA1

IOLED0: MOV AL,01011010B ;13L 24H

MOV DX,IOCPT

SALIDA DX,AL

RETARDO DE LLAMADA1

RETARDO DE LLAMADA1

MOV AL,00001010B ;13LN

SALIDA DX,AL

MOV CX,8H

IOLED1: MOV DX,IOBPT

MOV AL,50H

SALIDA DX,AL

RETARDO LLAMADA2

MOV AL,00H

SALIDA DX,AL

RETARDO LLAMADA2

BUCLE IOLED1

MOV DX,IOCPT

MOV AL,10100101B

SALIDA DX,AL

RETARDO DE LLAMADA1

RETARDO DE LLAMADA1

MOV AL,00000101B

SALIDA DX,AL

MOV CX,8H

IOLED2: MOV DX,IOBPT

MOV AL,0A0H

SALIDA DX,AL

RETARDO DE LLAMADA2

MOV AL,00H

SALIDA DX,AL

RETARDO DE LLAMADA2

BUCLE IOLED2

MOV DX,IOCPT

MOV AL,0FH

OUT DX,AL

LLAMADA DELAY2

JMP IOLED0

DELAY1: EMPUJAR AX

EMPUJAR CX

MOV CX,0030H

DELY2: CALL DELAY2

LOOP DELY2

POP CX

POP AX

RET

DELAY2: EMPUJAR CX

MOV CX,8000H

DELA1: LOOP DELA1

POP CX

RET

CÓDIGO FINALIZA

FIN INICIO