Digitales II – Prof. Ochoa – 2ª evaluación del Semestre 2006-I

El enunciado de esta evaluacion consistia en llevar el cronometraje de una competencia en una piscina, entonces habia sensores que me tomaban la medida en los diferentes cronometros. En la piscina habian 4 carriles

   1:          ORG 2000H

   2:          LD SP,3DFFH

   3:          LD A,11001111B

   4:          OUT (CA),A

   5:          LD A,0FFH

   6:          OUT (CA),A

   7:  LAZO00:        IN A,(DA)

   8:          AND 0F0H

   9:          CP 0F0H

  10:          JP NZ,LAZO00

  11:  LAZO01:        IN A,(DA)

  12:          BIT 7,A

  13:          JP Z,CARRIL4

  14:          BIT 6,A

  15:          JP Z,CARRIL3

  16:          BIT 5,A

  17:          JP Z,CARRIL2

  18:          BIT 4,A

  19:          JP Z,CARRIL1

  20:          JP LAZO01

  21:  CARRIL4:    IN A,(DA)

  22:          BIT 7,A

  23:          JP Z,CARRIL4

  24:          LD IX,RELOJ4

  25:          LD IY,RELOJ0

  26:          LD (IY),0

  27:          LD (IY+1),0

  28:          LD (IY+2),0

  29:  LAZO40:        IN A,(DA)

  30:          BIT 3,A

  31:          JP Z,LAZO01

  32:          ;CALL RETRASO

  33:          CALL RELOJ

  34:          CALL TRANS

  35:          JP LAZO40

  36:   

  37:  CARRIL3:    IN A,(DA)

  38:          BIT 6,A

  39:          JP Z,CARRIL3

  40:          LD IX,RELOJ3

  41:          LD IY,RELOJ0

  42:          LD (IY),0

  43:          LD (IY+1),0

  44:          LD (IY+2),0

  45:  LAZO30:        IN A,(DA)

  46:          BIT 2,A

  47:          JP Z,LAZO01

  48:          ;CALL RETRASO

  49:          CALL RELOJ

  50:          CALL TRANS

  51:          JP LAZO30

  52:   

  53:  CARRIL2:    IN A,(DA)

  54:          BIT 5,A

  55:          JP Z,CARRIL2

  56:          LD IX,RELOJ2

  57:          LD IY,RELOJ0

  58:          LD (IY),0

  59:          LD (IY+1),0

  60:          LD (IY+2),0

  61:  LAZO20:        IN A,(DA)

  62:          BIT 1,A

  63:          JP Z,LAZO01

  64:          ;CALL RETRASO

  65:          CALL RELOJ

  66:          CALL TRANS

  67:          JP LAZO20

  68:   

  69:  CARRIL1:    IN A,(DA)

  70:          BIT 4,A

  71:          JP Z,CARRIL1

  72:          LD IX,RELOJ1

  73:          LD IY,RELOJ0

  74:          LD (IY),0

  75:          LD (IY+1),0

  76:          LD (IY+2),0

  77:  LAZO10:        IN A,(DA)

  78:          BIT 0,A

  79:          JP Z,LAZO01

  80:          ;CALL RETRASO

  81:          CALL RELOJ

  82:          CALL TRANS

  83:          JP LAZO10

  84:   

  85:   

  86:   

  87:   

  88:   

  89:  RELOJ:        INC (IY+2)

  90:          LD A,(IY+2)

  91:          CALL CHECK

  92:          LD (IY+2),A

  93:          CP 0A0H

  94:          JP NC,MINUTO

  95:          JP AQUI

  96:  MINUTO:        LD (IY+2),0

  97:          INC (IY+1)

  98:          LD A,(IY+1)

  99:          CALL CHECK

 100:          LD (IY+1),A

 101:          CP 60H

 102:          JP NC,HORA

 103:          JP AQUI

 104:  HORA:        LD (IY+1),0

 105:          INC (IY)

 106:          LD A,(IY)

 107:          CALL CHECK

 108:          LD (IY),A

 109:          CP 60H

 110:          JP C,AQUI

 111:          LD (IY),1

 112:          JP AQUI

 113:  CHECK:        CP 0AH

 114:          CALL Z,SUMA

 115:          CP 1AH

 116:          CALL Z,SUMA

 117:          CP 2AH

 118:          CALL Z,SUMA

 119:          CP 3AH

 120:          CALL Z,SUMA

 121:          CP 4AH

 122:          CALL Z,SUMA

 123:          CP 5AH

 124:          CALL Z,SUMA

 125:          CP 6AH

 126:          CALL Z,SUMA

 127:          CP 7AH

 128:          CALL Z,SUMA

 129:          CP 8AH

 130:          CALL Z,SUMA

 131:          CP 9AH

 132:          CALL Z,SUMA

 133:          RET

 134:  SUMA:        ADD 6

 135:  AQUI:        RET

 136:   

 137:  TRANS:        

 138:          LD C,(IY+2)

 139:          LD A,C

 140:          AND 0FH

 141:          OR 30H

 142:          LD (IX+7),A

 143:          LD A,C

 144:          RLCA

 145:          RLCA

 146:          RLCA

 147:          RLCA

 148:          AND 0FH

 149:          OR 30H

 150:          LD (IX+6),A

 151:   

 152:          LD C,(IY+1)

 153:          LD A,C

 154:          AND 0FH

 155:          OR 30H

 156:          LD (IX+4),A

 157:          LD A,C

 158:          RLCA

 159:          RLCA

 160:          RLCA

 161:          RLCA

 162:          AND 0FH

 163:          OR 30H

 164:          LD (IX+3),A

 165:   

 166:          LD C,(IY+0)

 167:          LD A,C

 168:          AND 0FH

 169:          OR 30H

 170:          LD (IX+1),A

 171:          LD A,C

 172:          RLCA

 173:          RLCA

 174:          RLCA

 175:          RLCA

 176:          AND 0FH

 177:          OR 30H

 178:          LD (IX+0),A

 179:          RET

 180:   

 181:   

 182:          ORG 2500H

 183:  RELOJ1        DB "00:00:00"

 184:  RELOJ2        DB "00:00:00"

 185:  RELOJ3        DB "00:00:00"

 186:  RELOJ4        DB "00:00:00"

 187:  RELOJ0        DB 0,0,0

 188:  CA        EQU 06H

 189:  DA        EQU 04H

 190:          END

 191:  ;LAB. DE DIGITALES II

 192:  ;8 DE JULIO DE 2006