#start=Traffic_Lights.exe#
name "traffic"
START: MOV BX, 1200H
MOV CX,0008H
MOV AL,[BX]
MOV DX,FF26H
OUT DX,AL
INC BX
MOV AL,[BX]
MOV DX,FF20H
OUT DX,AL
INC BX
MOV AL,[BX]
MOV DX,FFF22H
OUT DX,AL
CALL 1122H
INC BX
JNZ 110DH
JMP 1100H
PUSH CX
MOV CX,0005H
MOV DX,FFFFH
DEC DX
JNZ 1129H
LOOP 1126H
POP CX
RET
1200 80H
1201 21H,09H,10H,00H (SOUTH WAY)
1205 0CH,09H,80H,00H (EAST WAY)
1209 64H,08H,00H,04H (NOURTH WAY)
120D 24H,03H,02H,00H (WEST WAY)
1211 END