;       Static Name Aliases
;
        TITLE   vput
;       NAME    vput.C

        .287
_TEXT   SEGMENT  BYTE PUBLIC 'CODE'
_TEXT   ENDS
_DATA   SEGMENT  WORD PUBLIC 'DATA'
_DATA   ENDS
CONST   SEGMENT  WORD PUBLIC 'CONST'
CONST   ENDS
_BSS    SEGMENT  WORD PUBLIC 'BSS'
_BSS    ENDS
DGROUP  GROUP   CONST,  _BSS,   _DATA
        ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
_TEXT      SEGMENT

        PUBLIC  _vput
_vput   PROC NEAR
        push    bp
        mov     bp,sp
        push    si
        push    di

        mov     si,[bp+8]       ;c

;       scr_ofs = 4
;       c = 8
;       register si = c
;       retrace = 10

        les     di,[bp+4]       ;scr_ofs
        cmp     WORD PTR [bp+10],0      ;retrace
        je      $I13


$WC15:
        mov     dx,3dah
        in      al,dx
        test    al,1
        jne     $WC15

$WC17:
        in      al,dx
        test    al,1
        je      $WC17


$I13:
        mov     ax,si           ;c
        stosw

        pop     di
        pop     si
        mov     sp,bp
        pop     bp
        ret

_vput   ENDP
_TEXT   ENDS
END
