include ioproc.asm

stack segment stack
	dw 128 dup (?)
stack ends

data segment
N equ 100
A db N DUP(?) ,'$'
data ends

code segment 'code'
	assume ss:stack, ds:data, cs:code
; место для описания процедур




start:
	mov ax,data
	mov ds,ax
; команды программы должны располагаться здесь
OUTCH '>'
MOV CX,N
MOV SI,0
I1: INCH A[SI]
CMP A[SI],'.'
JE I2
INC SI
LOOP I1
JMP I3
I2: DEG SI
I3: MOV DJ, SI

MOV SI,0
MOV CX, DI
OUTT: OUTCH A[SI]
INC SI
LOOP OUTT

    finish
code ends
    end start