detpic/i2clib.asm

   1 ;######################################################################
   2 ; i2clib.inc - I2C LIBRARY - IMPLEMENTATION
   3 ;
   4 ; See i2clib.asm for documentation of the interface to this file.
   5
   6   include /usr/share/gputils/header/p18f458.inc
   7   radix dec
   8   include ../iwjpictest/insn-aliases.inc
   9
  10   include ../iwjpictest/clockvaries.inc
  11   include panic.inc
  12   include morse+auto.inc
  13   include i2clib.incm
  14
  15 ;======================================================================
  16 ; NOTATION
  17
  18 ; Naming conventions
  19 ;
  20 ;  m_...                        routines used by master only
  21 ;  s_...                        routines used by slave only
  22 ;  <any other name>             routines used by both
  23 ;
  24 ;  [ms]_event_...               event handler, branched to from interrupt
  25 ;                                handler; conditions are as in the name;
  26 ;                                should `return' at end which will return
  27 ;                                from i2c[ms]_interrupt
  28 ;
  29 ;  [sm]_event_bad[_...]         event handler which panics; called when i2c
  30 ;                                controller did something unexpected
  31 ;
  32 ;  m_improper_...               panics; called when main program
  33 ;                                does something wrong
  34 ;
  35 ;  [ms]_<anything else>         routines or labels of some other kind
  36
  37 ; Whenever flow does not pass past the end of some code, we
  38 ; have a boundary `;----------', and when flow passes past
  39 ; an important label we sometimes mark it specially with `;...',
  40 ; like this:
  41 ;
  42 ;               ;----------
  43 ;               m_event_spong
  44 ;                               bt_f_if0 st, st_something
  45 ;                               bra     m_event_bad
  46 ;               ;...
  47 ;
  48 ;               m_event_several_including_spong
  49 ;                               bs_f    st, st_sponging
  50 ;                               bra     metasyntacticing
  51 ;
  52 ;               ;----------
  53 ;               m_event_wombat
  54
  55 ;============================================================
  56 ; COMMON ADMINISTRATIVE ROUTINES and VARIABLES
  57
  58                 udata_acs
  59
  60 sspstat         res     1       ; master only
  61 sspcon1         res     1       ; master only
  62 sspcon2         res     1       ; master only
  63 slave           res     1       ; master only
  64 slave_next      res     1       ; master only
  65
  66 st              res     1
  67 st_orig         res     1
  68
  69 ; st is a bitmask, bit set in visible states:
  70                   ;    master
  71 st_starting     equ 7 ; Writing-Setup?, Reading-Busy?
  72 st_addressing   equ 6 ; Writing-Setup?, Reading-Busy?
  73 st_writing      equ 5 ; Writing-*, Stopping(after Reading-Wait:write_start)
  74 st_subsequent   equ 4 ; Writing?
  75 st_reading      equ 3 ; Reading-*
  76 st_awaiting     equ 2 ; Reading-Wait
  77 st_acking       equ 1 ; Reading-Busy?, Stopping(from read)
  78 st_stopping     equ 0 ; Stopping
  79                   ; ...? means not always set in that state
  80
  81                 code
  82
  83 ;----------
  84 slave2addr
  85 ; computes slave address in form suitable for use in i2c controller
  86 ; actual i2c slave address is (slave number) + 0b0001000
  87 ;       W               slave number            i2c address * 2
  88                 add_lw  b'0001000'
  89                 rlc_w
  90                 return
  91
  92 ;----------
  93 improper_read_done_data
  94                 i2cpanic morse_SD
  95
  96 ;======================================================================
  97 ; MASTER
  98
  99 ;----------
 100 i2cm_init
 101                 mov_lw  i2c_sspadd
 102                 mov_wf  SSPADD
 103                 clr_f   st
 104                 clr_f   slave_next
 105                 mov_lw  0x08    ; !SSPEN, Master mode
 106                 mov_wf  SSPCON1
 107                 clr_f   SSPCON2 ; nothing going
 108                 mov_lw  0x80    ; SMP(noslew), !CKE(!smbus)
 109                 mov_wf  SSPSTAT
 110                 bc_f    IPR1, SSPIP ; low priority
 111                 bra     init_enable
 112
 113 ;----------
 114 i2cm_interrupt
 115                 bt_f_if0 PIR1, SSPIF
 116                 return
 117                 ; We have an interrupt:
 118 ;...
 119 i2cm_interrupt_definite
 120                 mov_ff  SSPSTAT, sspstat
 121                 mov_ff  SSPCON1, sspcon1
 122                 mov_ff  SSPCON2, sspcon2
 123
 124                 bc_f    PIR1, SSPIF
 125
 126                 mov_lw  (1<<WCOL) | (1<<SSPOV)
 127                 and_wfw sspcon1
 128                 bra_nz  m_event_bad
 129
 130                 ; No ?  Well, then the I2C should be idle now:
 131                 mov_fw  sspcon2
 132                 and_lw  ~((1<<ACKSTAT) | (1<<ACKDT)) ; those two are ok if set
 133                 bra_nz  m_event_bad
 134                 ; OK...
 135
 136                 bt_f_if1 sspstat, R_W
 137                 bra_nz  m_event_bad
 138
 139                 bt_f_if1 st, st_stopping
 140                 bra     m_event_done_stopping
 141
 142                 bt_f_if1 st, st_starting
 143                 bra     m_event_done_starting
 144                 ; not just done SEN
 145
 146                 bt_f_if1 st, st_addressing
 147                 bra     m_event_done_addressing
 148
 149                 bt_f_if1 st, st_acking
 150                 bra     m_event_done_acking
 151
 152                 bt_f_if1 st, st_writing
 153                 bra     m_event_done_writing
 154
 155                 bt_f_if1 st, st_reading
 156                 bra     m_event_done_reading
 157
 158 m_event_bad
 159                 i2cpanic morse_SM
 160
 161 ;========================================
 162 ; MASTER - STARTING, ADDRESSING, STOPPING
 163
 164 ;----------
 165 m_start
 166 ;       st                      checked for busyness    correct
 167 ;       st_reading/writing      one set, one clear      unchanged
 168 ;       st_starting             clear                   set
 169 ;       W                       slave number            any
 170 ;       slave                   any                     slave_number
 171 ; expects to return directly to main program (caller)
 172                 mov_wf  slave
 173                 bs_f    SSPCON2, SEN
 174 m_start_or_restart
 175                 and_lw  ~31
 176                 bra_nz  m_improper_slave
 177                 bs_f    st, st_starting
 178                 tst_f_ifnz slave
 179                 return
 180                 ; oops:
 181 ;...
 182
 183 m_improper_slave
 184 ;       slave                   slave number
 185                 i2cpanic morse_SN
 186
 187
 188 ;----------
 189 m_event_done_starting
 190                 mov_fw  slave
 191                 rcall   slave2addr
 192
 193                 bt_f_if1 st, st_reading
 194                 bs_w    0       ; address bottom bit means read
 195
 196                 mov_wf  SSPBUF
 197                 bc_f    st, st_starting
 198                 bs_f    st, st_addressing
 199                 return
 200
 201 ;----------
 202 m_event_done_addressing
 203                 bt_f_if1 sspcon2, ACKSTAT
 204                 bra     m_bad_address_ack
 205                 ; OK, we got ack.
 206
 207                 bc_f    st, st_addressing
 208                 bt_f_if1 st, st_reading
 209                 bra     m_event_done_addressing_read
 210                 bra     m_event_done_addressing_write
 211
 212 ;----------
 213 m_stop
 214 ;       st_stopping                     clear           set
 215 ;       st_reading/acking/writing       any             unchanged
 216 ; expects to return directly to main program or to end interrupt handler
 217                 bs_f    st, st_stopping
 218                 bs_f    SSPCON2, PEN
 219                 return
 220
 221 ;----------
 222 m_event_done_stopping
 223                 clr_f   st
 224                 goto    i2cmu_done
 225
 226 ;----------
 227 m_bad_address_ack
 228                 i2cpanic morse_SK
 229
 230 ;========================================
 231 ; MASTER - WRITING
 232
 233 ;----------
 234 i2cm_write_start
 235 ;                               At call         On return
 236 ;   State                   Idle/Reading-Wait   Writing-Setup
 237 ;   W                           slave number    any
 238  mov_wf xdebug+3
 239  mov_ff st, xdebug+4
 240  set_f xdebug+5
 241                 tst_f_ifnz st
 242                 bra     m_write_start_busy
 243
 244                 bs_f    st, st_writing
 245                 bra     m_start
 246
 247 ;----------
 248 m_event_done_writing
 249                 ; Did slave ack our byte ?  It had better have done !
 250                 bt_f_if1 sspcon2, ACKSTAT
 251                 bra     m_event_bad
 252
 253                 bs_f    st, st_subsequent
 254 ;...
 255
 256 m_event_done_addressing_write
 257 ;       ACKSTAT         checked
 258 ;       st_addressing   cleared
 259                 call    i2cmu_write_next_byte
 260                 bra_z   m_event_write_mustfinish
 261                 ; OK, we have the next byte:
 262
 263                 mov_wf  SSPBUF
 264                 return
 265
 266 ;----------
 267 m_event_write_mustfinish
 268                 bt_f_if0 st, st_subsequent
 269                 bra     m_improper_write_finish
 270
 271                 bra     m_stop
 272
 273 ;----------
 274 m_improper_write_finish
 275                 i2cpanic morse_SF
 276
 277 ;========================================
 278 ; MASTER - READING
 279
 280 ;----------
 281 i2cm_read_start
 282 ;                               At call         On return
 283 ;       State                   Idle            Reading-Busy
 284 ;       W                       slave number    any
 285                 tst_f_ifnz st
 286                 bra     m_read_start_busy
 287
 288                 bs_f    st, st_reading
 289                 bra     m_start
 290
 291 ;----------
 292 m_write_start_busy
 293                 bs_f    st, st_writing
 294 m_read_start_busy
 295                 bt_f_if1 st, st_awaiting
 296                 bra     m_address_different
 297                 i2cpanic morse_SB
 298
 299 ;----------
 300 m_address_different
 301 ; Main program would like to address another slave for reading.
 302                 mov_wf  slave_next
 303                 tst_f_ifnz slave_next
 304                 bra     i2cm_read_done
 305                 panic   morse_SO
 306
 307 ;----------
 308 m_event_done_addressing_read
 309 m_event_done_acking_readmore
 310 ;       ACKSTAT                 checked
 311 ;       st_addressing/acking    cleared
 312                 bs_f    SSPCON2, RCEN
 313                 return
 314
 315 ;----------
 316 m_event_done_reading
 317                 bt_f_if0 sspstat, BF
 318                 bra     m_event_bad
 319
 320                 mov_fw  SSPBUF
 321
 322                 bs_f    st, st_awaiting
 323                 goto    i2cmu_read_got_byte
 324
 325 ;----------
 326 i2cm_read_another
 327 ;   State                       Reading-Wait    Reading-Busy
 328                 bt_f_if0 st, st_awaiting
 329                 bra     m_improper_read_another
 330                 ; OK, we're fine to read another:
 331 ;...
 332
 333 m_read_ack
 334 ;       st_reading              1 iff not done          unchanged
 335 ;       st_awaiting             still set               cleared
 336 ;       st_acking               clear                   set
 337 ; expects to return directly to main program or to end interrupt handler
 338                 bc_f    st, st_awaiting
 339                 bs_f    st, st_acking
 340                 bc_f    SSPCON2, ACKDT ; ACKDT=0 means to acknowledge
 341                 bt_f_if0 st, st_reading
 342                 bs_f    SSPCON2, ACKDT ; don't ack last byte
 343                 bs_f    SSPCON2, ACKEN
 344                 return
 345
 346 ;----------
 347 i2cm_read_done
 348 ;   State                       Reading-Wait    Stopping
 349                 bc_f    st, st_reading
 350
 351                 bt_f_if0 st, st_awaiting
 352                 bra     improper_read_done_data
 353                 ; OK:
 354
 355                 bra     m_read_ack
 356
 357 ;----------
 358 m_event_done_acking
 359                 bc_f    st, st_acking
 360
 361                 bt_f_if1 st, st_reading
 362                 bra     m_event_done_acking_readmore
 363
 364                 mov_fw  slave_next
 365                 bra_z   m_stop
 366 ; ok, we want to read another:
 367  mov_wf xdebug+2
 368                 mov_wf  slave
 369                 clr_f   slave_next
 370                 bt_f_if0 st, st_writing ; because of i2cm_write_start ?
 371                 bs_f    st, st_reading ; no, then we will want to read
 372                 bs_f    SSPCON2, RSEN
 373  set_f xdebug+0
 374                 bra     m_start_or_restart
 375
 376 ;----------
 377 m_improper_read_another
 378                 i2cpanic morse_SA
 379
 380 ;======================================================================
 381 ; SLAVE
 382
 383 ;----------
 384 i2cs_init
 385 ;       W               slave number            undefined
 386                 rcall   slave2addr
 387                 mov_wf  SSPADD
 388                 clr_f   st
 389                 mov_lw  0x16 ; !SSPEN, CKP(release), I2C 7-bit slave no-SP-int
 390                 mov_wf  SSPCON1
 391                 mov_lw  0x01 ; !GCEN, SEN
 392                 mov_wf  SSPCON2
 393                 mov_lw  0x80 ; SMP(noslew), !CKE(!smbus)
 394                 mov_wf  SSPSTAT
 395                 bs_f    IPR1, SSPIP ; high priority
 396 init_enable
 397 ; Actually engages the I2C controller, which must already have
 398 ; been set up (all but SSPEN):
 399 ;  SSPADD,SSPCON1,SSPCON2       configured correctly    unchanged
 400 ;       SSPSTAT                 configured correctly    unchanged, except:
 401 ;       SSPSTAT<SSPEN>          0 (disabled)            1 (enabled)
 402 ;       SSPIE                   0 (disabled)            1 (enabled)
 403 ;       SSPIF                   configured correctly    unchanged
 404 ;       TRISB<1,0>              any                     configured for I2C
 405 ;       SSPIP                   any                     configured correctly
 406 ;       GIEL                    0 (disabled)            0 (disabled)
 407 ;       ssp* shadows            any                     all bits set
 408                 set_f   sspstat
 409                 set_f   sspcon1
 410                 set_f   sspcon2
 411                 set_f   st_orig
 412                 bs_f    TRISC, 3
 413                 bs_f    TRISC, 4
 414                 bs_f    SSPCON1, SSPEN
 415                 bs_f    PIE1, SSPIE
 416                 return
 417
 418 ;========================================
 419 ; SLAVE
 420 ;
 421 ; In general, we figure out our state and then see what kind of events
 422 ; we were expecting.  Bits we want to check:
 423 ;       80    40    20    10            08    04    02    01
 424 ;       SMP   CKE   D_A   P             S     R_W   UA    BF
 425 ;       set   clr   data? stop          start read? clr   full?
 426 ; (we don't usually mention SMP, CKE and UA below)
 427 ;
 428 ; Labels of the form s_event_* are branches of the interrupt
 429 ; handler and are supposed to finish with return.
 430
 431 ;----------
 432 ; Macros: chkvals_start and chkval
 433
 434 chkvals_start macro what
 435                 mov_fw  what
 436                 endm
 437
 438 chkval macro lastval, value, label
 439                 xor_lw  value ^ lastval
 440                 bra_z   label
 441                 endm
 442
 443 near_i2csu code
 444
 445 ;----------
 446 s_write_slurpbyte macro
 447 ;       W               any                     byte from master
 448 ;       i2c controller  waiting due to SEN etc  continuing with next byte
 449                 mov_fw  SSPBUF
 450                 bs_f    SSPCON1, CKP
 451                 endm
 452
 453 ;----------------------------------------
 454 i2cs_read_data
 455                 i2cs_read_data_macro
 456                 return
 457
 458 ;----------------------------------------
 459 ; branches from the ISR
 460
 461 ;----------
 462 s_event_addrrecvwrite
 463                 s_write_slurpbyte
 464                 goto    i2csu_write_begin
 465
 466 ;----------
 467 s_event_reading_datanack
 468                 return
 469
 470 ;----------
 471 s_event_writing_datarecv
 472                 s_write_slurpbyte
 473                 goto    i2csu_write_data
 474
 475 ;----------
 476 s_event_bad_intr
 477                 i2cpanic morse_IH ; unknown high-priority interrupt
 478
 479 ;----------------------------------------
 480 i2cs_interrupt  ; 4cy interrupt latency + 3cy until branch to here
 481                 bt_f_if0 PIR1, SSPIF
 482                 bra     s_event_bad_intr
 483                 ; We have an interrupt:
 484
 485                 mov_lw  (1<<WCOL) | (1<<SSPOV)
 486                 and_wfw SSPCON1
 487                 bra_nz  s_event_bad
 488
 489 ; Firstly, clear the interrupt flag so that if something else happens
 490 ; while we faff, the interrupt will be regenerated:
 491                 bc_f    PIR1, SSPIF
 492
 493                 chkvals_start SSPSTAT
 494                 chkval  0,   0x8c, i2csu_read_begin             ;A,!P, S,R,!BF
 495                 chkval  0x8c,0xac, i2csu_read_another           ;D,!P, S,R,!BF
 496                 chkval  0xac,0x89, s_event_addrrecvwrite        ;A,!P, S,W,BF
 497                 chkval  0x89,0xa9, s_event_writing_datarecv     ;D,!P, S,W,BF
 498                 chkval  0xa9,0xa8, s_event_reading_datanack     ;D,!P, S,!R,!BF
 499 s_event_bad
 500                 i2cpanic morse_SS
 501
 502 ;======================================================================
 503
 504   include program+externs.fin
 505   include i2clib.inc
 506
 507  include variables+vars.fin
 508
 509   end