;Task #19 by G3, 25 байт
;tasm /m task.asm
;tlink /x /3 /t task.obj
.model tiny
.386
.code
org 100h

Start:
xchg  di,ax     ;di=0 (адресс переменной Pass=0)
mov   cl,8
L1: 
mov   ah,08h
int   21h       ;ввод символа
shl   al,1      ;умножение на два
stosb
mov   al,'*'
int   29h       ;вывод '*'
loop  L1

pop   dx        ;dx=0 (адресс переменной Pass=0)
mov   ax,0924h 
stosb           ;дописать '$' в конец строки
int   21h       ;вывод пароля
int   20h
end   Start

;tasm /m2 task19.asm
;tlink /t task19
;28 байта
;by Alex

CSEG segment
assume cs:CSEG, ds:CSEG, ss:CSEG, es:CSEG
org 100h
.386
main:
mov   di,offset pass
mov   dx,di

mov   cl,8

qq:
xor   ax,ax
int   16h
shl   al,1
stosb
mov   al,'*'
int   29h
loop  qq

mov   al,'$'
stosb

mov   ah,9
int   21h

quit:
ret
pass   db 9 dup(?)
CSEG   ends
end main