Examen Final - 75.03. Organización del Computador

Cátedra: Saubidet
Fecha: Primera Oportunidad - Segundo Cuatrimestre 2005
Día: 22/12/2005

Codificar una rutina en Assembler para IBM 370 que realice lo siguiente:

1. Dado un entero positivo de entre 1 y 8 caractéres, devolver la configuración hexadecimal del mismo en formato B.P.Flot de 32 bits.

CONVERS    PPIO  3
INGRESA    WTORPC 'Ingrese un numero',8,ENTRA
           TRT    ENTRA,VALID
           BZ     VALIDO
           WTO    'El numero ingresado es incorrecto'
           B      INGRESA
VALIDO     PACK   AUXP,ENTRA
           CVB    5,AUXP
           SLDL   4,4 //Elimino lo que sobra
           LA     8,8 //BCT
           LA     7,0 //Contador
OTROZ      LA     4,0
           SLDL   4,4
           C      4,=F'0'
           BNE    SIGNIFICA
           LA     7,1(7)
           BCT    8,OTRO
           B      FINMANTISA
SIGNIFICA  LA     9,SALE+2 //por característica
OTROS      STCM   4,1,0(9)
           TR     0(1,9),HEXA
           LA     4,0
           LA     9,1(9)
           SLDL   4,4
           BCT    8,OTROS
FINMANTISA LA     4,=F'47'
           SR     4,7
           LA     5,0
           SRDL   4,4
           SRL    5,4
           LA     9,SALE+1
           STCM   5,8,0(9)
           TR     0(1,9),HEXA
           LA     9,SALE
           STCM   4,1,0(9)
           TR     0(1,9),HEXA
           WTO    SALE
FIN        CHAU

ENTA       DS     CL8
VALID      DC     240C'*'
                  10X'00'
                  16C'*'
AUXP       DC     D'0'
SALE       DC     CL9'0'
HEXA       DC     C'0123456789ABCDEF'
           END 

Hipótesis: El usuario ingresa ceros a la izquierda para completar los ocho cracteres