The Internet Power Line Adapter - University of Queensland

More documents

Recommendations

Info

Home Automation, Power Lines and the Internet Quenten Alick 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 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 ***************************** * Variables ***************************** ORG $0000 COUNT RMB 1 SCIFLAG RMB 1 POINTER RMB 2 POINTR2 RMB 2 POINTR3 RMB 2 DIVTMP RMB 2 RCVCNT RMB 1 TRNCNT RMB 1 LENGTH RMB 1 STORE FDB $0020 *---------------------------- * SCI interrupt vector *---------------------------- ORG $00C4 JMP SCIISR *---------------------------- * SPI Interrupt vector *---------------------------- ***************************** ORG $C000 *Start of program ***************************** *-------------------------------------------------------------------- * init stack and other setup stuff *-------------------------------------------------------------------- LDS #$00C3 * setup IO ports for output only LDAA #$FF STAA DDRC STAA DDRD * init SCI interface, 9600, 8N1, recv LDAA #$30 STAA BAUD LDAA #$00 STAA SCCR1 * 8N1 LDAA #RECVEN * enable recv w/ ints STAA SCCR2 * recv * STAA RDATA * set init state - 48 - * init the storage index and set input capture 2 for low - high LDX STORE STX POINTER STX POINTR2 LDAA #BIT2 STAA TCTL2 * init variables CLR RCVCNT CLR TRNCNT CLR LENGTH CLI START LDX STORE STX POINTR3 CLR COUNT * poll for a pushbutton on IC2 (PA1) LOOP LDY #TFLG1 BRCLR 0,Y,#BIT1,LOOP LDAA #BIT1 * clear flag STAA TFLG1 LDD #$0000 LDAB LENGTH JSR DIVIDE INC COUNT LDX POINTR3 LDAA 0,X * output the data STAA PORTB INX STX POINTR3 * check if we have output all the data * reset variables if so otherwise move onto next data LDAA LENGTH INCA INCA CMPA COUNT BEQ START BRA LOOP *************************************************** * SCI ISR *************************************************** SCIISR LDAB SCSR STAB SCIFLAG *store flags for later checks * check for valid recv interrupt BRSET SCIFLAG,#BIT5,RECV * check for valid trans interrupt BRSET SCIFLAG,#BIT7,TRANS * else invalid interrupt BRA RTRN *--------------------------------------- * valid receive interrupt *--------------------------------------- RECV LDAB SCDR * read the data reg LDY POINTER * load the index pointer STAB 0,Y * store at index INC RCVCNT CHECK1 LDAB #$02 * check to see if CMPB RCVCNT * its the second packet BNE CHECK2 * if not then goto CHECK2... LDY POINTER * if it is the second packet LDAB 0,Y * we have the length byte
Home Automation, Power Lines and the Internet Quenten Alick STAB LENGTH * so store it in a variable CHECK2 LDAB LENGTH * check to see if the number of INCB * packet received is equal to INCB * == length of data + first command byte + length byte CMPB RCVCNT * i.e is length + 2 = rcvcnt ? BNE DONE * if not then goto DONE * if the length of data + 2 is equal to the num of packet receive * then do something here, like echo back. * turn on the transmit interrupt and disable the receive interrupt * note that TDRE is already set so once this routine is returned * it will call an interrupt LDAA #TRANSEN STAA SCCR2 DONE LDY POINTER * increase INY * the index pointer STY POINTER * by one JMP RTRN *--------------------------------------- * valid transmit interrupt *--------------------------------------- TRANS LDAB LENGTH * check to see if the number of - 49 - INCB * packet transmitted is equal to INCB * == length of data + first command byte + length byte CMPB TRNCNT * ie. is length + 2 = trncnt ? BNE MORE * if not then goto MORE * the entire message has been sent so disable the transmit interrupt * and enable the receive interrupt again. * for now just turn off the entire thing * LDY STORE * STY POINTR2 * CLR TRNCNT CLR SCCR2 MORE LDY POINTR2 * get the message current location LDAB 0,Y * get the byte in the message STAB SCDR * store it in the data reg, this also clears TDRE INC TRNCNT * increase the transmitted byte count INY STY POINTR2 RTRN RTI * return from int
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 53: Home Automation, Power Lines and th
Page 69: Home Automation, Power Lines and th
show all

The Internet Power Line Adapter - University of Queensland

Create successful ePaper yourself

Delete template?

Save as template?