deng.asm

这是交通灯管理系统和学生成绩录入系统得汇编语言程序

D1            EQU       10H
D2            EQU       50H
DATA SEGMENT
PB            DB ?            
DATA ENDS
STACK SEGMENT
STA DW 50 DUP(?)
TOP           EQU       LENGTH STA 
STACK ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:        
      PUSH      CS
      POP       DS
      MOV       DX,206H
      MOV       AL,80H                                             
      OUT       DX,AL
      MOV       DX,204H
      MOV       AL,00H  
      OUT       DX,AL
      MOV       DX,204H
      MOV       AL,00H
      OUT       DX,AL
      MOV       DX,204H  
      MOV       AL,0FH          
      OUT       DX,AL
      MOV       BX,7FH
      CALL      DLY
BG:   MOV       AL,5AH
      OUT       DX,AL
      MOV       BX,D2
      CALL      DLY
      MOV       CX,03H
XH1:  MOV       AL,5FH
      OUT       DX,AL
      MOV       BX,D1
      CALL      DLY                          
      LOOP      XH1
      MOV       AL,0AH
      OUT       DX,AL
      MOV       BX,D1                  
      CALL      DLY                                  
      MOV       BX,D1                          
      CALL      DLY                                          
      MOV       AL,0A5H        
      OUT       DX,AL        
      MOV       BX,D2        
      CALL      DLY                                                  
      MOV       CX,03
XH2:  MOV       AL,0AFH                                      
      OUT       DX,AL                
      MOV       BX,D1                          
      CALL      DLY                                                  
      MOV       AL,0A5H                
      OUT       DX,AL                        
      MOV       BX,D1                                  
      CALL      DLY                                                          
      LOOP      XH2
      MOV       AL,05H                                                      
      OUT       DX,AL                                
      MOV       BX,D1                                          
      CALL      DLY                                                                  
      MOV       BX,D1                                          
      CALL      DLY                                                                          
      JMP       BG
DLY  PROC      NEAR
      PUSH      CX
DDD:  MOV       CX,0FFFH
CCC:  LOOP      CCC
      DEC       BX
      CMP       BX,0
      JNE       DDD
      POP       CX
      RET
      DLY     ENDP
      CODE    ENDS
END       START