* ----------------------------------------------------------------------- * wait.inc 2001/03/03 * * Rutina para realizar pausas. * * Requisitos * Ninguno. * * Copyright (C) 2001 Javier de Lope Asiaín * ----------------------------------------------------------------------- * ----------------------------------------------------------------------- * f_wait * Hace una pausa completa controlada por el registro Y (~98ms). * Esta rutina debe ir antes que la `wait' para aprovechar su RTS. * * Entradas: * Salidas : * Modifica: El registro Y * ----------------------------------------------------------------------- f_wait LDY #$FFFF ; Carga $FFFF en el registro Y * ----------------------------------------------------------------------- * wait * Hace una pausa durante un tiempo determinado por el registro Y. * * Entradas: Valor de la pausa en el registro Y. * Salidas : * Modifica: El registro Y. * ----------------------------------------------------------------------- wait DEY ; Decrementa el registro Y CPY #$00 ; Si no ha llegado a 0 BNE wait ; Continua en la pausa RTS ; Retorno de subrutina