MODEL MEDIUM, BASIC
.STACK 20H
.386
.CODE

;SUB RELWAIT
;STACK
;QB RET SEG     =2
;QB RET OFF     =0

PUBLIC RELWAIT
RELWAIT PROC

MOV DX,03DAH

LBL_WRET:
        IN AL,DX
        AND AL,08H
JNZ LBL_WRET
LBL_WREF:
        IN AL,DX
        AND AL,08H
JZ LBL_WREF


RET 

RELWAIT ENDP
END





