gbF(
"AN Other","ss","Fri, 22 Aug 2003 01:35:15 UTC+0100","212.56.108.219 ",
"20:27 24 aug 2004",
"userfield2",
"userfield3",
"userfield4",
"
\
// sort Key for sort on dates
\
var date = new Date( userfield1 )
\
if ( isNaN( date ) ) {
\
if ( isNaN( userfield1 ) ) {
\
date = new Date( \"1 aug 3000\")
\
this.date = date
\
this.sortKey = date.valueOf()
\
} else {
\
// It\'s a valid Number
\
this.sortKey = userfield1*1.0
\
}
\
} else {
\
// It\'s a valid date
\
this.date = date
\
this.sortKey = date.valueOf()
\
}
\
\
"
);
gbF(
"AN Other","ss","Fri, 22 Aug 2003 01:45:46 UTC+0100","212.56.108.219 ",
" 24 aug 2004 20:45",
"userfield2",
"userfield3",
"userfield4",
"// updated Function used by sort.
\
function sortCallbackFn( a, b ) {
\
\
if ( ( a.sortKey - b.sortKey ) != 0 ) {
\
return ( a.sortKey - b.sortKey )
\
}
\
\
if ( a.userfield1 != b.userfield1 ) {
\
if ( a.userfield1 > b.userfield1 ){ return 1 }
\
if ( a.userfield1 < b.userfield1 ){ return -1 }
\
return 1
\
}
\
\
return ( b.count*1.0 - a.count*1.0 )
\
}
\
\
"
);
gbF(
"dhr","","Wed, 29 Oct 2003 21:57:42 UTC+0100","212.56.108.219 ",
"PIC Code",
"Key scan",
"",
"",
";--------------------------------------------------------------------------
\
; Sec 4.1 Button Poll Routine
\
;--------------------------------------------------------------------------
\
\
IPtimeslice
\
; --_____ button press
\
; ----___
\
\
; __----- /IPnew
\
; ----___ IPlast
\
; __--___
\
; This reads all Port B inputs and looks for Press
\
MOVFW IPnew
\
MOVWF IPlast
\
MOVFW PORTB
\
MOVWF IPnew
\
; IP last contains new setting, IPlast contains previous
\
; look for falling edges
\
COMF IPnew,W
\
ANDWF IPlast,W
\
; now force IPbuttonEvent bits to high for new pressed button
\
; the service routine should reset the bit to clear the event.
\
IORWF IPbuttonEvent,F
\
RETURN"
);
gbF(
"d","email","Thu, 30 Oct 2003 09:17:44 UTC+0100","193.113.37.9 132.146.89.88",
"Extra Code for Collated data",
"userfield2",
"userfield3",
"userfield4",
" var indexA = new Array()
\
count=0
\
for( I in gbA ){
\
indexA[ count ] = I
\
count = count + 1
\
}
\
indexA.sort()
\
\
// for( I in gbA ){
\
for( var cnt=0; cnt < indexA.length; cnt++ ){
\
\
// var r = gbA[I]
\
var r = gbA[ indexA[cnt] ]
\
"
);
gbF(
"doug","e@h","Mon, 3 Nov 2003 08:06:16 UTC+0100","212.56.108.219 ",
"PIC Code",
"16F84 or 16F628",
"",
"",
"Code to # define for either 16F84 or 16F628
\
\
;#define pic16F84 1
\
#define pic16F628 1
\
\
ifdef pic16F84
\
INCLUDE \"p16F84.inc\"
\
\
LIST P=16F84, R=DEC
\
__idlocs 0x0084
\
__config _XT_OSC&_PWRTE_ON & _WDT_OFF
\
\
cblock 0x0c
\
endc
\
endif
\
\
ifdef pic16F628
\
INCLUDE \"p16F628.inc\"
\
LIST P=16F628, R=DEC
\
__idlocs 0x0628
\
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _INTRC_OSC_CLKOUT & _MCLRE_OFF & _LVP_OFF
\
\
cblock 0x20
\
endc
\
endif
\
"
);
gbF(
"doug","ss","Mon, 3 Nov 2003 08:08:21 UTC+0100","212.56.108.219 ",
"PIC Code",
"LCD init commands",
"",
"",
"LCDstart
\
\
; Minimum reset instructions for HD44100FS
\
\
; System Reset,Line Select(2),Display On
\
; set up for LCD commands
\
\
; wlcdCmd($33);
\
; wlcdCmd($32);
\
; wlcdCmd($28); { 4 bit, 2 line, 5x7 display }
\
; wlcdCmd($01); { Clear Display }
\
; wlcdCmd($0F); { $0F - Display On,CursorOn,Blink }
\
; wlcdCmd($C9); { set dd address }
\
"
);
gbF(
"doug","ss","Mon, 3 Nov 2003 08:10:00 UTC+0100","212.56.108.219 ",
"PIC Code",
"LCD HD44780 commands",
"",
"",
"
\
;To know wwhich nibble is being sent initilize to 8 bit then
\
;go into 4 bit mode and keep track of each nibble sent
\
;
\
;If using 4 bit interface only use the DB4 to DB7 pins.
\
;The 8 bits comands to convert to 4 bits mode do not care
\
;about the 4 LSB.
\
;
\
;With R/W =0 and RS=0:
\
;
\
;0x01 ;clear display 82us @250Hz
\
;0x02 ;return home 82us @250Hz
\
;0x04 ;EntryModeSet 40us @250Hz
\
; 0x01 ; S 1 = shift
\
; 0x02 ; I/D 1= increment/0=decrement
\
;0x08 ;Display ON/OFF 40us @250Hz
\
; 0x01 ; B Blink
\
; 0x02 ; C Cursor On
\
; 0x04 ; D Display On
\
;0x10 ;Cursor and Display Shift 40us @250Hz
\
; 0x04 ; s/c Shift Display/ 0=shift Cursor
\
; 0x08 ; r/l Shift Right,0=shift left
\
;0x20 ;Function Set 40us @250Hz
\
; 0x04 ; F 5x10 dots /5x7dots
\
; 0x08 ; N 2lines /1lines
\
; 0x10 ; DL 8bits interface /4 bits interface.
\
;0x40 ;Set CG RAM address 40us @250Hz
\
;0x80 ;Set DD RAM address; 40us @250Hz
\
\
;With R/W =0 and RS=1:
\
;write data to CG or DD
\
;With R/W =1 and RS=1:
\
;Read data from CG or DD
\
;
\
;Send the commands below to Initilize.
\
;First mop up any 4 bit commands, and convert to 8 bit,
\
;either from 4 bit mode or 8 bit mode.
\
;Then from 8 bit node move to 4 bit mode.
\
;Then issue 4 bit commands.
\
\
; wlcdCmd($33); 8 bit mode - could be in 4 bit mode
\
; wlcdCmd($32); 8 bit mode - could be in 4 bit mode
\
; wlcdCmd($28); 4 bit mode, 2 lines 5x7 dots
\
; wlcdCmd($01); Clear Display could take 1.6ms
\
; wlcdCmd($0F); $0F - Display On,CursorOn,Blink
\
; wlcdCmd($C9); set dd address
\
\
;You don\'t need to read the busy line on the display.
\
;
\
;PORT B Display LCD Pin
\
;DB7 DB7 14
\
;DB6 DB6 13
\
;DB5 DB5 12
\
;DB4 DB4 11
\
;DB3 E 6
\
; R/W gnd 5
\
;DB2 RS 4
\
; V0 Vlcd 3
\
; Vdd +5 2
\
; Vss 0 1
\
"
);
gbF(
"doug","ss","Mon, 3 Nov 2003 08:11:58 UTC+0100","212.56.108.219 ",
"LCD 1200",
"Commands",
"",
"",
";Epson EA-C20017AR
\
;==================
\
;
\
;20 char by one line.
\
;
\
;The display appears to be based on an SED1200F controller.
\
;
\
;Pin Connections when looking at display, contacts on left.
\
;
\
; 1 +5V 2 Gnd |------------------|
\
; 3 Vlcd 4 Clk | |
\
; 5 -CS 6 A0 | DISPLAY 20x1 |
\
; 7 -WR 8 -RD | - |
\
; 9 DB3 10 DB2 | |
\
; 11 DB1 12 DB0 |------------------
\
;
\
; Display is 20 x 1
\
; Suggested values for single line mode , 10 x 1 repeated 10 x 1.
\
;
\
; + 5V Pin 1
\
; |
\
; [ ] 10k ohm
\
; |
\
;Vlcd Pin 3
\
; |
\
; [ ] 3k ohm
\
; |
\
; GND
\
;
\
;
\
; For proper operation run the display as two line mode.
\
;
\
;
\
; Initialization. leaves random characters.
\
;
\
; CMD, System Reset 0,0x10
\
; CMD, DISPLAY ON 0,0x0D
\
; CMD, Line Select-On 0,0x13
\
; CMD, Cursor Home 0,0x80
\
; DATA,0x20
\
\
;--------------------------------------------------------------------------
\
; Sec 3.3.2 LCD command equates
\
;--------------------------------------------------------------------------
\
\
;
\
; SED 1200F config commands A0=0
\
;
\
LCDsetCurDirInc EQU 0x04
\
LCDsetCurDirDec EQU 0x05
\
LCDCurInc EQU 0x06
\
LCDCurDec EQU 0x07
\
LCDCurBlock EQU 0x09
\
LCDCurUL EQU 0x08
\
LCDCurConst EQU 0x0A
\
LCDCurBlink EQU 0x0B
\
LCDCurDispOff EQU 0x0C
\
LCDCurDispOn EQU 0x0D
\
LCDCurOff EQU 0x0E
\
LCDCurOn EQU 0x0F
\
LCDSysReset EQU 0x10
\
LCD1line EQU 0x12
\
LCD2line EQU 0x13
\
LCDCurX0Y0 EQU 0x80 ; display has two halfs of 10 chars each
\
LCDCurX1Y0 EQU 0xC0 ;
\
LCDCurLeft0 EQU 0x80 ; display 80,..,89,C0..C9
\
LCDCurRight0 EQU 0xC0 ;
\
\
LCDCgRamAddr EQU 0x20
\
LCDCgRamData EQU 0x40
\
"
);
gbF(
"doug","ss","Mon, 3 Nov 2003 08:14:18 UTC+0100","212.56.108.219 ",
"LCD 1200",
"Waveforms",
"",
"",
"; assume that the A0 line is correctly set,
\
; Byte to be displayed is in W
\
;
\
; CS ----________------------------------------------------
\
; WR,CLK-----__--__------_-_-_-_--_-_-_-_--_-_-_-_--_-_-_-_---
\
; DB,A0 ---x====x====x----------------------------------------
\
\
\
; Assumes:-
\
; LCD_DB0..3 connected to PORTB:4..7
\
; RD connected to +5
\
; WR,CS,A0,CLK are equated, but connected to PORTB
\
; on exit PORTB<4:7> are left as inputs, so that they can
\
; be used for the keyboard/buttons.
\
"
);
gbF(
"doug","ss","Mon, 3 Nov 2003 08:16:32 UTC+0100","212.56.108.219 ",
"LCD 1200",
"Waveforms",
"",
"",
"LCDwrtByte
\
; assume that the A0 line is correctly set,
\
; Byte to be displayed is in W
\
; SED1200 LCD chip
\
; CS ----________------------------------------------------
\
; WR,CLK-----__--__------_-_-_-_--_-_-_-_--_-_-_-_--_-_-_-_---
\
; DB,A0 ---x====x====x----------------------------------------
\
\
; HD44780 LCD chip
\
;R/W ==X====================x====
\
;RS ____________________________ 0 for CMD, 1 for DATA
\
;E ____/----\\____/-----\\_______
\
;DB ==X=========X==========X====
\
; MSN LSN
\
\
"
);
gbF(
"doug","ss","Mon, 3 Nov 2003 08:22:26 UTC+0100","212.56.108.219 ",
"PIC Code",
"Serial IN 9600 baud",
"",
"",
"RS232in
\
; spin for a start bit
\
; CLRWDT
\
; BTFSS PORTB,RS232rx
\
; GOTO RS232in
\
\
CALL Delay6 ; 1/2 bit delay for Start bit - check with MPLAB
\
CALL Delay5 ; bit delay
\
movlw 8
\
movwf RSloopCnt
\
RS232inL0
\
MOVFW PORTB
\
ANDLW 1<< RS232rx ; mask off bit
\
ADDLW -1<< RS232rx ; use ripple carry to move into C
\
RRF RSdata,F
\
CALL Delay5
\
DECFSZ RSloopCnt,f
\
goto RS232inL0
\
COMF RSdata,f
\
MOVFW RSdata
\
ADDLW -0x0D
\
SKPNZ
\
GOTO RSfoundCR
\
ADDLW 0x0D
\
CALL LCDwrtChar
\
RETURN
\
RSfoundCR
\
MOVLW LCDCurLeftLower
\
CALL LCDwrtCmd
\
RETURN
\
Delay5
\
MOVLW 0x1E
\
MOVWF RSdell
\
Delay51 DECFSZ RSdell ; 1
\
GOTO Delay51 ; 2 clk
\
CLRWDT
\
RETURN
\
;Delay 0x0F * 3 ticks of 4Mhz ~= 45us
\
Delay6
\
; RETURN
\
; MOVLW 0x0F
\
MOVLW 0x08; shorten delay as edge detector takes about 22 us
\
MOVWF RSdell
\
Delay61 DECFSZ RSdell
\
GOTO Delay61
\
CLRWDT
\
RETURN"
);
gbF(
"doug","ss","Mon, 3 Nov 2003 08:28:32 UTC+0100","212.56.108.219 ",
"PIC Code",
"Macro to test Table jumps",
"",
"",
"macro to protect Jump table from stradling page boundary.
\
Errors if table straddles page boundary.
\
\
TEST_STRADDLE MACRO START
\
if high( $ ) != high( START )
\
Error \"Table straddles Page Boundary \" + Start
\
endif
\
endm
\
\
usage:
\
LCDgetByte
\
... jump table code ...
\
TEST_STRADDLE LCDgetByte"
);
gbF(
"doug","s@s","Wed, 5 Nov 2003 08:23:38 UTC+0100","212.56.108.219 ",
"Perl Code",
"Perl code to force errors to browser",
"",
"",
"# If you are getting Interal server error messages,
\
# use the code below to pipe script errors to the browser
\
use CGI::Carp ( fatalsToBrowser);
\
\
# Alternatively code like:
\
# uncomment line below to view compiler errors
\
#
\
#BEGIN {
\
#$| = 1;
\
#open (STDERR, \">&STDOUT\");
\
#print \"Content-type: text/html\\n\\n\\n\";
\
#}
\
\
"
);
gbF(
"name","","Sat, 17 Jan 2004 21:41:53 UTC+0100","212.56.108.219 ",
"PIC Code",
"Frequency Counter code for 12F675",
"",
"",
";--------------------------------------------------------------------------
\
; Sec 4.11 Frequency Counter Code
\
;-------------------------------------------------------------------------
\
cblock
\
current
\
lasttmr0
\
;BCDip0,BCDip1,BCDip2,BCDip3
\
tc0,tc1,tc2,tc3,tc4
\
endc
\
\
\
incCnt
\
; get current count
\
movfw current
\
movwf lasttmr0
\
movfw TMR0
\
movwf current
\
subwf lasttmr0,w
\
; we don\'t need to worry about the carry.
\
sublw 0
\
addwf BCDip0,f ; t
\
skpc ; t+0
\
retlw -.24 ; t+1 these values are used to adjust the main timing loop.
\
incfsz BCDip1,f ; t+2
\
retlw -.26 ; t+3
\
incfsz BCDip2,f ; t+4
\
retlw -.28 ; t+5
\
incfsz BCDip3,f ; t+6
\
retlw -.30 ; t+7
\
\
\
FRfreqMeter1
\
; we arm to display first of all
\
NOP
\
return
\
\
FRfreqMeter
\
; turn off A to D converter
\
banksel ADCON0
\
movlw B\'0000000\' ;Fosc/8, A/D enabled
\
movwf ADCON0
\
\
\
; Make sure that the pin is not used by the A to D
\
; Make sure that the Comparator inpuit is Analogue, but the output is digital
\
banksel ANSEL
\
movlw B\'00010010\' ;Fosc/8, A/D enabled
\
movwf ANSEL
\
\
; make the comparator output and output
\
banksel TRISIO
\
movlw B\'11111011\' ;Fosc/8, A/D enabled
\
movwf TRISIO
\
\
; Set up the comparator and Vref for the freq input
\
banksel VRCON
\
movlw 1 << VREN | 1<\
movwf VRCON
\
\
; Configure the Comparator to Use Vref and GPIO pin 1
\
banksel CMCON
\
movlw B\'00000011\' ;
\
movwf CMCON
\
\
; Change Prescaler and connect TMR0 ip to external
\
CLRWDT
\
; Configure Tmr 0
\
BSF STATUS,RP0
\
; set TMR0 to increment off internal input for test purposes - CLK off internal Clock
\
MOVLW 0x0 + 0x00 + 0 ; T0CS + For Tmr0 0=/2, 1=/4, 2=/8,3=/16
\
\
; Set up CLK off external input with prescale set to 1/2.
\
MOVLW 0x0 + 0x20 + 0 ; T0CS + For Tmr0 0=/2, 1=/4, 2=/8,3=/16
\
\
\
MOVWF OPTION_REG
\
BCF STATUS,RP0
\
; clear Pin Change interrupt
\
; MOVFW PORTB
\
; BCF INTCON, RBIF
\
\
clrf BCDip0
\
clrf BCDip1
\
clrf BCDip2
\
clrf BCDip3
\
\
\
; start measuring frquency HERE as we sample the count
\
; adding instructions here affects the readings
\
movfw TMR0
\
movwf current
\
\
nop
\
\
; 2,000,000 = 1E8480
\
; using prescale of div 2
\
; These seem to work,
\
; but still underead a litte bit
\
movlw 0x81
\
movwf tc0
\
movlw 0x85
\
movwf tc1
\
movlw 0x1F
\
movwf tc2
\
\
freqMeter0
\
; BSF PORTA,0
\
nop
\
; 21 cycles
\
call incCnt
\
\
; BCF PORTA,0
\
nop
\
\
FreqDelay
\
; w contains a fiddle factor to adjust this delay
\
; get current count
\
\
; we don\'t need to worry about the carry.
\
addwf tc0,f ;t
\
;t= 0
\
skpnc
\
goto fd1 ;t+1 these values are used to adjust the main timing loop.
\
;
\
decfsz tc1,f ;t+2
\
goto fd2 ;t+3
\
decfsz tc2,f ;t+4
\
goto fd3 ;t+5
\
goto fd4
\
\
\
\
fd1
\
; replace NOP instructions with a test to see if buttons have been pressed
\
; note that theses also take 2 clock cycles
\
; btfsc INTCON,RBIF ;t+3
\
; goto fdEscape ;t+4
\
\
nop ;t+5
\
nop ;t+6
\
f
\
fd2
\
; btfsc INTCON,RBIF ;t+5
\
; goto fdEscape ;t+6
\
nop ;t+5
\
nop ;t+6
\
fd3 goto freqMeter0 ;t+7
\
fd4 goto FRdisplayResult
\
; we have a reading so arm to display it.
\
; BCF DoTimeSlice,DTsMeasFreq
\
; BSF DoTimeSlice,DTsDispFreq
\
\
fdEscape ; come here if escaped out offrequency measurement.
\
; The half measured frequency should not be displayed.
\
\
\
; Change Prescaler back to TMR0 clocked by Internal.
\
CLRWDT
\
; Configure Tmr 0
\
BSF STATUS,RP0
\
; Set up prescaller for 8192 / 16 = 512 ticks perseconds.
\
MOVLW 0x0 + 2 ; For Tmr0 0=/2, 1=/4, 2=/8,3=/16
\
MOVWF OPTION_REG
\
BCF STATUS,RP0
\
; Set up prescaller for 8192 / 16 = 512 ticks perseconds.
\
; MOVLW 4
\
; MOVWF CLtmr4sec
\
; return
\
\
; now run into the convert and display routine
\
; display current count
\
\
\
FRdisplayResult1
\
; we arm to display first of all
\
clrf BCDip0
\
clrf BCDip1
\
clrf BCDip2
\
clrf BCDip3
\
\
FRdisplayResult
\
\
\
#DEFINE buildbcdBinDec24
\
; BCF PORTA,0
\
\
; call bcdBinDec24
\
call B2_BCD ; After conversion the Decimal Number"
);
gbF(
"name","","Sat, 17 Jan 2004 21:47:12 UTC+0100","212.56.108.219 ",
"PIC Code",
"Frequency Counter code for 12F675",
"",
"",
"The code for the frequency counter uses TMR0.
\
\
TMR0 is set to divide by 2.
\
\
It is periodically reads TMR0 for 2 seconds, and accumulates the difference in counts from the last sample of TMR0.
\
\
In this way the count is the number of cycles of the input.
\
\
The 12F675 has a comparator that can be used to make the counter more sensitive.
\
\
Some of this code wasin my Logi pic."
);
//HTTP_REFERER = http://www.dougrice.plus.com/hp/gbbook/simple/codeScraps.htm
//HTTP_USER_AGENT= Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)
gbF(
"doug","","Mon, 5 Apr 2004 07:54:44 UTC+0100","212.56.108.219 ",
"Serial Buffer code",
"",
"",
"",
"; take serial input RHHMMC and put into buffer
\
; if last char C is \'s\' then write to EEPROM
\
cblock
\
SRipBuffCnt ; input buffer counter
\
; start of buffer
\
SRreg ; Serial Port Input routines
\
SRHh ;
\
SRhH ;
\
SRMm ;
\
SRmM ;
\
SRcmd
\
; end of buffer
\
;
\
ENDC
\
\
\
SRipbuffStart EQU SRreg
\
SRipbuffEnd EQU SRcmd
\
\
\
SRbuffInput
\
MOVWF SRin
\
; look for line feed and reset buff cnt
\
ADDLW -0x0A
\
BNZ SRbuffInput1
\
MOVLW SRipbuffStart
\
MOVWF SRipBuffCnt
\
RETURN
\
\
SRbuffInput1
\
; Store the current time into the next register.
\
MOVFW SRipBuffCnt
\
MOVWF FSR
\
MOVFW SRin
\
MOVWF INDF
\
INCFSZ SRipBuffCnt,f
\
MOVFW SRipBuffCnt
\
\
ADDLW -(SRipbuffEnd+1)
\
; Check if the end of memory
\
SKPZ
\
GOTO SRbuffInput3
\
MOVLW SRipbuffStart
\
MOVWF SRipBuffCnt
\
\
; got to end of buffer so process. does not allow for backspace
\
MOVLW -\'s\'
\
ADDWF SRcmd,w ; test to see if command is s, if so save into register.
\
bnz SRbuffInput3
\
\
; assume numbers were typed
\
; mask off lower nibble
\
MOVLW 0x0F
\
ANDWF SRreg,f
\
ANDWF SRHh,f
\
ANDWF SRhH,f
\
ANDWF SRMm,f
\
ANDWF SRmM,f
\
\
RLF SRreg,w
\
ANDLW 0x1E
\
MOVWF EEADR
\
SWAPF SRHh,w
\
IORWF SRhH,w
\
CALL EEwrt
\
\
RLF SRreg,w
\
ANDLW 0x1E
\
ADDLW 0x01
\
MOVWF EEADR
\
SWAPF SRMm,w
\
IORWF SRmM,w
\
CALL EEwrt
\
\
GOTO SRbuffInput3
\
SRbuffInput3
\
\
\
return
\
\
"
);
//HTTP_REFERER = http://www.dougrice.plus.com/hp/gbbook/simple/codeScraps.htm
//HTTP_USER_AGENT= Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
gbF(
"Doug ","","Fri, 31 Dec 2004 07:45:57 UTC+0100","212.56.108.219 ",
"Input - edge detector",
"",
"",
"",
"
\
IPtimeslice
\
; ----___
\
; --_____
\
;
\
; This reads all Port B inputs and looks for Press
\
MOVFW IPnew
\
MOVWF IPlast
\
MOVFW PORT_BUTTONS
\
MOVWF IPnew
\
\
; IP last contains new setting, IPlast contains previous
\
\
; ----___
\
; --_____
\
;
\
\
; trigger event on down and up
\
MOVFW IPnew ; ----______
\
XORWF IPlast,W ; -----_____
\
; ____-_____
\
; now force IPbuttonEvent bits to high for new pressed button
\
; the service routine should clear the bit to clear the event.
\
IORWF IPbuttonEventt,F
\
; RETURN
\
\
; trigger event on press
\
COMF IPnew,W ; ____------
\
ANDWF IPlast,W ; -----_____
\
; ____-_____
\
; now force IPbuttonEvent bits to high for new pressed button
\
; the service routine should clear the bit to clear the event.
\
IORWF IPbuttonEvent,F
\
RETURN
\
"
);
//HTTP_REFERER = http://www.dougrice.plus.com/hp/gbbook/simple/codeScraps.htm
//HTTP_USER_AGENT= Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
gbF(
"name","","Fri, 31 Dec 2004 07:48:33 UTC+0100","212.56.108.219 ",
"Input - ",
"",
"",
"",
"MainLoop
\
CALL IPtimeslice
\
CALL CLtimeslice
\
\
\
; Any events that exist
\
BTFSC DoTimeSlice,DTsS4event ; On 1/4 Second Tick
\
CALL SS4tick
\
\
; Any events that exist
\
BTFSC DoTimeSlice,DTsSevent ; On Second Tick
\
CALL SStick
\
\
BTFSC DoTimeSlice,DTsMevent ; On Minute Tick
\
CALL SMtick
\
\
BTFSC DoTimeSlice,DTsHevent ; On Hour Tick
\
CALL SHtick
\
\
BTFSC DoTimeSlice,DTSRwrtCount ; Serial Display
\
CALL SRwrtCount
\
\
BTFSC DoTimeSlice,DTSRwrtEvent ; Serial Display
\
CALL SRwrtTime
\
\
#ifdef inc
\
\
BTFSC IPbuttonEvent,BUTTON_SET ; On BUTTON_SET Press
\
CALL IPsetPressed
\
\
BTFSC IPbuttonEvent,BUTTON_NEXT ; On BUTTON_NEXT Press
\
CALL IPnextPressed
\
\
#endif
\
BTFSC IPbuttonEventt,BUTTON_ONE ; On BUTTON_NEXT Press
\
CALL IPoneChanged
\
\
\
; CALL IPtimesliceFast ; also does switch action if edge found.
\
; this is normally called eververy 1/4 second
\
; CALL IPts
\
\
GOTO MainLoop
\
"
);
//HTTP_REFERER = http://www.dougrice.plus.com/hp/gbbook/simple/codeScraps.htm
//HTTP_USER_AGENT= Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
gbF(
"name","","Fri, 31 Dec 2004 07:49:09 UTC+0100","212.56.108.219 ",
"Input - Main loop",
"",
"",
"",
"name said on Fri, 31 Dec 2004 07:48:33 UTC+0100:
\
MainLoop
\
CALL IPtimeslice
\
CALL CLtimeslice
\
\
\
; Any events that exist
\
BTFSC DoTimeSlice,DTsS4event ; On 1/4 Second Tick
\
CALL SS4tick
\
\
; Any events that exist
\
BTFSC DoTimeSlice,DTsSevent ; On Second Tick
\
CALL SStick
\
\
BTFSC DoTimeSlice,DTsMevent ; On Minute Tick
\
CALL SMtick
\
\
BTFSC DoTimeSlice,DTsHevent ; On Hour Tick
\
CALL SHtick
\
\
BTFSC DoTimeSlice,DTSRwrtCount ; Serial Display
\
CALL SRwrtCount
\
\
BTFSC DoTimeSlice,DTSRwrtEvent ; Serial Display
\
CALL SRwrtTime
\
\
#ifdef inc
\
\
BTFSC IPbuttonEvent,BUTTON_SET ; On BUTTON_SET Press
\
CALL IPsetPressed
\
\
BTFSC IPbuttonEvent,BUTTON_NEXT ; On BUTTON_NEXT Press
\
CALL IPnextPressed
\
\
#endif
\
BTFSC IPbuttonEventt,BUTTON_ONE ; On BUTTON_NEXT Press
\
CALL IPoneChanged
\
\
\
; CALL IPtimesliceFast ; also does switch action if edge found.
\
; this is normally called eververy 1/4 second
\
; CALL IPts
\
\
GOTO MainLoop
\
"
);
//HTTP_REFERER = http://www.dougrice.plus.com/hp/gbbook/simple/codeScraps.htm
//HTTP_USER_AGENT= Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
gbF(
"name","","Fri, 31 Dec 2004 07:50:53 UTC+0100","212.56.108.219 ",
"Input - One button timmed press",
"",
"",
"",
"
\
IPoneChanged
\
BCF IPbuttonEventt,BUTTON_ONE
\
; test for up/down
\
BTFSC IPnew,BUTTON_ONE
\
GOTO IPoneReleased
\
IPonePressed
\
CALL LSblink
\
MOVLW B\'10001000\' ; load a set of pegs, like one a music box into byte.
\
MOVWF IPoneTimer ; this timer uses a shitf reg
\
MOVLW 0
\
MOVWF IPoneCnt
\
RETURN
\
\
IPoneReleased
\
CLRF IPoneTimer ; clear the timer
\
\
MOVFW IPoneCnt
\
ADDLW -2 ; jump if 2 or 3
\
BC IPoneReleased2
\
\
MOVFW IPoneCnt ; 0 = next, 1 = set
\
CALL IPsetJump
\
\
MOVWF IPsetState
\
SWAPF IPsetState,W
\
MOVWF PORTA
\
RETURN
\
\
IPoneReleased2
\
CLRF DispState
\
CLRF IPsetState
\
\
SWAPF IPsetState,W
\
MOVWF PORTA
\
RETURN
\
\
IPts
\
; This is called once per 1/4 second
\
BCF STATUS,C
\
RRF IPoneTimer,f ; shift the timer pegs to right. If peg moves into carry do something.
\
BTFSS STATUS,C ; Thest if a peg is set
\
RETURN
\
; blink LED
\
INCF IPoneCnt,f
\
; multiply the IPcnt by 16 by doing a swap.
\
SWAPF IPoneCnt,w
\
MOVlw 0x08
\
CALL LSbeepn
\
return"
);
//HTTP_REFERER = http://www.dougrice.plus.com/hp/gbbook/simple/codeScraps.htm
//HTTP_USER_AGENT= Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
gbF(
"name","","Fri, 31 Dec 2004 07:55:04 UTC+0100","212.56.108.219 ",
"Input - One button timmed press.",
"",
"First Try",
"",
"#ifdef works
\
\
IPoneChanged
\
BCF IPbuttonEventt,BUTTON_ONE
\
; test for up/down
\
BTFSC IPnew,BUTTON_ONE
\
GOTO IPoneReleased
\
IPonePressed
\
MOVLW B\'10010010\' ; load a set of pegs, like one a music box into byte.
\
MOVWF IPoneTimer ; this timer uses a shitf reg
\
MOVLW 1
\
MOVWF IPoneCnt
\
RETURN
\
IPoneReleased
\
CLRF IPoneTimer ; clear the timer
\
SWAPF IPoneCnt,w
\
CALL LSbeepn
\
DECF IPoneCnt,W
\
MOVWF PORTA
\
RETURN
\
\
IPts
\
; This is called once per 1/4 second
\
BCF STATUS,C
\
RRF IPoneTimer,f ; shift the timer pegs to right. If peg moves into carry do something.
\
BTFSS STATUS,C ; Thest if a peg is set
\
RETURN
\
; blink LED
\
INCF IPoneCnt,f
\
; multiply the IPcnt by 16 by doing a swap.
\
SWAPF IPoneCnt,w
\
MOVlw 0x08
\
CALL LSbeepn
\
return
\
#endif
\
"
);
gbF( // guestbook.pl
"name","email","Wed, 19 Jul 2006 08:07:24 UTC+0100","212.56.108.219 ",
"; Binary-to-BCD. Written by John Payson.",
"userfield2",
"userfield3",
"userfield4",
";-------------------------------------------------------------------
\
; http://www.interstice.com/~sdattalo/technical/software/pic/bcd.txt
\
;
\
; Binary-to-BCD. Written by John Payson.
\
;
\
; Enter with 16-bit binary number in NumH:NumL.
\
; Exits with BCD equivalent in TenK:Thou:Hund:Tens:Ones.
\
;
\
\
; org 0x0010 ;Start of user files for 16c84
\
; cblock
\
; NumH;: ds 1
\
; NumL;: ds 1
\
; TenK;: ds 1
\
; Thou;: ds 1
\
; Hund;: ds 1
\
; Tens;: ds 1
\
; Ones;: ds 1
\
; endc
\
\
Convert;: ; Takes number in NumH;:NumL
\
; Returns decimal in
\
; TenK;:Thou;:Hund;:Tens;:Ones
\
;Carrying this concept out for the rest of the b_i\'s we have.
\
;
\
;b_0 = a_0 - 4*(a_3 + a_2 + a_1) - 20
\
;b_1 = 6*a_2 + 2*a_1 + 2 - 140
\
; = 6*a_2 + 2*a_1 - 138
\
;b_2 = a_3 + 2*a_2 + 14 - 60
\
; = a_3 + 2*a_2 - 46
\
;b_3 = 4*a_3 + 6 - 70
\
; = 4*a_3 - 64
\
;b_4 = 0 + 7
\
; = 7
\
\
\
\
swapf NumH,w
\
andlw 0x0F ;*** PERSONALLY, I\'D REPLACE THESE 2
\
addlw 0xF0 ;*** LINES WITH \"IORLW 11110000B\" -AW
\
; =a3+240 or =a3-16
\
movwf Thou ; w = a3-16
\
addwf Thou,f ;thou = 2a3-32
\
addlw 0xE2 ; w = a3-16-30
\
movwf Hund ;hund = a3-46
\
addlw 0x32 ; w = a3-46+50 = a3 + 4
\
movwf Ones ;ones = a3 +4
\
\
movf NumH,w ;
\
andlw 0x0F ; w = a2
\
addwf Hund,f ;hund = a3-46 + a2
\
addwf Hund,f ;hund = a3-46 + 2*a2
\
addwf Ones,f ;Ones = a3+4 + a2
\
addlw 0xE9
\
movwf Tens ;Tens = a2 - 23
\
addwf Tens,f ;Tens = 2*(a2 - 23)
\
addwf Tens,f ;Tens = 3*(a2 - 23)
\
\
swapf NumL,w
\
andlw 0x0F ; w = a1
\
addwf Tens,f ;
\
addwf Ones,f ;
\
\
rlf Tens,f
\
rlf Ones,f
\
comf Ones,f
\
rlf Ones,f
\
\
movf NumL,w ;
\
andlw 0x0F ; w = a0
\
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
\
; compliment ; binary. To be precise, all of
\
; them are negative ; except TenK. Now the
\
; number needs to be normal- ; ized, but this
\
; can all be done with simple byte ; arithmetic.
\
\
movlw 0x0A ; Ten
\
Lb1;:
\
addwf Ones,f
\
decf Tens,f
\
btfss 3,0
\
goto Lb1
\
Lb2;:
\
addwf Tens,f
\
decf Hund,f
\
btfss 3,0
\
goto Lb2
\
Lb3;:
\
addwf Hund,f
\
decf Thou,f
\
btfss 3,0
\
goto Lb3
\
Lb4;:
\
addwf Thou,f
\
decf TenK,f
\
btfss 3,0
\
goto Lb4
\
\
retlw 0
\
\
\
; And according to my analysis;:
\
;
\
; If you have a 4 digit hexadecimal number, it may be written as
\
;
\
; N = a_3*16^3 + a_2*16^2 + a_1*16 + a_0
\
;
\
; where a_i, i=0,1,2,3 are the four hexadecimal digits. If you
\
; wish to convert this to decimal, then you need to express N as
\
;
\
; N = b_4*10^4 + b_3*10^3 + b_2*10^2 + b_1*10 + b_0
\
;
\
; Where b_j, j=0,1,2,3,4 are the five decimal digits.
\
; The reason there are 5 digits in the decimal representation
\
; is because the maximum four digit hexadecimal number (0xffff)
\
; requires 5 decimal digits (65535). Now the goal is to find
\
; a set of equations that allow the b_j\'s to be expressed in
\
; terms of the a_i\'s. There are infinitely many ways to do this.
\
; Here are two of probably the simplest expressions.
\
; First, expand the 16^i\'s and then collect all coefficients
\
; of the 10^j\'s;:
\
;
\
; N = a_3*4096 + a_2*256 + a_1*16 + a_0
\
; = a_3*4*10^3 + a_2*2*10^2 + (a_3*9 + a_2*5 + a_1)*10 +
\
; 6*(a_3 + a_2 + a_1) + a_0
\
;
\
;
\
;This gives us five equations;:
\
;
\
;b_0 = 6*(a_3 + a_2 + a_1) + a_0
\
;b_1 = a_3*9 + a_2*5 + a_1
\
;b_2 = 2*a_2
\
;b_3 = 4*a_3
\
;b_4 = 0
\
;
\
;Which as John says, must be \"normalized\". Normalization in
\
;this context means we need to reduce the b_j\'s such that
\
; 0 <= b_j <= 9
\
;
\
;In other words we need to find;:
\
;
\
;c_0 = b_0 mod 10
\
;
\
;b_1 = (b_1 + (b_0 - c_0)/10)
\
;c_1 = b_1 mod 10
\
;
\
;b_2 = (b_2 + (b_1 - c_1)/10)
\
;c_2 = b_2 mod 10
\
;
\
;b_3 = (b_3 + (b_2 - c_2)/10)
\
;c_3 = b_3 mod 10
\
;
\
;c_4 = (b_4 + (b_3 - c_3)/10) mod 10
\
; = (b_2 - c_2)/10
\
;
\
;Division by 10 can be done quite efficiently (as was shown
\
;in another thread several months ago). However, it does require
\
;a significant amount of code space compared to say repeated
\
;subtractions. Unfortunately, there can be very many subtractions
\
;that are required. For example, b_1 could be as large as 15*16,
\
;or 240. 10 would have to be subtracted 24 times if you wish to
\
;compute 240 mod 10. I presume John realized this inefficiency
\
;and thus sought to express N so that repeated subtractions
\
;could be used and that the total number of subtractions are
\
;minimized. This leads to the next way that N can be expressed;:
\
;
\
;N = a_3*(4100 - 4) + a_2*(260 - 4) + a_1*(20-4) + a_0
\
; = 4*a_3*10^3 + (a_3 + 2*a_2)*10^2 + (6*a_2 + 2*a_1)*10 +
\
; a_0 - 4*(a_3 + a_2 + a_1)
\
;
\
;This gives five new equations for the b_j\'s.
\
;
\
;b_0 = a_0 - 4*(a_3 + a_2 + a_1)
\
;b_1 = 6*a_2 + 2*a_1
\
;b_2 = a_3 + 2*a_2
\
;b_3 = 4*a_3
\
;b_4 = 0
\
;
\
;However, these equations are still not conducive to the
\
;repeated subtraction algorithm, at least the way John has
\
;done it. In other words, it is possible to pre-condition
\
;each of the b_j\'s so that they are less than zero. Then
\
;the repeated subtractions can simultaneously perform the
\
;\"mod 10\" and \"/10\" operations shown above. Consider the
\
;equation b_0 for example,
\
;
\
;b_0 = a_0 - 4*(a_3 + a_2 + a_1)
\
;
\
;Since each a_i must satisfy;: 0 <= a_i <= 15, then b_0
\
;ranges;:
\
;
\
; -60 <= b_0 <= 15
\
;
\
;We can make b_0 negative by subtracting any number greater than
\
;15. A logical choice is 20. This is because if we subtract 20
\
;from b_0, we can add 2 to b_1 to keep the net result the same.
\
;The reason we add \"2\" can be seen;:
\
;
\
; b_1*10 + b_0 = b_1*10 + b_0 + 20 - 20
\
; = (b_1 + 2)*10 + b_0 - 20
\
;
\
;Carrying this concept out for the rest of the b_i\'s we have.
\
;
\
;b_0 = a_0 - 4*(a_3 + a_2 + a_1) - 20
\
;b_1 = 6*a_2 + 2*a_1 + 2 - 140
\
; = 6*a_2 + 2*a_1 - 138
\
;b_2 = a_3 + 2*a_2 + 14 - 60
\
; = a_3 + 2*a_2 - 46
\
;b_3 = 4*a_3 + 6 - 70
\
; = 4*a_3 - 64
\
;b_4 = 0 + 7
\
; = 7
\
;
\
;And if you look at John\'s code closely, you will see this is
\
;how he has expressed the b_j\'s.
\
;
\
\
"
);
gbF( // guestbook.pl
"name","","Thu, 24 Apr 2008 07:39:21 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"MQC Test Args",
"userfield2",
"userfield3",
"userfield4",
"This crap is just too hard to figure out and find. This is buried in several other threads that talk about AOM, which is of no help if all you want to know is \"how do I pass test parameters to/from QC\":
\
\
foo = TestArgs(\"testParmName\") \'get an input test parameter
\
\
\
This is the logical equivalent of dereferencing an Action parameter, which is the following syntax:
\
\
bar= Parameter(\"actionParmName\")
\
\
Most confusing as far as I am concerned, as TestArgs has no entry in online help.
\
\
-Terry
\
\
P.S. Additional Search phrases:
\
\
dereference \"test para\" \"test arg\"
\
"
);
gbF( // guestbook.pl
"name","","Thu, 24 Apr 2008 07:47:42 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"MQC Test Args",
"userfield2",
"userfield3",
"userfield4",
"name said on Thu, 24 Apr 2008 07:39:21 UTC+0100:
\
This crap is just too hard to figure out and find. This is buried in several other threads that talk about AOM, which is of no help if all you want to know is \"how do I pass test parameters to/from QC\":
\
\
foo = TestArgs(\"testParmName\") \'get an input test parameter
\
\
\
This is the logical equivalent of dereferencing an Action parameter, which is the following syntax:
\
\
bar= Parameter(\"actionParmName\")
\
\
Most confusing as far as I am concerned, as TestArgs has no entry in online help.
\
\
-Terry
\
\
P.S. Additional Search phrases:
\
\
dereference \"test para\" \"test arg\"
\
\
\
http://www.itjobswatch.co.uk/jobs/uk/winrunner.do
\
"
);
gbF( // guestbook.pl
"name","email","Tue, 13 May 2008 08:59:10 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"Jump Table code",
"",
"",
"",
"
\
;--------------------------------------------------------------------------
\
; Sec 4.1 jump and look up tables.
\
;--------------------------------------------------------------------------
\
\
; Jump table W added to PCL to jump into table
\
; Call this routine and W contains value from jump table
\
; W contains the address of the string to be displayed
\
\
LClookUpPtr
\
movwf LCptr
\
movlw high LClookUpPtrTable
\
movwf PCLATH
\
movfw LCptr
\
addwf PCL,f
\
\
LClookUpPtrTable
\
RETLW low LCstr1
\
RETLW low LCstr2
\
RETLW low LCstr3
\
RETLW low LCstr4
\
RETLW low LCstr0
\
TEST_STRADDLE( LCsetPtr )
\
\
; LCptr is loaded into PCL and incremented
\
; Call this routine and W contains value from jump table
\
LCnextWordTableGet
\
movlw high LCnextWordTable
\
movwf PCLATH
\
movfw LCptr
\
incf LCptr,f
\
movwf PCL
\
\
LCnextWordTable
\
LCstr0
\
dt \"sed1300: \"
\
goto LCend
\
\
LCstr1
\
dt \"- start -\"
\
goto LCend
\
\
LCstr2
\
dt \"- stop -\"
\
goto LCend
\
\
LCstr3
\
dt \"= go =\"
\
goto LCend
\
\
LCstr4
\
dt \"= wait =\"
\
goto LClast
\
\
TEST_STRADDLE( LCnextWordTableGet )
\
\
\
\
;--------------------------------------------------------------------------
\
; Sec 4.2 Main Program Init Code
\
;--------------------------------------------------------------------------
\
\
Start
\
GOTO $+1
\
\
CALL INinit
\
CALL LCinit
\
\
\
\
MOVLW 0x01
\
XORWF LCflags,f
\
\
MOVLW 0xFF
\
MOVWF LCdelayConst
\
\
call LClast
\
\
\
MOVLW 2
\
CALL LCsetPtr
\
\
CALL LCnextWord
\
CALL LCnextWord
\
CALL LCnextWord
\
\
GOTO MainLoop
\
\
"
);
gbF( // guestbook.pl
"Doug","","Sun, 18 May 2008 08:22:23 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"LUA - Bit test",
"userfield2",
"userfield3",
"userfield4",
"-- LUA does not provide a bit test function. You could code a .dll
\
-- Here is a simple bit test
\
-- test 0x20
\
-- test if bit 6 is set.
\
-- for an ASN decompose to check for structures look for bit 6 = 1
\
\
a = 0x20
\
print ( a % 64 ) > 32
\
\
a = 0x0
\
print ( a % 64 ) > 32
\
"
);
gbF( // guestbook.pl
"name","","Sun, 18 May 2008 08:28:37 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"LUA - Bit masks ",
"userfield2",
"userfield3",
"userfield4",
"Doug said on Sun, 18 May 2008 08:22:23 UTC+0100:
\
-- LUA does not provide a bit test function. You could code a .dll
\
-- Here is a simple bit test
\
-- test 0x20
\
-- test if bit 6 is set.
\
-- for an ASN decompose to check for structures look for bit 6 = 1
\
\
--
\
a = 0xA1
\
-- 0x1010 1111
\
\
> Masking off bits
\
stdin:1: \'=\' expected near \'off\'
\
> -- masking off bit fields.
\
> = ( a % 64 ) - ( a % 16 )
\
32
\
> = ( a % 64 ) - ( a % 16 )
\
32
\
> a = 0xb7
\
> = ( a % 64 ) - ( a % 16 )
\
48
\
>"
);
gbF( // guestbook.pl
"name","","Sun, 18 May 2008 08:29:24 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"LUA - Bit masks ",
"userfield2",
"userfield3",
"userfield4",
"Doug said on Sun, 18 May 2008 08:22:23 UTC+0100:
\
-- LUA does not provide a bit test function. You could code a .dll
\
-- Here is a simple bit test
\
-- test 0x20
\
-- test if bit 6 is set.
\
-- for an ASN decompose to check for structures look for bit 6 = 1
\
\
--
\
a = 0xA1
\
-- 0x1010 1111
\
\
> Masking off bits
\
stdin:1: \'=\' expected near \'off\'
\
> -- masking off bit fields.
\
> = ( a % 64 ) - ( a % 16 )
\
32
\
> = ( a % 64 ) - ( a % 16 )
\
32
\
> a = 0xb7
\
> = ( a % 64 ) - ( a % 16 )
\
48
\
>"
);
gbF( // guestbook.pl
"name","","Mon, 19 May 2008 08:15:13 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"LUA - Date Stame",
"userfield2",
"userfield3",
"userfield4",
"--
\
--
\
--==================================
\
--Sun, 20 Apr 2008 08:51:06 UTC+0100
\
--==================================
\
--
\
--
\
\
opStrHdr = \"==================================\\n\" ..
\
os.date( \"!%a, %d %b %Y %X\" ) .. \" UTC\" .. \"\\n\" ..
\
\"==================================\\n\"
\
\
print( opStrHdr .. opStr )"
);
gbF( // guestbook.pl
"doug","","Wed, 21 May 2008 07:29:55 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"IIC - ",
"userfield2",
"userfield3",
"userfield4",
"; IIC master commands to set to slave and master.
\
; Master is done by code. EEPROM
\
;
\
; <; IIC START
\
; >; IIC STOP
\
; /DD; IIC master writeByte
\
; ?; IIC master readByte. If you get ~, SCL is being held low and read has timed out.
\
;
\
; you need to W86FF to set PORT-B & SCL and SDA to IIC inputs.
\
; you need to W9340 to set IIC ADDR
\
; you need to W1436 to init IIC
\
;
\
; \
; /56; send DATA
\
; >;
\
;
\
; \
; W13DD; write data
\
; W1436; set CLK enable
\
; ?; master read data.
\
; >;
\
;
\
;
\
; start, addr+r/~w, ACK, data, ACK , data , ACK , stop
\
;
\
;
\
; On IIC int if using SSPCON=36;
\
; if Sbit
\
; if D/~A == A ; address
\
; if R/~W == R ; Call readFirst - slave must write byte to be read into SSPBUF , Could reset state machine.
\
; if R/~W == W ; Call writeFirst - slave could read Address use it, It will hold SCL low while processing byte.
\
;
\
; if D/~A == D ; data
\
; if R/~W == R ; Call readNext - slave must write byte to be read into SSPBUF
\
; if R/~W == W ; Call writeNext - slave must read byte and use, It will hold SCL low while processing byte.
\
;
\
; if Pbit
\
; ; iic bus has gone idle
\
;
\
; if ( D/~A == A ) && ( BF==1 ) ; Address received
\
; if ( R/~W == W ) then call resetIICwrite;
\
; if ( R/~W == R ) then call resetIICread;
\
;
\
; if ( BF == 0 ) && ( R/~W == R ) ?;
\
;
\
; address 0x20 bit 7 controls if interupt is polled.
\
;
\
;
\
; write
\
; w9340 to set address
\
; w1400 to reset
\
; w1436 to set mode
\
; <;
\
; /40;
\
; r13;
\
; /45;
\
; >;
\
;
\
; read
\
; w9340 to set address
\
; w1400 to reset
\
; w1436 to set mode
\
; <;
\
; /41;
\
; w1345;
\
; w1436 to set CLKE
\
; ?
\
; w1377; respond with 77
\
; w1436 to set CLKE
\
; ?
\
; >;
\
;
\
;
\
; SERIAL PORT CONTROL:
\
;
\
; PORT A0 is Serial input
\
; PORT A0 is serial output
\
;
\
; usb gmus-03 USB Serial Adapter
\
;
\
; TX D9 Pin 3 -[4k7]----+-----PA0
\
; RX D9 Pin 2 ----------/
\
;
\
; GND D9 Pin 5 ---------------- 0V
\
;
\
; AUTHOR: Douglas Rice
\
; Copyright 2004
\
;
\
;
\
;**************************************************************************
\
"
);
gbF( // guestbook.pl
"doug","email","Wed, 21 May 2008 07:30:31 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"IIC - code",
"userfield2",
"userfield3",
"userfield4",
"
\
;--------------------------------------------------------------------------
\
; Sec 5.6a IIC Routines - these do not use the chipps IIC hardware
\
;--------------------------------------------------------------------------
\
\
\
IICinit
\
MOVLW 0xFF
\
banksel TRISB
\
MOVWF TRISB
\
\
MOVLW 0x10
\
banksel SSPADD
\
MOVWF SSPADD
\
\
MOVLW 0x36
\
banksel SSPCON
\
MOVWF SSPCON
\
\
return
\
\
\
\
\
\
;--------------------------------------------------------------------------
\
; Sec 5.6b IIC Slave Routines - these use the chip\'s IIC hardware
\
;--------------------------------------------------------------------------
\
\
;
\
;
\
; On IIC int
\
; if Sbit
\
; if D/~A == A ; address
\
; if R/~W == R ; Call readFirst - slave must write byte to be read into SSPBUF , Could reset state machine.
\
; if R/~W == W ; Call writeFirst - slave could read Address use it, It will hold SCL low while processing byte.
\
;
\
; if D/~A == D ; data
\
; if R/~W == R ; Call readNext - slave must write byte to be read into SSPBUF
\
; if R/~W == W ; Call writeNext - slave must read byte and use, It will hold SCL low while processing byte.
\
;
\
; if Pbit
\
; ; iic bus has gone idle
\
; Obviously Master should only send when Bus has seen Stop
\
;
\
; writeFirst
\
;
\
;
\
;
\
\
IICslave
\
; IIC int flag has been set so process byte.
\
\
; Write: lowercase done by master
\
; start, addr + w, ACK, data, ACK , data , ACK , stop
\
\
; Read: UPPERCASE done by SLAVE
\
; start, addr + r, ACK, DATA, ack , DATA , ack , stop
\
\
call iicslaveProcessStart
\
\
banksel SSPSTAT
\
BTFSC SSPSTAT,S
\
GOTO IICslaveStart
\
\
; test if stop detected
\
BTFSC SSPSTAT,P
\
CALL IICslaveProcessStop
\
GOTO iicslaveEndRtn
\
\
\
iicslaveEndRtn
\
banksel PIR1
\
BCF PIR1,SSPIF
\
RETURN
\
\
\
IICslaveStart
\
banksel SSPSTAT
\
\
BTFSC SSPSTAT,D_A
\
GOTO IICslaveData
\
GOTO IICslaveAddress
\
\
\
IICslaveAddress
\
;
\
; Address by seen, use this to reset state machine.
\
;
\
;
\
\
; D_A = ADDR
\
; if R_W = W then write
\
; if R_W = R then READ and first byte needs to be read.
\
banksel SSPBUF
\
movfw SSPBUF
\
\
; store received byte.
\
banksel IICtmpWrite
\
MOVWF IICtmpWrite
\
\
call iicslaveProcessAddressByte
\
\
banksel SSPSTAT
\
BTFSS SSPSTAT,R_W
\
GOTO IICslaveAddress2
\
\
;
\
; ADDRESS - READ
\
;
\
;
\
; need to start READ and write to SSPBUFF
\
;
\
call iicslaveProcessAddressRead
\
\
banksel SSPBUF
\
movwf SSPBUF
\
\
;
\
; Byte ready to be send remove clamp on clock to allow master to clock chip.
\
;
\
banksel SSPCON
\
BSF SSPCON,CKP
\
\
GOTO iicslaveEndRtn
\
\
\
IICslaveAddress2
\
;
\
; ADDRESS - WRITE
\
;
\
call iicslaveProcessAddressWrite
\
GOTO iicslaveEndRtn
\
\
\
\
IICslaveData
\
BTFSC SSPSTAT,R_W
\
GOTO IICslaveDataRead
\
\
IICslaveDataWrite
\
;
\
; chip is being written to so read byte.
\
;
\
\
banksel SSPBUF
\
movfw SSPBUF
\
call iicslaveProcessWriteByte
\
GOTO iicslaveEndRtn
\
\
\
IICslaveDataRead
\
;
\
; chip is being read so supply byte to be read.
\
; Test SSPCON.CKP -
\
; If it is still high the last byte was NACK\'d
\
; Therefore do not send another byte.
\
;
\
; banksel SSPCON
\
; BTFSC SSPCON,CKP
\
; GOTO iicslaveEndRtn
\
; carry on and write next byte to be sent to master.
\
;
\
\
call iicslaveProcessReadByte
\
\
banksel SSPBUF
\
movwf SSPBUF
\
\
;
\
; Byte ready to be send remove clamp on clock to allow master to clock chip.
\
;
\
banksel SSPCON
\
BSF SSPCON,CKP
\
\
GOTO iicslaveEndRtn
\
\
\
;--------------------------------------------------------------------------
\
; Sec 5.6b IIC Slave call back rouines - write these to do what you want
\
;--------------------------------------------------------------------------
\
\
iicslaveProcessStart
\
\
;slave:
\
; IIC
\
\
\
MOVLW \'#\'
\
CALL RStxChar
\
MOVLW \'I\'
\
CALL RStxChar
\
MOVLW \'I\'
\
CALL RStxChar
\
MOVLW \'C\'
\
CALL RStxChar
\
MOVLW \'-\'
\
CALL RStxChar
\
\
goto iicslaveProcessEnd
\
\
; RETURN
\
\
\
iicslaveProcessAddressByte
\
movlw \'@\'
\
CALL RStxChar
\
\
MOVFW IICtmpWrite
\
\
goto iicslaveProcessEndData
\
\
\
iicslaveProcessAddressWrite
\
;
\
; Address with Write Set
\
;
\
; reset Write state machine
\
;
\
RETURN
\
\
\
iicslaveProcessAddressRead
\
;
\
; Address with Read Set
\
;
\
; reset read state machine
\
;
\
banksel IICslaveDataSource
\
clrf IICslaveDataSource
\
movfw IICslaveDataSource
\
RETURN
\
\
\
iicslaveProcessWriteByte
\
movwf IICslaveDataSink
\
\
; write out received byte to serial port.
\
; normally you should call a state machine to sink the received bytes.
\
;
\
movlw \'W\'
\
CALL RStxChar
\
\
MOVFW IICslaveDataSink
\
\
goto iicslaveProcessEndData
\
\
\
\
iicslaveProcessReadByte
\
; simulate an data soucre buy incrementing a byte and writing this into SSPBUFF
\
; You should call a state machine to supply reall information here.
\
\
banksel IICslaveDataSource
\
incf IICslaveDataSource,f
\
\
movlw \'R\'
\
CALL RStxChar
\
\
movfw IICslaveDataSource
\
\
CALL iicslaveProcessEndData
\
\
movfw IICslaveDataSource
\
\
return
\
\
\
IICslaveProcessStop
\
;
\
; stop bit
\
;
\
\
movlw \'s\'
\
CALL RStxChar
\
\
movlw \'t\'
\
CALL RStxChar
\
\
goto iicslaveProcessEndCR
\
\
\
iicslaveProcessEndData
\
\
MOVWF IICtmpWrite2
\
\
movlw \'[\'
\
CALL RStxChar
\
\
\
SWAPF IICtmpWrite2,W
\
CALL RSwrtHexNibble
\
\
MOVFW IICtmpWrite2
\
CALL RSwrtHexNibble
\
\
movlw \']\'
\
CALL RStxChar
\
\
; fall through
\
\
iicslaveProcessEndCR
\
\
MOVLW 0x0D
\
CALL RStxChar
\
\
MOVLW 0x0A
\
CALL RStxChar
\
; fall through
\
\
iicslaveProcessEnd
\
\
RETURN
\
\
;--------------------------------------------------------------------------
\
; Sec 5.7 Serial Output Format Routines
\
;--------------------------------------------------------------------------
\
\
RSasciiToNibble
\
MOVWF RSin
\
; if 0..1 then 0x30 to 0x39
\
; if A..F then 0x41 to 0x46
\
; if a..f then 0x61 to 0x66
\
; test if bit 4 set and assume a letter or number
\
BTFSS RSin,4
\
ADDLW 0x09 ; letter so add 9
\
ANDLW 0x0F ; mask of nibble
\
return
\
\
"
);
gbF( // guestbook.pl
"doug","email","Wed, 21 May 2008 07:41:39 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"IIC - overview ",
"userfield2",
"userfield3",
"userfield4",
"IICslave
\
; IIC int flag has been set so process byte.
\
\
; Write: lowercase done by master
\
; start, addr + w, ACK, data, ACK , data , ACK , stop
\
\
; Read: UPPERCASE done by SLAVE
\
; start, addr + r, ACK, DATA, ack , DATA , ack , stop
\
\
call iicslaveProcessStart
\
\
banksel SSPSTAT
\
BTFSC SSPSTAT,S
\
GOTO IICslaveStart
\
\
; test if stop detected
\
BTFSC SSPSTAT,P
\
CALL IICslaveProcessStop
\
GOTO iicslaveEndRtn
\
"
);
gbF( // guestbook.pl
"name","email","Thu, 7 Aug 2008 22:50:15 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"IIC - 16F84 master",
"userfield2",
"userfield3",
"userfield4",
"
\
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
;
\
;
\
;
\
;The IIC memory protocol is:
\
;
\
; START:
\
; SCL: -----\\__
\
; SDA: --\\_____
\
;
\
; STOP:
\
; SCL: _____/--
\
; SDA: __/-----
\
;
\
; 0:
\
; SCL: __/--\\__
\
; SDA: ________
\
;
\
; 1:
\
; SCL: __/--\\__
\
; SDA: /------\\
\
;
\
;
\
;NOTE: Capitals means SDA asserted by Master,
\
;
\
;little letters means SDA asserted by slave
\
;
\
;SCL asserted by Master and Slave and clocked by Master,
\
;
\
;If SCL does not go to high, maybe SLAVE is asserting SCL to strech SCL pulse.
\
;
\
;
\
; 24LC16 IIC memory set address and write data:
\
; START IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
; START IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC16 IIC memory read:
\
; START IICADDR+MEMADDRH+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
; 24LC65 IIC memory read:
\
; START IICADDR+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
;
\
;
\
;
\
;Some functions to interface iic memory.
\
;The iic memory chips can be written to and read from.
\
;
\
;They need some form of file manager.
\
;
\
;Only one file can be open at once.
\
;
\
;
\
; open - restore pointers
\
; read - get byte, increment pointer
\
; write - write byte, increment pointer
\
; flush - stops and writes
\
; seekEnd - sets read pointer at start,
\
; close - save pointers in non volatile store
\
;
\
;
\
;
\
; read pointer - two octets that contain current read address in iic memory
\
; write pointer - two octets that contain current write address in iic memory
\
;
\
;
\
; if iic buss is started use the pointers to set the address of the memory location to be read.
\
;
\
;
\
; Interface routines for writing one byte:
\
;
\
; K5EEputOneByte - put DATA @ ADDRH+ADDRL
\
;
\
; Interface routines for writing many bytes:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
;
\
; Interface routines for reading bytes:
\
;
\
; CALL K3EEstartRead
\
;
\
;
\
;
\
; Interface routines for writing:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
\
;
\
;
\
\
\
; K3EEstartRead
\
;
\
; CALL K3EEsetAddr
\
; CALL K3EEstartRead
\
; CALL K5EEgetAnotherByte - sends ACK to memory
\
; process,a finally
\
; CALL K5EEgetLastByte - sends NACK to memory
\
;
\
; CALL K1EEsendStopBit
\
;
\
;
\
\
\
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
; Serial Eprom routines
\
;
\
;
\
; CMDW = 0xA0 + addrH * 2
\
; CMDR = 0xA1 + addrH * 2
\
;
\
;
\
; S CMDW A ADDRL S Write Address
\
;
\
; Bigger Memories 24L16
\
;
\
; a = slave acks
\
; A = MASTER acks
\
;
\
;
\
; data = slave asserts SDA
\
; DATA = master asserts SDA
\
;
\
;
\
; IIC bus pushes data into the chip and pulls data out. The MAster Pulls data out.
\
;
\
; S CMDW a ADDRL a DATA a S Write Address and data
\
; S CMDW a ADDRL a DATA a DATA a S Write Address and data
\
; S CMDR A data A data A .... A data NACK S Read one to many bytes
\
;
\
; Bigger Memories 24L65
\
;
\
; S CMDW A ADDR A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDR A ADDRL A DATA A DATA S Write Address and data
\
;
\
\
\
\
;-----------------------------
\
; Low Level routines
\
;
\
; K0EEsendStartBit
\
; K1EEsendStopBit
\
; K2EEclkCycle
\
; K7EEslaveACKCycle
\
; K8EEdelay8
\
;
\
; K4EEwrtByte
\
; K6EEreadByte
\
;
\
\
;-----------------------------
\
; API level - put bytes
\
\
; K3EEsetAddr
\
; K5EEputOneByte
\
; K3EEputAnotherByte
\
\
;-----------------------------
\
; API level - get bytes
\
\
; K3EEstartRead
\
; K5EEgetOneByte
\
; K5EEgetAnotherByte
\
; K5EEgetLastByte
\
\
;-----------------------------
\
; API level - memory Prt
\
\
; K3EEincAddr - increment EEprt
\
; K3EEsetAddrToW
\
\
\
\
\
\
\
;-----------------------------
\
; Low Level routines
\
\
K0EEsendStartBit
\
\
; SCL -
\
; SDA -
\
; If already high, then this is okay.
\
;
\
; Set data and clock high so as not to do a stop.
\
;
\
; SDA ___--|---_______
\
; SCL ____-|------____
\
; | START
\
\
\
;BSF PORTEEPROM,EEPROMsda
\
;CALL K8delay8
\
CALL K8EEsetSDA
\
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
\
; Now Pull SDA low, while SCL is still high.
\
; SCL --
\
; SDA -_
\
;BCF PORTEEPROM,EEPROMsda
\
;CALL K8delay8
\
CALL K8EEresetSDA
\
\
\
; SCL K--_
\
; SDA K-__
\
;BCF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEresetSCL
\
\
RETURN
\
\
;**************
\
; Apply Stop Condition - SDA goes to high while SCL high
\
K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
; SDA ___--|--
\
; SCL _----|--
\
; STOP |
\
\
\
; BCF PORTEEPROM,EEPROMsda
\
; CALL K8delay8
\
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
\
;BSF PORTEEPROM,EEPROMsda
\
;CALL K8delay8
\
CALL K8EEsetSDA
\
\
\
RETURN
\
\
;**************
\
;Do Clock Pulse
\
K2EEclkCycle
\
; SCL K2-_
\
; SDA K2??
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
\
;BCF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEresetSCL
\
\
RETURN
\
\
\
\
;**************
\
;Do ACK byte from memory
\
;Really the PIC should test the response from the memory
\
;The Memory will assert a zero to ACK
\
; Here the PIC also sets the SDA low.
\
; If is set it to high, then the memory would pull it low.
\
K7EEslaveACKCycle
\
\
; SDA ___ZZZZZZ_____
\
; SCL ____----______
\
;
\
\
; make data ouput again
\
BSF STATUS,RP0
\
BSF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
\
CALL K8delay8
\
\
; SCL K2-_
\
; SDA K2??
\
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
; Should really test for device Asserting ACK.
\
\
;
\
; need a flag ACKFLAG bit 0 reflects last ACK
\
;
\
\
BCF ACKFLAG,0
\
BTFSC PORTEEPROM,EEPROMsda
\
BSF ACKFLAG,0
\
\
;BCF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEresetSCL
\
\
\
; make data ouput again
\
BSF STATUS,RP0
\
BCF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
\
\
RETURN
\
\
\
\
K8EEsetSCL
\
BSF PORTEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEresetSCL
\
BCF PORTEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEsetSDA
\
BSF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
\
K8EEresetSDA
\
BCF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
\
\
\
K8delay8
\
MOVLW 0x01
\
\
MOVWF DELL
\
K8delay8_1 DECFSZ DELL,f ; 1
\
GOTO K8delay8_1 ; 2 clk
\
CLRWDT
\
RETURN
\
\
\
;************************************************
\
\
\
\
\
\
;************************************************
\
; Transmit 8 bits in W to EEPROM
\
K4EEwrtByte
\
; SCL K4_-_-_-_-_-_-_-_-
\
; SDA K4x=x=x=x=x=x=x=x=
\
; 7 6 5 4 3 2 1 0
\
MOVWF TRAM
\
\
; now clock 8 bits into the EEPROM
\
movlw 8
\
movwf LoopCnt
\
K40
\
BTFSS TRAM,BIT7
\
GOTO K41
\
BSF PORTEEPROM,EEPROMsda
\
GOTO K42
\
K41 BCF PORTEEPROM,EEPROMsda
\
K42 CALL K8delay8
\
; Clock bit
\
BSF PORTEEPROM,EEPROMscl
\
CALL K8delay8
\
BCF PORTEEPROM,EEPROMscl
\
CALL K8delay8
\
\
; push the next bit into
\
RLF TRAM,f
\
DECFSZ LoopCnt,f
\
goto K40
\
\
; Clock the last bit around
\
RLF TRAM,f
\
\
RETURN
\
\
\
\
;***************
\
; Read in DDATA from EEPROM
\
; It does not do the ACK or NACK
\
; ACK if another byte is to be got
\
; NACK if this is the last byte to be read
\
;
\
K6EEreadByte
\
BSF STATUS,RP0
\
BSF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
CALL K8delay8
\
\
; now clock 8 bits into the EEPROM
\
; Most signifficant bit first
\
movlw 8
\
movwf LoopCnt
\
\
\
K60
\
;
\
; SDA should be at the correct level before SCL is set high
\
; test SDA
\
;
\
\
BTFSS PORTEEPROM,EEPROMsda
\
GOTO K61
\
BSF STATUS,C
\
GOTO K62
\
K61 BCF STATUS,C
\
\
\
K62
\
; push the next bit into place
\
RLF DDATA,f
\
CALL K8delay8
\
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
\
\
;BCF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEresetSCL
\
\
\
\
DECFSZ LoopCnt,f
\
goto K60
\
\
BSF STATUS,RP0
\
BCF TRISEEPROM,EEPROMsda
\
BCF STATUS,RP0
\
\
CALL K8delay8
\
; MOVFW DDATA
\
RETURN
\
\
;************************************************
\
\
\
\
\
\
\
\
;
\
; EEsetAddr send the CWORD and set the address
\
;
\
; 24LC16 IIC memory set address and write data:
\
;
\
; START, IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
;
\
; START, IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
;
\
;
\
\
\
\
\
;-----------------------------
\
; API level - put bytes
\
\
\
\
\
K3EEsetAddr
\
\
; Apply Start, IICADDR + MEMADDRH*2 +W, ack , ADDRL, ack
\
;
\
; Set Address pointer of chip to ADDRH+ADDRL
\
;
\
; No Stop condition is set, so more data can be sent.
\
;
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
; Double the ADDRH to step over the W/R bit.
\
; Add it to the IICADDR
\
; pins A0,A1,A2 ignored
\
;
\
; MEM24LC16 is 2K and has 8 pages.
\
; Only one chip can be used on the IIC bus
\
; ADDRH is 3 bits
\
; ADDRL is 8 bits
\
\
\
MOVFW ADDRH
\
ADDWF ADDRH,W
\
ANDLW 0x0E
\
; Add Chip Address
\
ADDLW 0xA0
\
; Add W/R bit W=0
\
endif
\
\
ifdef MEM24LC65
\
;
\
; MEM24LC65 is 64K and has 8 pages.
\
; pins A0,A1,A2 select the device. Logger only uses one memory
\
;
\
; Up to 8 chips can be used on the IIC bus
\
; ADDRH is 5 bits
\
; ADDRL is 8 bits
\
\
MOVLW 0xA0 ; + chip Address to match A0,A1,A2 pins
\
\
endif
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
ifdef MEM24LC65
\
;
\
; 24LC65 is has 64K bits or 8K bytes or 32 pages of 256 bytes
\
;
\
; write ADDRH
\
;
\
MOVF ADDRH,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
endif
\
\
; write ADDRL
\
MOVFW ADDRL
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
; return zero if ACK, non zero if NACK
\
BCF STATUS,Z
\
BTFSC ACKFLAG,0
\
BSF STATUS,Z
\
\
RETURN
\
\
\
\
; EEputByte
\
;
\
; write byte in DDATA to eeprom at the current address, also increment address.
\
;
\
; S CMDW A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDRL A ADDRL A DATA S Write Address and data
\
;
\
\
K5EEputOneByte
\
;
\
; Put one byte and stops transfer
\
; EEPROM[ ADDR ] = DDATA
\
;
\
CALL K3EEsetAddr
\
\
; SCL K1-_
\
; SDA K2??
\
; Transmit 8 bits
\
\
; write DATA
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
; SCL K2-_
\
; SDA K2??
\
; Apply Stop Condition
\
CALL K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
\
\
CALL Delay5ms
\
GOTO K3EEincAddr
\
\
\
\
K3EEputAnotherByte
\
;
\
; put the data into the chip, also increment local copy of EEprom Address
\
;
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
GOTO K3EEincAddr
\
\
\
\
\
\
;-----------------------------
\
; API level - get bytes
\
\
\
K3EEstartRead
\
; possibly - finish off last read
\
; Apply Start
\
; finished writing address
\
\
; now start again
\
; only send Command word with R
\
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
;
\
; The address is composed of ADDRH and ADDRL
\
;
\
MOVFW ADDRH
\
ADDWF ADDRH,W
\
ANDLW 0x0E
\
ADDLW 0xA1
\
endif
\
\
ifdef MEM24LC65
\
MOVLW 0xA1
\
endif
\
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
RETURN
\
\
\
\
\
\
\
\
\
\
;**************
\
;
\
; Send START, the control word and
\
; MOVLW 0xA0
\
; MOVWF CWORD
\
; CLRF ADDRL
\
; CLRF ADDRH
\
\
K5EEgetOneByte
\
; read the byte at ADDR and increment ADDR
\
; S CMDW A ADDRH A ADDRL S Read one to many bytes
\
; S CMDR A DATA A DATA A .... A DATA S Read one to many bytes
\
CALL K3EEsetAddr
\
CALL K3EEstartRead
\
; haven written the address now start the read
\
CALL K5EEgetAnotherByte
\
CALL K1EEsendStopBit
\
RETURN
\
\
\
\
\
\
K5EEgetAnotherByte
\
; read DDATA from EEPROM
\
\
CALL K6EEreadByte
\
\
; send ACK to memory
\
; BSF PORTEEPROM,EEPROMsda
\
BCF PORTEEPROM,EEPROMsda
\
\
CALL K2EEclkCycle
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincAddr
\
\
K5EEgetLastByte
\
; read DDATA from EEPROM
\
CALL K6EEreadByte
\
\
; send NACK to memory
\
; BSF PORTEEPROM,EEPROMsda
\
BSF PORTEEPROM,EEPROMsda
\
\
CALL K2EEclkCycle
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincAddr
\
\
\
;-----------------------------
\
; API level - memory Prt
\
\
\
\
K3EEincAddr
\
; Increment ADDRH:ADDRL
\
; return with Z = 0 if at end
\
\
; Increment address
\
; If at end of memory, then Z is true
\
;
\
INCF ADDRL,F
\
SKPZ
\
RETURN ; return non zero
\
\
INCF ADDRH,f
\
\
ifdef MEM24LC16
\
; when B3 is set to 1 then the mem is at the end.
\
BTFSC ADDRH,3
\
endif
\
\
\
ifdef MEM24LC65
\
; when B5 is set to 1 then the mem is at the end.
\
BTFSC ADDRH,5
\
endif
\
\
; BTFSS X,X ; If dc or Bit 5 then Z must be clear.
\
BSF STATUS,Z ; use the Z bit to indicate end of memory
\
RETURN
\
; End of Memory
\
\
\
\
K3EEsetAddrToW
\
; Set ADDRH:ADDRL = 0:W
\
;
\
; ADDRL = W
\
; ADDRH = 0
\
;
\
\
MOVWF ADDRL
\
CLRF ADDRH
\
RETURN
\
\
;-----------------------------
\
\
"
);
gbF( // guestbook.pl
"name","email","Sat, 9 Aug 2008 09:33:36 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"IIC - 16F84 master 2",
"userfield2",
"userfield3",
"userfield4",
"
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
;
\
;
\
;
\
;The IIC memory protocol is:
\
;
\
; START:
\
; SCL: -----\\__
\
; SDA: --\\_____
\
;
\
; STOP:
\
; SCL: _____/--
\
; SDA: __/-----
\
;
\
; 0:
\
; SCL: __/--\\__
\
; SDA: ________
\
;
\
; 1:
\
; SCL: __/--\\__
\
; SDA: /------\\
\
;
\
;
\
;NOTE: Capitals means SDA asserted by Master,
\
;
\
;little letters means SDA asserted by slave
\
;
\
;SCL asserted by Master and Slave and clocked by Master,
\
;
\
;If SCL does not go to high, maybe SLAVE is asserting SCL to strech SCL pulse.
\
;
\
;
\
; 24LC16 IIC memory set address and write data:
\
; START IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
; START IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC16 IIC memory read:
\
; START IICADDR+MEMADDRH+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
; 24LC65 IIC memory read:
\
; START IICADDR+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
;
\
;
\
;
\
;Some functions to interface iic memory.
\
;The iic memory chips can be written to and read from.
\
;
\
;They need some form of file manager.
\
;
\
;Only one file can be open at once.
\
;
\
;
\
; open - restore pointers
\
; read - get byte, increment pointer
\
; write - write byte, increment pointer
\
; flush - stops and writes
\
; seekEnd - sets read pointer at start,
\
; close - save pointers in non volatile store
\
;
\
;
\
;
\
; read pointer - two octets that contain current read address in iic memory
\
; write pointer - two octets that contain current write address in iic memory
\
;
\
;
\
; if iic buss is started use the pointers to set the address of the memory location to be read.
\
;
\
;
\
; Interface routines for writing one byte:
\
;
\
; K5EEputOneByte - put DATA @ ADDRH+ADDRL
\
;
\
; Interface routines for writing many bytes:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
;
\
; Interface routines for reading bytes:
\
;
\
; CALL K3EEstartRead
\
;
\
;
\
;
\
; Interface routines for writing:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
\
;
\
;
\
\
\
; K3EEstartRead
\
;
\
; CALL K3EEsetAddr
\
; CALL K3EEstartRead
\
; CALL K5EEgetAnotherByte - sends ACK to memory
\
; process,a finally
\
; CALL K5EEgetLastByte - sends NACK to memory
\
;
\
; CALL K1EEsendStopBit
\
;
\
;
\
\
\
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
; Serial Eprom routines
\
;
\
;
\
; CMDW = 0xA0 + addrH * 2
\
; CMDR = 0xA1 + addrH * 2
\
;
\
;
\
; S CMDW A ADDRL S Write Address
\
;
\
; Bigger Memories 24L16
\
;
\
; a = slave acks
\
; A = MASTER acks
\
;
\
;
\
; data = slave asserts SDA
\
; DATA = master asserts SDA
\
;
\
;
\
; IIC bus pushes data into the chip and pulls data out. The MAster Pulls data out.
\
;
\
; S CMDW a ADDRL a DATA a S Write Address and data
\
; S CMDW a ADDRL a DATA a DATA a S Write Address and data
\
; S CMDR A data A data A .... A data NACK S Read one to many bytes
\
;
\
; Bigger Memories 24L65
\
;
\
; S CMDW A ADDR A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDR A ADDRL A DATA A DATA S Write Address and data
\
;
\
\
\
\
;-----------------------------
\
; Low Level routines
\
;
\
; K0EEsendStartBit
\
; K1EEsendStopBit
\
; K2EEclkCycle
\
; K7EEslaveACKCycle
\
; K8EEdelay8
\
;
\
; K4EEwrtByte
\
; K6EEreadByte
\
;
\
\
;-----------------------------
\
; API level - put bytes
\
\
; K3EEsetAddr
\
; K3EEputAnotherByte
\
; K5EEputOneByte
\
\
;-----------------------------
\
; API level - get bytes
\
\
; K3EEstartRead
\
; K5EEgetOneByte
\
; K5EEgetAnotherByte
\
; K5EEgetLastByte
\
\
;-----------------------------
\
; API level - memory Prt
\
\
; K3EEincAddr - increment EEprt
\
; K3EEsetAddrToW
\
\
;-----------------------------
\
; Low Level routines
\
\
K0EEsendStartBit
\
\
; SCL -
\
; SDA -
\
; If already high, then this is okay.
\
;
\
; Set data and clock high so as not to do a stop.
\
;
\
; SDA ___--|---_______
\
; SCL ____-|------____
\
; | START
\
CALL K8EEsetSDA
\
CALL K8EEsetSCL
\
\
; Now Pull SDA low, while SCL is still high.
\
; SCL --
\
; SDA -_
\
CALL K8EEresetSDA
\
\
; SCL K--_
\
; SDA K-__
\
CALL K8EEresetSCL
\
RETURN
\
\
;**************
\
; Apply Stop Condition - SDA goes to high while SCL high
\
K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
; SDA ___--|--
\
; SCL _----|--
\
; STOP |
\
\
CALL K8EEsetSCL
\
CALL K8EEsetSDA
\
RETURN
\
\
;**************
\
;Do Clock Pulse
\
K2EEclkCycle
\
; SCL K2-_
\
; SDA K2??
\
\
CALL K8EEsetSCL
\
CALL K8EEresetSCL
\
RETURN
\
\
\
\
;**************
\
;Do ACK byte from memory
\
;Really the PIC should test the response from the memory
\
;The Memory will assert a zero to ACK
\
; Here the PIC also sets the SDA low.
\
; If is set it to high, then the memory would pull it low.
\
K7EEslaveACKCycle
\
\
; SDA ___ZZZZZZ_____
\
; SCL ____----______
\
;
\
\
; make data ouput again
\
BSF STATUS,RP0
\
BSF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
\
CALL K8delay8
\
\
; SCL K2-_
\
; SDA K2??
\
CALL K8EEsetSCL
\
\
; Should really test for device Asserting ACK.
\
\
;
\
; need a flag ACKFLAG bit 0 reflects last ACK
\
;
\
\
BCF ACKFLAG,0
\
BTFSC PORTEEPROM,EEPROMsda
\
BSF ACKFLAG,0
\
\
CALL K8EEresetSCL
\
\
; make data ouput again
\
BSF STATUS,RP0
\
BCF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
\
\
RETURN
\
\
\
\
K8EEsetSCL
\
BSF PORTEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEresetSCL
\
BCF PORTEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEsetSDA
\
BSF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
\
K8EEresetSDA
\
BCF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
K8delay8
\
; use goto $1 to padd delay to 10us
\
goto $+1
\
CLRWDT
\
RETURN
\
\
\
;************************************************
\
\
\
\
\
\
;************************************************
\
; Transmit 8 bits in W to EEPROM
\
K4EEwrtByte
\
; SCL K4_-_-_-_-_-_-_-_-
\
; SDA K4x=x=x=x=x=x=x=x=
\
; 7 6 5 4 3 2 1 0
\
MOVWF TRAM
\
\
; now clock 8 bits into the EEPROM
\
movlw 8
\
movwf LoopCnt
\
K40
\
; call test to save on gotos
\
call K4EEwrtByteTestTram
\
\
; Clock bit _---___
\
call K8EEsetSCL
\
call K8EEresetSCL
\
\
; push the next bit into
\
RLF TRAM,f
\
DECFSZ LoopCnt,f
\
goto K40
\
\
; Clock the last bit around
\
RLF TRAM,f
\
\
RETURN
\
\
\
\
K4EEwrtByteTestTram
\
; this is called to optimise use of goto s
\
BTFSS TRAM,BIT7
\
goto K8EEresetSDA
\
goto K8EEsetSDA
\
\
\
\
;***************
\
; Read in DDATA from EEPROM
\
; It does not do the ACK or NACK
\
; ACK if another byte is to be got
\
; NACK if this is the last byte to be read
\
;
\
K6EEreadByte
\
BSF STATUS,RP0
\
BSF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
CALL K8delay8
\
\
; now clock 8 bits into the EEPROM
\
; Most signifficant bit first
\
movlw 8
\
movwf LoopCnt
\
\
\
K60
\
;
\
; SDA should be at the correct level before SCL is set high
\
; test SDA
\
;
\
\
; ADD 0xFF to EEPROMsda bit and cause a carry, if EEPROMsda is 1
\
; test EEPROMsda and put it into C bit is status
\
\
MOVFW PORTEEPROM
\
ANDLW 1 << EEPROMsda
\
ADDLW 0xFF
\
\
; push the next bit into place
\
RLF DDATA,f
\
CALL K8delay8
\
\
;
\
; SCL _--___
\
;
\
\
CALL K8EEsetSCL
\
CALL K8EEresetSCL
\
\
DECFSZ LoopCnt,f
\
goto K60
\
\
BSF STATUS,RP0
\
BCF TRISEEPROM,EEPROMsda
\
BCF STATUS,RP0
\
\
CALL K8delay8
\
; MOVFW DDATA
\
RETURN
\
\
;************************************************
\
\
\
\
\
\
\
\
;
\
; EEsetAddr send the CWORD and set the address
\
;
\
; 24LC16 IIC memory set address and write data:
\
;
\
; START, IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
;
\
; START, IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
;
\
;
\
\
\
\
\
;-----------------------------
\
; API level - put bytes
\
\
\
\
\
K3EEsetAddr
\
\
; Apply Start, IICADDR + MEMADDRH*2 +W, ack , ADDRL, ack
\
;
\
; Set Address pointer of chip to ADDRH+ADDRL
\
;
\
; No Stop condition is set, so more data can be sent.
\
;
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
; Double the ADDRH to step over the W/R bit.
\
; Add it to the IICADDR
\
; pins A0,A1,A2 ignored
\
;
\
; MEM24LC16 is 2K and has 8 pages.
\
; Only one chip can be used on the IIC bus
\
; ADDRH is 3 bits
\
; ADDRL is 8 bits
\
\
\
MOVFW ADDRH
\
ADDWF ADDRH,W
\
ANDLW 0x0E
\
; Add Chip Address
\
ADDLW 0xA0
\
; Add W/R bit W=0
\
endif
\
\
ifdef MEM24LC65
\
;
\
; MEM24LC65 is 64K and has 8 pages.
\
; pins A0,A1,A2 select the device. Logger only uses one memory
\
;
\
; Up to 8 chips can be used on the IIC bus
\
; ADDRH is 5 bits
\
; ADDRL is 8 bits
\
\
MOVLW 0xA0 ; + chip Address to match A0,A1,A2 pins
\
\
endif
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
ifdef MEM24LC65
\
;
\
; 24LC65 is has 64K bits or 8K bytes or 32 pages of 256 bytes
\
;
\
; write ADDRH
\
;
\
MOVF ADDRH,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
endif
\
\
; write ADDRL
\
MOVFW ADDRL
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
; return zero if ACK, non zero if NACK
\
BCF STATUS,Z
\
BTFSC ACKFLAG,0
\
BSF STATUS,Z
\
\
RETURN
\
\
\
\
; EEputByte
\
;
\
; write byte in DDATA to eeprom at the current address, also increment address.
\
;
\
; S CMDW A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDRL A ADDRL A DATA S Write Address and data
\
;
\
\
\
\
K3EEputAnotherByte
\
;
\
; put the data into the chip, also increment local copy of EEprom Address
\
;
\
;
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
GOTO K3EEincAddr
\
\
\
\
\
K5EEputOneByte
\
;
\
; Put one byte and stops transfer
\
; EEPROM[ ADDR ] = DDATA
\
;
\
; Improvement suggestion: test if SLAVE ACKS transfer.
\
;
\
CALL K3EEsetAddr
\
; If the Slave does not ACK, then
\
\
; SCL K1-_
\
; SDA K2??
\
; Transmit 8 bits
\
\
; write DATA
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
; If the Slave does not ACK, then
\
CALL K7EEslaveACKCycle
\
\
; SCL K2-_
\
; SDA K2??
\
; Apply Stop Condition
\
CALL K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
\
\
CALL Delay5ms
\
GOTO K3EEincAddr
\
\
\
\
\
;-----------------------------
\
; API level - get bytes
\
\
\
K3EEstartRead
\
; possibly - finish off last read
\
; Apply Start
\
; finished writing address
\
\
; now start again
\
; only send Command word with R
\
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
;
\
; The address is composed of ADDRH and ADDRL
\
;
\
MOVFW ADDRH
\
ADDWF ADDRH,W
\
ANDLW 0x0E
\
ADDLW 0xA1
\
endif
\
\
ifdef MEM24LC65
\
MOVLW 0xA1
\
endif
\
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
RETURN
\
\
\
\
\
\
\
\
\
\
;**************
\
;
\
; Send START, the control word and
\
; MOVLW 0xA0
\
; MOVWF CWORD
\
; CLRF ADDRL
\
; CLRF ADDRH
\
\
K5EEgetOneByte
\
; read the byte at ADDR and increment ADDR
\
; S CMDW A ADDRH A ADDRL S Read one to many bytes
\
; S CMDR A DATA A DATA A .... A DATA S Read one to many bytes
\
CALL K3EEsetAddr
\
CALL K3EEstartRead
\
; haven written the address now start the read
\
CALL K5EEgetAnotherByte
\
CALL K1EEsendStopBit
\
RETURN
\
\
\
\
\
\
K5EEgetAnotherByte
\
; read DDATA from EEPROM
\
\
CALL K6EEreadByte
\
\
; send ACK to memory
\
; BSF PORTEEPROM,EEPROMsda
\
BCF PORTEEPROM,EEPROMsda
\
\
CALL K2EEclkCycle
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincAddr
\
\
K5EEgetLastByte
\
; read DDATA from EEPROM
\
CALL K6EEreadByte
\
\
; send NACK to memory
\
; BSF PORTEEPROM,EEPROMsda
\
BSF PORTEEPROM,EEPROMsda
\
\
CALL K2EEclkCycle
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincAddr
\
\
\
;-----------------------------
\
; API level - memory Prt
\
\
\
\
K3EEincAddr
\
; Increment ADDRH:ADDRL
\
; return with Z = 0 if at end
\
\
; Increment address
\
; If at end of memory, then Z is true
\
;
\
INCF ADDRL,F
\
SKPZ
\
RETURN ; return non zero
\
\
INCF ADDRH,f
\
\
ifdef MEM24LC16
\
; when B3 is set to 1 then the mem is at the end.
\
BTFSC ADDRH,3
\
endif
\
\
\
ifdef MEM24LC65
\
; when B5 is set to 1 then the mem is at the end.
\
BTFSC ADDRH,5
\
endif
\
\
; BTFSS X,X ; If dc or Bit 5 then Z must be clear.
\
BSF STATUS,Z ; use the Z bit to indicate end of memory
\
RETURN
\
; End of Memory
\
\
\
\
K3EEsetAddrToW
\
; Set ADDRH:ADDRL = 0:W
\
;
\
; ADDRL = W
\
; ADDRH = 0
\
;
\
\
MOVWF ADDRL
\
CLRF ADDRH
\
RETURN
\
\
;-----------------------------
\
"
);
gbF( // guestbook.pl
"name","email","Sat, 9 Aug 2008 09:42:08 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"IIC - 16F84 master",
"userfield2",
"userfield3",
"userfield4",
"name said on Thu, 7 Aug 2008 22:50:15 UTC+0100:
\
\
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
;
\
;
\
;
\
;The IIC memory protocol is:
\
;
\
; START:
\
; SCL: -----\\__
\
; SDA: --\\_____
\
;
\
; STOP:
\
; SCL: _____/--
\
; SDA: __/-----
\
;
\
; 0:
\
; SCL: __/--\\__
\
; SDA: ________
\
;
\
; 1:
\
; SCL: __/--\\__
\
; SDA: /------\\
\
;
\
;
\
;NOTE: Capitals means SDA asserted by Master,
\
;
\
;little letters means SDA asserted by slave
\
;
\
;SCL asserted by Master and Slave and clocked by Master,
\
;
\
;If SCL does not go to high, maybe SLAVE is asserting SCL to strech SCL pulse.
\
;
\
;
\
; 24LC16 IIC memory set address and write data:
\
; START IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
; START IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC16 IIC memory read:
\
; START IICADDR+MEMADDRH+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
; 24LC65 IIC memory read:
\
; START IICADDR+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
;
\
;
\
;
\
;Some functions to interface iic memory.
\
;The iic memory chips can be written to and read from.
\
;
\
;They need some form of file manager.
\
;
\
;Only one file can be open at once.
\
;
\
;
\
; open - restore pointers
\
; read - get byte, increment pointer
\
; write - write byte, increment pointer
\
; flush - stops and writes
\
; seekEnd - sets read pointer at start,
\
; close - save pointers in non volatile store
\
;
\
;
\
;
\
; read pointer - two octets that contain current read address in iic memory
\
; write pointer - two octets that contain current write address in iic memory
\
;
\
;
\
; if iic buss is started use the pointers to set the address of the memory location to be read.
\
;
\
;
\
; Interface routines for writing one byte:
\
;
\
; K5EEputOneByte - put DATA @ ADDRH+ADDRL
\
;
\
; Interface routines for writing many bytes:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
;
\
; Interface routines for reading bytes:
\
;
\
; CALL K3EEstartRead
\
;
\
;
\
;
\
; Interface routines for writing:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
\
;
\
;
\
\
\
; K3EEstartRead
\
;
\
; CALL K3EEsetAddr
\
; CALL K3EEstartRead
\
; CALL K5EEgetAnotherByte - sends ACK to memory
\
; process,a finally
\
; CALL K5EEgetLastByte - sends NACK to memory
\
;
\
; CALL K1EEsendStopBit
\
;
\
;
\
\
\
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
; Serial Eprom routines
\
;
\
;
\
; CMDW = 0xA0 + addrH * 2
\
; CMDR = 0xA1 + addrH * 2
\
;
\
;
\
; S CMDW A ADDRL S Write Address
\
;
\
; Bigger Memories 24L16
\
;
\
; a = slave acks
\
; A = MASTER acks
\
;
\
;
\
; data = slave asserts SDA
\
; DATA = master asserts SDA
\
;
\
;
\
; IIC bus pushes data into the chip and pulls data out. The MAster Pulls data out.
\
;
\
; S CMDW a ADDRL a DATA a S Write Address and data
\
; S CMDW a ADDRL a DATA a DATA a S Write Address and data
\
; S CMDR A data A data A .... A data NACK S Read one to many bytes
\
;
\
; Bigger Memories 24L65
\
;
\
; S CMDW A ADDR A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDR A ADDRL A DATA A DATA S Write Address and data
\
;
\
\
\
\
;-----------------------------
\
; Low Level routines
\
;
\
; K0EEsendStartBit
\
; K1EEsendStopBit
\
; K2EEclkCycle
\
; K7EEslaveACKCycle
\
; K8EEdelay8
\
;
\
; K4EEwrtByte
\
; K6EEreadByte
\
;
\
\
;-----------------------------
\
; API level - put bytes
\
\
; K3EEsetAddr
\
; K5EEputOneByte
\
; K3EEputAnotherByte
\
\
;-----------------------------
\
; API level - get bytes
\
\
; K3EEstartRead
\
; K5EEgetOneByte
\
; K5EEgetAnotherByte
\
; K5EEgetLastByte
\
\
;-----------------------------
\
; API level - memory Prt
\
\
; K3EEincAddr - increment EEprt
\
; K3EEsetAddrToW
\
\
\
\
\
\
\
;-----------------------------
\
; Low Level routines
\
\
K0EEsendStartBit
\
\
; SCL -
\
; SDA -
\
; If already high, then this is okay.
\
;
\
; Set data and clock high so as not to do a stop.
\
;
\
; SDA ___--|---_______
\
; SCL ____-|------____
\
; | START
\
\
\
;BSF PORTEEPROM,EEPROMsda
\
;CALL K8delay8
\
CALL K8EEsetSDA
\
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
\
; Now Pull SDA low, while SCL is still high.
\
; SCL --
\
; SDA -_
\
;BCF PORTEEPROM,EEPROMsda
\
;CALL K8delay8
\
CALL K8EEresetSDA
\
\
\
; SCL K--_
\
; SDA K-__
\
;BCF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEresetSCL
\
\
RETURN
\
\
;**************
\
; Apply Stop Condition - SDA goes to high while SCL high
\
K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
; SDA ___--|--
\
; SCL _----|--
\
; STOP |
\
\
\
; BCF PORTEEPROM,EEPROMsda
\
; CALL K8delay8
\
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
\
;BSF PORTEEPROM,EEPROMsda
\
;CALL K8delay8
\
CALL K8EEsetSDA
\
\
\
RETURN
\
\
;**************
\
;Do Clock Pulse
\
K2EEclkCycle
\
; SCL K2-_
\
; SDA K2??
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
\
;BCF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEresetSCL
\
\
RETURN
\
\
\
\
;**************
\
;Do ACK byte from memory
\
;Really the PIC should test the response from the memory
\
;The Memory will assert a zero to ACK
\
; Here the PIC also sets the SDA low.
\
; If is set it to high, then the memory would pull it low.
\
K7EEslaveACKCycle
\
\
; SDA ___ZZZZZZ_____
\
; SCL ____----______
\
;
\
\
; make data ouput again
\
BSF STATUS,RP0
\
BSF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
\
CALL K8delay8
\
\
; SCL K2-_
\
; SDA K2??
\
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
; Should really test for device Asserting ACK.
\
\
;
\
; need a flag ACKFLAG bit 0 reflects last ACK
\
;
\
\
BCF ACKFLAG,0
\
BTFSC PORTEEPROM,EEPROMsda
\
BSF ACKFLAG,0
\
\
;BCF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEresetSCL
\
\
\
; make data ouput again
\
BSF STATUS,RP0
\
BCF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
\
\
RETURN
\
\
\
\
K8EEsetSCL
\
BSF PORTEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEresetSCL
\
BCF PORTEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEsetSDA
\
BSF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
\
K8EEresetSDA
\
BCF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
\
\
\
K8delay8
\
MOVLW 0x01
\
\
MOVWF DELL
\
K8delay8_1 DECFSZ DELL,f ; 1
\
GOTO K8delay8_1 ; 2 clk
\
CLRWDT
\
RETURN
\
\
\
;************************************************
\
\
\
\
\
\
;************************************************
\
; Transmit 8 bits in W to EEPROM
\
K4EEwrtByte
\
; SCL K4_-_-_-_-_-_-_-_-
\
; SDA K4x=x=x=x=x=x=x=x=
\
; 7 6 5 4 3 2 1 0
\
MOVWF TRAM
\
\
; now clock 8 bits into the EEPROM
\
movlw 8
\
movwf LoopCnt
\
K40
\
BTFSS TRAM,BIT7
\
GOTO K41
\
BSF PORTEEPROM,EEPROMsda
\
GOTO K42
\
K41 BCF PORTEEPROM,EEPROMsda
\
K42 CALL K8delay8
\
; Clock bit
\
BSF PORTEEPROM,EEPROMscl
\
CALL K8delay8
\
BCF PORTEEPROM,EEPROMscl
\
CALL K8delay8
\
\
; push the next bit into
\
RLF TRAM,f
\
DECFSZ LoopCnt,f
\
goto K40
\
\
; Clock the last bit around
\
RLF TRAM,f
\
\
RETURN
\
\
\
\
;***************
\
; Read in DDATA from EEPROM
\
; It does not do the ACK or NACK
\
; ACK if another byte is to be got
\
; NACK if this is the last byte to be read
\
;
\
K6EEreadByte
\
BSF STATUS,RP0
\
BSF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
CALL K8delay8
\
\
; now clock 8 bits into the EEPROM
\
; Most signifficant bit first
\
movlw 8
\
movwf LoopCnt
\
\
\
K60
\
;
\
; SDA should be at the correct level before SCL is set high
\
; test SDA
\
;
\
\
BTFSS PORTEEPROM,EEPROMsda
\
GOTO K61
\
BSF STATUS,C
\
GOTO K62
\
K61 BCF STATUS,C
\
\
\
K62
\
; push the next bit into place
\
RLF DDATA,f
\
CALL K8delay8
\
\
;BSF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEsetSCL
\
\
\
\
;BCF PORTEEPROM,EEPROMscl
\
;CALL K8delay8
\
CALL K8EEresetSCL
\
\
\
\
DECFSZ LoopCnt,f
\
goto K60
\
\
BSF STATUS,RP0
\
BCF TRISEEPROM,EEPROMsda
\
BCF STATUS,RP0
\
\
CALL K8delay8
\
; MOVFW DDATA
\
RETURN
\
\
;************************************************
\
\
\
\
\
\
\
\
;
\
; EEsetAddr send the CWORD and set the address
\
;
\
; 24LC16 IIC memory set address and write data:
\
;
\
; START, IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
;
\
; START, IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
;
\
;
\
\
\
\
\
;-----------------------------
\
; API level - put bytes
\
\
\
\
\
K3EEsetAddr
\
\
; Apply Start, IICADDR + MEMADDRH*2 +W, ack , ADDRL, ack
\
;
\
; Set Address pointer of chip to ADDRH+ADDRL
\
;
\
; No Stop condition is set, so more data can be sent.
\
;
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
; Double the ADDRH to step over the W/R bit.
\
; Add it to the IICADDR
\
; pins A0,A1,A2 ignored
\
;
\
; MEM24LC16 is 2K and has 8 pages.
\
; Only one chip can be used on the IIC bus
\
; ADDRH is 3 bits
\
; ADDRL is 8 bits
\
\
\
MOVFW ADDRH
\
ADDWF ADDRH,W
\
ANDLW 0x0E
\
; Add Chip Address
\
ADDLW 0xA0
\
; Add W/R bit W=0
\
endif
\
\
ifdef MEM24LC65
\
;
\
; MEM24LC65 is 64K and has 8 pages.
\
; pins A0,A1,A2 select the device. Logger only uses one memory
\
;
\
; Up to 8 chips can be used on the IIC bus
\
; ADDRH is 5 bits
\
; ADDRL is 8 bits
\
\
MOVLW 0xA0 ; + chip Address to match A0,A1,A2 pins
\
\
endif
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
ifdef MEM24LC65
\
;
\
; 24LC65 is has 64K bits or 8K bytes or 32 pages of 256 bytes
\
;
\
; write ADDRH
\
;
\
MOVF ADDRH,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
endif
\
\
; write ADDRL
\
MOVFW ADDRL
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
; return zero if ACK, non zero if NACK
\
BCF STATUS,Z
\
BTFSC ACKFLAG,0
\
BSF STATUS,Z
\
\
RETURN
\
\
\
\
; EEputByte
\
;
\
; write byte in DDATA to eeprom at the current address, also increment address.
\
;
\
; S CMDW A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDRL A ADDRL A DATA S Write Address and data
\
;
\
\
K5EEputOneByte
\
;
\
; Put one byte and stops transfer
\
; EEPROM[ ADDR ] = DDATA
\
;
\
CALL K3EEsetAddr
\
\
; SCL K1-_
\
; SDA K2??
\
; Transmit 8 bits
\
\
; write DATA
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
; SCL K2-_
\
; SDA K2??
\
; Apply Stop Condition
\
CALL K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
\
\
CALL Delay5ms
\
GOTO K3EEincAddr
\
\
\
\
K3EEputAnotherByte
\
;
\
; put the data into the chip, also increment local copy of EEprom Address
\
;
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
GOTO K3EEincAddr
\
\
\
\
\
\
;-----------------------------
\
; API level - get bytes
\
\
\
K3EEstartRead
\
; possibly - finish off last read
\
; Apply Start
\
; finished writing address
\
\
; now start again
\
; only send Command word with R
\
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
;
\
; The address is composed of ADDRH and ADDRL
\
;
\
MOVFW ADDRH
\
ADDWF ADDRH,W
\
ANDLW 0x0E
\
ADDLW 0xA1
\
endif
\
\
ifdef MEM24LC65
\
MOVLW 0xA1
\
endif
\
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
RETURN
\
\
\
\
\
\
\
\
\
\
;**************
\
;
\
; Send START, the control word and
\
; MOVLW 0xA0
\
; MOVWF CWORD
\
; CLRF ADDRL
\
; CLRF ADDRH
\
\
;**************
\
;
\
; Send START, the control word and
\
; MOVLW 0xA0
\
; MOVWF CWORD
\
; CLRF ADDRL
\
; CLRF ADDRH
\
\
K5EEgetOneByte
\
; read the byte at ADDR and increment ADDR
\
; S CMDW A ADDRH A ADDRL S Read one to many bytes
\
; S CMDR A DATA A DATA A .... A DATA S Read one to many bytes
\
CALL K3EEsetAddr
\
CALL K3EEstartRead
\
; haven written the address now start the read
\
;CALL K5EEgetAnotherByte
\
CALL K5EEgetLastByte
\
RETURN
\
\
\
\
\
\
K5EEgetAnotherByte
\
; read DDATA from EEPROM
\
\
CALL K6EEreadByte
\
\
; send ACK to memory
\
; BSF PORTEEPROM,EEPROMsda
\
BCF PORTEEPROM,EEPROMsda
\
\
CALL K2EEclkCycle
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincAddr
\
\
K5EEgetLastByte
\
; read DDATA from EEPROM
\
CALL K6EEreadByte
\
\
; send NACK to memory
\
; BSF PORTEEPROM,EEPROMsda
\
BSF PORTEEPROM,EEPROMsda
\
\
CALL K2EEclkCycle
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincAddr
\
\
\
;-----------------------------
\
; API level - memory Prt
\
\
\
\
K3EEincAddr
\
; Increment ADDRH:ADDRL
\
; return with Z = 0 if at end
\
\
; Increment address
\
; If at end of memory, then Z is true
\
;
\
INCF ADDRL,F
\
SKPZ
\
RETURN ; return non zero
\
\
INCF ADDRH,f
\
\
ifdef MEM24LC16
\
; when B3 is set to 1 then the mem is at the end.
\
BTFSC ADDRH,3
\
endif
\
\
\
ifdef MEM24LC65
\
; when B5 is set to 1 then the mem is at the end.
\
BTFSC ADDRH,5
\
endif
\
\
; BTFSS X,X ; If dc or Bit 5 then Z must be clear.
\
BSF STATUS,Z ; use the Z bit to indicate end of memory
\
RETURN
\
; End of Memory
\
\
\
\
K3EEsetAddrToW
\
; Set ADDRH:ADDRL = 0:W
\
;
\
; ADDRL = W
\
; ADDRH = 0
\
;
\
\
MOVWF ADDRL
\
CLRF ADDRH
\
RETURN
\
\
;-----------------------------
\
\
"
);
gbF( // guestbook.pl
"name","email","Sat, 9 Aug 2008 09:43:09 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"IIC - 16F84 master 2",
"userfield2",
"userfield3",
"userfield4",
"name said on Sat, 9 Aug 2008 09:33:36 UTC+0100:
\
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
;
\
;
\
;
\
;The IIC memory protocol is:
\
;
\
; START:
\
; SCL: -----\\__
\
; SDA: --\\_____
\
;
\
; STOP:
\
; SCL: _____/--
\
; SDA: __/-----
\
;
\
; 0:
\
; SCL: __/--\\__
\
; SDA: ________
\
;
\
; 1:
\
; SCL: __/--\\__
\
; SDA: /------\\
\
;
\
;
\
;NOTE: Capitals means SDA asserted by Master,
\
;
\
;little letters means SDA asserted by slave
\
;
\
;SCL asserted by Master and Slave and clocked by Master,
\
;
\
;If SCL does not go to high, maybe SLAVE is asserting SCL to strech SCL pulse.
\
;
\
;
\
; 24LC16 IIC memory set address and write data:
\
; START IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
; START IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC16 IIC memory read:
\
; START IICADDR+MEMADDRH+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
; 24LC65 IIC memory read:
\
; START IICADDR+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
;
\
;
\
;
\
;Some functions to interface iic memory.
\
;The iic memory chips can be written to and read from.
\
;
\
;They need some form of file manager.
\
;
\
;Only one file can be open at once.
\
;
\
;
\
; open - restore pointers
\
; read - get byte, increment pointer
\
; write - write byte, increment pointer
\
; flush - stops and writes
\
; seekEnd - sets read pointer at start,
\
; close - save pointers in non volatile store
\
;
\
;
\
;
\
; read pointer - two octets that contain current read address in iic memory
\
; write pointer - two octets that contain current write address in iic memory
\
;
\
;
\
; if iic buss is started use the pointers to set the address of the memory location to be read.
\
;
\
;
\
; Interface routines for writing one byte:
\
;
\
; K5EEputOneByte - put DATA @ ADDRH+ADDRL
\
;
\
; Interface routines for writing many bytes:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
;
\
; Interface routines for reading bytes:
\
;
\
; CALL K3EEstartRead
\
;
\
;
\
;
\
; Interface routines for writing:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
\
;
\
;
\
\
\
; K3EEstartRead
\
;
\
; CALL K3EEsetAddr
\
; CALL K3EEstartRead
\
; CALL K5EEgetAnotherByte - sends ACK to memory
\
; process,a finally
\
; CALL K5EEgetLastByte - sends NACK to memory
\
;
\
; CALL K1EEsendStopBit
\
;
\
;
\
\
\
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
; Serial Eprom routines
\
;
\
;
\
; CMDW = 0xA0 + addrH * 2
\
; CMDR = 0xA1 + addrH * 2
\
;
\
;
\
; S CMDW A ADDRL S Write Address
\
;
\
; Bigger Memories 24L16
\
;
\
; a = slave acks
\
; A = MASTER acks
\
;
\
;
\
; data = slave asserts SDA
\
; DATA = master asserts SDA
\
;
\
;
\
; IIC bus pushes data into the chip and pulls data out. The MAster Pulls data out.
\
;
\
; S CMDW a ADDRL a DATA a S Write Address and data
\
; S CMDW a ADDRL a DATA a DATA a S Write Address and data
\
; S CMDR A data A data A .... A data NACK S Read one to many bytes
\
;
\
; Bigger Memories 24L65
\
;
\
; S CMDW A ADDR A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDR A ADDRL A DATA A DATA S Write Address and data
\
;
\
\
\
\
;-----------------------------
\
; Low Level routines
\
;
\
; K0EEsendStartBit
\
; K1EEsendStopBit
\
; K2EEclkCycle
\
; K7EEslaveACKCycle
\
; K8EEdelay8
\
;
\
; K4EEwrtByte
\
; K6EEreadByte
\
;
\
\
;-----------------------------
\
; API level - put bytes
\
\
; K3EEsetAddr
\
; K3EEputAnotherByte
\
; K5EEputOneByte
\
\
;-----------------------------
\
; API level - get bytes
\
\
; K3EEstartRead
\
; K5EEgetOneByte
\
; K5EEgetAnotherByte
\
; K5EEgetLastByte
\
\
;-----------------------------
\
; API level - memory Prt
\
\
; K3EEincAddr - increment EEprt
\
; K3EEsetAddrToW
\
\
;-----------------------------
\
; Low Level routines
\
\
K0EEsendStartBit
\
\
; SCL -
\
; SDA -
\
; If already high, then this is okay.
\
;
\
; Set data and clock high so as not to do a stop.
\
;
\
; SDA ___--|---_______
\
; SCL ____-|------____
\
; | START
\
CALL K8EEsetSDA
\
CALL K8EEsetSCL
\
\
; Now Pull SDA low, while SCL is still high.
\
; SCL --
\
; SDA -_
\
CALL K8EEresetSDA
\
\
; SCL K--_
\
; SDA K-__
\
CALL K8EEresetSCL
\
RETURN
\
\
;**************
\
; Apply Stop Condition - SDA goes to high while SCL high
\
K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
; SDA ___--|--
\
; SCL _----|--
\
; STOP |
\
\
CALL K8EEsetSCL
\
CALL K8EEsetSDA
\
RETURN
\
\
;**************
\
;Do Clock Pulse
\
K2EEclkCycle
\
; SCL K2-_
\
; SDA K2??
\
\
CALL K8EEsetSCL
\
CALL K8EEresetSCL
\
RETURN
\
\
\
\
;**************
\
;Do ACK byte from memory
\
;Really the PIC should test the response from the memory
\
;The Memory will assert a zero to ACK
\
; Here the PIC also sets the SDA low.
\
; If is set it to high, then the memory would pull it low.
\
K7EEslaveACKCycle
\
\
; SDA ___ZZZZZZ_____
\
; SCL ____----______
\
;
\
\
; make data ouput again
\
BSF STATUS,RP0
\
BSF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
\
CALL K8delay8
\
\
; SCL K2-_
\
; SDA K2??
\
CALL K8EEsetSCL
\
\
; Should really test for device Asserting ACK.
\
\
;
\
; need a flag ACKFLAG bit 0 reflects last ACK
\
;
\
\
BCF ACKFLAG,0
\
BTFSC PORTEEPROM,EEPROMsda
\
BSF ACKFLAG,0
\
\
CALL K8EEresetSCL
\
\
; make data ouput again
\
BSF STATUS,RP0
\
BCF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
\
\
RETURN
\
\
\
\
K8EEsetSCL
\
BSF PORTEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEresetSCL
\
BCF PORTEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEsetSDA
\
BSF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
\
K8EEresetSDA
\
BCF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
K8delay8
\
; use goto $1 to padd delay to 10us
\
goto $+1
\
CLRWDT
\
RETURN
\
\
\
;************************************************
\
\
\
\
\
\
;************************************************
\
; Transmit 8 bits in W to EEPROM
\
K4EEwrtByte
\
; SCL K4_-_-_-_-_-_-_-_-
\
; SDA K4x=x=x=x=x=x=x=x=
\
; 7 6 5 4 3 2 1 0
\
MOVWF TRAM
\
\
; now clock 8 bits into the EEPROM
\
movlw 8
\
movwf LoopCnt
\
K40
\
; call test to save on gotos
\
call K4EEwrtByteTestTram
\
\
; Clock bit _---___
\
call K8EEsetSCL
\
call K8EEresetSCL
\
\
; push the next bit into
\
RLF TRAM,f
\
DECFSZ LoopCnt,f
\
goto K40
\
\
; Clock the last bit around
\
RLF TRAM,f
\
\
RETURN
\
\
\
\
K4EEwrtByteTestTram
\
; this is called to optimise use of goto s
\
BTFSS TRAM,BIT7
\
goto K8EEresetSDA
\
goto K8EEsetSDA
\
\
\
\
;***************
\
; Read in DDATA from EEPROM
\
; It does not do the ACK or NACK
\
; ACK if another byte is to be got
\
; NACK if this is the last byte to be read
\
;
\
K6EEreadByte
\
BSF STATUS,RP0
\
BSF TRISEEPROM,EEPROMsda ; make DDATA port an input
\
BCF STATUS,RP0
\
CALL K8delay8
\
\
; now clock 8 bits into the EEPROM
\
; Most signifficant bit first
\
movlw 8
\
movwf LoopCnt
\
\
\
K60
\
;
\
; SDA should be at the correct level before SCL is set high
\
; test SDA
\
;
\
\
; ADD 0xFF to EEPROMsda bit and cause a carry, if EEPROMsda is 1
\
; test EEPROMsda and put it into C bit is status
\
\
MOVFW PORTEEPROM
\
ANDLW 1 << EEPROMsda
\
ADDLW 0xFF
\
\
; push the next bit into place
\
RLF DDATA,f
\
CALL K8delay8
\
\
;
\
; SCL _--___
\
;
\
\
CALL K8EEsetSCL
\
CALL K8EEresetSCL
\
\
DECFSZ LoopCnt,f
\
goto K60
\
\
BSF STATUS,RP0
\
BCF TRISEEPROM,EEPROMsda
\
BCF STATUS,RP0
\
\
CALL K8delay8
\
; MOVFW DDATA
\
RETURN
\
\
;************************************************
\
\
\
\
\
\
\
\
;
\
; EEsetAddr send the CWORD and set the address
\
;
\
; 24LC16 IIC memory set address and write data:
\
;
\
; START, IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
;
\
; START, IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
;
\
;
\
\
\
\
\
;-----------------------------
\
; API level - put bytes
\
\
\
\
\
K3EEsetAddr
\
\
; Apply Start, IICADDR + MEMADDRH*2 +W, ack , ADDRL, ack
\
;
\
; Set Address pointer of chip to ADDRH+ADDRL
\
;
\
; No Stop condition is set, so more data can be sent.
\
;
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
; Double the ADDRH to step over the W/R bit.
\
; Add it to the IICADDR
\
; pins A0,A1,A2 ignored
\
;
\
; MEM24LC16 is 2K and has 8 pages.
\
; Only one chip can be used on the IIC bus
\
; ADDRH is 3 bits
\
; ADDRL is 8 bits
\
\
\
MOVFW ADDRH
\
ADDWF ADDRH,W
\
ANDLW 0x0E
\
; Add Chip Address
\
ADDLW 0xA0
\
; Add W/R bit W=0
\
endif
\
\
ifdef MEM24LC65
\
;
\
; MEM24LC65 is 64K and has 8 pages.
\
; pins A0,A1,A2 select the device. Logger only uses one memory
\
;
\
; Up to 8 chips can be used on the IIC bus
\
; ADDRH is 5 bits
\
; ADDRL is 8 bits
\
\
MOVLW 0xA0 ; + chip Address to match A0,A1,A2 pins
\
\
endif
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
ifdef MEM24LC65
\
;
\
; 24LC65 is has 64K bits or 8K bytes or 32 pages of 256 bytes
\
;
\
; write ADDRH
\
;
\
MOVF ADDRH,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
endif
\
\
; write ADDRL
\
MOVFW ADDRL
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
; return zero if ACK, non zero if NACK
\
BCF STATUS,Z
\
BTFSC ACKFLAG,0
\
BSF STATUS,Z
\
\
RETURN
\
\
\
\
; EEputByte
\
;
\
; write byte in DDATA to eeprom at the current address, also increment address.
\
;
\
; S CMDW A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDRL A ADDRL A DATA S Write Address and data
\
;
\
\
\
\
K3EEputAnotherByte
\
;
\
; put the data into the chip, also increment local copy of EEprom Address
\
;
\
;
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
GOTO K3EEincAddr
\
\
\
\
\
K5EEputOneByte
\
;
\
; Put one byte and stops transfer
\
; EEPROM[ ADDR ] = DDATA
\
;
\
; Improvement suggestion: test if SLAVE ACKS transfer.
\
;
\
CALL K3EEsetAddr
\
; If the Slave does not ACK, then
\
\
; SCL K1-_
\
; SDA K2??
\
; Transmit 8 bits
\
\
; write DATA
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
; If the Slave does not ACK, then
\
CALL K7EEslaveACKCycle
\
\
; SCL K2-_
\
; SDA K2??
\
; Apply Stop Condition
\
CALL K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
\
\
CALL Delay5ms
\
GOTO K3EEincAddr
\
\
\
\
\
;-----------------------------
\
; API level - get bytes
\
\
\
K3EEstartRead
\
; possibly - finish off last read
\
; Apply Start
\
; finished writing address
\
\
; now start again
\
; only send Command word with R
\
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
;
\
; The address is composed of ADDRH and ADDRL
\
;
\
MOVFW ADDRH
\
ADDWF ADDRH,W
\
ANDLW 0x0E
\
ADDLW 0xA1
\
endif
\
\
ifdef MEM24LC65
\
MOVLW 0xA1
\
endif
\
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
RETURN
\
\
\
\
\
\
\
\
\
\
;**************
\
;
\
; Send START, the control word and
\
; MOVLW 0xA0
\
; MOVWF CWORD
\
; CLRF ADDRL
\
; CLRF ADDRH
\
\
K5EEgetOneByte
\
; read the byte at ADDR and increment ADDR
\
; S CMDW A ADDRH A ADDRL S Read one to many bytes
\
; S CMDR A DATA A DATA A .... A DATA S Read one to many bytes
\
CALL K3EEsetAddr
\
CALL K3EEstartRead
\
; haven written the address now start the read
\
;CALL K5EEgetAnotherByte
\
CALL K5EEgetLastByte
\
RETURN
\
\
\
\
\
\
K5EEgetAnotherByte
\
; read DDATA from EEPROM
\
\
CALL K6EEreadByte
\
\
; send ACK to memory
\
; BSF PORTEEPROM,EEPROMsda
\
BCF PORTEEPROM,EEPROMsda
\
\
CALL K2EEclkCycle
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincAddr
\
\
K5EEgetLastByte
\
; read DDATA from EEPROM
\
CALL K6EEreadByte
\
\
; send NACK to memory
\
; BSF PORTEEPROM,EEPROMsda
\
BSF PORTEEPROM,EEPROMsda
\
\
CALL K2EEclkCycle
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincAddr
\
\
\
;-----------------------------
\
; API level - memory Prt
\
\
\
\
K3EEincAddr
\
; Increment ADDRH:ADDRL
\
; return with Z = 0 if at end
\
\
; Increment address
\
; If at end of memory, then Z is true
\
;
\
INCF ADDRL,F
\
SKPZ
\
RETURN ; return non zero
\
\
INCF ADDRH,f
\
\
ifdef MEM24LC16
\
; when B3 is set to 1 then the mem is at the end.
\
BTFSC ADDRH,3
\
endif
\
\
\
ifdef MEM24LC65
\
; when B5 is set to 1 then the mem is at the end.
\
BTFSC ADDRH,5
\
endif
\
\
; BTFSS X,X ; If dc or Bit 5 then Z must be clear.
\
BSF STATUS,Z ; use the Z bit to indicate end of memory
\
RETURN
\
; End of Memory
\
\
\
\
K3EEsetAddrToW
\
; Set ADDRH:ADDRL = 0:W
\
;
\
; ADDRL = W
\
; ADDRH = 0
\
;
\
\
MOVWF ADDRL
\
CLRF ADDRH
\
RETURN
\
\
;-----------------------------
\
"
);
gbF( // guestbook.pl
"name","email","Sun, 7 Sep 2008 17:54:45 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"IIC - 16F84 master tris3",
"userfield2",
"userfield3",
"userfield4",
"
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
;
\
;
\
;
\
;The IIC memory protocol is:
\
;
\
; START:
\
; SCL: -----\\__
\
; SDA: --\\_____
\
;
\
; STOP:
\
; SCL: _____/--
\
; SDA: __/-----
\
;
\
; 0:
\
; SCL: __/--\\__
\
; SDA: ________
\
;
\
; 1:
\
; SCL: __/--\\__
\
; SDA: /------\\
\
;
\
;
\
;NOTE: Capitals means SDA asserted by Master,
\
;
\
;little letters means SDA asserted by slave
\
;
\
;SCL asserted by Master and Slave and clocked by Master,
\
;
\
;If SCL does not go to high, maybe SLAVE is asserting SCL to strech SCL pulse.
\
;
\
;
\
; 24LC16 IIC memory set address and write data:
\
; START IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
; START IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC16 IIC memory read:
\
; START IICADDR+MEMADDRH+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
; 24LC65 IIC memory read:
\
; START IICADDR+R,ack,data,ACK,data,ACK,data,NACK,STOP
\
;
\
;
\
;
\
;
\
;Some functions to interface iic memory.
\
;The iic memory chips can be written to and read from.
\
;
\
;They need some form of file manager.
\
;
\
;Only one file can be open at once.
\
;
\
;
\
; open - restore pointers
\
; read - get byte, increment pointer
\
; write - write byte, increment pointer
\
; flush - stops and writes
\
; seekEnd - sets read pointer at start,
\
; close - save pointers in non volatile store
\
;
\
;
\
;
\
; read pointer - two octets that contain current read address in iic memory
\
; write pointer - two octets that contain current write address in iic memory
\
;
\
; IICwrtPtrH ; IIC memory address incremented by writes
\
; IICwrtPtrL ;
\
;
\
; IICrdPtrH ; IIC memory address incremented by reads
\
; IICrdPtrL ;
\
;
\
;
\
;
\
; if iic buss is started use the pointers to set the address of the memory location to be read.
\
;
\
;
\
; Interface routines for writing one byte:
\
;
\
; K5EEputOneByte - put DATA @ ADDRH+ADDRL
\
;
\
; Interface routines for writing many bytes:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
;
\
; Interface routines for reading bytes:
\
;
\
; CALL K3EEstartRead
\
;
\
;
\
;
\
; Interface routines for writing:
\
;
\
; K3EEsetAddr - set memory pointer to ADDRH + ADDRL
\
; follow by DATA using
\
; K3EEputAnotherByte
\
; and finally a
\
; K1EEsendStopBit
\
\
;
\
;
\
\
\
; K3EEstartRead
\
;
\
; CALL K3EEsetAddr
\
; CALL K3EEstartRead
\
; CALL K5EEgetAnotherByte - sends ACK to memory
\
; process,a finally
\
; CALL K5EEgetLastByte - sends NACK to memory
\
;
\
; CALL K1EEsendStopBit
\
;
\
;
\
\
\
\
;************************************************
\
; Serial Eprom
\
;
\
;**************
\
;
\
; Serial Eprom routines
\
;
\
;
\
; CMDW = 0xA0 + addrH * 2
\
; CMDR = 0xA1 + addrH * 2
\
;
\
;
\
; S CMDW A ADDRL S Write Address
\
;
\
; Bigger Memories 24L16
\
;
\
; a = slave acks
\
; A = MASTER acks
\
;
\
;
\
; data = slave asserts SDA
\
; DATA = master asserts SDA
\
;
\
;
\
; IIC bus pushes data into the chip and pulls data out. The MAster Pulls data out.
\
;
\
; S CMDW a ADDRL a DATA a S Write Address and data
\
; S CMDW a ADDRL a DATA a DATA a S Write Address and data
\
; S CMDR A data A data A .... A data NACK S Read one to many bytes
\
;
\
; Bigger Memories 24L65
\
;
\
; S CMDW A ADDR A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDR A ADDRL A DATA A DATA S Write Address and data
\
;
\
\
\
\
;-----------------------------
\
; Low Level routines
\
;
\
; K0EEsendStartBit
\
; K1EEsendStopBit
\
; K2EEclkCycle
\
; K7EEslaveACKCycle
\
; K8EEdelay8
\
;
\
; K4EEwrtByte
\
; K6EEreadByte
\
;
\
\
;-----------------------------
\
; API level - put bytes
\
\
; K3EEsetWrtAddr
\
; K3EEputAnotherByte
\
; K5EEputOneByte
\
\
;-----------------------------
\
; API level - get bytes
\
\
; K3EEstartRead
\
; K5EEgetOneByte
\
; K5EEgetAnotherByte
\
; K5EEgetLastByte
\
\
;-----------------------------
\
; API level - memory Prt
\
;
\
; K3EEclrWrtPtr
\
; K3EEclrRdPtr
\
;
\
; K3EEincWrtAddr
\
; K3EEincRdAddr
\
;
\
; K3EEtestWrtAddr
\
; K3EEcompareRdPrtWrtptr
\
;
\
\
\
\
;-----------------------------
\
; Low Level routines
\
\
K0EEsendStartBit
\
\
; SCL -
\
; SDA -
\
; If already high, then this is okay.
\
;
\
; Set data and clock high so as not to do a stop.
\
;
\
; SDA ___--|---_______
\
; SCL ____-|------____
\
; | START
\
\
\
CALL K8EEsetSDA
\
CALL K8EEsetSCL
\
\
; Now Pull SDA low, while SCL is still high.
\
; SCL --
\
; SDA -_
\
CALL K8EEresetSDA
\
\
\
; SCL K--_
\
; SDA K-__
\
CALL K8EEresetSCL
\
RETURN
\
\
;**************
\
; Apply Stop Condition - SDA goes to high while SCL high
\
K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
; SDA ___--|--
\
; SCL _----|--
\
; STOP |
\
\
\
; pull SDA and SCL low so that stop condition can be applied.
\
CALL K8EEresetSCL
\
CALL K8EEresetSDA
\
\
CALL K8EEsetSCL
\
CALL K8EEsetSDA
\
RETURN
\
\
;**************
\
;Do Clock Pulse
\
K2EEclkCycle
\
; SCL K2-_
\
; SDA K2??
\
\
CALL K8EEsetSCL
\
CALL K8EEresetSCL
\
RETURN
\
\
\
\
;**************
\
;Do ACK byte from memory
\
;Really the PIC should test the response from the memory
\
;The Memory will assert a zero to ACK
\
; Here the PIC also sets the SDA low.
\
; If is set it to high, then the memory would pull it low.
\
K7EEslaveACKCycle
\
; SDA ___ZZZZZZ_____
\
; SCL ____----______
\
;
\
; make data ouput again
\
\
CALL K8EEsetSDA
\
CALL K8delay8
\
; SCL K2-_
\
; SDA K2??
\
; Test for device Asserting ACK.
\
; return zero if ACK, non zero if NACK
\
; Z set if ACK
\
; Z reset if NACK
\
\
banksel PORTEEPROM
\
\
BCF STATUS,Z
\
BTFSS PORTEEPROM,EEPROMsda
\
BSF STATUS,Z
\
\
CALL K8EEsetSCL
\
\
CALL K8EEresetSCL
\
\
\
; Z set if ACK
\
; Z reset if NACK
\
\
RETURN
\
\
\
\
K8EEsetSCL
\
banksel TRISEEPROM
\
BSF TRISEEPROM,EEPROMscl
\
goto K8delay8
\
\
\
K8EEresetSCL
\
banksel TRISEEPROM
\
BCF TRISEEPROM,EEPROMscl
\
\
banksel PORTEEPROM
\
BCF PORTEEPROM,EEPROMscl
\
\
goto K8delay8
\
\
\
K8EEsetSDA
\
banksel TRISEEPROM
\
BSF TRISEEPROM,EEPROMsda
\
goto K8delay8
\
\
\
K8EEresetSDA
\
banksel TRISEEPROM
\
BCF TRISEEPROM,EEPROMsda
\
\
banksel PORTEEPROM
\
BCF PORTEEPROM,EEPROMsda
\
goto K8delay8
\
\
K8delay8
\
; use goto $1 to padd delay to 10us
\
goto $+1
\
goto $+1
\
CLRWDT
\
banksel PORTB
\
RETURN
\
\
\
;************************************************
\
\
\
\
\
\
;************************************************
\
; Transmit 8 bits in W to EEPROM
\
K4EEwrtByte
\
; SCL K4_-_-_-_-_-_-_-_-
\
; SDA K4x=x=x=x=x=x=x=x=
\
; 7 6 5 4 3 2 1 0
\
MOVWF TRAM
\
\
; now clock 8 bits into the EEPROM
\
movlw 8
\
movwf LoopCnt
\
K40
\
; call test to save on gotos
\
call K4EEwrtByteTestTram
\
\
; Clock bit _---___
\
call K8EEsetSCL
\
call K8EEresetSCL
\
\
; push the next bit into
\
RLF TRAM,f
\
DECFSZ LoopCnt,f
\
goto K40
\
\
; Clock the last bit around
\
RLF TRAM,f
\
\
; Leave SDA high
\
call K8EEsetSDA
\
\
RETURN
\
\
\
\
K4EEwrtByteTestTram
\
; this is called to optimise use of gotos
\
BTFSS TRAM,BIT7
\
goto K8EEresetSDA
\
goto K8EEsetSDA
\
\
\
\
;***************
\
; Read in DDATA from EEPROM
\
; It does not do the ACK or NACK
\
; ACK if another byte is to be got
\
; NACK if this is the last byte to be read
\
;
\
K6EEreadByte
\
call K8EEsetSDA
\
CALL K8delay8
\
\
; now clock 8 bits into the EEPROM
\
; Most signifficant bit first
\
movlw 8
\
movwf LoopCnt
\
\
\
K60
\
;
\
; SDA should be at the correct level before SCL is set high
\
; test SDA
\
;
\
\
; ADD 0xFF to EEPROMsda bit and cause a carry, if EEPROMsda is 1
\
; test EEPROMsda and put it into C bit is status
\
\
banksel PORTEEPROM
\
MOVFW PORTEEPROM
\
ANDLW 1 << EEPROMsda
\
ADDLW 0xFF
\
\
; push the next bit into place
\
RLF DDATA,f
\
CALL K8delay8
\
\
;
\
; SCL _--___
\
;
\
\
CALL K8EEsetSCL
\
CALL K8EEresetSCL
\
\
DECFSZ LoopCnt,f
\
goto K60
\
\
CALL K8delay8
\
RETURN
\
\
;************************************************
\
;
\
; EEsetAddr send the CWORD and set the address
\
;
\
; 24LC16 IIC memory set address and write data:
\
;
\
; START, IICADDR+MEMADDRH+W,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
; 24LC65 IIC memory set address and write data
\
;
\
; START, IICADDR+W,ack,MEMADDRH,ack,MEMADDRL,ack,DATA,ack,DATA,ack,DATA,ack,DATA,ack,STOP
\
;
\
;
\
;
\
\
;-----------------------------
\
; API level - put bytes
\
\
\
\
\
K3EEsetWrtAddr
\
\
; Apply Start, IICADDR + MEMADDRH*2 +W, ack , ADDRL, ack
\
;
\
; Set Address pointer of chip to ADDRH+ADDRL
\
;
\
; No Stop condition is set, so more data can be sent.
\
;
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
; Double the ADDRH to step over the W/R bit.
\
; Add it to the IICADDR
\
; pins A0,A1,A2 ignored
\
;
\
; MEM24LC16 is 2K and has 8 pages.
\
; Only one chip can be used on the IIC bus
\
; ADDRH is 3 bits
\
; ADDRL is 8 bits
\
\
\
;MOVFW ADDRH
\
MOVFW IICwrtPtrH
\
\
;ADDWF ADDRH,W
\
ADDWF IICwrtPtrH,W
\
ANDLW 0x0E
\
; Add Chip Address
\
ADDLW 0xA0
\
; Add W/R bit W=0
\
endif
\
\
ifdef MEM24LC65
\
;
\
; MEM24LC65 is 64K and has 8 pages.
\
; pins A0,A1,A2 select the device. Logger only uses one memory
\
;
\
; Up to 8 chips can be used on the IIC bus
\
; ADDRH is 5 bits
\
; ADDRL is 8 bits
\
\
MOVLW 0xA0 ; + chip Address to match A0,A1,A2 pins
\
\
endif
\
\
ifdef MEM24LC256
\
;
\
; MEM24LC65 is 64K and has 8 pages.
\
; pins A0,A1,A2 select the device. Logger only uses one memory
\
;
\
; Up to 8 chips can be used on the IIC bus
\
; ADDRH is 5 bits
\
; ADDRL is 8 bits
\
\
MOVLW 0xA0 ; + chip Address to match A0,A1,A2 pins
\
\
endif
\
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
\
ifdef MEM24LC65
\
;
\
; 24LC65 is has 64K bits or 8K bytes or 32 pages of 256 bytes
\
;
\
; write ADDRH
\
;
\
MOVFW IICwrtPtrH
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
endif
\
\
ifdef MEM24LC256
\
MOVFW IICwrtPtrH
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
endif
\
\
\
MOVFW IICwrtPtrL
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
; Z set if ACK
\
; Z reset if NACK
\
RETURN
\
\
K3EEsetReadAddr
\
\
; Apply Start, IICADDR + MEMADDRH*2 +W, ack , ADDRL, ack
\
;
\
; Set Address pointer of chip to ADDRH+ADDRL
\
;
\
; No Stop condition is set, so more data can be sent.
\
;
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
; Double the ADDRH to step over the W/R bit.
\
; Add it to the IICADDR
\
; pins A0,A1,A2 ignored
\
;
\
; MEM24LC16 is 2K and has 8 pages.
\
; Only one chip can be used on the IIC bus
\
; ADDRH is 3 bits
\
; ADDRL is 8 bits
\
\
\
;MOVFW ADDRH
\
MOVFW IICrdPtrH
\
\
;ADDWF ADDRH,W
\
ADDWF IICrdPtrH,W
\
ANDLW 0x0E
\
; Add Chip Address
\
ADDLW 0xA0
\
; Add W/R bit W=0
\
endif
\
\
ifdef MEM24LC65
\
;
\
; MEM24LC65 is 64K and has 8 pages.
\
; pins A0,A1,A2 select the device. Logger only uses one memory
\
;
\
; Up to 8 chips can be used on the IIC bus
\
; ADDRH is 5 bits
\
; ADDRL is 8 bits
\
\
MOVLW 0xA0 ; + chip Address to match A0,A1,A2 pins
\
\
endif
\
\
ifdef MEM24LC256
\
;
\
; MEM24LC65 is 64K and has 8 pages.
\
; pins A0,A1,A2 select the device. Logger only uses one memory
\
;
\
; Up to 8 chips can be used on the IIC bus
\
; ADDRH is 5 bits
\
; ADDRL is 8 bits
\
\
MOVLW 0xA0 ; + chip Address to match A0,A1,A2 pins
\
\
endif
\
\
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
ifdef MEM24LC65
\
;
\
; 24LC65 is has 64K bits or 8K bytes or 32 pages of 256 bytes
\
;
\
; write ADDRH
\
;
\
MOVFW IICrdPtrH
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
endif
\
\
ifdef MEM24LC256
\
MOVFW IICrdPtrH
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
endif
\
\
\
MOVFW IICrdPtrL
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
CALL K1EEsendStopBit
\
\
; Z set if ACK
\
; Z reset if NACK
\
RETURN
\
\
\
; EEputByte
\
;
\
; write byte in DDATA to eeprom at the current address, also increment address.
\
;
\
; S CMDW A ADDRL A DATA S Write Address and data
\
; S CMDW A ADDRL A ADDRL A DATA S Write Address and data
\
;
\
\
\
\
K3EEputAnotherByte
\
;
\
; put the data into the chip, also increment local copy of EEprom Address
\
;
\
;
\
; if last memory location, then zero flag set
\
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
GOTO K3EEincWrtAddr
\
\
\
\
\
K5EEputOneByte
\
;
\
; Put one byte and stops transfer
\
; if last memory location, then zero flag set
\
\
; EEPROM[ ADDR ] = DDATA
\
;
\
; Improvement suggestion: test if SLAVE ACKS transfer.
\
;
\
CALL K3EEsetWrtAddr
\
; If the Slave does not ACK, then
\
\
; SCL K1-_
\
; SDA K2??
\
; Transmit 8 bits
\
\
; write DATA
\
MOVF DDATA,W
\
CALL K4EEwrtByte
\
; If the Slave does not ACK, then
\
CALL K7EEslaveACKCycle
\
\
; SCL K2-_
\
; SDA K2??
\
; Apply Stop Condition
\
call K8EEresetSDA
\
CALL K1EEsendStopBit
\
; SCL K1?--
\
; SDA K1__-
\
\
\
\
CALL Delay5ms
\
GOTO K3EEincWrtAddr
\
\
\
\
\
;-----------------------------
\
; API level - get bytes
\
\
\
K3EEstartRead
\
; possibly - finish off last read
\
; Apply Start
\
; finished writing address
\
\
; now start again
\
; only send Command word with R
\
\
;
\
; Copy IICrdPtr
\
;
\
\
CALL K0EEsendStartBit
\
\
ifdef MEM24LC16
\
;
\
; The address is composed of ADDRH and ADDRL
\
;
\
MOVFW IICrdPtrH
\
ADDWF IICrdPtrH,W
\
ANDLW 0x0E
\
ADDLW 0xA1
\
endif
\
\
ifdef MEM24LC65
\
MOVLW 0xA1
\
endif
\
\
\
ifdef MEM24LC256
\
MOVLW 0xA1
\
endif
\
\
CALL K4EEwrtByte
\
CALL K7EEslaveACKCycle
\
\
\
; if slave ACK\'s Z set
\
; if Slave NACK\'d Z reset
\
\
RETURN
\
\
\
\
\
\
\
\
\
\
;**************
\
;
\
; Send START, the control word and
\
; MOVLW 0xA0
\
; MOVWF CWORD
\
; CLRF ADDRL
\
; CLRF ADDRH
\
\
K5EEgetOneByte
\
; read the byte at ADDR and increment ADDR
\
; S CMDW A ADDRH A ADDRL S Read one to many bytes
\
; S CMDR A DATA A DATA A .... A DATA S Read one to many bytes
\
\
; does not test ACK
\
;
\
CALL K3EEsetReadAddr
\
\
CALL K3EEstartRead
\
; haven written the address now start the read
\
;CALL K5EEgetAnotherByte
\
CALL K5EEgetLastByte
\
CALL K1EEsendStopBit
\
RETURN
\
\
\
\
\
\
K5EEgetAnotherByte
\
; read DDATA from EEPROM
\
; if last memory location, then zero flag set
\
\
CALL K6EEreadByte
\
\
; send ACK to memory
\
CALL K8EEresetSDA
\
CALL K2EEclkCycle
\
CALL K8EEsetSDA
\
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincRdAddr
\
\
K5EEgetLastByte
\
; read DDATA from EEPROM
\
; if last memory location, then zero flag set
\
\
\
CALL K6EEreadByte
\
\
; send NACK to memory
\
CALL K8EEsetSDA
\
CALL K2EEclkCycle
\
CALL K8EEsetSDA
\
\
; SCL K2-_
\
; SDA K2--
\
GOTO K3EEincRdAddr
\
\
\
;-----------------------------
\
; API level - memory Prt
\
\
\
K3EEclrWrtPtr
\
clrf IICwrtPtrH
\
clrf IICwrtPtrL
\
return
\
\
K3EEclrRdPtr
\
clrf IICrdPtrH
\
clrf IICrdPtrL
\
return
\
\
K3EEincWrtAddr
\
incfsz IICwrtPtrL
\
goto $+2
\
incf IICwrtPtrH,f
\
goto K3EEtestWrtAddr
\
\
K3EEincRdAddr
\
incfsz IICrdPtrL
\
goto $+2
\
incf IICrdPtrH,f
\
return
\
\
; This is done in upload command.
\
; so test if rdPrt has got to last wrtPtr
\
\
;
\
; compare rdPtr and wrtPtr
\
; IICprtTest has sticky bits if XOR are no zero.
\
;
\
\
\
\
K3EEcompareRdPrtWrtptr
\
; returns with status Z set
\
CLRF IICprtTest
\
movfw IICrdPtrL
\
xorwf IICwrtPtrL,w
\
iorwf IICprtTest,f
\
\
movfw IICrdPtrH
\
xorwf IICwrtPtrH,w
\
iorwf IICprtTest,f
\
; if both bytes are zero then Z is set.
\
return
\
\
K3EEtestWrtAddr
\
\
\
; EEPROM[0] is a bit mask to provide carry
\
; 0x80
\
\
; 0xF8 MEM24LC16
\
; 0xE0 MEM24LC64
\
movlw EE_MAX_WRTH
\
call EEread
\
ADDWF IICwrtPtrH,w
\
\
;
\
; if carry, then end of memory reached.
\
;
\
\
BTFSC STATUS,C
\
; BTFSS X,X ; If dc or Bit 5 then Z must be clear.
\
BSF STATUS,Z ; use the Z bit to indicate end of memory
\
\
; stop logging at the end of the memory
\
BTFSC STATUS,C
\
call CLdisableAutoSample
\
\
RETURN
\
; End of Memory
\
"
);
gbF( // guestbook.pl
"doug","","Sun, 1 Mar 2009 22:39:15 UTC+0000","212.56.108.219 | dougrice.plus.com ",
"Parity",
"userfield2",
"userfield3",
"userfield4",
"
\
\
list p=16f628 ; list directive to define processor
\
#include ; processor specific variable definitions
\
\
__CONFIG _CP_OFF & _WDT_ON & _BODEN_ON & _PWRTE_ON & _ER_OSC_CLKOUT & _MCLRE_ON & _LVP_ON
\
\
; \'__CONFIG\' directive is used to embed configuration data within .asm file.
\
; The lables following the directive are located in the respective .inc file.
\
; See respective data sheet for additional information on configuration word.
\
\
\
\
\
\
;***** VARIABLE DEFINITIONS
\
w_temp EQU 0x70 ; variable used for context saving
\
status_temp EQU 0x71 ; variable used for context saving
\
\
\
\
cblock 0x20 ; 16F628
\
tmp
\
cnt
\
endc
\
\
\
;**********************************************************************
\
ORG 0x000 ; processor reset vector
\
goto main ; go to beginning of program
\
\
\
ORG 0x004 ; interrupt vector location
\
movwf w_temp ; save off current W register contents
\
movf STATUS,w ; move status register into W register
\
movwf status_temp ; save off contents of STATUS register
\
\
\
; isr code can go here or be located as a call subroutine elsewhere
\
\
\
movf status_temp,w ; retrieve copy of STATUS register
\
movwf STATUS ; restore pre-isr STATUS register contents
\
swapf w_temp,f
\
swapf w_temp,w ; restore pre-isr W register contents
\
retfie ; return from interrupt
\
\
\
\
parityWv0
\
\
; Find Parity of W , leaving parity in LSB
\
; bits 7654 3210
\
;
\
;
\
movwf tmp
\
\
rrf tmp,f
\
xorwf tmp,w ; b0 xor b1 => bo
\
\
rrf tmp,f
\
xorwf tmp,w ; b0 xor b1 => bo
\
\
rrf tmp,f
\
xorwf tmp,w ; b0 xor b1 => bo
\
\
rrf tmp,f
\
xorwf tmp,w ; b0 xor b1 => bo
\
\
rrf tmp,f
\
xorwf tmp,w ; b0 xor b1 => bo
\
\
rrf tmp,f ; ( b0 xor b1 ) xor b2 => bo
\
xorwf tmp,w
\
\
rrf tmp,f ; ( ( b0 xor b1 ) xor b2 ) xor b3 => bo
\
xorwf tmp,w
\
\
; w.b0 no contains parity
\
\
andlw 1
\
return
\
\
\
\
parityWv1
\
\
; Find Parity of W , leaving parity in LSB
\
; bits 7654 3210
\
;
\
;
\
movwf tmp
\
\
; xor nibbles together
\
swapf tmp,w
\
xorwf tmp,f
\
\
; tmp contains nibles exored together.
\
; xor 4 bits in lsb
\
\
; we now have to find the parity of adjacent bits
\
movfw tmp
\
rrf tmp,f
\
xorwf tmp,w ; b0 xor b1 => bo
\
\
rrf tmp,f ; ( b0 xor b1 ) xor b2 => bo
\
xorwf tmp,w
\
\
rrf tmp,f ; ( ( b0 xor b1 ) xor b2 ) xor b3 => bo
\
xorwf tmp,w
\
\
; w.b0 no contains parity
\
\
andlw 1
\
return
\
\
\
parityWv2
\
\
; Find Parity of W , leaving parity in LSB
\
; bits 7654 3210
\
;
\
;
\
movwf tmp
\
\
; xor nibbles together
\
swapf tmp,w
\
xorwf tmp,f
\
\
; tmp contains nibles exored together.
\
; xor 4 bits in lsb
\
\
; we now have to find the parity of adjacent bits
\
movfw tmp
\
rrf tmp,f
\
rrf tmp,f
\
xorwf tmp,f; b0 xor b1 => bo
\
\
\
movfw tmp
\
rrf tmp,f ; ( b0 xor b1 ) xor b2 => bo
\
xorwf tmp,w
\
\
; w.b0 no contains parity
\
\
andlw 1
\
return
\
\
\
\
\
\
\
main
\
\
; remaining code goes here
\
\
clrf cnt
\
\
main1
\
movfw cnt
\
call parityWv0 ; 20 cycles
\
\
movfw cnt
\
call parityWv1 ; 15 cycles
\
\
movfw cnt
\
call parityWv2 ; 15 cycles
\
\
decfsz cnt
\
goto main1
\
\
movwf tmp
\
\
\
END ; directive \'end of program\'
\
"
);
gbF( // guestbook.pl
"Doug","","Sat, 28 Mar 2009 08:26:01 UTC+0000","212.56.108.219 | dougrice.plus.com ",
"CRC for DS18S20",
"",
"",
"",
"This code has still to be verified.
\
\
\
cblock
\
CRCcrc
\
CRCa
\
endc
\
\
CRCts
\
\
; CRC polynomial for DS18S20 page 8 of 23
\
;
\
; a > [8] > [7] > [6] > [5] > [4] + a > [3] + a > [2] > [1] > [0] + i/p > a
\
;
\
\
; ip is in bit 0
\
; work out a = crc:bit0 xor i/p
\
xorwf CRCcrc,w
\
andlw 0x01
\
; fill w with 1s or 0s based on bit 0
\
xorlw 0x01
\
addlw 0xFF
\
; store A
\
movwf CRCa
\
\
;
\
; now prepare crc
\
;
\
\
rrf CRCcrc,f
\
\
;
\
; work out bit3 xor a
\
; work out bit2 xor a
\
;
\
\
movlw ( 0<<7 | 1<<3 | 1<<2 )
\
andwf CRCcrc,w
\
xorwf CRCa,f
\
\
\
;
\
; update CRC but orint new values for bit 7 , bit 3 and bit2.
\
;
\
\
;
\
; zero bit 7, bit 3, bit 2 in CRC
\
;
\
movlw ~( 1<<7 | 1<<3 | 1<<2 )
\
andwf CRCcrc,f
\
\
;
\
; mask of new values for bit 7, bit 3, bit 2
\
;
\
movfw CRCa
\
; add bit 7, bit 3, bit 2 to CRC
\
andlw ( 1<<7 | 1<<3 | 1<<2 )
\
iorwf CRCcrc,f
\
\
return
\
\
\
Start
\
\
movlw 0xFF
\
movwf CRCcrc
\
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
"
);
gbF( // guestbook.pl
"name","email","Sat, 28 Mar 2009 08:29:11 UTC+0000","212.56.108.219 | dougrice.plus.com ",
"EE routines for Prog Memory",
"userfield2",
"userfield3",
"userfield4",
"
\
\
;
\
; EEPROM for program
\
; a - setaddr
\
; e - erase32 words at address.
\
; < - read word and increment
\
; > - write word and increment, needs to write 4 butes at once.
\
;
\
\
\
EEsetProgAddr
\
banksel RSeeaddrh
\
movfw RSeeaddrh
\
\
banksel EEADRH
\
movwf EEADRH
\
\
banksel RSeeaddrl
\
movfw RSeeaddrl
\
\
banksel EEADR
\
movwf EEADR
\
\
return
\
\
EEincProgAddr
\
banksel RSeeaddrl
\
incfsz RSeeaddrl
\
goto $+2
\
incfsz RSeeaddrh
\
return
\
\
\
EEprogRead
\
; w contains address
\
banksel EEADR
\
movwf EEADR
\
banksel EECON1
\
ifdef EEPGD
\
bsf EECON1, EEPGD; Point to Prog memory
\
endif
\
\
bsf EECON1,RD
\
BANKSEL EEDATA ; Select Bank of EEDATA
\
movfw EEDATA
\
banksel 0
\
return
\
\
EEprogWrite ; blocking, EEADR and EEDATA set up.
\
\
banksel EECON1
\
bcf EECON1,WREN ; disable EROM
\
ifdef EEPGD
\
bsf EECON1, EEPGD ; Point to PROG
\
endif
\
BCF EECON1, FREE ; Enable Row Erase operation
\
\
bsf EECON1,WREN
\
bcf INTCON,GIE
\
movlw 0x55
\
movwf EECON2
\
movlw 0xAA
\
movwf EECON2
\
bsf EECON1,WR
\
BsF INTCON,GIE
\
\
; Now wait for EEwrt to finish write
\
EEwaitForProgWrt ; block until EEPROM write has finished.
\
bcf EECON1,WREN ; disable EROM
\
\
; NOTE:- I have commented out the goto and the write to eeprom started to work
\
\
; btfsc EECON1,WR
\
; goto EEwaitForWrt
\
\
;bcf EECON1,EEIF ; EEPROM finished
\
\
banksel 0
\
return
\
\
\
EEprogErase ; blocking, EEADR and EEDATA set up.
\
\
banksel EECON1
\
bcf EECON1,WREN ; disable EROM
\
ifdef EEPGD
\
bsf EECON1, EEPGD ; Point to PROG
\
endif
\
BSF EECON1, FREE ; Enable Row Erase operation
\
\
bsf EECON1,WREN
\
bcf INTCON,GIE
\
movlw 0x55
\
movwf EECON2
\
movlw 0xAA
\
movwf EECON2
\
bsf EECON1,WR
\
BsF INTCON,GIE
\
\
; Now wait for EEwrt to finish write
\
EEwaitForProgErase ; block until EEPROM write has finished.
\
bcf EECON1,WREN ; disable EROM
\
\
; NOTE:- I have commented out the goto and the write to eeprom started to work
\
\
; btfsc EECON1,WR
\
; goto EEwaitForWrt
\
\
;bcf EECON1,EEIF ; EEPROM finished
\
\
banksel 0
\
return
\
\
\
\
; e - erase32
\
; < - read word and increment
\
; > - write word and increment
\
\
"
);
gbF( // guestbook.pl
"doug","","Sat, 28 Mar 2009 08:59:21 UTC+0000","212.56.108.219 | dougrice.plus.com ",
"CRC for DS18S20",
"",
"",
"",
"Doug said on Sat, 28 Mar 2009 08:26:01 UTC+0000:
\
This code has still to be verified.
\
\
\
cblock
\
CRCcrc
\
CRCa
\
endc
\
\
CRCts
\
\
; CRC polynomial for DS18S20 page 8 of 23
\
;
\
; a > [8] > [7] > [6] > [5] > [4] + a > [3] + a > [2] > [1] > [0] + i/p > a
\
;
\
\
; ip is in bit 0
\
; work out a = crc:bit0 xor i/p
\
xorwf CRCcrc,w
\
andlw 0x01
\
; fill w with 1s or 0s based on bit 0
\
xorlw 0x01
\
addlw 0xFF
\
; store A
\
movwf CRCa
\
\
;
\
; now prepare crc
\
;
\
\
rrf CRCcrc,f
\
\
;
\
; work out bit3 xor a
\
; work out bit2 xor a
\
;
\
\
movlw ( 0<<7 | 1<<3 | 1<<2 )
\
andwf CRCcrc,w
\
xorwf CRCa,f
\
\
\
;
\
; update CRC but orint new values for bit 7 , bit 3 and bit2.
\
;
\
\
;
\
; zero bit 7, bit 3, bit 2 in CRC
\
;
\
movlw ~( 1<<7 | 1<<3 | 1<<2 )
\
andwf CRCcrc,f
\
\
;
\
; mask of new values for bit 7, bit 3, bit 2
\
;
\
movfw CRCa
\
; add bit 7, bit 3, bit 2 to CRC
\
andlw ( 1<<7 | 1<<3 | 1<<2 )
\
iorwf CRCcrc,f
\
\
return
\
\
\
Start
\
\
movlw 0xFF
\
movwf CRCcrc
\
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
"
);
gbF( // guestbook.pl
"doug","him@me","Sat, 28 Mar 2009 09:57:40 UTC+0000","212.56.108.219 | dougrice.plus.com ",
"Cookie test",
"",
"",
"",
"hkdshfkqhd"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Sat, 28 Mar 2009 19:52:41 UTC+0000","212.56.108.219 | dougrice.plus.com ",
"CRC for DS18S20",
"",
"",
"",
"doug said on Sat, 28 Mar 2009 08:59:21 UTC+0000:
\
Doug said on Sat, 28 Mar 2009 08:26:01 UTC+0000:
\
This code has still to be verified.
\
\
cblock
\
CRCcrc
\
CRCa
\
endc
\
\
CRCts
\
\
; CRC polynomial for DS18S20 page 8 of 23
\
;
\
; a > [8] > [7] > [6] > [5] > [4] + a > [3] + a > [2] > [1] > [0] + i/p > a
\
;
\
\
; ip is in bit 0
\
; work out a = crc:bit0 xor i/p
\
xorwf CRCcrc,w
\
andlw 0x01
\
; fill w with 1s or 0s based on bit 0
\
xorlw 0x01
\
addlw 0xFF
\
; store A
\
movwf CRCa
\
\
;
\
; now prepare crc, shift CRC to new position, opens up bit 7
\
;
\
\
rrf CRCcrc,f
\
\
;
\
; work out bit3 xor a
\
; work out bit2 xor a
\
;
\
\
movlw ( 0<<7 | 1<<3 | 1<<2 )
\
andwf CRCcrc,w
\
xorwf CRCa,f
\
\
\
;
\
; update CRC but orint new values for bit 7 , bit 3 and bit2.
\
;
\
\
;
\
; zero bit 7, bit 3, bit 2 in CRC
\
;
\
movlw ~( 1<<7 | 1<<3 | 1<<2 )
\
andwf CRCcrc,f
\
\
;
\
; mask of new values for bit 7, bit 3, bit 2
\
;
\
movfw CRCa
\
; add bit 7, bit 3, bit 2 to CRC
\
andlw ( 1<<7 | 1<<3 | 1<<2 )
\
iorwf CRCcrc,f
\
\
return
\
\
\
Start
\
\
movlw 0x00
\
movwf CRCcrc
\
\
movlw 1
\
call CRCts
\
movlw 0
\
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 0
\
call CRCts
\
\
movlw 1
\
call CRCts
\
movlw 0
\
call CRCts
\
\
movlw 1
\
call CRCts
\
movlw 0
\
call CRCts
\
\
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
\
\
cblock
\
CRCcrc
\
CRCa
\
endc
\
\
CRCts
\
\
; CRC polynomial for DS18S20 page 8 of 23
\
;
\
; a > [8] > [7] > [6] > [5] > [4] + a > [3] + a > [2] > [1] > [0] + i/p > a
\
;
\
\
; ip is in bit 0
\
; work out a = crc:bit0 xor i/p
\
xorwf CRCcrc,w
\
andlw 0x01
\
; fill w with 1s or 0s based on bit 0
\
xorlw 0x01
\
addlw 0xFF
\
; store A
\
movwf CRCa
\
\
;
\
; now prepare crc
\
;
\
\
rrf CRCcrc,f
\
\
;
\
; work out bit3 xor a
\
; work out bit2 xor a
\
;
\
\
movlw ( 0<<7 | 1<<3 | 1<<2 )
\
andwf CRCcrc,w
\
xorwf CRCa,f
\
\
\
;
\
; update CRC but orint new values for bit 7 , bit 3 and bit2.
\
;
\
\
;
\
; zero bit 7, bit 3, bit 2 in CRC
\
;
\
movlw ~( 1<<7 | 1<<3 | 1<<2 )
\
andwf CRCcrc,f
\
\
;
\
; mask of new values for bit 7, bit 3, bit 2
\
;
\
movfw CRCa
\
; add bit 7, bit 3, bit 2 to CRC
\
andlw ( 1<<7 | 1<<3 | 1<<2 )
\
iorwf CRCcrc,f
\
\
return
\
\
\
Start
\
\
movlw 0xFF
\
movwf CRCcrc
\
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
movlw 1
\
call CRCts
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Sat, 28 Mar 2009 19:54:16 UTC+0000","212.56.108.219 | dougrice.plus.com ",
"CRC for DS18S20 check",
"",
"",
"",
"JavaScript - run inside a web page.
\
var b = new Array()
\
var newb = new Array()
\
\
\
var A,ip;
\
\
\
b[0] = 0;
\
b[1] = 0;
\
b[2] = 0;
\
b[3] = 0;
\
b[4] = 0;
\
b[5] = 0;
\
b[6] = 0;
\
b[7] = 0;
\
\
function crc( ip ) {
\
\
a = b[0] ^ip
\
\
newb[ 2 ] = a ^ b[3]
\
newb[ 3 ] = a ^ b[4]
\
\
\
b[0] = b[1]
\
b[1] = b[2]
\
b[2] = a ^ b[3]
\
b[3] = a ^ b[4]
\
b[4] = b[5]
\
b[5] = b[6]
\
b[6] = b[7]
\
b[7] = a
\
\
var opStr= \" \" + b[7] + \" \" + b[6] + \" \" + b[5] + \" \" + b[4] + \" \" + b[3] + \" \" + b[2] + \" \" + b[1] + \" \" + b[0] + \"
\"
\
\
var opNum= ( b[7]*128 + b[6]*64 + b[5]*32 + b[4]*16 + b[3]*8 + b[2]*4 + b[1]*2 + b[0] )
\
\
\
self.document.write( \" 0x \"+opNum.toString(16) + opStr )
\
\
\
}
\
\
crc(1)
\
crc(0)
\
crc(1)
\
crc(0)
\
crc(1)
\
crc(0)
\
crc(1)
\
crc(0)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
crc(1)
\
\
\
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Sat, 28 Mar 2009 19:56:04 UTC+0000","212.56.108.219 | dougrice.plus.com ",
"CRC for DS18S20 test",
"",
"",
"",
"I checked this prediction against the MPLAB sequence and they agreed.
\
0x 8c 1 0 0 0 1 1 0 0
\
0x 46 0 1 0 0 0 1 1 0
\
0x af 1 0 1 0 1 1 1 1
\
0x db 1 1 0 1 1 0 1 1
\
0x 6d 0 1 1 0 1 1 0 1
\
0x ba 1 0 1 1 1 0 1 0
\
0x d1 1 1 0 1 0 0 0 1
\
0x e4 1 1 1 0 0 1 0 0
\
0x fe 1 1 1 1 1 1 1 0
\
0x f3 1 1 1 1 0 0 1 1
\
0x 79 0 1 1 1 1 0 0 1
\
0x 3c 0 0 1 1 1 1 0 0
\
0x 92 1 0 0 1 0 0 1 0
\
0x c5 1 1 0 0 0 1 0 1
\
0x 62 0 1 1 0 0 0 1 0
\
0x bd 1 0 1 1 1 1 0 1
\
0x 5e 0 1 0 1 1 1 1 0
\
0x a3 1 0 1 0 0 0 1 1
\
0x 51 0 1 0 1 0 0 0 1
\
0x 28 0 0 1 0 1 0 0 0
\
0x 98 1 0 0 1 1 0 0 0
\
0x c0 1 1 0 0 0 0 0 0
\
0x ec 1 1 1 0 1 1 0 0
\
0x fa 1 1 1 1 1 0 1 0
\
0x f1 1 1 1 1 0 0 0 1
\
0x 78 0 1 1 1 1 0 0 0
\
0x b0 1 0 1 1 0 0 0 0
\
0x d4 1 1 0 1 0 1 0 0
\
0x e6 1 1 1 0 0 1 1 0
\
0x ff 1 1 1 1 1 1 1 1
\
0x 7f 0 1 1 1 1 1 1 1
\
0x 3f 0 0 1 1 1 1 1 1
\
"
);
gbF( // guestbook.pl
"Doug Rice","doug.h.rice@btinternet.com","Mon, 30 Mar 2009 08:22:19 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"EE routines for Prog Memory",
"",
"",
"",
"
\
;--------------------------------------------------------------------------
\
; Sec 5.10 EEprom Routines for 16F88
\
;--------------------------------------------------------------------------
\
\
\
EEsetProgAddrH
\
; set up EEADH
\
banksel EEADRH
\
movwf EEADRH
\
return
\
\
EEsetProgAddrL
\
EEsetAddr
\
banksel EEADR
\
movwf EEADR
\
return
\
\
EEread
\
; w contains address
\
banksel EEADR
\
movwf EEADR
\
\
banksel EECON1
\
ifdef EEPGD
\
bcf EECON1, EEPGD; Point to Data memory
\
endif
\
\
EEprogReadCommon
\
\
bsf EECON1,RD
\
BANKSEL EEDATA ; Select Bank of EEDATA
\
movfw EEDATA
\
banksel 0
\
return
\
\
\
EEprogRead
\
; Assumes addres is set up
\
\
banksel EECON1
\
ifdef EEPGD
\
bsf EECON1, EEPGD; Point to Prog memory
\
endif
\
goto EEprogReadCommon
\
\
\
\
\
EEprogWrite ; blocking, EEADR and EEDATA set up.
\
banksel EECON1
\
bcf EECON1,WREN ; disable EROM
\
\
ifdef FREE
\
BCF EECON1, FREE ; Disable Row Erase operation
\
endif
\
\
ifdef EEPGD
\
bsf EECON1, EEPGD ; Point to PROG
\
endif
\
\
goto EEwrtCommon
\
\
EEprogErase ; blocking, EEADR and EEDATA set up.
\
banksel EECON1
\
bcf EECON1,WREN ; disable EROM
\
\
ifdef FREE
\
BSF EECON1, FREE ; Enable Row Erase operation
\
endif
\
\
ifdef EEPGD
\
bsf EECON1, EEPGD ; Point to PROG
\
endif
\
\
goto EEwrtCommon
\
\
EEwrt ; blocking, EEADR and EEDATA set up.
\
\
banksel EEDATA
\
movwf EEDATA
\
;bcf PIR1,EEIF
\
\
banksel EECON1
\
bcf EECON1,WREN ; disable EROM
\
\
\
ifdef FREE
\
BCF EECON1, FREE ; Enable Row Erase operation
\
endif
\
\
ifdef EEPGD
\
bcf EECON1, EEPGD ; Point to DATA
\
endif
\
\
EEwrtCommon
\
bsf EECON1,WREN
\
bcf INTCON,GIE
\
movlw 0x55
\
movwf EECON2
\
movlw 0xAA
\
movwf EECON2
\
bsf EECON1,WR
\
BsF INTCON,GIE
\
\
; Now wait for EEwrt to finish write
\
EEwaitForWrt ; block until EEPROM write has finished.
\
bcf EECON1,WREN ; disable EROM
\
\
; NOTE:- I have commented out the goto and the write to eeprom started to work
\
\
; btfsc EECON1,WR
\
; goto EEwaitForWrt
\
\
;bcf EECON1,EEIF ; EEPROM finished
\
\
banksel 0
\
return
\
\
;
\
; EEPROM for program
\
; a - setaddr
\
; e - erase32 words at address.
\
; < - read word and increment
\
; > - write word and increment, needs to write 4 butes at once.
\
;
\
\
\
EEincProgAddr
\
; banksel RSeeaddrl
\
; incfsz RSeeaddrl
\
; goto $+2
\
; incfsz RSeeaddrh
\
\
banksel EEADR
\
incfsz EEADR
\
return
\
banksel EEADRH
\
incf EEADRH,f
\
return
\
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Sun, 5 Apr 2009 07:53:41 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"; Binary-to-BCD",
"",
"",
"",
";
\
;********************************************************************
\
; Binary To BCD Conversion Routine
\
; This routine converts a 16 Bit binary Number to a 5 Digit
\
; This routine converts a 24 Bit binary Number to an 8 Digit
\
; BCD Number. This routine is useful since PIC16C55 & PIC16C57
\
; have two 8 bit ports and one 4 bit port ( total of 5 BCD digits)
\
;
\
; The 16 bit binary number is input in locations H_byte and
\
; L_byte with the high byte in H_byte.
\
; The 5 digit BCD number is returned in R0, R1 and R2 with R0
\
; containing the MSD in its right most nibble.
\
;
\
; Performance : 16 bit 24 bit
\
; Program Memory : 35
\
; Clock Cycles : 885 2100 approx
\
;
\
; This file is based on the file BCD.ASM found on www.crownhill.co.uk
\
;
\
;*******************************************************************;
\
;
\
;
\
\
B2_BCD bcf STATUS,0 ; clear the carry bit
\
movlw .32 ; number of bits to convert.
\
movwf BCDcount
\
clrf BCDop0
\
clrf BCDop1
\
clrf BCDop2
\
clrf BCDop3
\
clrf BCDop4
\
\
BCDloop16
\
bcf STATUS,C
\
btfsc BCDip3,7
\
bsf STATUS,C
\
rlf BCDip0
\
rlf BCDip1
\
rlf BCDip2
\
rlf BCDip3
\
\
rlf BCDop0
\
rlf BCDop1
\
rlf BCDop2
\
rlf BCDop3
\
rlf BCDop4
\
;
\
decfsz BCDcount
\
goto BCDadjDEC
\
RETLW 0
\
;
\
BCDadjDEC
\
; movlw BCDop4
\
; movwf FSR
\
; call BCDadjBCD
\
\
movlw BCDop0
\
movwf FSR
\
call BCDadjBCD
\
\
movlw BCDop1
\
movwf FSR
\
call BCDadjBCD
\
;
\
movlw BCDop2
\
movwf FSR
\
call BCDadjBCD
\
;
\
movlw BCDop3
\
movwf FSR
\
call BCDadjBCD
\
;
\
goto BCDloop16
\
;
\
BCDadjBCD
\
movlw 0x03
\
addwf 0,W
\
movwf BCDtemp
\
btfsc BCDtemp,3 ; test if result > 7
\
movwf 0
\
movlw 0x30
\
addwf 0,W
\
movwf BCDtemp
\
btfsc BCDtemp,7 ; test if result > 7
\
movwf 0 ; save as MSD
\
RETLW 0
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Sun, 5 Apr 2009 07:56:08 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"; Binary-to-BCD 2",
"",
"",
"",
";----------------------------------------------------------------------;
\
; Change binary nbr in bin to BCD ;
\
;----------------------------------------------------------------------;
\
binary_to_bcd ; by Scott Dattalo
\
clrf hundreds
\
swapf bin, W
\
addwf bin, W
\
andlw B\'00001111\'
\
skpndc
\
addlw 0x16
\
skpndc
\
addlw 0x06
\
addlw 0x06
\
skpdc
\
addlw -0x06
\
btfsc bin,4
\
addlw 0x16 - 1 + 0x6
\
skpdc
\
addlw -0x06
\
btfsc bin,5
\
addlw 0x30
\
btfsc bin, 6
\
addlw 0x60
\
btfsc bin,7
\
addlw 0x20
\
addlw 0x60
\
rlf hundreds, f
\
btfss hundreds, 0
\
addlw -0x60
\
movwf tens_and_ones
\
btfsc bin,7
\
incf hundreds, f
\
return
\
\
\
\
\
displayAsDecimal
\
movlw \' \'
\
call RStxChar
\
\
rrf TEMP_MSB, f
\
btfsc STATUS, C
\
goto dispnega
\
movlw \"+\"
\
call SendCHAR
\
goto showlsb
\
dispnega:
\
movlw \"-\"
\
call SendCHAR
\
goto showlsb
\
\
\
\
showlsb:
\
bcf STATUS, C
\
rrf TEMP_LSB, f
\
btfsc STATUS, C
\
goto got5
\
movf TEMP_LSB,0
\
CALL DispDec ; display the value
\
movlw \".\"
\
call SendCHAR
\
movlw \"0\"
\
call SendCHAR
\
; CALL msec250
\
GOTO displayrest
\
got5:
\
movf TEMP_LSB,0
\
CALL DispDec ; display the value
\
movlw \".\"
\
call SendCHAR
\
movlw \"5\"
\
call SendCHAR
\
displayrest:
\
\
\
movlw \"C\"
\
call SendCHAR
\
return
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Mon, 6 Apr 2009 07:30:36 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"; Binary-to-BCD 3",
"",
"",
"",
"http://www.dougrice.plus.com/dev/BCDADD3.ASM"
);
gbF( // guestbook.pl
"Doug Rice","doug.h.rice@btinternet.com","Sun, 10 May 2009 07:44:59 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"Polling 8 bits to find edges",
"",
"",
"",
"Poll() looks for an edge and sets bits in eventsUp,eventsDn,eventsAny. You treat these like the PIR in the 16FXX chips and reset the bit in your service routine.
\
\
\
call poll(PORTB)
\
\
#include
\
#include
\
int IPlast = 0,
\
IPnew = 0,
\
edgeUp = 0, edgeDn = 0, edgeAny = 0,
\
eventsUp = 0, eventsDn = 0, eventsAny = 0;
\
\
\
// call using poll(PORTB)
\
\
int poll( newip ){
\
\
; read PORT and apply for 8 bits at a time with this code
\
;
\
; For each bit
\
; IPlast -------______-----
\
; IPnew ------______------
\
;
\
; edgeUp ____________-_____
\
; edgeDn ______-___________
\
; edgeAny______-_____-_____
\
;
\
\
; eventUp ____________-----
\
; eventDn ______-----------
\
; eventAny______-----------
\
;
\
; \"ISR\" routine has to see if any events are waiting to be serviced.
\
;
\
;
\
IPlast = IPnew;
\
IPnew = newip;
\
edgeUp = ~IPlast & IPnew ;
\
edgeDn = IPlast & ~IPnew ;
\
edgeAny = IPlast ^ IPnew ;
\
\
eventsUp = eventsUp | edgeUp;
\
eventsDn = eventsDn | edgeDn;
\
eventsAny = eventsAny | edgeAny;
\
printf( \" %x %x | %x %x %x | %x %x %x \\n\", IPlast, IPnew, edgeUp, edgeDn, edgeAny, eventsUp, eventsDn, eventsAny );
\
}
\
\
\
int main(int argc, char *argv[])
\
{
\
printf(\"\\n try sampling some inputs\");
\
poll(0);
\
poll(0);
\
poll(0);
\
poll(4);
\
poll(4);
\
poll(5);
\
poll(1);
\
poll(0);
\
poll(0);
\
\
system(\"PAUSE\");
\
return 0;
\
}
\
\
/*
\
Expected outputs
\
try sampling some inputs
\
0 0 | 0 0 0 | 0 0 0
\
0 0 | 0 0 0 | 0 0 0
\
0 0 | 0 0 0 | 0 0 0
\
0 4 | 4 0 4 | 4 0 4
\
4 4 | 0 0 0 | 4 0 4
\
4 5 | 1 0 1 | 5 0 5
\
5 1 | 0 4 4 | 5 4 5
\
1 0 | 0 1 1 | 5 5 5
\
0 0 | 0 0 0 | 5 5 5
\
0 0 | 0 0 0 | 5 5 5
\
\
Press any key to continue . . .
\
*/
\
\
poll() also works for timer counters, to find edges.
\
\
\
see routine pollForCondition at:
\
\
http://www.dougrice.plus.com/hp/Theory/bc001_asm.txt
\
\
and
\
http://www.dougrice.plus.com/hp/Theory/Index.htm
\
\
"
);
gbF( // guestbook.pl
"doug","","Thu, 21 May 2009 08:32:52 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"perl - time",
"",
"",
"",
"#
\
\
# If you are getting Interal server error messages,
\
# use the code below to pipe script errors to the browser
\
use CGI::Carp ( fatalsToBrowser);
\
use IO::Socket;
\
\
#&setDate();
\
\
# print `notepad adsl.log`;
\
\
@t = localtime();
\
\
print \" $t[1] . $t[2] . $t[3] . $t[4] . \\n\";
\
\
sleep( 3 );
\
\
print \".. slept 10 \\n\";
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Fri, 22 May 2009 07:33:54 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"perl - time",
"",
"",
"",
"#
\
# waittill - waits till time on command line
\
#
\
# wt.pl h m
\
#
\
\
$end = $ARGV[ 0 ] * 60 + $ARGV[ 1 ];
\
\
@t = localtime();
\
$now = $t[2] * 60 + $t[1];
\
\
print \" waiting until: \" . $end . \" its now:\" . $ now . \"\\n\";
\
\
while ( $end > $now) {
\
sleep( 10 );
\
@t = localtime();
\
$now = $t[2] * 60 + $t[1];
\
print \" waiting until: \" . $ARGV[0] . \":\" . $ARGV[1] . \" its now:\" . $t[2] . \":\" . $t[1] . \"\\n\" ;
\
\
print `dir *`;
\
}
\
\
print \".. slept 10 \\n\";
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Fri, 22 May 2009 07:40:59 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"perl - time",
"",
"",
"",
"#
\
# waittill - waits till time on command line
\
#
\
# wt.pl h m
\
#
\
\
$end = $ARGV[ 0 ] * 60 + $ARGV[ 1 ];
\
\
@t = localtime();
\
$now = $t[2] * 60 + $t[1];
\
\
print \" waiting until: \" . $end . \" its now:\" . $ now . \"\\n\";
\
\
while ( $end > $now) {
\
sleep( 10 );
\
@t = localtime();
\
$now = $t[2] * 60 + $t[1];
\
print \" waiting until: \" . $ARGV[0] . \":\" . $ARGV[1] . \" its now:\" . $t[2] . \":\" . $t[1] . \"\\n\" ;
\
\
print `dir *`;
\
\
#!/usr/bin/perl
\
\
$pid = fork();
\
if( $pid == 0 ){
\
print \"This is child process\\n\";
\
print \"Chile process is existing\\n\";
\
\
print `dir *`;
\
\
exit 0;
\
}
\
print \"This is parent process and child ID is $pid\\n\";
\
\
}
\
\
print \".. finished\";
\
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Sat, 23 May 2009 08:03:52 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"perl - start two notepads",
"",
"",
"",
"#
\
#
\
#
\
#
\
#
\
# print `dir *`;
\
\
$pid = fork();
\
\
if( $pid == 0 ){
\
`notepad wt2.pl`;
\
print `dir *` . \"\\n\" ;
\
print \"This is child process\\n\";
\
print \"Child process is exiting\\n\";
\
exit 0;
\
}
\
\
$pid = fork();
\
if( $pid == 0 ){
\
`notepad wt.pl`;
\
print \"This is child process\\n\";
\
print `cd` . \"\\n\";
\
print \"Child process is exiting\\n\";
\
exit 0;
\
}
\
\
print \"finishing... \\n\";
\
\
exit 0;
\
"
);
gbF( // guestbook.pl
"doug","doug.h.rice@btinternet.com","Sat, 23 May 2009 08:32:32 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"perl - start two notepads",
"",
"",
"",
"#
\
# This per script forks two notepads on PC and only ends when both children end.
\
#
\
#
\
#
\
# print `dir *`;
\
\
$cnt = 0;
\
\
\
$pid = fork();
\
if( $pid == 0 ){
\
#
\
# child
\
#
\
\
# open notepad and block
\
`notepad wt2.pl`;
\
\
# now print out dir
\
print `dir *` . \"\\n\" ;
\
print \"This is child process\\n\";
\
print \"Child process is exiting\\n\";
\
exit 0;
\
\
\
} else {
\
#
\
# parent
\
#
\
while($cnt < 5){
\
sleep(1);
\
print \"I am $cnt ...\\n\";
\
$cnt = $cnt+1
\
}
\
print \"finishing... \\n\";
\
\
$pid = fork();
\
if( $pid == 0 ){
\
#
\
# child
\
#
\
\
# open notepad and block
\
`notepad wt.pl`;
\
print \"This is child process\\n\";
\
print `cd` . \"\\n\";
\
print \"Child process is exiting\\n\";
\
exit 0;
\
} else {
\
#
\
# parent
\
#
\
\
while($cnt < 15){
\
sleep(1);
\
print \"I was $cnt ...\\n\";
\
$cnt = $cnt+1
\
}
\
print \"finishing... \\n\";
\
exit 0;
\
}
\
exit 0;
\
}
\
"
);
gbF( // guestbook.pl
"doug","","Tue, 26 May 2009 22:09:24 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"perl and bash",
"",
"",
"",
"#
\
#
\
#
\
#
\
$temp = `date +%y%m%d`;
\
$cnt = 0;
\
\
while( $cnt <10) {
\
printf( \"hello $temp $cnt -- $ARGV[0] -- $ARGV[1] -- $ARGV[2] --- \\n\" );
\
$cnt ++;
\
sleep( 5 )
\
}
\
printf( \"end\\n\");
\
#
\
# usage: bash tt.sh
\
#
\
#
\
#
\
perl tt.pl $0 $1 1 &
\
perl tt.pl $0 $1 2 &
\
perl tt.pl $0 $1 3 &
\
perl tt.pl $0 $1 4 &
\
perl tt.pl $0 $1 5 &
\
perl tt.pl $0 $1 6 &
\
jobs
\
wait
\
echo \"sh ended ... \"
\
"
);
gbF( // guestbook.pl
"doug","","Wed, 27 May 2009 08:31:09 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"bash - date",
"",
"",
"",
"#! /var/bin/bash
\
\
echo \"hello doug\"
\
#
\
# create new directory based on data
\
#
\
dstr=`date +cg015_%y%m%d`
\
\
echo $dstr
\
mkdir $dstr
\
"
);
gbF( // guestbook.pl
"doug","","Mon, 22 Jun 2009 22:21:18 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"gawk - server",
"",
"",
"",
"#
\
#
\
# Usage: gawk -f gws.awk
\
#
\
#
\
\
# Server
\
BEGIN {
\
print strftime() |& \"/inet/tcp/8888/0/0\"
\
system(\"sleep 3\")
\
print strftime() |& \"/inet/tcp/8888/0/0\"
\
\
\
system(\"sleep 3\")
\
print strftime() |& \"/inet/tcp/8888/0/0\"
\
system(\"sleep 3\")
\
print strftime() |& \"/inet/tcp/8888/0/0\"
\
system(\"sleep 3\")
\
print strftime() |& \"/inet/tcp/8888/0/0\"
\
system(\"sleep 3\")
\
print strftime() |& \"/inet/tcp/8888/0/0\"
\
system(\"sleep 3\")
\
print strftime() |& \"/inet/tcp/8888/0/0\"
\
system(\"sleep 3\")
\
print strftime() |& \"/inet/tcp/8888/0/0\"
\
close( \"/inet/tcp/8888/0/0\" )
\
}
\
\
"
);
gbF( // guestbook.pl
"doug","","Mon, 22 Jun 2009 22:24:11 UTC+0100","212.56.108.219 | dougrice.plus.com ",
"gawk - client",
"",
"",
"",
"#
\
#
\
# Usage: gawk -f gwc.awk
\
#
\
#
\
#client
\
BEGIN {
\
NetService = \"/inet/tcp/0/localhost/8888\"
\
# \"/inet/tcp/0/localhost/8888\" |& getline
\
\
# NetService |& getline
\
\
while( (NetService |& getline) > 0 ){
\
print $0
\
}
\
close(NetService)
\
print \"Ended...\"
\
}
\
"
);