MOV BL,A0
MOV DL,C0
MOV AL,0D

PUSH AL
LABELA:
IN 00
CMP AL,0D
JZ LABELB0
MOV [DL],AL
INC DL
SUB AL,30
PUSH AL
INC CL
CMP CL,B
JZ STOP
JMP LABELA

LABELB0:
MOV DL,2B
MOV [CB],DL
MOV CL,0
MOV DL,D0
LABELB:
IN 00
CMP AL,0D
JZ LABELC0
MOV [DL],AL
INC DL
SUB AL,30
MOV [BL],AL
INC BL
INC CL
CMP CL,B
JZ STOP
JMP LABELB

LABELC0:
MOV DL,EA
LABELC:
DEC BL
MOV CL,[BL]
LABELC1:
POP AL
CMP AL,0D
JZ LABELD
LABELC2:
ADD AL,CL
CMP AL,A
JNS LABELE
ADD AL,30
CMP DL,C0
JZ STOP
MOV [DL],AL
DEC DL
CMP BL,A0
JZ KONIEC
JMP LABELC

LABELD:
MOV AL,0
JMP LABELC2

LABELE:
SUB AL,A
DEC BL
ADD AL,30
MOV CL,C9
CMP DL,C0
JZ STOP
MOV [DL],AL
DEC DL
MOV CL,[BL]
INC CL
JMP LABELC1

STOP:
MOV AL,10
OUT 01

KONIEC:
END