; Zad 12

MOV DL,C0

Wpisz:
IN 00
CMP AL,0D
JZ StartLiczby
MOV [DL],AL
INC DL
JMP Wpisz

StartLiczby:
MOV DL,C0
MOV AL,0
CALL 8C
PUSH CL
PUSH BL
POP AL
INC DL
MOV BL,0
CALL 8C
POP CL
CMP CL,2B
JNZ Dalej
ADD AL,BL
JO Blad
Dalej:
CMP CL,2D
JNZ Dalej2
SUB AL,BL
JO Blad
Dalej2:
CMP CL,2A
JNZ Dalej3
MUL AL,BL
JO Blad
Dalej3:
CMP CL,2F
JNZ Dalej4
CMP BL,0
JZ Blad
DIV AL,BL
JO Blad
Dalej4:
MOV CL,3D
MOV [DL],CL
INC DL
MOV CL,FF
PUSH CL
Podziel:
CMP AL,0
JZ Wypisz
PUSH AL
MOD AL,A
PUSH AL
POP BL
POP AL
DIV AL,A
PUSH BL
JMP Podziel
Wypisz:
POP AL
CMP AL,FF
JZ Koniec
ADD AL,30
MOV [DL],AL
INC DL
JMP Wypisz

Blad:
JMP Koniec

ORG 8C
Liczba:
MOV CL,[DL]
CMP CL,20 ;Spacja
JZ Powrot
CMP CL,2B ;+
JZ Powrot
CMP CL,2D ;-
JZ Powrot
CMP CL,2A ;*
JZ Powrot
CMP CL,2F ;/
JZ Powrot
SUB CL,30
MUL BL,A
JO Blad
ADD BL,CL
JO Blad
INC DL
JMP Liczba
Powrot:
RET

Koniec:
END