Пример из §10 П.6 Множества.

Пример. Дан непустой текст, состоящий из маленьких латинских букв, оканчивающийся точкой. В алфавитном порядке напечатать буквы, встречающиеся в тексте.

Алгоритм.
A:= []; read(c);
repeat  A:= A + [c];
            read (c)
until c=’.’;
for i := ‘a’ to ‘z’ do 
     if  i in A  then  write (i)

Реализация. 
A  DD  0	; set of ‘a’..’z’  =  Ø
; чтение текста, построение множества A
MOV CH, 0
INCH CL
New_Ch: MOV DX, 8000h
MOV AX, 0000h		;DX:AX = {‘a’} 
SUB CL, ‘a’
JCXZ  Ins
Shift: SHR DX, 1
RCR AX, 1
LOOP Shift			; DX:AX = {c}
Ins:   OR WORD ptr A+2, DX
OR WORD ptr A, AX
INCH CL
CMP CL, ‘.’
JNE  New_Ch
; печать элементов A
MOV DX, WORD ptr A+2 
MOV AX, WORD ptr A
MOV BL, ‘a’
MOV CX, ‘z’-‘a’+1
Pr_Ch;   SHL AX, 1
RCL DX, 1
JNC cont
OUTCH BL
cont: INC BL
LOOP Pr_Ch