	.model	small
	.stack
	.code
start:	mov ah,52h
	int 21h
	mov di,es:[bx-2]
	xor bx,bx
	.repeat
	    mov es,di
	    .if word ptr es:[bx+3] == 1024/16
		.if word ptr es:[bx+8] == 'ZD'
		    .if byte ptr es:[bx+10] == 0
			.if word ptr es:[bx+03BCh] == 86EBh
			    mov word ptr es:[bx+03BCh],0C033h
			    xor ax,ax
			    jmp @F
			.endif
		    .endif
		.endif
	    .endif
	    add di,es:[bx+3]
	    inc di
	    mov es,di
	    mov al,es:[bx]
	.until al != 4Dh
	mov ax,1
      @@:
	pop di
	mov ah,4Ch
	int 21h
	end start
