Дана строка из 15 символов. Разработать программу, осуществляющую круговую перестановку части букв исходной строки - Assembler - Ответ 3046070

STACKSG SEGMENT PARA STACK
DB 64 DUP (?)
STACKSG ENDS
DATASG  SEGMENT PARA ’DATA’
STR1    DB ’1234’
STR2    DB 4 DUP (?)
DATASG  ENDS
CODESG  SEGMENT PARA ’CODE’
ASSUME CS:CODESG, DS:DATASG, SS:STACKSG
ENTRY   PROC FAR
; Стандартная часть
PUSH DS
SUB AX,AX
PUSH AX
MOV AX,DATASG
MOV DS,AX
MOV DX,4        ; общее количество перестановок
; Переслать первый символ из STR1 в  STR2
M1: LEA DI,STR1 ; загрузить в DI смещение
; первого байта из STR1
LEA SI,STR2 ; загрузить в SI смещение
; первого байта из STR3
MOV CX,3
MOV AL,[DI] ; переслать в AL первый байт из STR1
MOV [SI]+3,AL   ; переслать AL в последний байт из STR2
INC DI      ; DI=DI+1 – следующий символ из STR1
; переслать остаток строки STR1 в STR2
M2: MOV AL,[DI] ; в AL следующий символ из STR1
MOV [SI],AL ; переслать AL в STR2
INC DI      ; DI=DI+1 – следующий символ из STR1
INC SI      ; SI=SI+1 - следующий символ из STR2
LOOP M2     ; перейти на метку M2
; переслать STR2 в STR1
LEA DI,STR1
LEA SI,STR2
MOV CX,4
M3: MOV AL,[SI]
MOV [DI],AL
INC DI 
INC SI
LOOP M3
 
DEC DX
CMP DX,0        ; Все перестановки сделаны?
JNE M1      ; Нет - идти на M1
RET
ENTRY   ENDP
CODESG  ENDS
END ENTRY