CSEG segment
org 100h

begin:
	sub cx, cx
	mov cx, offset vx
	sub dx, dx
	mov dx, offset end_vx
	sub dx, cx
	mov cx, dx
	
	mov si, offset vx
	mov al, 91h
	crypt:
		xor byte ptr [si], al
		inc si
		loop crypt
	
	mov cx, dx
	mov si, offset vx
	decrypt:
		xor byte ptr [si], al
		inc si
		loop decrypt
	

vx:
	mov dx, offset zp
	mov ah, 9
	int 21h
	int 20h
end_vx:

zp db 'Zaloopa!$'

CSEG ends
end begin