ON 20110818@3:52:00 PM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/networks.htm#40773.6333217593 James Newton[JMN-EFP-786] removed post 40773.6333217593 |Delete ' this is a test
  • ' ON 20110818@3:52:30 PM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/networks.htm#39466.8053587963 James Newton[JMN-EFP-786] removed post 39466.8053587963 |Delete 'lynnevanshome@comcast.net refers to " http://www.google.com Why are network protocols necessary."
  • ' ON 20110818@3:52:38 PM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/networks.htm#40773.5916898148 James Newton[JMN-EFP-786] removed post 40773.5916898148 |Delete ' this is a test ' ON 20110819@10:58:32 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/microchip/temp.htm#40774.9573148148 James Newton[JMN-EFP-786] Says PICList post "LM335" Interesting idea for expanding A2D resolution. ON 20110819@11:04:17 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/microchip/a2d.htm#40774.9613078704 James Newton[JMN-EFP-786] Says PICList post "LM335" Interesting idea for expanding A2D resolution. ON 20110819@11:20:02 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/microchip/a2d.htm# James Newton[JMN-EFP-786] change |Replace: '' with: '' ON 20110819@11:20:03 PM at page: On a web page you were interested in at: http://www.piclist.com/techref/member/JMN-EFP-786/index.htm#40774.9722569444 James Newton[JMN-EFP-786] change Pages: /Techref/microchip/a2d.htm PIC Microcontroller, Analog to Digital Conversion ON 20110820@9:32:59 AM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/microchip/languages.htm# David A Cary[DAV-MP-E62a] edited the page. Difference: http://techref.massmind.org/techref/diff.asp?url=\Techref\microchip\languages.htm&version=0 ON 20110820@3:04:25 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] edited the page. Difference: http://www.piclist.com/techref/diff.asp?url=\Techref\member\RK-Catz-\index.htm&version=0 ON 20110820@3:14:38 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm#40775.635162037 Rob Kats[RK-Catz-] Code:
    ;*********************************************************************
    ;   ;MPLABIDEv8.2a                                                                                                                                  
    ;    Filename:	   LCD scherm v1.2				                 
    ;    Doel:         Educatief   	                                      
    ;                                                                     
    ;    Author:       Rob Kats                                           
    ;    pic:	   16f648A 	                                          *                
    ;    snelheid:     kristal = 20Mhz                                   *                                                                
    ;                                                                     
    ;**********************************************************************
    ; 						Voorbeeld.
    ;					In hoofdprogramma 
    
    ;	ORG     0x000						; processor reset vector
    ;	CALL	DISPLAY						; Init display
    
    ;	Plaats onder in	hoofdprogramma 
    ;	#include "c:\pic-programma\inc-files\print.inc"
    
    ; 	initialize eeprom locations
    ;	ORG	0x2100
    ;	DE	0x01,0x02,0x05
    ;	END                      			;directive 'end of program'
    ;	Een voorbeeld
    ;						Hoofdprogramma 
    ;			MOVLW	0x01				;Leading zerro aan/uit
    ;			CALL 	LEAD_ZER			;
    												
    ;			MOVLW	0x64				;Tekst index 4,en melding index 4
    ;			CALL 	MESSAGE				;Toerental
    										;
    ;			MOVLW	0x02
    ;			CALL 	LOOPxSEC			;Wacht 1 sec
    				
    ;			MOVLW	0x10
    ;			CALL	SDR
    ;
    ;			MOVLW	0x65				;Tekst index 6,en melding index 6
    ;			CALL 	MESSAGE				;--Meter--
    ;
    ;			MOVLW	0x02
    ;			CALL 	LOOPxSEC			;Wacht 2 sec
    				
    ;			MOVLW	0x0E
    ;			CALL	SDL
    ;			Verdere programma 
    
    #define		EN		PORTB,2		;EN = Enable (Laag actief).
    #define		RS		PORTB,3		;RS = Register select. 
    ;Register select 
    ;0 = Instructie naar LCD. 
    ;1 = Data naar LCD (leesteken).
    
    ;R/W Pin ligt aan massa  Write = laag actief.
    ;Geen lees opdracht mogelijk.
    ;Het LCD scherm gebruikt  bit 2 t/m bit 7 van PORTB .
    ;Bit 0,1 zijn vrij te gebruiken I/P of O/p.
    		
    CBLOCK 0x2B	;Bank 0
    TEMP_B			;TEMP algemeen.
    TEMP_D			;TEMP algemeen.
    TEMP_A			;TEMP algemeen.
    TEMP_C			;TEMP algemeen.
    TELLER			;Teller.	
    HONDERD			;ASCII waarde honderd tallen.
    TIEN			;ASCII waarde tien tallen.
    EEN				;ASCII waarde een tallen.
    L_Z				;Leading zerro opties nu alleen aan/uit.
    CNTR1			;Wijs zich zelf geneste tijd lus.
    CNTR2
    CNTR3
    NumH
    NumL
    TenK
    Thou
    Hund
    Tens
    Ones
    ENDC		
    ;***************************************************************
    ;                      **** LCD ****
    ;      Gebaseerd op de HD44780U controller van Hitachi.
    ;***************************************************************
    ;Ini lcd.
    DISPLAY:	CLRF	PORTB
    			MOVLW	0x07			;Alle pinnen digitaal 
    			MOVWF	CMCON
    			
         		BCF 	STATUS,RP1	
    	       	BSF 	STATUS,RP0	  	;Wissel naar bank 1.
    	       	MOVLW   B'00000010'     ;Configuratie PORTB  In/out.
    			MOVWF   TRISB			;Bit 0 en 1 zijn vrij te gebruiken. 
    			BCF 	STATUS,RP0    	;Terug naar bank 0.			
    			BSF		EN				;
    ;***************************************************************
    ;50 ms opstart tijd lcd..  
    			CALL 	WACHT50
    ;**************************************************************			
    ;instellingen LCD scherm
    ;LCD staat na een reset op 8 bits mode.
    ;Function set						
    			BCF		RS				;LCD op Instrucie modus.
    			MOVLW	B'00100000'		;
    			MOVWF	PORTB			;Schijf instructie weg als 8 bits 1x stobe.
    			CALL	PULS					
    ;Function set
    									;b0 * b1* niet gebruikt.
    			MOVLW	B'00101000'		;4 bit data breedte (LCD b7,b4).
    			CALL	LCD				;font 5x8 b2.																	
    ;Display							;2 regels b3.
    
    			MOVLW	B'00001100'		;display aan b2.
    			CALL	LCD				;cursor zichtbaar b1.									
    ;Entry								;cursor knipperend b0.
    
    			MOVLW	B'00000110'		;Cursor positie na elke schrijf actie.
    			CALL	LCD				;met 1 verhogen of verlagen b1. b0 shift actief..	
    ;*****************************************************************
    			MOVLW	0x01			;Standaard leading zerro aan. 
    			CALL 	LEAD_ZER		
    ;*****************************************************************
    			RETURN					;Terug aanroep "call DISPLAY".
    									;LCD klaar voor gebruik.
    ;*****************************************************************
    
    ;			             ***** De 4 bits Motor *****
    ; *** Stuur karakter/instructie naat LCD afhankelijk van status RS  ***			
    LCD			MOVWF	TEMP_D			;Bewaar karakter/instructie in TEMP_D.
    			MOVF	PORTB,W			;
    			MOVWF	TEMP_B			;Bewaar status vrije uitgangen van PORTB in TEMP_B.
    ;b7..b4	    			
    			MOVLW	B'00001111'		;Maskeer PORTB en RS,EN .
    			ANDWF	TEMP_B,F		;Bewaar status vrije uitgangen van PORTB.
    			MOVLW	B'11110000'		
    			ANDWF	TEMP_D,W		;Maskeer TEMP_D.
    			ADDWF	TEMP_B,W		;Voeg b0,b4 van TEMP_D en b0,b1 van TEMP_B samen.
    			MOVWF	PORTB			;Plaats data op PORTB (LCD).
    			CALL 	PULS			;Verstuur data naar LCD.
    
    			SWAPF 	TEMP_D,F		;Swap nibbles in TEMP_D.						
    ;b3..b0 				
    			MOVLW	B'00001111'		;andere helft van de instructie.
    			ANDWF	TEMP_B,F		;Herhaling voor b0,b3.
    			MOVLW	B'11110000'
    			ANDWF	TEMP_D,W		
    			ADDWF	TEMP_B,W		
    			MOVWF	PORTB
    			CALL	PULS			;Raar zie uitwerking idee 1.		
    			RETURN					
    ;********************************************************************
    PULS:		BCF		EN				;Creëer stobe signaal.
    			CALL	WACHT			;voor overdracht data/instructie.	
    			BSF		EN				;Verwerkings tijd voor dat volgende data/instructie
    			RETURN					;uitgevoerd kan worden.
    ;********************************************************************
    PRINT:
    			BSF 	RS				;De data die naar het LCD 
    			CALL	LCD				;gescheven wordt is een ascii karakter.
    			BCF 	RS				;Zet LCD daarna terug op instructie mode.
    			RETURN					;
    ;********************************************************************
    ;Leading zerro aan/uit komt uit  W als ( 0 = uit 1 = aan)
    LEAD_ZER:	
    			ANDLW	B'00000001'		;Indien foute invoer 
    			MOVWF	L_Z				;vraag alleen b0 af van W.
    			RETURN					;Plaats b0 van W in L_Z.
    ;********************************************************************
    ;Schuif cursor n plaatsen naar links,n komt uit W. 
    SCL:					
    			MOVWF	TELLER
    			XORLW	0x00			;Indien W de waarde 0x00 bevat
    			BTFSC	STATUS,Z		;geef een melding.
    			GOTO	ERROR1			;
    									;Constructie kan in elke call,uitwerken?
    A12			MOVLW	B'00010000'			
    			CALL	LCD
    			DECFSZ	TELLER,F		
    			GOTO 	A12
    			RETURN
    ERROR1:		MOVLW	0x00			;Tekst/melding index staat in W.												
    			GOTO	MESSAGE			;Geeft een bericht uit MESSAGE conform call.
    ;********************************************************************
    ;Schuif cursor n plaatsen naar rechts n komt uit W. 
    SCR:					
    			MOVWF	TELLER
    			XORLW	0x00			;Indien W de waarde 0x00 bevat
    			BTFSC	STATUS,Z		;geef een melding.
    			GOTO	ERROR2			;Constructie kan in elke call,uitwerken?									
    		
    A13			MOVLW	B'00010100'			
    			CALL	LCD
    			DECFSZ	TELLER,F				
    			GOTO 	A13
    			RETURN
    ERROR2:		MOVLW	0x00			;Tekst/melding index staat in W												
    			GOTO	MESSAGE			;Geeft een bericht uit MESSAGE conform call.
    ;********************************************************************
    ;Backspace plaats curssor 1 plaats terug en wis karakter.
    BACKS:										
    			MOVLW	B'00010000'		;Cursor 1 plaats terug naar rechts.
    			CALL	LCD
    			MOVLW	" "	
    			CALL	PRINT			;Schrijf karakter "spatie".				
    			MOVLW	B'00010000'		;Cursor 1 plaats terug naar rechts.
    			CALL	LCD	
    			RETURN
    ;********************************************************************
    ;Ongeveer als backs testen verder aanpassen ,echt nodig? nu nog niet aanroepen!!!
    DELETE:					
    ;			MOVLW	B'00010100'			
    ;			CALL	LCD
    ;			BSF		RS
    ;			MOVLW	" " 
    ;			CALL	LCD
    ;			RETURN
    ;********************************************************************
    ;Wis gehele LCD scherm zet cursor terug op regel 1 positie 0.
    CLS:				
    			MOVLW	B'00000001'		;Clear instructie naar LCD.
    			CALL	LCD
    			RETURN
    ;********************************************************************
    ;Schuif scherm n plaatsen naar rechts n komt uit W. 
    SDR:					
    			MOVWF	TELLER
    A16:		MOVLW	B'00011100'			
    			CALL	LCD
    			CALL	WACHT50
    			DECFSZ	TELLER,F
    			GOTO 	A16				
    			RETURN
    ;********************************************************************
    ;Schuif scherm n plaatsen naar links n komt uit W. 
    SDL:					
    			MOVWF	TELLER	
    A17:		MOVLW	B'00011000'			
    			CALL	LCD
    			CALL	WACHT50	
    			DECFSZ	TELLER,F
    			GOTO 	A17
    			RETURN
    ;********************************************************************
    ;Start tekst op regel 1 of 2 positie x.
    ;Regel staat in W. 
    ;Regel 1 (0)40 karakters lang eeste 16(0 t/m 15) zichtbaar 00-->39 (40 bytes lang).
    ;Regel 2 (1)40 karakters lang eeste 16(0  t/m 15) zichtbaar 40-->79  (40 bytes lang).
    REGEL:					
    			ADDLW	B'10000000'	
    			CALL	LCD	
    			RETURN
    ;********************************************************************
    ;Plaats cursor terug op regel 1,positie 0.
    ;Inhoud scherm blijft ongewijzigd.  
    RETURN_H					
    			ADDLW	B'00000010'	
    			CALL	LCD	
    			RETURN
    ;********************************************************************
    ;Binaire(byte)W naar Hex ascii waarde.
    HEX:		
    			MOVWF	TEMP_A
    			MOVLW	0x02
    			MOVWF	TELLER
    		
    			MOVLW	B'11110000'		
    			ANDWF	TEMP_A,W
    			MOVWF	TEMP_B
    			SWAPF	TEMP_B,F
    			MOVF	TEMP_B,W
    			
    A91			SUBLW	0X09			;W-L
    			BTFSS	STATUS,C		
    			GOTO	A90				;C <=9
    			MOVF	TEMP_B,W
    			ADDLW	0x30			;NC >9		
    			CALL	PRINT
    			GOTO	A88
    A90:		MOVF	TEMP_B,W
    			ADDLW	0x37
    			CALL	PRINT			
    A88:		
    			MOVLW	B'00001111'		
    			ANDWF	TEMP_A,W
    			MOVWF	TEMP_B
    
    			DECF	TELLER,F
    			BTFSS	STATUS,Z
    
    			GOTO	A91
    			RETURN
    ;********************************************************************
    ;Binair byte waarde W naar Binair ascii waarde.
    BIN:		
    			MOVWF	TEMP_A
    			MOVLW	0x08			;1 byte.
    			MOVWF	TELLER
    A72:		RLF		TEMP_A,F		;Roteer links door carry .(print carry)
    			BTFSS	STATUS,C		;
    			GOTO	A69				;carry =0
    			GOTO	A70				;carry =1
    A69:		MOVLW	0x30
    			CALL	PRINT			;Print ascii "0"
    			GOTO	A71
    A70:		MOVLW	0x31			;Print ascii "1"
    			CALL	PRINT
    A71:		DECFSZ	TELLER,F
    			GOTO	A72
    			RETURN
    ;********************************************************************
    ;Binaire waarde byte W naar decimale ascii waarde.	
    DEC			
    			CLRF	HONDERD			;Variabelen 0x00.
    			CLRF	TIEN
    			CLRF	EEN
    				
    			MOVWF	TEMP_A			;W naar TEMP_A.
    HUN			MOVLW	0x64			;Waarde 100 in W.
    			SUBWF	TEMP_A,W		;Trek 100 af van TEMP_B. 
    			BTFSS	STATUS,C		;TEMP_B groter dan 100 ?
    			GOTO    TEN				;Nee ga naar 10.
    			INCF	HONDERD,F
    			MOVWF	TEMP_A
    			GOTO	HUN				;Ja:HONDERD = HONDERD +1.
    
    TEN			MOVLW	0x0A			;Waarde 10 in W.
    			SUBWF	TEMP_A,W		;Trek 10 af van TEMP_B .
    			BTFSS	STATUS,C		;TEMP_B groter dan 10 ?
    			GOTO    ONE				;Nee ga naar 1.
    			INCF	TIEN,F
    			MOVWF	TEMP_A
    			GOTO	TEN				;Ja
    
    ONE:		MOVF	TEMP_A,W
    			MOVWF	EEN
    			MOVLW	"0"				;Ascii waarde 0.
    			ADDWF	HONDERD,F
    			ADDWF	TIEN,F
    			ADDWF	EEN,F
    ;Print decimale ascii waarde met leading zerro.
    
    			MOVF	L_Z,W			;
    			XORLW	0x01			;
    			BTFSS	STATUS,Z		;
    			GOTO	A56				;
    
    			MOVF	HONDERD,W
    			CALL	PRINT
    
    			MOVF	TIEN,W
    			CALL	PRINT
    			
    			MOVF	EEN,W
    			CALL	PRINT
    			RETURN
    ;Print decimale ascii waarde zonder leading zerro.
    A56:		MOVLW	"0"
    			XORWF	HONDERD,W		;
    			BTFSC	STATUS,Z		;Honderd <> ascii"0".
    			GOTO	A57				;nee honderd = ascii"0".
    
    			MOVF	HONDERD,W		;ja
    			CALL	PRINT
    			GOTO	A59				;geen leading zerro. 
    
    A57			MOVLW	"0"
    			XORWF	TIEN,W			;
    			BTFSC	STATUS,Z		;tien <> ascii"0".
    			GOTO	A58				;nee tien = ascii"0".
    A59			MOVF	TIEN,W			;ja
    			CALL	PRINT
    
    A58			MOVF	EEN,W
    			CALL	PRINT
    			RETURN		
    ;********************************************************************
    ;Binaire 16 bits waarde naar decimale ascii waarde.
    ;16 bits waarde staat in  NumH ,NumL.   
    ;This routine downloaded from http://www.piclist.com ....THANKS GUY'S for help me out.
    CONVERT16:	
    			swapf   NumH, w
         	    iorlw   B'11110000'
         	    movwf   Thou
         	  	addwf   Thou,f
           	 	addlw   0XE2
             	movwf   Hund
             	addlw   0X32
             	movwf   Ones
                          
             	movf    NumH,w
             	andlw   0X0F
            	addwf   Hund,f
             	addwf   Hund,f
            	addwf   Ones,f
             	addlw   0XE9
             	movwf   Tens
             	addwf   Tens,f
             	addwf   Tens,f
     
             	swapf   NumL,w
             	andlw   0X0F
             	addwf   Tens,f
             	addwf   Ones,f
                         
             	rlf     Tens,f
             	rlf     Ones,f
             	comf    Ones,f
             	rlf     Ones,f
                           
             	movf    NumL,w
             	andlw   0X0F
             	addwf   Ones,f
             	rlf     Thou,f
                           
             	movlw   0X07
            	movwf   TenK
    ; At this point, the original number is
    ; equal to
    ; TenK*10000+Thou*1000+Hund*100+Tens*10+Ones
    ; if those entities are regarded as two's
    ; complement binary.  To be precise, all of
    ; them are negative except TenK.  Now the number
    ; needs to be normalized, but this can all be
    ; done with simple byte arithmetic.
                          
           	 movlw   0X0A                            
    Lb1:			
           	 addwf   Ones,f
    		 decf    Tens,f
             btfss   STATUS,C
             goto    Lb1
    Lb2:
             addwf   Tens,f
             decf    Hund,f
             btfss   STATUS,C
             goto    Lb2
    Lb3:
             addwf   Hund,f
             decf    Thou,f
             btfss   STATUS,C
             goto    Lb3
    Lb4:
             addwf   Thou,f
             decf    TenK,f
             btfss   STATUS,C
             goto    Lb4
    ;****************************************************************
    ;My additional  part.                
       		MOVLW   "0"
            ADDWF   TenK,F			;Convert naar ASCII.
            ADDWF   Thou,F  
            ADDWF   Hund,F
            ADDWF   Tens,F
            ADDWF   Ones,F
    
    		MOVF	L_Z,W			;Leading Zerro aan 
    		XORLW	0x01			;
    		BTFSS	STATUS,Z		;
    		GOTO	T2			    ;
    ;** indirect adressering setup **	
    		MOVF	FSR,W			;Bewaar FSR register in TEMP_FSR.
    		MOVWF	CNTR1			;Indien deze buiten print.inc word gebruikt.
    
    		MOVLW	TenK	 		;Zet FRS op begin 16 bit conversie.
    		MOVWF	FSR				
    
    		MOVLW	0x05
    		MOVWF	TELLER
    ;Indien uitkomst digit = "0" print een " ".(spatie)
    T1		MOVLW   "0"				
    		XORWF	INDF,W			;Is de waarde waar FSR na toe wijst "0"?		
    		BTFSC	STATUS,Z			
    		GOTO	SPATIE			;Ja:
    		GOTO	T2				
    SPATIE	MOVLW	" "				;Inhoud waar FSR na toe wijst  wordt " ".(spatie)
    		MOVWF	INDF
    		INCF 	FSR,F
    		DECFSZ	TELLER,F
    		GOTO	T1				
    		
    T2:		MOVF  	TenK,W
    		CALL	PRINT
          	MOVF   	Thou,W 
     		CALL	PRINT
            MOVF 	Hund,W
    		CALL	PRINT
            MOVF   	Tens,W
    		CALL	PRINT
            MOVF   	Ones,W
    		CALL	PRINT
    		MOVF	CNTR1,w		
    		MOVWF	FSR				;Oude waarde terug in FSR.			
            RETURN
    ;********************************************************************
    ; pauze.
    WACHT:   
    		 	MOVLW  	0x10;	10
            	MOVWF   CNTR2
    delay2  	MOVLW   0xFE;	FE
            	MOVWF   CNTR1
    delay3   	DECFSZ  CNTR1,F
             	GOTO    delay3
            	DECFSZ  CNTR2,F
             	GOTO    delay2
               	RETURN	
    ;********************************************************************
    ;Reset lcd na power up.
    WACHT50:   
    			MOVLW   0x02
            	MOVWF   CNTR3
    delay4:  	MOVLW  	0xA3
            	MOVWF   CNTR2
    delay5:
     		 	MOVLW   0xFF
            	MOVWF   CNTR1
    delay6:   	DECFSZ  CNTR1,F
             	GOTO    delay6
            	DECFSZ  CNTR2,F
             	GOTO    delay5
             	DECFSZ  CNTR3,F
             	GOTO    delay4
             	RETURN	
    ;*********************************************************************
    WACHT500:   
    			MOVLW   0x20
            	MOVWF   CNTR3
    delay7:  	MOVLW  	0xA2
            	MOVWF   CNTR2
    delay8:
     		 	MOVLW   0xA0
            	MOVWF   CNTR1
    delay9:   	DECFSZ  CNTR1,F
             	GOTO    delay9
            	DECFSZ  CNTR2,F
             	GOTO    delay8
             	DECFSZ  CNTR3,F
             	GOTO    delay7
             	RETURN
    ;*********************************************************************	
    ;Display een standaard TEKST gekozen uit een index.
    ;Display een standaard MELDING gekozen uit een index.
    ;Index komt uit W als lower 4 bits voor de tekst.
    ;Index komt uit W als higher 4 bits voor de melding.
    MESSAGE:	
    ;Zoek tekst			
    			MOVWF	TEMP_A				;Bewaar W.
    			MOVLW	B'00001111'			;Maskeer temp_a.
    			ANDWF	TEMP_A,W			;Plaats resultaat in c_temp.
    			MOVWF	TEMP_C				;Index tekst in temp_c.
    			
    			CALL	CLS 				;Maak scherm schoon.
    			CLRF  	TELLER				;Pointer op begin tabel.
    		
    A98			MOVF   	TELLER,W			;Pointer in W.
    			CALL	TOP					;Haal tekst index op uit programma geheugen.
    			XORWF	TEMP_C,W			;
    			BTFSC	STATUS,Z			;index gelijk aan gewenste index in temp_c ?
    			GOTO	TEKST#				;Ja: Haal Display positie op.
    A97			MOVF   	TELLER,W          	;Nee: zoek naar einde regel.
    			INCF   	TELLER,F            ;
    			CALL	TOP		     		;
    			XORLW	0xFF                ;Einde tekst regel ?
    			BTFSS  	STATUS, Z           ;  
    			GOTO	A97		            ;nee:zoek verder.
    			GOTO	A98					;Ja: 
    			
    TEKST#:		INCF   	TELLER,F            ;Pointer +1 Sla data index over.
    			MOVF	TELLER,W			;Pointer op display positie.
    			CALL	TOP					;Haal Display positie op.
    			CALL	REGEL				;
    			INCF   	TELLER,F            ;Pointer +1 sla data display positie over.
    
    A102:		MOVF   	TELLER,W          	;Pointer op ascii data.
    			INCF   	TELLER,F            ;
    			CALL	TOP		     		;Haal ascii data op.   
    			MOVWF	TEMP_B
    			XORLW	0xFF                ;Display tekst tot einde regel is bereikt.  
    			BTFSC  	STATUS, Z           ;
    			GOTO	MELDING#	        ;  
    			MOVF	TEMP_B,W
    			CALL	PRINT            	;  
    			GOTO	A102								
    MELDING#:
    ;Zoek melding														
    			MOVLW	B'11110000'			;Maskeer temp_a.
    			ANDWF	TEMP_A,W			;Plaats resultaat in c_temp.
    			MOVWF	TEMP_C				;Index melding in temp_c.
    A99			MOVF   	TELLER,W			;Pointer in W.
    			CALL	TOP					;Haal index op uit programma geheugen.
    			XORWF	TEMP_C,W			;
    			BTFSC	STATUS,Z			;index gelijk aan gewenste index in temp_c ?
    			GOTO	MELDING				;Ja
    
    A100		MOVF   	TELLER,W          	;Nee  
    			INCF   	TELLER,F            ;
    			CALL	TOP			     	;Zoek naar einde regel.  
    			XORLW	0xFF                ;Is begin nieuwe index. 
    			BTFSS  	STATUS, Z           ;  
    			GOTO	A100		        ;  
    			GOTO	A99
    MELDING:
    			INCF   	TELLER,F            ;Pointer +1 Sla data index over.
    			MOVF	TELLER,W			;Pointer op print positie.
    			CALL	TOP					;Haal print positie op.
    			ADDLW	0x40				;Regel2.
    			CALL	REGEL				;Plaats cursor.
    
    			INCF   	TELLER,F            ;Pointer +1 sla data print positie over.
    A103:		MOVF   	TELLER,W          	;  
    			INCF   	TELLER,F            ;
    			CALL	TOP	     			;  
    			MOVWF	TEMP_B
    			XORLW	0xFF                ;Display tekst tot einde regel is bereikt.
    			BTFSC  	STATUS, Z           ;
    			RETURN           			;Terug aanroep.  
    			MOVF	TEMP_B,W
    			CALL	PRINT            	;  
    			GOTO	A103				;
    ;*********************************************************************
    			ORG     0x300
    ;Plaats tekst/Melding in programma geheugen 0300 hex.
    ;Tekst om weer te geven opgegeven in W als:
    ;Lower 4 bits voor Tekst
    ;Higher 4 bits voor Melding.
    TOP:
    			MOVWF	TEMP_B				;Bewaar pointer.
    			MOVLW	0x03				;Zet pc op juiste pagina.
    			MOVWF	PCLATH				;
    			MOVF	TEMP_B,W			;
    			ADDWF	PCL,F				;Haal gegevens op binnen de pagina.
    
    ;Tekst wordt geplaats op lcd regel 1
    ;Formaat Tekst:Index(0x00..0x0F),tekstpositie (0..15),"tekst",0xFF 
    		   		;***** Regel 1*****
    ;Naar eigen inzicht veranderen of aanvullen.
    			DT 0x00,2,"Foutmelding",0xFF
    			DT 0x01,3,"Tijdbasis",0xFF
    			DT 0x02,3,"?????",0xFF
    			DT 0x03,1,"LxADING ",0xFF
    			DT 0x04,3,"Toerental",0xFF
    			DT 0x05,3,"--Meter--",0xFF
    			DT 0x06,3," ",0xFF
    			
    
    ;Melding wordt geplaats op lcd regel 2
    ;Formaat Melding:Index(0x00..0xF0),tekstpositie (0..15),"tekst",0xFF
    			;***** Regel 2*****	
    ;Naar eigen inzicht veranderen of aanvullen.
    			DT 0x00,9,"omw/min0",0xFF
    			DT 0x10,4,"Ongeldig",0xFF
    			DT 0x20,1,"Tijdbasis,0xFF
    			DT 0x30,1,"Getal te groot",0xFF
    			DT 0x40,3,"--Meter--",0xFF		
    			DT 0x50,8,"Msec",0xFF
    			DT 0x60,0," ",0xFF			;Print niks (kan ook in regel 1).
    ;*********************************************************************
    			org 0x400
    ;8 eigen karakters 0 t/m 7.
    ;Zet lcd op CGRAM adres 0x00  instructie 01000000..
    ;Haal data die naar CGRAM gescheven moet worden op uit een tabel (K_DATA).
    ;Indien  de data <> aan 255  schrijf het in CGRAM.
    ;Na iedere schrijf actie word CGRAM automatisch met 1 opgehoogd.
    EIGEN_K:
    			CLRF	TELLER			;pointer wijs naar begin data tabel.
    			MOVLW	 B'01000000'	;
    			CALL 	LCD				;Lcd wijs nu naar CGRAM adres xx000000.(0 t/m 63 = 64 bytes groot)	
    
    
    B1:			MOVF	TELLER,W
    			CALL	K_DATA			;Haal data op uit karakter tabel.
    			
    			MOVWF	TEMP_A			;
    			XORLW	0xFF			;Is data einde tabel?
    			BTFSC  	STATUS, Z 
    			GOTO	DDRAM			;Ja:
    			MOVF	TEMP_A,W		;Nee:
    			INCF	TELLER,F		;Pointer = pointer+1.
    			CALL	PRINT			;Schrijf data naar CGRAM en verhoog CGRAM adres automatisch met 1.
    			GOTO	B1				
    DDRAM		MOVLW	B'10000000'		;Terug naar DDRAM regel 1 positie 0.
    			CALL 	LCD				;Eigen karakters in een programma call EIGEN_K movlw 0 t/m 7 call print. 		
    			RETURN	
    ;********************************************************************'
    K_DATA:		MOVWF	TEMP_B			;Bewaar pointer.
    			MOVLW	0x04			;Zet pc op juiste pagina.
    			MOVWF	PCLATH			;
    			MOVF	TEMP_B,W		;
    			ADDWF	PCL,F			;Haal gegevens op binnen de pagina.
    ;Data voor  CGRAM (Eigen karakters)5 bit breed x 8 bit hoog	
    ;serie-1
    			DT 	B'00000000',B'00000000',B'00000000',B'00000000'  ,B'00011111',B'00000000',B'00000000',B'00000000';Karakter-0
    			DT 	B'00000000',B'00000001',B'00000010',B'00000100'  ,B'00000100',B'00000100',B'00001000',B'00010000';Karakter-1			
    			DT	B'00000100',B'00000100',B'00000100',B'00000100'  ,B'00000100',B'00000100',B'00000100',B'00000100';Karakter-2
    			DT	B'00000000',B'00010000',B'00001000',B'00000100'  ,B'00000100',B'00000100',B'00000010',B'00000001';Karakter-3
    			DT	B'00001111',B'00001111',B'00001111',B'00001111'  ,B'00001111',B'00001111',B'00001111',B'00001111';Karakter-4
    			DT	B'00001111',B'00001111',B'00001111',B'00001111'  ,B'00001111',B'00001111',B'00001111',B'00001111';Karakter-5
    			DT	B'00001111',B'00001111',B'00001111',B'00001111'  ,B'00001111',B'00001111',B'00001111',B'00001111';Karakter-6
    			DT	B'00001111',B'00001111',B'00001111',B'00001111'  ,B'00001111',B'00001111',B'00011111',B'00011110';Karakter-7
    			DT 	0xFF	
    
    ON 20110820@3:22:03 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] edited the page. Difference: http://www.piclist.com/techref/diff.asp?url=\Techref\member\RK-Catz-\index.htm&version=2 ON 20110820@4:21:58 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] change |Replace: '' with: '' ON 20110820@4:22:26 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] I have agreed to maintain this page. ON 20110820@4:27:03 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] change |Replace: '' with: '' ON 20110820@4:28:12 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] I have agreed to maintain this page. ON 20110820@4:28:39 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] change |Replace: '' with: '' ON 20110820@4:30:27 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] I have agreed to maintain this page. ON 20110820@4:34:15 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] change |Replace: '' with: '' ON 20110820@4:34:41 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm#40775.6907523148 Rob Kats[RK-Catz-] Says ON 20110820@4:46:49 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm#40775.6991782407 Rob Kats[RK-Catz-] Code:
    lcd Gebaseerd op de HD44780U controller van Hitachi
    ON 20110820@5:05:55 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm#40775.7124421296 Rob Kats[RK-Catz-] Says ON 20110820@5:06:14 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm#40775.712662037 Rob Kats[RK-Catz-] Says ON 20110820@5:07:01 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] I have agreed to maintain this page. ON 20110820@5:08:31 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/language/html/index.htm#40775.7142476852 Rob Kats[RK-Catz-] Says Hallo world ON 20110820@5:11:14 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm# Rob Kats[RK-Catz-] change |Replace: '' with: '' ON 20110820@5:13:30 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/member/RK-Catz-/index.htm#40775.6907523148 Rob Kats[RK-Catz-] removed post 40775.6907523148 |Delete 'Rob Kats Says:

    ' ON 20110820@6:37:03 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/io/lcd/pic.htm# James Newton[JMN-EFP-786] edited the page. Difference: http://www.piclist.com/techref/diff.asp?url=\Techref\io\lcd\pic.htm&version=3 ON 20110820@6:37:31 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/io/lcd/pic.htm# James Newton[JMN-EFP-786] edited the page. Difference: http://www.piclist.com/techref/diff.asp?url=\Techref\io\lcd\pic.htm&version=4 ON 20110820@6:38:10 PM at page: On a web page you were interested in at: http://www.piclist.com/Techref/io/lcd/pic.htm# James Newton[JMN-EFP-786] edited the page. Difference: http://www.piclist.com/techref/diff.asp?url=\Techref\io\lcd\pic.htm&version=5 ON 20110822@12:17:05 AM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/io/sensor/interface.htm# James Newton[JMN-EFP-786] edited the page. Difference: http://techref.massmind.org/techref/diff.asp?url=\Techref\io\sensor\interface.htm&version=0 ON 20110822@5:25:44 PM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/uk/ac/york/cs/www-users/http/~fisher/mkpll/index.htm# James Newton[JMN-EFP-786] edited the page. Difference: http://techref.massmind.org/techref/diff.asp?url=\Techref\uk\ac\york\cs\www-users\http\~fisher\mkpll\index.htm&version=0 ON 20110822@5:27:13 PM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/uk/ac/york/cs/www-users/http/~fisher/mkpll/index.htm# James Newton[JMN-EFP-786] edited the page. Difference: http://techref.massmind.org/techref/diff.asp?url=\Techref\uk\ac\york\cs\www-users\http\~fisher\mkpll\index.htm&version=1 ON 20110822@6:36:58 PM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/language/ccpp/index.htm#40777.7756712963 James Newton[JMN-EFP-786] See also: http://code.google.com/p/picoc/ PicoC is a very small C interpreter for scripting. ON 20110822@6:46:22 PM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/datafile/jpeg/index.htm#40777.7821990741 James Newton[JMN-EFP-786] See also: http://code.google.com/p/picojpeg/ a public domain JPEG decompressor written in plain C in a single source file picojpeg.c and a single header picojpeg.h. It has several fairly unique properties that make it useful on small 8/16-bit embedded devices ON 20110828@10:00:02 PM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/other/gardens.htm#40783.9166782407 James Newton[JMN-EFP-786] See also: http://www.motherearthnews.com/organic-gardening/organic-pest-control-zm0z11zsto.aspx Organic pest control ON 20110829@2:53:57 PM at page: On a web page you were interested in at: http://www.piclist.com/datafile/charset/8x6.htm#40782.4642939815 James Newton[JMN-EFP-786] removed post 40782.4642939815 |Delete ' 0x00 0xB1 0x80 0x00 0xB6 0x90 0x00 0xAE 0x60 0x00 0xE1 0xD8
    0x00 0xC4 0x00 0x00 0xA1 0x10 0x00 0xAF 0x10 0x00 0xE2 0x60
    0x00 0xC1 0x50 0x00 0xD0 0xD8 0x00 0xBD 0x10 0x00 0xED 0x28
    0x00 0xC2 0x40 0x00 0x9E 0x50 0x00 0xB0 0x10 0x00 0xE0 0x38
    0x00 0xAF 0x90 0x00 0xEA 0x48 0x00 0xB7 0x40 0x00 0xF4 0xD8
    0x00 0xC1 0x40 0x00 0xB7 0xA8 0x00 0xB9 0x38 0x00 0xE3 0xF8
    0x00 0xB1 0x30 0x00 0x9D 0xB0 0x00 0xA8 0x20 0x00 0xDB 0xD0
    0x00 0xC2 0xF8 0x00 0x9C 0x90 0x00 0xB1 0x68 0x00 0xE0 0x20
    0x00 0xC2 0xB0 0x00 0x9D 0xD8 0x00 0xB2 0x60 0x00 0xDF 0x20
    0x00 0xA3 0x58 0x00 0x9D 0xF0 0x00 0xA1 0xD8 0x00 0xD5 0xE8
    0x00 0xB2 0xB0 0x00 0x9E 0x78 0x00 0xAC 0xA0 0x00 0xD9 0xF0
    0x00 0xC1 0x48 0x00 0xD2 0x28 0x00 0xBC 0x88 0x00 0xED 0x68
    0x00 0xB0 0x10 0x00 0xB5 0xE0 0x00 0xB0 0x58 0x00 0xDF 0x90
    0x00 0xC2 0xC0 0x00 0x9E 0x50 0x00 0xB6 0x40 0x00 0xDD 0x38
    0x00 0xC1 0x80 0x00 0xD0 0x20 0x00 0xC0 0x88 0x00 0xEB 0x68
    0x00 0x90 0x40 0x00 0xE4 0x80 0x00 0x9B 0x30 0x00 0xEB 0xE8

  • ' ON 20110830@9:28:27 AM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/io/stepper/power.htm#40785.3947569444 James Newton[JMN-EFP-786] Says /techref/power.htm Power Supplies ON 20110830@9:31:16 AM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/io/stepper/power.htm#40785.396712963 James Newton[JMN-EFP-786] See also: http://web2.murraystate.edu/andy.batts/ps/powersupply.htm Converting a standard ATX PC power supply into a bench supply
    ON 20110830@9:31:32 AM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/io/stepper/power.htm#40785.3968981481 James Newton[JMN-EFP-786] See also: http://www.rcgroups.com/forums/showthread.php?t=1170784 Converting hot swap PC power supplies into bench supplies. ON 20110830@9:34:27 AM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/io/stepper/power.htm#40785.3989236111 James Newton[JMN-EFP-786] Says /Techref/shorts.htm Protecting against short circuits ON 20110831@8:35:46 AM at page: On a web page you were interested in at: http://techref.massmind.org/Techref/os/win/2008sbs.htm# James Newton[JMN-EFP-786] edited the page. Difference: http://techref.massmind.org/techref/diff.asp?url=\Techref\os\win\2008sbs.htm&version=0