From Regulus Berdin
;Increment/Decrement routines for packed BCD
;
;6 digit bcd in bcd1:bcd2:bcd3:...(lsb:msb)
;
;
cblock 0x0c
tmp
bcd1:3
endc
inc_bcd:
movlw bcd1
movwf FSR
movlw 3 ;adjust for number of digits
movwf tmp
iloop movlw 0x67
addwf INDF
movlw 0x60
skpdc
movlw 0x66
skpc
subwf INDF
skpz
goto iquit
incf FSR
decfsz tmp
goto iloop
iquit retlw 0
dec_bcd:
movlw bcd1
movwf FSR
movlw 3 ;adjust for number of digits
movwf tmp
dloop movlw 1
subwf INDF
addwf INDF,w
movlw 0x6
skpnc
movlw 0x66
skpndc
subwf INDF
xorlw 0x66
skpz
goto dquit
incf FSR
decfsz tmp
goto dloop
dquit retlw 0
The routines can accomodate to any number of BCD digits, just change the movlw 3.
See also:
| file: /Techref/microchip/math/incdec/packedBCD-RB.htm, 1KB, , updated: 2009/2/13 14:35, local time: 2012/2/10 17:02,
38.107.179.231:LOG IN |
| ©2012 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions? <A HREF="http://www.piclist.com/techref/microchip/math/incdec/packedBCD-RB.htm"> PIC Microcontoller, Math Method, Increment / Decrement packed BCD, Regulus Berdin </A> |
| Did you find what you needed? |
|
o List host: MIT, Site host massmind.org, Top posters @20120210 Electron, V G, IVP, RussellMc, Carl Denk, Isaac Marino Bavaresco, YES NOPE9, William \Chops\ Westfield, cdb, alan.b.pearce, * Page Editors: James Newton, David Cary, and YOU! * Roman Black of Black Robotics donates from sales of Linistep stepper controller kits. * Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters. * Monthly Subscribers: None at this time. on-going support is MOST appreciated! * Contributors: Richard Seriani, Sr. |
SX MASTERS: Eric Smith and Richard Ottosen's SERVID is an intellegent RS232 video terminal (4x20 character display) in one chip. See the write up here.. |
.