;Zad 4

CALL 10
CALL 28
CALL 4E
JMP Koniec

ORG 10
Start:
MOV CL,70
Podaj:
IN 00
MOV [CL],AL
CMP CL,AF
JZ Powrot1
INC CL
CMP AL,0D
JZ Powrot1
JMP Podaj
Powrot1:
RET

ORG 28
MOV CL,6F
Zmien:
INC CL
MOV AL,[CL]
CMP AL,0D
JZ Powrot2
CMP AL,41
JS Zmien
CMP AL,5B
JNS Zmien
ADD AL,20
MOV [CL],AL
CMP CL,AF
JZ Powrot2
JMP Zmien
Powrot2:
RET

ORG 4E
MOV CL,70
MOV DL,C0
Wyswietl:
MOV AL,[CL]
CMP AL,0D
JZ Powrot3
MOV [DL],AL
CMP CL,AF
JZ Powrot3
INC CL
INC DL
JMP Wyswietl
Powrot3:
RET

Koniec:
END