ex5.txt

用于接口实验中的交通灯控制程序

DATA SEGMENT
BUFDAT DB 4 DUP(0)
TABLE DB 34H,45H
TEMP DB ?
DATA ENDS
CODE SEGMENT
     ASSUME CS:CODE,DS:DATA
START:
  MOV AX,DATA
  MOV DS,AX
BEGIN:
  MOV AH,01H
  INT 16H
  JZ NOIN
  MOV AH,0
  INT 16H
  SUB AL,30H
  pushf
  mov temp,al
  MOV CX,3
  MOV DI,2
  SUB DX,DX
 AGAIN:
  MOV DL,BUFDAT[DI]
  MOV BUFDAT[DI+1],DL
  DEC DI
  DEC CX
  JNZ AGAIN
  mov si,0
  sub ax,ax
  mov al,temp
  mov bufdat[si],al
  call disp
  popf
  jnz begin
 
quit:
  mov ah,4ch
  int 21h
 NOIN:
  CALL DISP
  JMP  QUIT

DISP PROC NEAR
 MOV SI,0
 MOV CL,01H
 MOV BX,OFFSET TABLE
DIP1:
 MOV AL,BUFDAT[SI]
 XLAT
 MOV DX,200H
 OUT DX,AL
 MOV AL,CL
 MOV DX,201H
 OUT DX,AL
 PUSH CX
DELAY:MOV CX,4000
 LOOP DELAY
 POP CX
 cmp cl,08h
 jz dquit
 INC DI
 SHL 1
 JMP DIP1
dquit: 
 RET
DISP ENDP
CODE ENDS
    END START