.Model small
.Stack 256
.Data
	
.Code

Main Proc
	Mov ax,@Data
	mov ds,ax
	call P
	mov ax,4c00h
	int 21h
Main Endp

P Proc

	mov ah,01h
	int 21h
	
	SHL al,1
	jc L1

	mov ah,03h
	mov bh,0
	int 10h

	mov ah,02h
	inc dh
	mov dl,0
	mov bh,0
	int 10h

	mov ah,02h
	mov dl,'Z'
	int 21h
	jmp exit


L1 :	mov ah,03h
	mov bh,0
	int 10h

	mov ah,02h
	inc dh
	mov dl,0
	mov bh,0
	int 10h
	
	mov ah,02h
	mov dl,'F'
	int 21h
	
	
exit :	ret
P endp
End Main