Mercurial > public > mk2
view code_part1/OSTC_code_asm_part1/wait.asm @ 241:f44274d8440a
Model cleanups.
+ Fix look for current gas.
+ Minor optimize.
+ Fix needs to remember last switch gas depth, too.
+ Always take deepest gas.
+ Optimize by limiting search to 10m/min ascent.
+ FIX ascending 10m is 0.9985 bar.
+ FIX typos 9995 --> 9985
author | JeanDo |
---|---|
date | Mon, 21 Mar 2011 20:50:52 +0100 |
parents | 96a35aeda5f2 |
children | 42acd9316f7a |
line wrap: on
line source
; OSTC - diving computer code ; Copyright (C) 2008 HeinrichsWeikamp GbR ; This program 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 3 of the License, or ; (at your option) any later version. ; This program 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 program. If not, see <http://www.gnu.org/licenses/>. ; Wait routines ; written by: chsw, info@heinrichsweikamp.com ; written: 01/31/04 ; last updated: 11/05/07 ; known bugs: ; ToDo: ; ========================================================== ; WAIT 10 MICROSECONDS - 16 MHZ ; ========================================================== WAIT10US macro wait_temp movlw wait_temp call WAIT10USX endm WAIT10USX movwf wait_temp goto JumpIn10us WAIT10USX2 nop nop nop nop nop nop nop nop nop JumpIn10us: nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop decfsz wait_temp,1 goto WAIT10USX2 return ; ========================================================== ; WAIT 1 MILLISECOND - 16 MHZ ; ========================================================== WAITMS macro waitms_temp movlw waitms_temp call WAITMSX endm WAITMSX movwf waitms_temp goto JumpInMSX WAITMSX2 nop nop nop nop nop nop nop nop nop JumpInMSX: nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop nop WAIT10US d'99' decfsz waitms_temp,1 goto WAITMSX2 return