s1 segment stack
dw 400 dup(?)
tos label word
s1 ends
s2 segment
assume cs:s2,ss:s1
main proc near
mov ax,s1
mov ss,ax
lea sp,tos
mov cx,0
ko:
mov ah,01h
int 21h
cmp al,0dh
je output1
push ax
inc cx
jmp ko
output1:
mov dl,0dh
mov ah,02h
int 21h
mov dl,0ah
mov ah,02h
int 21h
output2:
pop dx
mov ah,02h
int 21h
loop output2
mov ah,4ch
int 21h
main endp
s2 ends
end main
dw 400 dup(?)
tos label word
s1 ends
s2 segment
assume cs:s2,ss:s1
main proc near
mov ax,s1
mov ss,ax
lea sp,tos
mov cx,0
ko:
mov ah,01h
int 21h
cmp al,0dh
je output1
push ax
inc cx
jmp ko
output1:
mov dl,0dh
mov ah,02h
int 21h
mov dl,0ah
mov ah,02h
int 21h
output2:
pop dx
mov ah,02h
int 21h
loop output2
mov ah,4ch
int 21h
main endp
s2 ends
end main