;;

	INCLUDE	PCMAC.INC 

        .MODEL  SMALL

        .STACK  0h

        .DATA
CR	EQU	13

        .CODE
Main    PROC
        mov     ax, @data
        mov     ds, ax
        
	call	PL

        mov     al, 0   ; Return code of 0
        mov     ah, 4ch ;       Exit back to MS/PCDOS
        int     21h
Main    ENDP

PL	PROC
	push	dx
	push	cx
	push	bx
	push	ax
	mov	bx, 0
While1:
	_getch	noecho
	cmp	al, CR
	je	out1
	cmp	al, ' '
	je	else2
	cmp	bx, 0
	jne	else1
	push	ax
	mov	bx, 1
	jmp	loop1
else1:
	_PutCh	al
	jmp	loop1
else2:
	pop	ax
	_PutCh	al, 'a', 'y', ' '
	mov	bx, 0
loop1:
	jmp	while1
out1:
	pop	ax
	_PutCh	al, 'a', 'y', ' '

	pop	ax
	pop	bx
	pop	cx
	pop	dx
	ret
PL	ENDP

        END     Main