mikroBasic for PIC<\/a>.<\/p>\n
\nprogram spi_sniff<\/p>\n
' Set up the FIFO for data going out the serial port.
\nconst FIFOSIZE as byte = 40<\/p>\n
dim fifohead, fifotail as byte
\ndim fifoempty, fifofull as boolean
\ndim fifo as byte[FIFOSIZE]<\/p>\n
' fifodatawaiting()
\nsub function fifodatawaiting as boolean
\n if fifoempty then
\n result = false
\n else
\n result = true
\n end if
\nend sub<\/p>\n
' writefifo()
\nsub procedure writefifo
\n dim j as byte
\n j = 0 ' If the buffer is empty, read 0.
\n if fifoempty = false then ' As long as the buffer isn't empty...
\n j = fifo[fifohead] ' Read in the contents of the head of the FIFO.
\n fifo[fifohead] = 0 ' Set the previously read byte to 0. Destructive read.
\n fifofull = false ' Since we've read data, the buffer can no longer be full.
\n inc(fifohead) ' Move the head pointer to the next place.
\n if fifohead = FIFOSIZE then ' If the head is now greater than buffer size,
\n fifohead = 0 ' move it back to place 0.
\n end if
\n if fifohead = fifotail then ' If the head and tail are in the same place,
\n fifoempty = true ' the buffer can be considered to be empty.
\n end if
\n end if
\n usart_write(j) ' Write the FIFO out the serial port.
\nend sub<\/p>\n
' interrupt()
\n'sub procedure interrupt
\n'end sub<\/p>\n
main:<\/p>\n
memset(@fifo,0,FIFOSIZE) ' Fill the FIFO with zeros.
\nfifohead = 0 ' Head is at 0.
\nfifotail = 0 ' Tail is at 0.
\nfifoempty = true ' FIFO is empty.
\nfifofull = false ' FIFO is not full.
\nusart_init(19200) ' Set the USART to 19.2K
\nspi_init_advanced(slave_ss_dis,data_sample_middle,clk_idle_low,low_2_high)<\/p>\n
while true
\n while fifodatawaiting
\n usart_write($FF)
\n usart_write($55)
\n writefifo
\n wend
\nwend
\nend.<\/tt><\/p>\n","protected":false},"excerpt":{"rendered":"
Well, I still haven’t written the bits to fire an interrupt when the SPI buffer fills up, so that interrupt() can write its contents (a single byte) into the FIFO, nor have I written the bits to actually fill the FIFO. Still, it’s not bad for less than an hour’s work while on the conference\u2026<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6,11,34],"tags":[],"class_list":["post-8910","post","type-post","status-publish","format-standard","hentry","category-electronics","category-making-things","category-moved-from-livejournal"],"_links":{"self":[{"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/posts\/8910","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/comments?post=8910"}],"version-history":[{"count":1,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/posts\/8910\/revisions"}],"predecessor-version":[{"id":12706,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/posts\/8910\/revisions\/12706"}],"wp:attachment":[{"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/media?parent=8910"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/categories?post=8910"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/nuxx.net\/blog\/wp-json\/wp\/v2\/tags?post=8910"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}