The Internet Power Line Adapter - University of Queensland

More documents

Recommendations

Info

Home Automation, Power Lines and the Internet Quenten Alick Appendix D – Assembler Code Listing *-------------------------------------------------------------------- * tser7.asc * P300 Initialisation and Serial (SPI) link * Author: 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 TIC3 EQU $1014 ADCTL EQU $1030 ADR1 EQU $1031 OPTION EQU $1039 BAUD EQU $102B SCCR1 EQU $102C SCCR2 EQU $102D SCSR EQU $102E SCDR EQU $102F SPDR EQU $102A SPCR EQU $1028 SPSR EQU $1029 CONTROL EQU $8000 *LCD control DATA EQU $8001 *LCD data BIT0 EQU $01 BIT1 EQU $02 BIT2 EQU $04 BIT3 EQU $08 BIT4 EQU $10 BIT5 EQU $20 BIT6 EQU $40 BIT7 EQU $80 MASK1 EQU $80 REG EQU $1000 TIE EQU $88 RECVEN EQU $24 TRANSEN EQU $88 TRUE EQU $01 ISRIDLE EQU $01 ISRXLEN EQU $02 ISRX EQU $03 ISRRLEN EQU $20 ISRRCV EQU $30 ***************************** * Variables ***************************** ORG $0000 COUNT RMB 1 MODE RMB 1 *SCIFLAG RMB 1 *SPIFLAG RMB 1 POINTER RMB 2 POINTR2 RMB 2 POINTR3 RMB 2 DIVTMP RMB 2 *RCVCNT RMB 1 - 44 - *TRNCNT RMB 1 LENGTH RMB 1 STORE FDB $0020 STORE2 FDB $0030 *---------------------------- * IRQ Interrupt vector *---------------------------- ORG $00EE JMP ISR *---------------------------- * auto jump vector *---------------------------- ORG $B600 JMP BEGIN ***************************** ORG $C000 *Start of program ***************************** *-------------------------------------------------------------------- * init stack and other setup stuff *-------------------------------------------------------------------- BEGIN LDAA OPTION ORAA #BIT5 STAA OPTION * hardware reset for the P300 CLR PORTB LDS #$00C3 * setup IO ports for output only LDAA #$FF STAA DDRC * setup data direction for portD for master LDAA #$38 STAA DDRD * setup serial peripheral interface w/O interrupt LDAA #$5C STAA SPCR * setup input capture 2 LDAA #BIT2 STAA TCTL2 LDAA #$01 STAA TMSK2 CLR COUNT *-------------------------------------------------------------------- * LCD INITIALIZATION *-------------------------------------------------------------------- LDY #CONTROL CONFIG1 BRSET 0,Y,#BIT7,CONFIG1 LDAA #$30 * FUNCTION SET STAACONTROL CONFIG2 BRSET 0,Y,#BIT7,CONFIG2 LDAA #$0F * DISPLAY SETTING STAACONTROL CONFIG3 BRSET 0,Y,#BIT7,CONFIG3 LDAA #$07 * SET CURSOR MOVEMENT STAACONTROL CONFIG4 BRSET 0,Y,#BIT7,CONFIG4 LDAA #$01 * CLEAR DISPLAY STAACONTROL CONFIG5 BRSET 0,Y,#BIT7,CONFIG5 LDAA #$90 STAA CONTROL * DD RAM START LOCATION LDAB OPTION
Home Automation, Power Lines and the Internet Quenten Alick LDAA #$00 JSR DIVIDE *-------------------------------------------------------------------- * Setup the buffer for the layer config commands and data *-------------------------------------------------------------------- * setup the layer config info of the P300 CLR COUNT LDX STORE STX POINTER * store the bytes LDAA #$03 * command byte STAA 0,X INX LDAA #$07 * length byte STAA 0,X INX LDAA #$78 * data byte 0 ? STAA 0,X INX * store the next 6 data bytes with 0 STDATA LDAA #6 CMPA COUNT * check if COUNT has reached 6 yet BEQ LAYER * goto LAYER if it has INC COUNT * otherwise increment COUNT LDAA #0 * and store 0 STAA 0,X * to position indexed by register X INX * and increment the index pointer BRA STDATA *-------------------------------------------------------------------- * Start of Main Program *-------------------------------------------------------------------- * send the layer config info LAYER CLR COUNT CLR LENGTH CLR MODE LDAA #$FF STAA PORTC * deassert CS* STAA PORTB * deassert RST* * wait for 52ms to allow P300 to come out of reset state LDD #26000 * 52 ms ADDD TOC2 STD TOC2 TIMER LDY #TFLG1 BRCLR 0,Y,#BIT6,TIMER LDAA #BIT6 STAA TFLG1 LDAB #44 * debug LDAA #0 * debug JSR DIVIDE * debug CLR PORTC * assert CS* * ----------------------- * wait for push button *------------------------ WAIT LDY #TFLG1 BRCLR 0,Y,#BIT1,WAIT LDAA #BIT1 STAA TFLG1 *----------------------- * send the LW command *----------------------- LDX STORE * Get the address of the LW buffer STX POINTER * Save it as an index pointer - 45 - LDAB 0,X * Get the command byte LDAA #$00 JSR DIVIDE * debug INX * Advance the index pointer STX POINTER STAB SPDR * start the SPI transfer * wait for the transfer to finish WAIT2 LDAA SPSR BPL WAIT2 LDAB #ISRXLEN * Set the mode to... STAB MODE ...transmitting length CLI * turn on interrupt * wait for all the bytes to be sent WAIT3 LDAA #ISRIDLE CMPA MODE BNE WAIT3 LDD #$0000 LDAB COUNT JSR DIVIDE *----------------------- * wait for push button *----------------------- WAIT4 LDY #TFLG1 BRCLR 0,Y,#BIT1,WAIT4 LDAA #BIT1 STAA TFLG1 *----------------------- * send the IR command *----------------------- CREAD CLR COUNT CREAD2 LDX STORE2 STX POINTR2 LDAA #$04 STAA SPDR CREAD3 LDAA SPSR BPL CREAD3 LDAA #ISRRLEN STAA MODE CLI CREADTS LDAA #ISRIDLE CMPA MODE BNE CREADTS LDAA #$FF STAA PORTC *************************************************** * ISR *************************************************** ISR PSHA PSHB PSHX * check for which mode, idle, transfer, if neither then read LDAA MODE CMPA #ISRIDLE * is it idling now? BEQ ISROFF CMPA #ISRX * is it transmitting the data? BEQ ISRW
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 49: 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?