CLICK_RATON_COORD

*-----------------------------------------------------------
* Title      :
* Written by : Fulgencio
* Date       :
* Description: Este programa espera el click izqdo de ratón y cuando lo detecta
*              saca por pantalla las coordenadas del click en formato x,y
*              Lee el ratón y los clicks con la task 61 y saca los números de las
*              coordenadas con la task 3. También utiliza las task 6 y 14 para la
*              ',' y una cadena de espacios que sobreimprime los restos de texto
*-----------------------------------------------------------
    ORG    $1000
START:                  ; first instruction of program

* Put program code here

LOOP
            MOVE.L #61,D0
            MOVE.L #0,D1
            TRAP #15

            BTST #0,D0   *Comprueba el bit 0 (corresponde con click izqdo)
            BEQ LOOP     *Si no hay click izqdo, se mantiene el bucle

            CLR.L D2
            SWAP D1      *En D1 tenemos 00|YY|00|XX
            MOVE.W D1,D2
            EXT.L D2     *Extiende el signo de Word a Long (para incluir negativos)
            CLR.W D1
            SWAP D1      *Hemos pasado Y a D2 y dejamos X en D1
            EXT.L D1     *Extiende el signo de Word a Long (para incluir negativos)

            JSR HOMETXT

            MOVE.L #3,D0
            TRAP #15     *Pinta COORDX

            MOVE.L #6,D0
            MOVE.L #',',D1
            TRAP #15     *Pinta una ,

            MOVE.L #3,D0
            MOVE.L D2,D1
            TRAP #15     *Pinta COORDX

            MOVE.L #14,D0
            MOVE.L #BLANCOS,A1
            TRAP #15
            JMP LOOP

    SIMHALT             ; halt simulator

HOMETXT     MOVEM.L D0-D1,-(A7)
            MOVE.L #11,D0
            CLR.L D1 *Coordenadas de texto 0,0
            TRAP #15
            MOVEM.L (A7)+,D0-D1
            RTS

* Put variables and constants here
BLANCOS     DC.B '     ',0
    END    START        ; last line of source