4-2.asm

微机课的全部实验

        DATA  SEGMENT
        DATA  ENDS
        CODE  SEGMENT
        MAIN  PROC      FAR

              ASSUME    DS:DATA,CS :CODE
      START:  PUSH      DS
              SUB       AX,AX
              MOV       AX,DATA
              MOV       DS, AX

              MOV       AL,80H
              MOV       DX,28BH
              OUT       DX,AL       ;set the c port


        LOP:  MOV       AL,0EH
              OUT       DX,AL       ;off red in south..
              MOV       AL,02H
              OUT       DX,AL       ;off yellow in east..
              MOV       AL,0BH
              OUT       DX,AL       ;green in south..
              MOV       AL,05H
              OUT       DX,AL       ;red in east..

              MOV       DI ,30000
              CALL      DELAY

              MOV       AL,0AH
              OUT       DX,AL       ;off green in south..



              MOV       AL,0DH
              OUT       DX,AL       ;yellow in south..
              MOV       DI ,20000
              CALL      DELAY
              MOV       AL,0CH
              OUT       DX,AL       ;off yellow in south..
              MOV       DI ,20000
              CALL      DELAY
              MOV       AL,0DH
              OUT       DX,AL       ;yellow in south..
              MOV       DI ,20000
              CALL      DELAY
              MOV       AL,0CH
              OUT       DX,AL       ;off yellow in south..


              MOV       AL,0FH
              OUT       DX,AL       ;red in south..

              MOV       AL,04H
              OUT       DX,AL       ;off red in east..
              MOV       AL,01H
              OUT       DX,AL       ;green in east..

              MOV       DI ,30000
              CALL      DELAY

              MOV       AL,00H
              OUT       DX,AL       ;off green in east..


              MOV       AL,03H
              OUT       DX,AL       ;yellow in east..
              MOV       DI ,20000
              CALL      DELAY
              MOV       AL,02H
              OUT       DX,AL       ;off yellow
              MOV       DI ,20000
              CALL      DELAY
              MOV       AL,03H
              OUT       DX,AL       ;yellow in east..
              MOV       DI ,20000
              CALL      DELAY
              MOV       AL,02H
              OUT       DX,AL       ;off yellow


              MOV       AH,0BH      ;test the keyboard
              INT       21H
              CMP       AL,00H
              JZ        LOP
              RET
        MAIN  ENDP

;--------------------------------
       DELAY  PROC      NEAR

     DELAY2:  MOV       SI ,30000
     DELAY1:  DEC       SI
              JNZ       DELAY1
              DEC       DI
              JNZ       DELAY2
              RET
       DELAY  ENDP
        CODE  ENDS
 ;---------------
              END       START