2048

     ORG    $1000
START:                  ; first instruction of program

     MOVE.L #CELDAS,A3
REINICIO
     MOVE.B #4,D4 ;CONTADOR
BUCLE1
     MOVE.L #1,D1
     MOVE.B (A3)+,D2 ;COGEMOS UN ELEMENTO EN D2
     LSL.L D2,D1 ;OBTENEMOS LA POTENCIA DE 2

     JSR IMPRIME

*     MOVE.L #3,D0
*     TRAP #15  ;IMPRIME EL NÚMERO DIRECTAMENTE

*     JSR ESPACIO

     SUB.B #1,D4
     BNE BUCLE1  ¿VAN 4?

     CMP.L #CELDAS+16,A3 ¿ESTAN TODAS?
     BEQ COMPLETO

     JSR SALTOLIN  ;SALTA LINEA SIGUIENTE
     JMP REINICIO


COMPLETO


* Put program code here

    SIMHALT             ; halt simulator

ESPACIO MOVE.L #6,D0
        MOVE.B #' ',D1
        TRAP #15
        RTS

IMPRIME CMP.B #1,D1 ;¿ES UN VACIO?
        BEQ PRINVACIOS

        MOVE.L #20,D0
        MOVE.L #6,D2
        TRAP #15   ;IMPRIME DEJANDO SIEMPRE 6 ESPACIOS
        RTS

PRINVACIOS
         MOVE.L #14,D0
         MOVE.L #VACIOS6,A1
         TRAP #15
         RTS

SALTOLIN MOVE.L #6,D0
         MOVE.L #$A,D1  ;AVANCE LINEA
         TRAP #15
         MOVE.L #$D,D1  ;RETORNO CARRO
         TRAP #15
         RTS

* Put variables and constants here

*CELDAS DS.B 16 *Reservo 16 posiciones de las celdas


CELDAS DC.B 1,1,2,7
       DC.B 0,0,0,1
       DC.B 1,2,0,0
       DC.B 3,1,0,1

VACIOS6 DC.B '      ',0

    END    START        ; last line of source