;-------------------------------------------------------------------------- ; delay10ktcy.S ; ; Copyright (C) 2005, Vangelis Rokas ; ; This library is free software; you can redistribute it and/or modify it ; under the terms of the GNU General Public License as published by the ; Free Software Foundation; either version 2, or (at your option) any ; later version. ; ; This library is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; ; You should have received a copy of the GNU General Public License ; along with this library; see the file COPYING. If not, write to the ; Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, ; MA 02110-1301, USA. ; ; As a special exception, if you link this library with other files, ; some of which are compiled with SDCC, to produce an executable, ; this library does not by itself cause the resulting executable to ; be covered by the GNU General Public License. This exception does ; not however invalidate any other reasons why the executable file ; might be covered by the GNU General Public License. ;-------------------------------------------------------------------------- include extern _delay10tcy extern _delay1ktcy global _delay10ktcy code _delay10ktcy: ; polynomial for 10ktcy delay is f(x) = 10000 * (x-1) + 10000 decf WREG, f movwf POSTDEC1 movlw 9 call _delay1ktcy movlw 99 call _delay10tcy movf PREINC1, w bz @delay10k_end bra $+2 @delay10k_loop: movwf POSTDEC1 movlw 9 call _delay1ktcy movlw 99 call _delay10tcy bra $+2 bra $+2 nop movf PREINC1, w decfsz WREG, f bra @delay10k_loop @delay10k_end: return end