Анализировать программу и расписать - Assembler

Формулировка задачи:

Помогите с программой. Нужно сделать трассировку программы(весь цикл не надо) + обьяснить каждую строку, что делает.

STACKSG SEGMENT PARA STACK 'Stack'
DB 8 DUP(?)
STACKSG ENDS
CODESG SEGMENT PARA 'Code'
BEGIN PROC FAR
ASSUME CS:CODESG, SS:STACKSG
PUSH DS
SUB AX, AX
PUSH AX
MOV BX, 2100H
SUB AL, AL
MOV CX, 51H
A1: MOV BYTE PTR[BX], AL
INC AL
INC BX
LOOP A1
RET
BEGIN ENDP
CODESG ENDS
END BEGIN

БУДУ очень благодарен людям, которые помогут. У моего знакомого вирус на компьютере, не загружается винда, а у меня не установлено ПО. Выручите сильно

Решение задачи: «Анализировать программу и расписать»

Листинг программы

STACKSG SEGMENT PARA STACK 'Stack'; объявляем сегмент стека
    DB  8 DUP(?)    ; размером 8 байт
STACKSG ENDS
CODESG  SEGMENT PARA 'Code' ; объявляем сегмент кода
BEGIN   PROC    FAR             ; процедура и точка входа
; DS = ES = PSP
    ASSUME  CS:CODESG, SS:STACKSG
    PUSH    DS      ; сохраняем DS
    SUB AX, AX      ; обнуляем AX
    PUSH    AX      ; сохраняем AX
    MOV BX, 2100H       ; BX = 2100h
    SUB AL, AL      ; обнуляем AL
    MOV CX, 51H         ; CX = 81.
A1:     MOV BYTE PTR[BX], AL; DS:[BX] = AL
    INC AL      ; AL = AL+1
    INC BX      ; BX = BX+1
    LOOP    A1      ; цикл 81.(CX) раз
    RET
BEGIN   ENDP
CODESG  ENDS
    END BEGIN

Объяснение кода листинга программы

Объявляется сегмент стека 'Stack', размером 8 байт, и сегмент кода 'Code'.
Задаются начальные значения переменных: DS = ES = PSP, AX = 0, BX = 2100h, AL = 0.
Сохраняются значения DS и AX в стеке.
BX устанавливается равным 2100h.
AL обнуляется, а затем устанавливается равным 1.
BYTE PTR[BX] (DS:[BX]) присваивается значение AL.
AL увеличивается на 1, затем BX увеличивается на 1.
Начинается цикл, который повторяется 81 раз.
Код завершается, и выполнение программы возвращается в точку входа.