Язык Assembler.
Microprocessor simulator 5.0
db "AMBCD;"
go:
mov AL,d0
mov BL,02
mov CL,0
get:
mov DL,[BL]
sub BL,CL
cmp BL,3
jz yes
jmp no
yes:
add BL,CL
cmp DL,3B
jz stop
add CL,2
cmp DL,41
jz no2
inc BL
jmp get
no:
add BL,CL
no2:
mov [AL],DL
cmp DL,3B
jz stop
inc AL
inc BL
jmp get
stop:
push CL
pop AL
div AL,2
end