STACK   SEGMENT STACK 'STACK'
        DB 100 DUP(?)
STACK   ENDS
CODE    SEGMENT
        ASSUME CS:CODE,SS:STACK
        PUBLIC DELAY
DELAY   PROC FAR
        PUSH CX
        PUSH DX
        MOV DX,0FFAH
DL500:  MOV CX,0AF28H
DL10MS: LOOP DL10MS
        DEC  DX
        JNE  DL500
        POP DX
        POP CX
        RET
DELAY   ENDP
CODE    ENDS
        END