;       MOV     DX,303H ;CONTROL REG ADDRESS
;       MOV     AL,80H  ;ALL PORTS AS OUTPUT
;       OUT     DX,AL
        MOV     DX, 378H
        MOV     AL, 80H
        CALL    MDEConfigPort
;AGAIN: MOV     DX,300H ;PA ADDRESS
;       MOV     AL,55H
;       OUT     DX,AL
;       INC     DX      ;PB ADDRESS
;       OUT     DX,AL
        MOV     DX, 378H
        MOV     AL, 55H
        CALL    MDEOutPA
        CALL    MDEOutPB
        CALL    HSDELAY ;1/2 SEC DELAY
;       MOV     DX,300H ;PA ADDRESS
;       MOV     AL,0AAH
;       OUT     DX,AL
;       INC     DX      ;PB ADDRESS
;       OUT     DX,AL
        MOV     DX, 378H
        MOV     AL, 0AAH
        CALL    MDEOutPA
        CALL    MDEOutPB
        CALL    HSDELAY ;1/2 SEC DELAY
        MOV     AH,01
        INT     16H     ;CHECK KEYPRESS
        JZ      AGAIN   ;PRESS ANY KEY TO EXIT
        MOV     AH,4CH  ;
        INT     21H     ;EXIT

HSDELAY PROC    NEAR
        MOV     CX,33144    ;33144x15.085 usec=1/2 sec  
        PUSH    AX
W1:     IN      AL,61H
        AND     AL,00010000B  
        CMP     AL,AH
        JE      W1
        MOV     AH,AL
        LOOP    W1
        POP     AX
        RET
HSDELAY ENDP