Programme écrit en assembleur

.MODEL SMALL
.STACK 100H
.DATA
D1 DW 0A8D1H
R DW ?
pkey db 0dh,0ah,'Press any key to continue$'
.CODE
MAIN PROC
; set segment registers:
mov ax, @data
mov ds, ax
mov es, ax

MOV DX ,16D ; Rotation 16 fois
XOR AX,AX ;Mettre AX a 0
MOV BX,D1
Tp: ROL BX,1 ; Rotation a gauche
JNC NEXT ; Test si CF=0
INC AX ; Si CF = 1, incrémenter AX de `1'
NEXT: DEC DX ; répéter 16 fois
JNZ Tp ; encore une fois si ce n'est pas fini
MOV R,AX ; sauvegarder le résultat dans la case mémoire R

;Afichage de R
mov dx,R
mov ah,9
int 21h

lea dx, pkey
mov ah, 9
int 21h ; output string at ds:dx

; wait for any key.... 
mov ah, 1
int 21h

mov ax, 4c00h ; exit to operating system.
int 21h 

MAIN ENDP
END MAIN