Пример из §10 П4. Упакованные данные.

Пример. Пусть  x: packed array [0..39] of 0..3. Реализовать последовательность операторов
	read (k);
	if x[k] = 2 then x[k]:=3.
Реализация.
X  DB  10 DUP (?)  ; каждый байт содержит 4 элемента массива x
K  DW  ?
; массив  X  заполнен
ININT  K
MOV  BX, K
SHR  BX, 1
SHR  BX, 1 		;BX := k div 4
MOV  AL, X[BX]  	;AL = xk-2  xk-1  xk  xk+1

MOV  CX, K
AND  CL, 4-1 		;CL := k mod 4
INC  CL
SHL CL,1 		;CL := (k mod 4 +1) * 2
ROL  AL, CL
MOV AH, AL		;AH = AL = xk+1  xk-2  xk-1  xk 

AND AL, 3		;AL = Ø Ø Ø  xk  
CMP AL, 2
JNE  FIN
AND  AH, ØFCh 	; AH = xk+1  xk-2  xk-1 Ø
OR  AH, 3		; AH = xk+1  xk-2  xk-1 3
ROR  AH, CL		; AH = xk-2  xk-1 3  xk+1  
MOV X[BX], AH
FIN: