Digitales II – Prof. Ochoa

Este fue uno de los codigos mas faciles que hice para este profesor, es tomar dos números, y decir si el numero 1 es divisible por el numero 2, y mostrar en la pantalla SI o NO

Este programa usa el sistema del desarrollo del laboratorio.

   1:          ORG 2000H

   2:          LD SP,3DFFH

   3:   

   4:          CALL BORRAR_PAN

   5:   

   6:          LD IX,L1

   7:          LD A,1

   8:          CALL ENVIAR_MEN

   9:   

  10:          LD HL,NUM1

  11:  DEP1:           CALL SCAN

  12:          CP 30H

  13:          JP C,DEP1

  14:          CP 3AH

  15:          JP NC,DEP1

  16:          

  17:          LD (HL),A 

  18:          INC HL

  19:   

  20:          LD IX,L2

  21:          LD A,2

  22:          CALL ENVIAR_MEN

  23:   

  24:          LD HL,NUM2

  25:   

  26:  DEP2:           CALL SCAN

  27:          CP 30H

  28:          JP C,DEP2

  29:          CP 3AH

  30:          JP NC,DEP2

  31:   

  32:          LD (HL),A

  33:          INC HL

  34:   

  35:          LD IX,L2

  36:          LD A,2

  37:          CALL ENVIAR_MEN

  38:   

  39:          LD HL,NUM1

  40:          LD IX,N1

  41:          LD A,(HL)

  42:          SUB 30H

  43:          LD (IX),A

  44:   

  45:   

  46:          LD HL,NUM2

  47:          LD IX,N2

  48:          LD A,(HL)

  49:          SUB 30H

  50:          LD (IX),A

  51:   

  52:          LD IX,N1

  53:          LD IY,N2

  54:          LD A,(IX)

  55:  RESTO:        NOP

  56:          SUB (IY)

  57:          JP C,NODIV

  58:          CP 0

  59:          JP NZ,RESTO

  60:          ; EL NUMERO ES DIVISIBLE

  61:   

  62:          CALL BORRAR_PAN

  63:          

  64:          LD IX,L2

  65:          LD A,2

  66:          CALL ENVIAR_MEN

  67:          

  68:          LD IX,L3

  69:          LD A,3

  70:          CALL ENVIAR_MEN

  71:   

  72:          

  73:   

  74:  FINAL:        

  75:          LD IX,L5

  76:          LD A,4

  77:          CALL ENVIAR_MEN

  78:   

  79:          CALL SCAN

  80:          RST 48H

  81:   

  82:  NODIV:

  83:          CALL BORRAR_PAN

  84:          

  85:          LD IX,L2

  86:          LD A,2

  87:          CALL ENVIAR_MEN

  88:          

  89:          LD IX,L4

  90:          LD A,3

  91:          CALL ENVIAR_MEN

  92:          JP FINAL

  93:   

  94:   

  95:          ORG 3000H

  96:  N1        DB 0

  97:  N2        DB 0

  98:   

  99:  L1        DB " INTRODUZCA DOS NUMEROS $"

 100:  L2        DB "      "

 101:  NUM1        DB 0

 102:          DB "    "

 103:  NUM2        DB 0

 104:          DB "    ",24H

 105:  L3        DB " SI$"

 106:  L4        DB " NO$"

 107:  L5        DB " ***** PRESIONE CUALQUIER TECLA PARA SALIR ****** ",24H

 108:   

 109:  ENVIAR_MEN      EQU 052BH

 110:  BORRAR_PAN      EQU 055CH

 111:  SCAN            EQU 04F1H