please dont rip this site

PIC Microcontoller Radix Math Method

Borowski Hex Format

@spam@a.borowski at student.qut.edu.au shares this code:

http://alborowski.tk These chunks of code convert a binary number to 'bastard hex format' (NOTE TO PICLIST PERSON: If the word 'bastard' offends you, feel free to substitute borowski :-)

EG d'255' will become ff (lower case), and bhf'73' will become 115. This is useful for EPROM programmers and the like, where you wish to send binary data to the PIC and back, but don't want your data accidently triggering any of the PIC's commands. Simply encode your data in BHF, send it to the PIC, which will decode it and process it.

I hope this is useful to someone...

BHF2BIN ; In: BHF1,BHF2 Out: BIN
	;Working on BHF1:
	clrf BIN
	clrf W
	movf BHF1, 0 ; put BHF 1 into W register 
	sublw d'96' ; ASCII char just before 'a'
	btfss STATUS,0 ; check to see if we have a letter or a number 
	GOTO letBHF1
	GOTO numBHF1
letBHF1
	;Code here is executed if we have a letter for BHF1
	movlw d'87'
	subwf BHF1,0 ; get rid of the ASCII offset
	movwf BIN ; put the high nibble in BIN
GOTO DoBHF2
numBHF1
	;Code here is executed if we have a  number for BHF1
	movlw d'48'
	subwf BHF1,0 ; get rid of the ASCII offset
	movwf BIN ; put the high nibble in BIN
DoBHF2 ; this code takes care of the second BHf to bin nibble
	clrf W
	movf BHF2, 0 ; put BHF 2 into W register 
	sublw d'96' ; ASCII char just before 'a'
	btfss STATUS,0 ; check to see if we have a letter or a number 
	GOTO letBHF2
	GOTO numBHF2
letBHF2
	;Code here is executed if we have a letter for BHF2
	movlw d'87'
	subwf BHF2,0 ; get rid of the ASCII offset
	GOTO ShiftIn
numBHF2
	;Code here is executed if we have a  number for BHF2
	movlw d'48'
	subwf BHF2,0 ; get rid of the ASCII offset
ShiftIn
	bcf STATUS,0 ; get rid of any carry that could screw up the bitshift
	movwf Temp ; save out 2nd nibble in temp to prevent errors
	swapf Temp, 1	;shift nibble to high nibble
	bcf STATUS,0 ; get rid of any carry that could screw up the bitshift
	; All this tricky bit shifting merges the 2 nibbles gained from decoding BHF1 and BHF2
	; into a single binary byte
	rlf Temp,1
	rlf BIN,1
	rlf Temp,1
	rlf BIN,1
	rlf Temp,1
	rlf BIN,1
	rlf Temp,1
	rlf BIN,1
	movf BIN,0 ; put the result in W for debugging	

         RETURN



	
BIN2BHF
	; this command wil encode a byte into bastard hex format. In: BIN Out: BHF1,BHF2
	clrw
	clrf BHF1
	clrf BHF2
	bcf STATUS,0 ; get rid of any carry that could screw up the bitshift
	rrf BIN,1
	rrf BHF2,1	
	rrf BIN,1
	rrf BHF2,1
	rrf BIN,1
	rrf BHF2,1
	rrf BIN,1
	rrf BHF2,1
	swapf BHF2,1 ; fix up annoying bug	
	movf BIN, 0
	movwf BHF1 ; put BHF nibble in place
;Now, to enocde in ASCII
	movf BHF1, 0; put BHF1 into W for debugging
	movf BHF2,0 ; put BHF2 into W for debugging	
	movlw d'10' ; put 10 in W
	subwf BHF1, 0
	clrw ; W is cleared
	btfsc STATUS,0 ; test if we have a number or a letter - next command is skipped if we have a number
	addlw d'39'
	addlw d'48' ; subtract 10 for hex
	addwf BHF1,1
	movf BHF1,0 ; put BHF1 in W for debugging	
	;OK, BHF 1 is encoded
	bcf STATUS,0 ; clear any carry (as if that could make a difference)
	clrw ; Wipe W
	movf BHF2,0 ; put BHF2 into W for debugging
	movlw d'10' ; put 10 in W	
	subwf BHF2, 0
	clrw ; W is cleared
	btfsc STATUS,0 ; test if we have a number or a letter - next command is skipped if we have a number
	addlw d'39'
	addlw d'48' ; subtract 10 for hex
	addwf BHF2,1
	movf BHF2,0 ; put BHF2 in W for debugging
        RETURN

file: /Techref/microchip/math/radix/bhf.htm, 3KB, , updated: 2003/10/21 18:30, local time: 2024/3/28 11:44,
TOP NEW HELP FIND: 
52.91.84.219:LOG IN

 ©2024 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?
Please DO link to this page! Digg it! / MAKE!

<A HREF="http://piclist.com/techref/microchip/math/radix/bhf.htm"> PIC Microcontoller Radix Math Method Borowski Hex Format</A>

After you find an appropriate page, you are invited to your to this massmind site! (posts will be visible only to you before review) Just type a nice message (short messages are blocked as spam) in the box and press the Post button. (HTML welcomed, but not the <A tag: Instead, use the link box to link to another page. A tutorial is available Members can login to post directly, become page editors, and be credited for their posts.


Link? Put it here: 
if you want a response, please enter your email address: 
Attn spammers: All posts are reviewed before being made visible to anyone other than the poster.
Did you find what you needed?

  PICList 2024 contributors:
o List host: MIT, Site host massmind.org, Top posters @none found
- 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: Gregg Rew. on-going support is MOST appreciated!
* Contributors: Richard Seriani, Sr.
 

Welcome to piclist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .