El Microprocesador

;Ecuación de 2do Grado

MSG 'Programa Ecuación de 2do Grado'

;MSG 'Introduzca el valor de "a"'

LDT 'Introduzca el valor de "a"' ;Leo el Valor de A=

MOV 4A,AX ;Grabo el numero en la dir 4A y 4B

;MSG 'Introduzca el Valor de "b"'

LDT 'Introduzca el valor de "b"' ;Leo el valor de B=

MOV 4C,AX ;Grabo el numero en la dir 4C y 4D

;MSG 'Introduzca el Valor de "c"'

LDT 'Introduzca el valor de "c"' ;Leo el valor de C=

MOV 4E,AX ;Grabo el numero en la dir 4E y 4F

JMP 90

MSG '-b'

MOV AX,5A

EAP 5A

;d=b*b-4.0*a*c

MOV 4C,AX

MUL 4C

SUB 64

MUL 4A

MUL 4E

MOV AX,50

JMP 95

MOV AX,50

MSG 'd='

EAP 50

CMP 55

JMA 60 ;d es mayor a 0

JEQ 60 ;d es igual a 0

JMP 80 ;si b es menor a 0 salta a la pos 80

;Inicializo las constantes 1 y 2 en IEEE 754

#50

0011111110000000 ;Inicializo el Numero 1 en la dir 30 y 31

0000000000000000

0100000000000000 ;numero 2 en la dir 32 y 33

0000000000000000

110

0

010

#60

; X1=(-b+SQR(b))/a/2.0

MOV AX,5A ;-b

ADD 100 ;raiz de b

DIV 4A

DIV 56

MOV 6A,AX

; X2=(-b-SQR(b))/a/2.0

MOV AX,5A ;-b

SUB 100

DIV 4A

DIV 56

MOV 6D,AX

JMP 120

#80

;X2=sqr(-d)/a/2

MOV AX,5C ;-d

;LDF 110 ;Raiz de -d

DIV 4A

DIV 56

MOV 6D,AX

;X1=-b/0/2

MOV AX,5A ;-b

DIV 4A

DIV 56

MOV 6A,AX

JMP 120

#90 ; -b

MOV AX,55

MSG 'Negando b'

SUB 4C

MOV 5A,AX

EAP 5A

JMP 0C

#95 ; -d

MOV AX,55

MSG 'Negando d'

SUB 50

MOV 5C

OUT 1,AX

JMP 16

# 120

;Mostrar datos en Pantall

MSG 'El valor de X1 es:'

MOV AX,6A

EAP 'X='

MSG 'El valor de X2 es:'

MOV AX,6D

EAP 'X2'

HLT

...