CODE    SEGMENT PUBLIC 'CODE'
        assume  cs:CODE,ds:NOTHING,es:NOTHING
        include tbincl
XMIT    PROC    FAR
        ENTRY   2
        INTARG  1
        EXECUTE 30
        UNDO    1
        EXIT
XMIT    ENDP
CODE    ENDS
        END