;	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
EXTRN	_inp:NEAR
EXTRN	__chkstk:NEAR
_TEXT      SEGMENT
; Line 4
	PUBLIC	_vput
_vput	PROC NEAR
	*** 000000	55 			push	bp
	*** 000001	8b ec 			mov	bp,sp
	*** 000003	33 c0 			xor	ax,ax
	*** 000005	e8 00 00 		call	__chkstk
	*** 000008	56 			push	si
; Line 5
	*** 000009	8b 76 08 		mov	si,[bp+8]	;c
; Line 7
;	scr_ofs = 4
;	c = 8
;	register si = c
;	retrace = 10
; Line 9
	*** 00000c	83 7e 0a 00 		cmp	WORD PTR [bp+10],0	;retrace
	*** 000010	74 1c 			je	$I13
; Line 10
; Line 11
					$WC15:
	*** 000012	b8 da 03 		mov	ax,986
	*** 000015	50 			push	ax
	*** 000016	e8 00 00 		call	_inp
	*** 000019	83 c4 02 		add	sp,2
	*** 00001c	a8 01 			test	al,1
	*** 00001e	75 f2 			jne	$WC15
; Line 12
					$WC17:
	*** 000020	b8 da 03 		mov	ax,986
	*** 000023	50 			push	ax
	*** 000024	e8 00 00 		call	_inp
	*** 000027	83 c4 02 		add	sp,2
	*** 00002a	a8 01 			test	al,1
	*** 00002c	74 f2 			je	$WC17
; Line 13
; Line 15
					$I13:
	*** 00002e	c4 5e 04 		les	bx,[bp+4]	;scr_ofs
	*** 000031	26 89 37 		mov	es:[bx],si
; Line 16
	*** 000034	5e 			pop	si
	*** 000035	8b e5 			mov	sp,bp
	*** 000037	5d 			pop	bp
	*** 000038	c3 			ret	

_vput	ENDP
_TEXT	ENDS
END
