ВУЗ:
Составители:
30
П р и л о ж е н и е 2
; Подпрограмма перевода числа из символьной формы в двоичную
; SI - адрес символьной формы
; DI - адрес числа
PSN PROC
PUSH AX
PUSH CX
PUSH DX
MOV AL,[SI]
CMP AL,'-'
JNE MMM1
MOV CH,80H
JMP MMM2
MMM1: MOV CH,00H
MMM2: INC SI
MOV AL,SI
SUB AL,30H
MOV DL,10
MUL DL
MOV CL,AL
INC SI
MOV AL,SI
SUB AL,30H
ADD CL,AL
OR CL,CH
TEST CL,80H
JZ MMM3
XOR CL,7FH
INC CL
MMM3: MOV [DI],CL
INC SI
INC DI
POP DX
POP DX
POP CX
POP AX
RET PSN
ENDP
