Trabajo de arquitectura de computadoras

;

; ** TRABAJO DE ARQUITECTURA DE COMPUTADORAS **

;

;**********************************************************

PAGE 60,132

; PUBLIC NAMEPAR,MAXNLEN,ACTNLEN,TEXTO,MENSA1,MENSA2

; PUBLIC BEGIN,A20LOOP,FIN,A30,B10PRMP,D10INPT,F10CLNM

; PUBLIC BEGIN,B10PRMP,D10INPT,F10CLNM

; PUBLIC F20,Q10CLR,Q20CURS

; PUBLIC Q10CLR,Q20CURS

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

; PROGRAMA PARA CONVERTIR CADENAS

TITLE ECO

;--------------------------------------------------------------------

STACKSG SEGMENT PARA STACK 'STACK'

DW 32 DUP (?)

STACKSG ENDS

;--------------------------------------------------------------------

DATASG SEGMENT PARA 'DATA'

CADENA1 LABEL BYTE ;START OF NAME PARAMETER LIST

MAXNLEN DB 11 ;MAX. LENGTH OF NAME

ACTNLEN DB ? ;MRO. CHARS ENTERED

TEXTO DB 13 DUP (' '),'$' ;NAME & DELIMITER

CADENA2 LABEL BYTE

MAXNLEN2 DB 11

ACTNLEN2 DB ?

TEXTO2 DB 13 DUP (' '),'$'

CADENA3 LABEL BYTE

MAXNLEN3 DB 11

ACTNLEN3 DB ?

TEXTO3 DB 13 DUP (' '),'$'

CADENA4 LABEL BYTE

MAXNLEN4 DB 11

ACTNLEN4 DB ?

TEXTO4 DB 13 DUP (' '),'$'

CADENA5 LABEL BYTE

MAXNLEN5 DB 11

ACTNLEN5 DB ?

TEXTO5 DB 13 DUP (' '),'$'

MENSAJE1 DB '* CUANTAS CADENAS DE CARACTERES QUIERE INGRESAR : $'

MENSAJE2 DB '¯ NO ESTA DENTRO DEL RANGO, INTENTE DE NUEVO... $'

MENSAJE3 DB '- INGRESE CADENA :$'

MENSAJE4 DB '* SELECCIONE DE QUE MANERA QUIERE QUE SE MUESTRE EL CODIGO: $'

MENSAJE5 DB '- MOSTRAR EN CODIGO HEXADECIMAL (ASCII) - PRESIONE "A" $'

MENSAJE6 DB '- MOSTRAR EN CODIGO BINARIO (ASCII) - PRESIONE "B" $'

MENSAJE7 DB '- MOSTRAR EN CODIGO HEXADECIMAL (EBCDIC) - PRESIONE "H" $'

MENSAJE72 DB '- MOSTRAR EN CODIGO OCTAL (ASCII) - PRESIONE "O" $'

MENSAJE73 DB ' DIGITE LA LETRA DEL CODIGO: $'

MENSAJE8 DB 'LA OPCION IGRESADA ES INCORRECTA, LEA E INTENTE NUEVAMENTE... $'

MENSAJE9 DB 'USTED A SELECCIONADO ASCII: $'

MENSAJE10 DB 'USTED A SELECCIONADO BINARIO : $'

MENSAJE11 DB 'USTED A SELECCIONADO HEXADECIMAL : $'

MENSAJE12 DB 'USTED A SELECCIONADO OCTAL : $'

MENSAJE13 DB 'PRESIONE EL NUMERO DE CADENA QUE DESEE MOSTRAR: $'

MENSAJE14 DB '1.- $'

MENSAJE15 DB '2.- $'

MENSAJE16 DB '3.- $'

MENSAJE17 DB '4.- $'

MENSAJE18 DB '5.- $'

MENSAJE19 DB 'INGRESE EL NUMERO DE LA CADENA QUE DESEA CONVERTIR: $'

MENSAJE20 DB '¯ OPCION INCORRECTA, INTENTE DE NUEVO $'

MENSAJE21 DB '* ERROR $'

MENSAJE22 DB '* USTED NO HA INGRESADO EL NUMERO DE CADENAS INGRESADAS $'

MENSAJE23 DB '- PRESIONE CUALQUIER TECLA PARA REGRESAR... $'

MENSAJE24 DB ' ¨ DESEA CONTINUAR ? SI(S) NO(N) $'

MENSAJE25 DB ' *ERROR* $'

MENSAJE26 DB '¯ POR FAVOR SOLO INGRESE LAS LETRAS ASIGNADAS A CADA OPCION... $'

MENSAJE30 DB ' *** GRACIAS *** $'

MENSAJE31 DB ' INTEGRANTES: $'

MENSAJE32 DB '- FLORES BORDAIS, JESUS MAXIMO COD: 09190058 $'

MENSAJE33 DB '- GRANDA COLLADO, MANUEL COD: 09190092 $'

MENSAJE34 DB '- HUANCA HONORIO, DENNIS COD: 09190127 $'

MERROREBC

...