;	Static Name Aliases
;
	TITLE   vputn
;	NAME    vputn.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 5
	PUBLIC	_vputn
_vputn	PROC NEAR
	*** 000000	55 			push	bp
	*** 000001	8b ec 			mov	bp,sp
	*** 000003	b8 02 00 		mov	ax,2
	*** 000006	e8 00 00 		call	__chkstk
	*** 000009	56 			push	si
; Line 6
	*** 00000a	8b 76 08 		mov	si,[bp+8]	;c
; Line 8
;	scr_ofs = 4
;	c = 8
;	register si = c
;	times = 10
;	retrace = 12
;	i = -2
; Line 11
	*** 00000d	c7 46 fe 00 00 		mov	WORD PTR [bp-2],0	;i
	*** 000012	eb 2f 			jmp	SHORT $L20001
					$F15:
; Line 12
; Line 13
	*** 000014	83 7e 0c 00 		cmp	WORD PTR [bp+12],0	;retrace
	*** 000018	74 1c 			je	$I19
; Line 14
; Line 15
					$WC21:
	*** 00001a	b8 da 03 		mov	ax,986
	*** 00001d	50 			push	ax
	*** 00001e	e8 00 00 		call	_inp
	*** 000021	83 c4 02 		add	sp,2
	*** 000024	a8 01 			test	al,1
	*** 000026	75 f2 			jne	$WC21
					$WB22:
; Line 16
	*** 000028	b8 da 03 		mov	ax,986
	*** 00002b	50 			push	ax
	*** 00002c	e8 00 00 		call	_inp
	*** 00002f	83 c4 02 		add	sp,2
	*** 000032	a8 01 			test	al,1
	*** 000034	74 f2 			je	$WB22
; Line 17
; Line 19
					$I19:
	*** 000036	c4 5e 04 		les	bx,[bp+4]	;scr_ofs
	*** 000039	83 46 04 02 		add	WORD PTR [bp+4],2	;scr_ofs
	*** 00003d	26 89 37 		mov	es:[bx],si
; Line 20
	*** 000040	ff 46 fe 		inc	WORD PTR [bp-2]	;i
					$L20001:
	*** 000043	8b 46 0a 		mov	ax,[bp+10]	;times
	*** 000046	39 46 fe 		cmp	[bp-2],ax	;i
	*** 000049	7c c9 			jl	$F15
; Line 21
	*** 00004b	8b 46 04 		mov	ax,[bp+4]	;scr_ofs
	*** 00004e	8b 56 06 		mov	dx,[bp+6]
	*** 000051	5e 			pop	si
	*** 000052	8b e5 			mov	sp,bp
	*** 000054	5d 			pop	bp
	*** 000055	c3 			ret	

_vputn	ENDP
_TEXT	ENDS
END
