Panel_Candy

*-----------------------------------------------------------
* Title      :
* Written by :Fulgencio
* Date       :
* Description:  Ejemplo de presentación en modo texto (números)
*               del tablero de situació del juego
*               CANDY-CRUSH
*-----------------------------------------------------------
NUMCOL EQU 8
NUMFIL EQU 6

    ORG    $1000
START:

    JSR PINTAPANEL
    SIMHALT


PINTAPANEL

    MOVEM.L D0-D3/A0-A1, -(A7)

    MOVE.L #0,D2  * D2=col
    MOVE.L #0,D3  * D3=fila
                  * D1 contiene el número que indica el caramelo
                  * D0 como registro auxiliar para cálculo y selección de Task

    MOVE.L #PANEL,A0  *Apunta donde está almacenado el panel de juego
.LOOP
    MOVE.L D3,D0
    LSL.L #3,D0  * multiplica por 8 la fila = MULU #8,D0
    ADD.L D2,D0  * D0=fila*8+col  (8 elementos por fila)

    MOVE.B (A0,D0),D1   *D1 será el caramelo de esa posición
                        *También se podría haber sumado A2+D0
                        *y luego poner solo (A2)
    MOVE.L #3,D0
    TRAP #15        *escribe el caramelo en directamente en modo
                    *número (TASK 3). También se podría comparar
                    *con las distintos valores posibles y dibujarlos
                    *gráficamente o con otros símbolos. También se
                    *puede jugar con los colores

     ADD.L #1,D2         *Columna siguiente
     CMP.L #NUMCOL,D2    *¿Fin de fila?
     BNE .LOOP

     MOVE.L #14,D0
     MOVE.L #CRLF,A1
     TRAP #15            *Salto siguiente línea

     CLR.L D2           *Vuelta a columna 0
     ADD.L #1,D3        *Siguiente fila
     CMP.L #NUMFIL,D3   *¿ultima fila?
     BNE .LOOP

     MOVEM.L (A7)+,D0-D3/A0-A1
     RTS

* Put variables and constants here

      ORG $5000  *Variables a partir de $5000

PANEL DC.B 2,2,2,5,2,1,1,3
      DC.B 1,2,3,4,5,2,1,2
      DC.B 4,3,1,2,3,1,4,4
      DC.B 2,1,4,5,1,4,4,3
      DC.B 3,5,3,3,1,3,3,2
      DC.B 1,2,2,3,1,3,1,1

CRLF  DC.B 10,13,0

    END    START        ; last line of source