Tare A 1
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Tare A 1 as PDF for free.
More details
- Words: 493
- Pages: 5
Nombre: Cristián Elpidio Veramendi Materia: Lógica Digital PROGRAMA VERI FICADOR DE NOTAS PARA APROBAR #SimuProc 1.4.3.0 MOV 56,51 MSG '1- 1ºPARCIAL ' MSG '2- EXAMEN OPTATIVO' MSG '3- AC.ACADEMICA' MSG '4- SABER NOTA' MSG '5- SALIR' LDT ' OPCION ' CMP 55 JMA 5B JEQ 15 CMP 54 JEQ 29 CMP 53 JEQ 23 CMP 52 JEQ 1D CMP 51 JEQ 17 JME 5B MSG 'ERROR 1' HLT MSG 'ADIOS' HLT INC 56 LDT '1ºPARCIAL' CMP 5D JMA 5E MOV 57,AX JMP 1 INC 56 LDT 'EXA.OPTATIVO' CMP 5D JMA 60 MOV 58,AX JMP 1 INC 56 LDT 'AC.ACADEMICA' CMP 5D
JMA 62 MOV 59,AX JMP 1 MOV AX,56 CMP 54 JMA 30 JME 64 JEQ 30 MSG 'ERRROR 2' HLT MOV AX,58 CMP 50 JEQ 66 CMP 57 JMA 68 JME 6A JEQ 6F MSG 'ERROR 3 ' HLT MOV 56,51 MSG 'TIPO DE MATERIA' MSG '' MSG '1-"A"' MSG '' MSG '2-"B"' MSG '' MSG '3-"C"' MSG '' MSG '4-SALIR' LDT '-OPCION' CMP 54 JMA 5B JEQ 1 CMP 53 JEQ 160 CMP 52 JEQ 140 CMP 51 JEQ 100 JME 5B HLT
#50 0 01 10 11 100 101 ;INICIALIZACION DEL MENU ;1P ;OP ;AA #5B MSG 'SOLO OPCION DEL MENU' JMP 1 #5D 1100100 ;(100) MSG 'LAS NOTAS SOLO ASTA 100' JMP 18 MSG 'LAS NOTAS SOLO ASTA 100' JMP 1E MSG 'LAS NOTAS SOLO ASTA 100' JMP 24 MSG ' INTRODUSCA LAS NOTAS' JMP 1 MOV 5A,57 JMP 39 MOV 5A,58 JMP 39 MOV AX,57 ADD 58 DIV 52 MOV 5A,AX JMP 39 MOV 5A,57 JMP 39 0011111011001100 ;0.4 1100110011001100 0011111100000000 ; 0.5 0000000000000000 0011111001001100 ;0.2 1100110011001100 0011110111001100 ;0.1
1100110011001000 0100001001001100 ;51 32B 0000000000000000 0100001011001000 ; 100 0000000000000000 110011 ; 51 EN 16B 0011111110000000 ;1 000000000000000 ;------------------------ TIPO A #100 MOV AX,5A ITOF AX MULF 71 STF 120 ; RESULTADO MOV AX,59 ITOF AX MULF 77 ADDF 120 STF 122 ;RESULTADO MOV AX,7D ITOF AX SUBF 122 OUT 1,AX STF 125 MOV AX,125 DIVF 73 ; RESULTADO MOV 130,AX MSG ' LA NOTA MINIMA QUE DEBE SACAR EN EL FINAL ES: ' MOV AX,130 FTOI AX EAP MSG '' MSG 'TE FALTA 1 Pt PARA ABROBAR ' MSG '' JMP 3A HLT ;------------------------------TIPO B #140 MOV AX,5A ITOF AX MULF 71 STF 120 ; RESULTADO MOV AX,59
ITOF AX MULF 75 ADDF 120 STF 122 ;RESULTADO MOV AX,7D ITOF AX SUBF 122 OUT 1,AX STF 125 MOV AX,125 DIVF 71 ; RESULTADO MOV 130,AX MSG ' LA NOTA MINIMA QUE DEBE SACAR EN EL FINAL ES: ' MOV AX,130 FTOI AX EAP JMP 3A HLT ;-----------------------------TIPO C #160 MOV AX,5A ITOF AX MULF 77 STF 120 ; RESULTADO MOV AX,59 ITOF AX MULF 73 ADDF 120 STF 122 ;RESULTADO MOV AX,7D ITOF AX SUBF 122 OUT 1,AX STF 125 MOV AX,125 DIVF 71 ; RESULTADO MOV 130,AX MSG ' LA NOTA MINIMA QUE DEBE SACAR EN EL FINAL ES: ' MOV AX,130 FTOI AX EAP JMP 3A HLT
JMA 62 MOV 59,AX JMP 1 MOV AX,56 CMP 54 JMA 30 JME 64 JEQ 30 MSG 'ERRROR 2' HLT MOV AX,58 CMP 50 JEQ 66 CMP 57 JMA 68 JME 6A JEQ 6F MSG 'ERROR 3 ' HLT MOV 56,51 MSG 'TIPO DE MATERIA' MSG '' MSG '1-"A"' MSG '' MSG '2-"B"' MSG '' MSG '3-"C"' MSG '' MSG '4-SALIR' LDT '-OPCION' CMP 54 JMA 5B JEQ 1 CMP 53 JEQ 160 CMP 52 JEQ 140 CMP 51 JEQ 100 JME 5B HLT
#50 0 01 10 11 100 101 ;INICIALIZACION DEL MENU ;1P ;OP ;AA #5B MSG 'SOLO OPCION DEL MENU' JMP 1 #5D 1100100 ;(100) MSG 'LAS NOTAS SOLO ASTA 100' JMP 18 MSG 'LAS NOTAS SOLO ASTA 100' JMP 1E MSG 'LAS NOTAS SOLO ASTA 100' JMP 24 MSG ' INTRODUSCA LAS NOTAS' JMP 1 MOV 5A,57 JMP 39 MOV 5A,58 JMP 39 MOV AX,57 ADD 58 DIV 52 MOV 5A,AX JMP 39 MOV 5A,57 JMP 39 0011111011001100 ;0.4 1100110011001100 0011111100000000 ; 0.5 0000000000000000 0011111001001100 ;0.2 1100110011001100 0011110111001100 ;0.1
1100110011001000 0100001001001100 ;51 32B 0000000000000000 0100001011001000 ; 100 0000000000000000 110011 ; 51 EN 16B 0011111110000000 ;1 000000000000000 ;------------------------ TIPO A #100 MOV AX,5A ITOF AX MULF 71 STF 120 ; RESULTADO MOV AX,59 ITOF AX MULF 77 ADDF 120 STF 122 ;RESULTADO MOV AX,7D ITOF AX SUBF 122 OUT 1,AX STF 125 MOV AX,125 DIVF 73 ; RESULTADO MOV 130,AX MSG ' LA NOTA MINIMA QUE DEBE SACAR EN EL FINAL ES: ' MOV AX,130 FTOI AX EAP MSG '' MSG 'TE FALTA 1 Pt PARA ABROBAR ' MSG '' JMP 3A HLT ;------------------------------TIPO B #140 MOV AX,5A ITOF AX MULF 71 STF 120 ; RESULTADO MOV AX,59
ITOF AX MULF 75 ADDF 120 STF 122 ;RESULTADO MOV AX,7D ITOF AX SUBF 122 OUT 1,AX STF 125 MOV AX,125 DIVF 71 ; RESULTADO MOV 130,AX MSG ' LA NOTA MINIMA QUE DEBE SACAR EN EL FINAL ES: ' MOV AX,130 FTOI AX EAP JMP 3A HLT ;-----------------------------TIPO C #160 MOV AX,5A ITOF AX MULF 77 STF 120 ; RESULTADO MOV AX,59 ITOF AX MULF 73 ADDF 120 STF 122 ;RESULTADO MOV AX,7D ITOF AX SUBF 122 OUT 1,AX STF 125 MOV AX,125 DIVF 71 ; RESULTADO MOV 130,AX MSG ' LA NOTA MINIMA QUE DEBE SACAR EN EL FINAL ES: ' MOV AX,130 FTOI AX EAP JMP 3A HLT
