The Internet Power Line Adapter - University of Queensland

More documents

Recommendations

Info

Home Automation, Power Lines and the Internet Quenten Alick CMPA #ISRXLEN * is it transmitting the length? BEQ ISRWLEN CMPA #ISRRCV * is it receiving the data? BEQ ISRR CMPA #ISRRLEN * is it receiving the length? BEQ ISRLEN BRA ISRDONE *------------------------------------------------------------- * write command: transfer length byte *------------------------------------------------------------- ISRWLEN LDX POINTER * Retrieve current index LDAA 0,X * Get length STAA LENGTH * Store length STAA SPDR * Start the transfer of the length WLWAIT LDAA SPSR * Wait for the transfer... BPL WLWAIT ...to finish LDAA #ISRX * Change the mode... STAA MODE ...to transmitting data INX STX POINTER BRA ISRDONE *-------------------------------------------------------------- * write command: transfer data *-------------------------------------------------------------- ISRW LDAA LENGTH * Test for the interrupt... CMPA COUNT ...after the last byte BEQ ISROFF LDX POINTER * Retrieve the current index LDAA 0,X * Get the data STAA SPDR * Start the transfer of the data INC COUNT * Increment number of data sent INX * Advance the index pointer STX POINTER WWAIT LDAA SPSR * Wait for the transfer... BPL WWAIT ...to finish BRA ISRDONE *-------------------------------------------------------------- * read command: get the length byte *-------------------------------------------------------------- ISRLEN LDAA #0 * Start the transfer with a... STAA SPDR ...dummy input of 0 LWAIT LDAA SPSR * Wait for the transfer... BPL LWAIT ...to finish LDAA SPDR * Get the length value... STAA LENGTH ...and store it LDX POINTR2 * Get the store index pointer... STAA 0,X ...and store it INX * Advance the pointer STX POINTR2 - 46 - LDAA #ISRRCV * Change the mode... STAA MODE ...to receiving data BRA ISRDONE * If you have read this please underline. *--------------------------------------------------------------- * read command: get data and wait for interrupt after last byte *--------------------------------------------------------------- ISRR LDAA LENGTH * Test for the interrupt... CMPA COUNT ...after the last byte BEQ ISROFF LDAA #0 * Start the transfer with a... STAA SPDR ...dummy input of 0 RWAIT LDAA SPSR * Wait for the transfer... BPL RWAIT ...to finish LDX POINTR2 * Get the store index pointer LDAA SPDR * Get the data STAA 0,X * Store the data INX * Advance the store index pointer STX POINTR2 INC COUNT * Increment the data count BRA ISRDONE *---------------------------------------------------------------- ISROFF LDAA #ISRIDLE STAA MODE SEI ISRDONE PULX PULB PULA RTRN RTI * return from interrupt ***************************************************************** ** *-------------------------------------------------------------------- * WRITE SUBROUTINE *-------------------------------------------------------------------- WRITES LDAA MODE LDX POINTER LDAB 0,X * get the next byte STAB SPDR * start the SPI transfer INC COUNT * wait for the transfer to finish WRWAIT LDAA SPSR BPL WRWAIT INX STX POINTER RTS *-------------------------------------------------------------------- * READ SUBROUTINE *-------------------------------------------------------------------- * load dummy byte to start xfers READS LDAA #$00 STAA SPDR * wait for spif (when xfer complete) ISRWAIT LDAA SPSR
Home Automation, Power Lines and the Internet Quenten Alick BPL ISRWAIT * read the recieved data and store in buffer RSTORE LDAA SPDR RSTORE2 LDX POINTR2 STAA 0,X INX STX POINTR2 INC COUNT RTS *-------------------------------------------------------------------- * DIVIDE SUBROUTINE *-------------------------------------------------------------------- DIVIDE PSHX LDX #100 IDIV * DIVIDE D REG WITH 100 TO GET THE HUNDREDS STD DIVTMP * STORE THE REMAINDER XGDX * PUT THE RESULT IN D TBA * SINCE D IS A&B SWAP SO WE CAN JUMP TO LCD SUB JSR LCD LDX #10 LDD DIVTMP * GET OUR REMAINDER IDIV * DIVIDE BY 10 TO GET OUR TENS STD DIVTMP * STORE OUR REMAINDING ONES XGDX TBA JSR LCD LDX #1 LDD DIVTMP * GET OUR REMAINDER IDIV * DON'T ASK WHY BUT IT DOESN'T WORK OTHER WAYS XGDX TBA JSR LCD PULX RTS *-------------------------------------------------------------------- * LCD SUBROUTINE *-------------------------------------------------------------------- LCD PSHY LDY #CONTROL CMPA #0 BEQ ZERO CMPA #1 BEQ ONE CMPA #2 BEQ TWO CMPA #3 BEQ THREE CMPA #4 BEQ FOUR CMPA #5 BEQ FIVE CMPA #6 BEQ SIX CMPA #7 BEQ SEVEN CMPA #8 BEQ EIGHT - 47 - CMPA #9 BEQ NINE BRA DEFAULT ZERO BRSET 0,Y,#BIT7,ZERO LDAA #$30 STAA DATA BRA LCDDONE ONE BRSET 0,Y,#BIT7,ONE LDAA #$31 STAADATA BRA LCDDONE TWO BRSET 0,Y,#BIT7,TWO LDAA #$32 STAADATA BRA LCDDONE THREE BRSET 0,Y,#BIT7,THREE LDAA #$33 STAADATA BRA LCDDONE FOUR BRSET 0,Y,#BIT7,FOUR LDAA #$34 STAADATA BRA LCDDONE FIVE BRSET 0,Y,#BIT7,FIVE LDAA #$35 STAADATA BRA LCDDONE SIX BRSET 0,Y,#BIT7,SIX LDAA #$36 STAADATA BRA LCDDONE SEVEN BRSET 0,Y,#BIT7,SEVEN LDAA #$37 STAADATA BRA LCDDONE EIGHT BRSET 0,Y,#BIT7,EIGHT LDAA #$38 STAADATA BRA LCDDONE NINE BRSET 0,Y,#BIT7,NINE LDAA #$39 STAADATA DEFAULT BRA LCDDONE LCDDONE PULY RTS END *-------------------------------------------------------------------- * tser.asm * receive data from PC and send to PORTB * Serial (SCI) link * $Author: Quentin Alick & Tony Truong *-------------------------------------------------------------------- TCTL1 EQU $1020 TCTL2 EQU $1021 TFLG1 EQU $1023 TFLG2 EQU $1025 PORTB EQU $1004 PORTC EQU $1003 PORTD EQU $1008 PORTA EQU $1000 PORTE EQU $100A DDRC EQU $1007 DDRD EQU $1009 PACTL EQU $1026 TMSK2 EQU $1024 TOC2 EQU $1018
Page 1 and 2: The Internet Power Line Adapter by
Page 3 and 4: Home Automation, Power Lines and th
Page 43 and 44: Wall Module POWER SW3 J1 1 12 VAC V
Page 51: Home Automation, Power Lines and th
Page 69: Home Automation, Power Lines and th

The Internet Power Line Adapter - University of Queensland

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?