AVRASM ver. 1.11 SKLOK.ASM Wed Dec 13 09:52:40 2000 ;*************************************************************************** ;* P R O G R A M F O R T H E A V R F A M I L Y ;* ;* File Name :"sklok.asm" ;* Title : Schakelklok ;* Date : 24-04-2000 ;* Version : 1.00 ;* By : Hugo Vos ;* Target MCU : AT90S8515 ;* ;* E-mail : hugo@hvos.myweb.nl ;* ;*************************************************************************** .device AT90S8515 ;Prohibits use of non-implemented instructions .include "8515def.inc" ;*************************************************************************** ;* A P P L I C A T I O N N O T E F O R T H E A V R F A M I L Y ;* ;* Number :AVR000 ;* File Name :"8515def.inc" ;* Title :Register/Bit Definitions for the AT90S8515 ;* Date :97.01.28 ;* Version :1.11 ;* Support telephone :+47 72 88 87 20 (ATMEL Norway) ;* Support fax :+47 72 88 87 18 (ATMEL Norway) ;* Support email :avr@atmel.com ;* Target MCU :AT90S8515 ;* ;* DESCRIPTION ;* When including this file in the assembly program file, all I/O register ;* names and I/O register bit names appearing in the data book can be used. ;* In addition, the six registers forming the three data pointers X, Y and ;* Z have been assigned names XL - ZH. Highest RAM address for Internal ;* SRAM is also defined ;* ;* The Register names are represented by their hexadecimal address. ;* ;* The Register Bit names are represented by their bit number (0-7). ;* ;* Please observe the difference in using the bit names with instructions ;* such as "sbr"/"cbr" (set/clear bit in register) and "sbrs"/"sbrc" ;* (skip if bit in register set/cleared). The following example illustrates ;* this: ;* ;* in r16,PORTB ;read PORTB latch ;* sbr r16,(1< seconds will be read ; if Cx = 03 > minutes will be read ; if Cx = 04 > hours will be read. ;************************************* ; start to display the found vallue ;************************************* 000691 932f push Cx ; Save register address to stack 000692 2f21 mov Cx, Bx ; Load display position into Cx reg 000693 2f10 mov Bx, Ax ; move read register value into Bx reg 000694 2f02 mov Ax, Cx ; move display position into Ax 000695 dd13 rcall disp_DECval 000696 912f pop Cx 000697 3025 cpi Cx, $05 ; check Cx value for end of time read from RTC 000698 f031 breq No_time ; register $05 contains no time information anymore ! 000699 5002 subi Ax, $02 00069a e31a ldi Bx, 0b00111010 ; load ":" charakter on display databus 00069b d072 rcall dispCHR ; and display it. 00069c 2f10 mov Bx, Ax 00069d 5012 subi Bx, $02 00069e cfec rjmp Startread ; read next time tegister from RTC. No_time: ;************************************************** ; ; Display Day of week text on the LC-Display ; ;************************************************** 00069f ea00 ldi Ax, PCF8583 ; load I2C adres into Ax 0006a0 e016 ldi Bx, $06 ; load Day of Week reg. vallue 0006a1 d9df rcall I2C_regread ; Load register vallue from RTC into Ax register 0006a2 7e00 andi Ax, 0b11100000 ; Remove month information from Ax 0006a3 9502 swap Ax ; swap byte's and multiply value by two ; for calculating day of week address pointer 0006a4 2f20 mov Cx, Ax ; Save day information in Cx as offset 0006a5 e402 ldi Ax, low(dagen) ; load data pointer of day "string" 0006a6 e018 ldi Bx, high(dagen) ; into Ax and Bx reg. and 0006a7 de4d rcall calcpointer ; calculate proper memory pointer 0006a8 2fe0 mov Z_low, Ax ;and move address location in Z-register 0006a9 2ff1 mov Z_high, Bx 0006aa e400 ldi Ax, $40 ; Load Ax with new display location 0006ab 95c8 lpm ; load 1st CHR into Bx register 0006ac 2d10 mov Bx, R0 ; via R0 0006ad d060 rcall dispCHR ; and display it 0006ae 9631 adiw Z_low, $01 ; increase memory pointer by one 0006af 95c8 lpm ; and load 2nd CHR into Bx 0006b0 2d10 mov Bx, R0 ; via R0 0006b1 9503 inc Ax ; increase display location by one 0006b2 d05b rcall DispCHR ; and display CHR ;*************************************************** ; ; Display Day off month number on the display ; ;*************************************************** 0006b3 ea00 ldi Ax, PCF8583 ; load I2C adres into Ax 0006b4 e015 ldi Bx, $05 ; load Day off Month reg. vallue 0006b5 d9cb rcall I2C_regread ; Load register vallue from RTC into Ax register 0006b6 730f andi Ax, 0b00111111 ; clear bit [7:6] 0006b7 2f10 mov Bx, Ax ; and move it to Bx reg. 0006b8 e403 ldi Ax, $43 ; load display position into Ax reg 0006b9 dcef rcall Disp_DECval ; and display the day of month ;************************************************** ; ; Set Month Text on the display ; ;************************************************** 0006ba ea00 ldi Ax, PCF8583 ; load I2C adres into Ax 0006bb e016 ldi Bx, $06 ; load Day of Week reg. vallue 0006bc d9c4 rcall I2C_regread ; Load register vallue from RTC into Ax register 0006bd 710f andi Ax, 0b00011111 ; Extract month information from Ax 0006be da6d rcall DEC2HEX ; convert DEC value to HEX value 0006bf 950a dec Ax ; 0006c0 0f00 lsl Ax ; and multiply by four 0006c1 0f00 lsl Ax 0006c2 2f20 mov Cx, Ax ; and load it into Cx as address offset 0006c3 e409 ldi Ax, low(Maanden) ; Load month txt pointer into Ax and Bx 0006c4 e018 ldi Bx, high(Maanden) 0006c5 de2f rcall calcpointer 0006c6 2fe0 mov Z_low, Ax 0006c7 2ff1 mov Z_high, Bx 0006c8 e024 ldi Cx, $04 ; Load Cx with Txt length 0006c9 e406 ldi Ax, $46 ; Load display position into Ax Next_MonthCHR: 0006ca 95c8 lpm ; Get CHR to display 0006cb 2d10 mov Bx, R0 ; and move it into Bx reg 0006cc d041 rcall DispCHR ; and display it 0006cd 9631 adiw Z_low, $01 ; increase Text pointer by one 0006ce 9503 inc Ax ; increase display position by one 0006cf 952a dec Cx ; decrease CHR counter by one 0006d0 3020 cpi Cx, $00 ; check for ned of string 0006d1 f7c1 brne Next_MonthCHR ;************************************************* ; ; Set "20" on the display ; ;************************************************* 0006d2 e40b ldi Ax, $4B ; Load Ax with display position 0006d3 e312 ldi Bx, $32 ; Load Bx with "2" 0006d4 d039 rcall DispCHR 0006d5 9503 inc Ax ; go to next display position 0006d6 e310 ldi Bx, $30 ; Load Bx with "0" 0006d7 d036 rcall DispCHR ;************************************************* ; ; Display Number of Year on the screen. ; ;************************************************** 0006d8 ea00 ldi Ax, PCF8583 0006d9 ef1f ldi Bx, $FF ; read year information from RTC SRAM location 0006da d9a6 rcall I2C_regread ; read register Bx from device Ax 0006db 930f push Ax ; Save HEX year value onto stack 0006dc da42 rcall HEX2DEC 0006dd 2f10 mov Bx, Ax 0006de e40d ldi Ax, $4D 0006df dcc9 rcall disp_DECval ;*********************************************************** ; ; Check for Year increase in SRAM RTC clock ; ;*********************************************************** 0006e0 ea00 ldi Ax, PCF8583 0006e1 e015 ldi Bx, $05 ; read year information from RTC SRAM location 0006e2 d99e rcall I2C_regread ; read register Bx from device Ax 0006e3 9502 swap Ax ; Move Year information to Bit[0:1] 0006e4 9506 lsr Ax 0006e5 9506 lsr Ax 0006e6 7003 andi Ax, 0b00000011 ; Clear Bit[2:7] 0006e7 912f pop Cx ; Remove HEX year info from stack 0006e8 2f12 mov Bx, Cx ; Save HEX year value in Bx reg. 0006e9 7023 andi Cx, 0b00000011 ; clear bit[2:7] 0006ea 1702 cp Ax, Cx ; check if year is stil the same 0006eb f039 breq no_yearinc 0006ec 9513 inc Bx ; Increase HEX year info by one 0006ed fd16 sbrc Bx, 6 0006ee 2711 clr Bx 0006ef 2f21 mov Cx, Bx ; Save new year number into Cx reg 0006f0 ea00 ldi Ax, PCF8583 ; Loead Ax with RTC I2C address 0006f1 ef1f ldi Bx, $FF ; Load Bx reg. with RTC SRAM location 0006f2 d9a6 rcall I2C_regstore ; Store new year value into RTC SRAM location no_yearinc: 0006f3 cf7c rjmp display_check ; jump back to start of loop ;*************************************************************************** ; ; Delayfunction to set the I2C speed. Adjustable for different CPU speed. ; Used registers : Ax = temp var, only vallid in this function ; Bx = temp var, only vallid in this function ; ; Return : None ; ;*************************************************************************** delayfunc : 0006f4 930f push Ax 0006f5 931f push Bx 0006f6 e011 ldi Bx, Highwait ; Set registers for proper delay 0006f7 e004 ldi Ax, Lowwait No_zero: 0006f8 950a dec Ax ; decrease low byte and check for zero 0006f9 f7f1 brne No_zero ; if not zero then subtrack again 0006fa 951a dec Bx ; decrease high byte and check for zero 0006fb f011 breq End_delay ; return from subroutine is highbyte is zero 0006fc e004 ldi Ax, Lowwait ; reload lowbyte nd jump to No_zero 0006fd cffa rjmp No_zero End_delay: 0006fe 911f pop Bx 0006ff 910f pop Ax 000700 9508 ret ; return from subroutine ;*************************************************************************** ; ; Delayfunction to set the I2C speed. Adjustable for different CPU speed. ; Used registers : Ax = temp var, only vallid in this function ; Bx = temp var, only vallid in this function ; ; Return : None ; ;*************************************************************************** delay_5mS : 000701 930f push Ax 000702 931f push Bx 000703 e810 ldi Bx, $80 ; Set registers for proper delay 000704 e000 ldi Ax, $00 No_zero_5mS: 000705 950a dec Ax ; decrease low byte and check for zero 000706 f7f1 brne No_zero_5mS ; if not zero then subtrack again 000707 951a dec Bx ; decrease high byte and check for zero 000708 f011 breq End_delay_5mS ; return from subroutine is highbyte is zero 000709 e000 ldi Ax, $00 ; reload lowbyte nd jump to No_zero 00070a cffa rjmp No_zero_5mS End_delay_5mS: 00070b 911f pop Bx 00070c 910f pop Ax 00070d 9508 ret ; return from subroutine ;*************************************************************************** ; ; Display a character to LCD display ; ; Used registers : accureg ; Ax = display position register ; Bx = Character to display ; ; Return : None ; ;*************************************************************************** dispCHR: 00070e 930f push Ax 00070f 931f push Bx 000710 6800 ori Ax, $80 000711 e010 ldi Bx, disp_CTRL 000712 d032 rcall disp_LCD 000713 911f pop Bx 000714 2f01 mov Ax, Bx 000715 e011 ldi Bx, disp_write 000716 d02e rcall disp_LCD 000717 910f pop Ax 000718 9508 ret ;*************************************************************************** ; ; check for no key pressed ; ;*************************************************************************** key_released: 000719 930f push Ax ; Save Reg. Ax and Bx to stack 00071a 931f push Bx 00071b e004 ldi Ax, $04 ; Load ax with cycle counter value check_key_again: 00071c 950a dec Ax 00071d 3000 cpi Ax, $00 ; check for 3 times no key pressed 00071e f039 breq end_key_released ; Jump out if so. 00071f dfe1 rcall delay_5ms 000720 b316 in Bx, PinB ; Read key's 000721 701f andi Bx, $0F ; Clear high nibble from data 000722 3010 cpi Bx, $00 ; check for no key pressed 000723 f3c1 breq check_key_again ; jump if no key pressed 000724 e004 ldi Ax, $04 000725 cff6 rjmp check_key_again end_key_released: 000726 911f pop Bx 000727 910f pop Ax 000728 9508 ret ;*************************************************************************** ; ; Display a string to the display until the data-byte read is $00 using data ; defenition id EEPROM. ; ; Used registers : Ax = low byte address data pointer ; Bx = high byte of address data pointer ; Cx = startposition display ; ;*************************************************************************** str2disp: 000729 bb0e out EEARL, Ax ; write EEPROM addres to read in EEPROM addres 00072a bb1f out EEARH, Bx start_displaySTR: 00072b 2f02 mov Ax, Cx ; load display position into Ax reg. 00072c 6800 ori Ax, $80 ; Set MSB in Ax reg. ( See display data sheet ) 00072d e010 ldi Bx, disp_CTRL ; load display control reg. prot. into Bx 00072e d016 rcall disp_LCD ; go display it. 00072f d020 rcall disp_ready ; Wait until display's busy flag is clear 000730 e011 ldi Bx, disp_write ; Load display data write prot. in Bx Str_loop: 000731 9ae0 sbi EECR, EERE ; Set EEPROM Read start bit check_EERE: 000732 b30c in Ax, EECR ; load EECR status in Ax reg. 000733 fd00 sbrc Ax, 0 ; check if EEPROM read bit is cleared by hardware 000734 cffd rjmp check_EERE ; if not, then wait until reset 000735 b30d in Ax, EEDR ; Load read EEPROM data into Ax reg. 000736 3000 cpi Ax, $00 ; and check for "$00" end of data 000737 f061 breq end_str2disp ; jump to end of routine if so. 000738 d00c rcall disp_LCD ; display read ASCII value onto display 000739 d016 rcall disp_ready 00073a b30e in Ax, EEARL ; load Ax with current EERPOM address 00073b 9503 inc Ax ; Inc Address by one 00073c bb0e out EEARL, Ax ; Store new address into EEPROM reg. 00073d 3000 cpi Ax, $00 00073e f419 brne no_pageinc 00073f b30f in Ax, EEARH 000740 9503 inc Ax 000741 bb0f out EEARH, Ax no_pageinc: 000742 9523 inc Cx ; inc. display position by one 000743 cfe7 rjmp Start_displaySTR ; Jump to start of routine. end_str2disp: 000744 9508 ret ;*************************************************************************** ; ; Routine to control the LCD display ; Ax = Data to display ; Bx = 0b00000000 = Display control register mode ; 0b00000001 = CG RAM/DD RAM data write ; 0b00000010 = Busy flag / address counter read ; 0b00000011 = CG RAM/DD RAM data read ; ;*************************************************************************** Disp_LCD: 000745 bb0b out PortA, Ax ; Put data on displays data bus 000746 9512 swap Bx ; swap high and low nibble to get proper 000747 bb15 out PortC, Bx ; value of RS and R/W bit and output it ; to port C. 000748 6410 ori Bx, 0b01000000 ; Set E bit of display and set new value on 000749 bb15 out PortC, Bx ; port C 00074a 7b1f andi Bx, 0b10111111 ; Reset E bit of display and set new value on 00074b bb15 out PortC, Bx 00074c 2711 clr Bx 00074d bb15 out PortC, Bx ; Set all display control line's low. 00074e d001 rcall Disp_ready 00074f 9508 ret ;*************************************************************************** ; ; Routine that wait's until the display is ready. ; ( To avoid inpropper display information ) ; ;*************************************************************************** disp_ready: 000750 930f push Ax ; Save registers Ax and Bx to stack 000751 931f push Bx 000752 e000 ldi Ax, 0b00000000 ; Set port A to input 000753 bb0a out DDRA, Ax not_ready: 000754 e002 ldi Ax, disp_busy ; Load Read Busy sequence into Ax 000755 9502 swap Ax ; Swap Byte to get proper bit mask 000756 bb05 out PortC, Ax ; Output to display control lines 000757 6400 ori Ax, 0b01000000 ; Set E bit high 000758 bb05 out PortC, Ax ; And output new bit mask to port C 000759 0000 nop ; wait one clock cycle 00075a b319 in Bx, PinA ; Read display busy flag 00075b 7b0f andi Ax, 0b10111111 ; Reset E bit 00075c bb05 out PortC, Ax ; and output new bit mask to PortC 00075d fd17 sbrc Bx, 7 ; Check it display is ready ( Bit 7 = 0 ) 00075e cff5 rjmp not_ready 00075f ef0f ldi Ax, 0b11111111 ; Set port A to output 000760 bb0a out DDRA, Ax 000761 911f pop Bx 000762 910f pop Ax 000763 9508 ret ;*************************************************************************** ; ; Routine voor het uitlezen van de toetsen aangesloten op PORTB[0:3] ; ; Ax = return waarde van de ingedrukte toets ; ;*************************************************************************** Input_keyread: 000764 b306 in Ax, PinB ; Read input key's 000765 700f andi Ax, $0F 000766 3001 cpi Ax, return_key ; Check for Return key pressen 000767 f039 breq end_keyreadsub 000768 3002 cpi Ax, select_key ; check if Select key is pressed 000769 f029 breq end_keyreadsub 00076a 3008 cpi Ax, plus_key ; Check if "+" key is pressed 00076b f019 breq end_keyreadsub 00076c 3004 cpi Ax, min_key ; Check if "-" key is pressed 00076d f009 breq end_keyreadsub 00076e cff5 rjmp Input_keyread ; read key's again if no key is pressed end_keyreadsub: 00076f da27 rcall Beep 000770 9508 ret ;*************************************************************************** ; ; Check for changes in SW-switch modules. ; ;*************************************************************************** Check_SWstat: 000771 930f push Ax ; Save register Ax, Bx and Cx to stack 000772 931f push Bx 000773 932f push Cx 000774 93ef push Z_low 000775 93ff push Z_high 000776 2722 clr Cx ; Clear Cx register. checkagain: 000777 eb00 ldi Ax, SW_arrayL_SRAM ; Load Ax end Bx with start address of 000778 e010 ldi Bx, SW_arrayH_SRAM ; array in SRAM defined is variables 000779 d01e rcall check_change ; check for wanted channel change time in array. 00077a 3000 cpi Ax, $00 ; If return value is NOT equel to zero, there is 00077b f409 brne SWchange ; an channel status change. If not then jump out. 00077c c015 rjmp noSWchange SWchange: 00077d 931f push Bx ; save timer loop number 00077e 930f push Ax ; save channel number/stat information on stack 00077f da22 rcall SendTime ; Send current time on the RS-232 port 000780 910f pop Ax ; reload Ax with number/stat info 000781 930f push Ax 000782 dace rcall Send_chanstat ; Send channel number and stata info ; to the RS-232 port. 000783 e00d ldi Ax, $0D ; send linefeed to RS-232 port 000784 da78 rcall sendCHR 000785 e00a ldi Ax, $0A ; send CR to RS-232 port 000786 da76 rcall sendCHR 000787 910f pop Ax ; reload channel/state info from stack 000788 2f10 mov Bx, Ax 000789 7f00 andi Ax, $F0 ; remove channel stat. information 00078a 9502 swap Ax 00078b 701f andi Bx, $0F 00078c d093 rcall activate_channel 00078d 911f pop Bx ; reload timer vallue 00078e 3010 cpi Bx, $00 ; check for end of array check reached. 00078f 2f21 mov Cx, Bx ; if not, move vallue to Cx to become preset val 000790 f009 breq noSWchange 000791 cfe5 rjmp checkagain ; and go to check again noSWchange: 000792 91ff pop Z_high 000793 91ef pop Z_low 000794 912f pop Cx 000795 911f pop Bx 000796 910f pop Ax 000797 9508 ret ;************************************************************************** ; ; Routine to check for new SW clock settings ; ; Ax = Low byte start addres in SRAM of array ; Bx = High byte start address in SRAM of array ; Cx = Preset for vallid time counter ; ; Return: ; Ax = new vallue of settings (SW channel stat/numb.) ; Bx = number of time setting vallid for changecheck ; ;************************************************************************** check_change: 000798 2fe0 mov Z_low, Ax ; Load Z_register with start array in SRAM. 000799 2ff1 mov Z_high, Bx ; as defined in Ax (low byte) and Bx (high byte) 00079a 930f push Ax ; Save org SRAM start addres to stack 00079b 931f push Bx 00079c 2f12 mov Bx, Cx ; Move counter preset to Bx register 00079d 9121 ld Cx, Z+ ; Load number of vallid clock settings into Cx ; and set SRAM pointer to next location. 00079e 1b21 sub Cx, Bx ; Adjust counter with Preset 00079f 0f11 lsl Bx ; 0007a0 0f11 lsl Bx ; Multiply Bx contens by 4 for calculating SRAM offset 0007a1 0fe1 add Z_low,Bx ; compensate Z_register pointer start address. chk_nexttime: 0007a2 3020 cpi Cx, $00 ; check for last timer setting. 0007a3 f409 brne Notimeend 0007a4 c036 rjmp end_switchchk ; jump to end of subroutine if last time is checked Notimeend: 0007a5 ea00 ldi Ax, PCF8583 ; Load I2C RTCclock address in Ax register. 0007a6 e014 ldi Bx, $04 ; Load Hour reg. number into Bc register. 0007a7 d8d9 rcall I2C_regread ; Load RTC current hour vallue into Ax 0007a8 9111 ld Bx, Z+ ; Load Bx with Clock hour setting from SRAM 0007a9 1701 cp Ax, Bx ; and set increase SRAM pointer. compare hour settings 0007aa f019 breq chk_switchmin ; if equal then check for minute setting 0007ab 5fed subi Z_low, $FD ; Set Z-register to next Hour SRAM address ( by adding 2 ) 0007ac 952a dec Cx ; decrease total timesetting counter. 0007ad cff4 rjmp chk_nexttime ; Jump to check next timer setting. chk_switchmin: 0007ae ea00 ldi Ax, PCF8583 ; Load I2C RTCclock address in Ax register. 0007af e013 ldi Bx, $03 ; Load minute reg. number in Bx register 0007b0 d8d0 rcall I2C_regread ; Load RTC current minutes vallue into Ax. 0007b1 9111 ld Bx, Z+ ; Load Bx with CV-clock minute setting from SRAM and inc SRAM pointer 0007b2 1701 cp Ax, Bx ; if equel then check for switch day setting 0007b3 f019 breq chk_switchday 0007b4 5fee subi Z_low, $FE ; Set Z_register to next hour SRAM address 0007b5 952a dec Cx ; decrease total timesetting counter. 0007b6 cfeb rjmp chk_nexttime ; Jump to check next times setting chk_switchday: 0007b7 ea00 ldi Ax, PCF8583 ; Load I2C device number 0007b8 e016 ldi Bx, $06 ; Load RTC Weekday/Month register number 0007b9 d8c7 rcall I2C_regread ; Load Ax with RTC current day 0007ba 7e00 andi Ax, $E0 ; Remove month information 0007bb 9502 swap Ax ; and swap byte to get a number from 0 to 6 0007bc 9506 lsr Ax ; Ax contains RTC day of week information 0007bd e011 ldi Bx, $01 ; Set Bx LSB calc_day: 0007be 3000 cpi Ax, $00 ; shift Bx to set proper day bit to check 0007bf f019 breq end_calc_day ; with SRAM day setting 0007c0 0f11 lsl Bx ; if Ax is NOT 0 then shift Bx to left without carry 0007c1 950a dec Ax 0007c2 cffb rjmp calc_day ; Bx contains bitset for current day end_calc_day: ; mov Ax, Bx ; move proper day bit patern into Ax ; mov Bx, Ax 0007c3 9101 ld Ax, Z+ ; Load wanted day information from SRAM 0007c4 93ef push Z_low 0007c5 93ff push Z_high 0007c6 932f push Cx ; Save register Cx and Bx to stack 0007c7 931f push Bx 0007c8 2f20 mov Cx, Ax ; mov dayinfo to Cx as address offset 0007c9 e30c ldi Ax, low(dayinfo) ; Load pointer into Ax and Bx 0007ca e018 ldi Bx, high(dayinfo) 0007cb dd29 rcall calcpointer ; calculate data memory position 0007cc 2fe0 mov Z_low, Ax ; and move pointer into Z-reg. 0007cd 2ff1 mov Z_high, Bx 0007ce 911f pop Bx ; reload wanted day-bitstream into Bx 0007cf 912f pop Cx 0007d0 95c8 lpm ; load day-bit pattern from Programm memory 0007d1 2d00 mov Ax, R0 ; into Ax through R0 0007d2 91ff pop Z_high ; restore Z vallue 0007d3 91ef pop Z_low 0007d4 2301 and Ax, Bx ; logical AND to check if proper day bit is selected 0007d5 f011 breq no_day_select ; jump is proper day bit is NOT set 0007d6 8100 ld Ax, Z ; load wanted channel number/state infomation into Ax again 0007d7 c004 rjmp time_vallid no_day_select: 0007d8 5fef subi Z_low, $FF ; set SRAM pointer to next Hour vallue 0007d9 952a dec Cx ; decrease total timer check counter 0007da cfc7 rjmp chk_nexttime ; goto start check next setting end_switchchk: 0007db 2700 clr Ax ; Clear AX to indicate no vallid time found. time_vallid: 0007dc 91ff pop Z_high ; Load Z-register with startaddress SRAM and load 0007dd 91ef pop Z_low ; Bx with total vallid time vallue 0007de 8110 ld Bx, Z 0007df 952a dec Cx 0007e0 1b12 sub Bx, Cx ; subtrack current loop vallue of timer check 0007e1 9508 ret ;*************************************************************************** ; ; Create SW time array in SRAM starting at address defined in SW_arrayH_SRAM ; and SW_arrayL_SRAM. ; ;*************************************************************************** ; ; Startaddres in EEPROM is : $80 = hour setting ; $81 = minute setting ; $82 = Day pattern ; $83 = on off state / channel ; $84 = 2-comp from above vallue's ; Array is taking space up to addres $A7 ; ;*************************************************************************** SWswitchtime: 0007e2 930f push Ax ; Save Ax, Bx and Cx register to stack. 0007e3 931f push Bx 0007e4 932f push Cx 0007e5 e800 ldi Ax, SW_E2_I2C ; load I2C EEPROM start address of time table in Ax 0007e6 e010 ldi Bx, SW_arrayH_SRAM ; load SRAM address in Bx ( high byte ) and Cx 0007e7 eb20 ldi Cx, SW_arrayL_SRAM ; ( low byte ) 0007e8 d004 rcall createArray ; Go create Array in SRAM 0007e9 912f pop Cx ; Restore org vallue's of Cx, Bx and Ax register 0007ea 911f pop Bx 0007eb 910f pop Ax 0007ec 9508 ret ;******************************************************************** ; ; Routine to create an Array in SRAM as : ; ; Ax = I2C EEPROM startaddres for time information ; Bx = High byte start addres in SRAM of array ; Cx = Low byte start address in SRAM of array ; ;******************************************************************** createArray: 0007ed 93ef push Z_low ; Save current Z-pointer to Stack 0007ee 93ff push Z_high 0007ef 932f push Cx ; save Cx to stack. 0007f0 2fc2 mov Y_low, Cx ; and load it into Y-reg(low) 0007f1 2fd1 mov Y_high, Bx ; and load it into Y-reg (high) 0007f2 9621 adiw Y_low, $01 ; Increase Y pointer by one. 0007f3 2f10 mov Bx, Ax ; and move I2C EEPROM address to ; read from into Bx reg. 0007f4 e124 ldi Cx, max_SWclktimes ; Load Cx with max SW timer setting SWnext_time: 0007f5 932f push Cx ; save Cx to stack and load it with the 0007f6 e024 ldi Cx, $04 ; number of registers to read from I2C devie SWload_lus: 0007f7 952a dec Cx 0007f8 ea02 ldi Ax, X24C02 ; load I2C device from location dev. in Bx 0007f9 d887 rcall I2C_regread ; Read from I2C device 0007fa 9309 st Y+, Ax ; Save in SRAM in increase SRAM pointer by one. 0007fb 9513 inc Bx ; Increase I2C reg number 1. 0007fc 3020 cpi Cx, $00 ; check for read of last register. 0007fd f7c9 brne SWLoad_lus ; goto read next register. 0007fe 2700 clr Ax ; clear Ax register. 0007ff 931f push Bx ; save I2C device Reg. nr. on stack. 000800 e014 ldi Bx, $04 ; load Bx with total byte's to read from SRAM. SW2comp_lus: 000801 951a dec Bx ; Calculate the 2 complement from the byte's 000802 912a ld Cx, -Y ; Load Cx with SRAM location and dec. SRAM pointer by 1 000803 0f02 add Ax, Cx ; add result to Ax 000804 3010 cpi Bx, $00 000805 f7d9 brne SW2comp_lus ; check for all byte readed 000806 9500 com Ax 000807 5f0f subi Ax, $ff ; calculate 2-comp from Ax ; Ax reg. contains 2comp value of previous read four 000808 911f pop Bx ; bytes. Reload Bx with I2C reg. number 000809 2f20 mov Cx, Ax ; Move calculated 2COMP val. into Cx reg. 00080a ea02 ldi Ax, X24C02 00080b d875 rcall I2C_regread ; Load 2-comp val location in I2C device 00080c 9513 inc Bx ; increase Bx to set proper EERPOM read addres 00080d 1720 cp Cx, Ax ; check if vallue in I2C device is the 00080e f409 brne SWnotvallid_2comp ; calculated 2comp. 00080f 5fcc subi Y_low, $FC ; Set Y-pointer to new SRAM start addres ; if calculate and read vallue are equal. SWnotvallid_2comp: 000810 912f pop Cx 000811 952a dec Cx 000812 3020 cpi Cx, $00 ; check for for all posible SW-timer setting ( 10 ). 000813 f709 brne SWnext_time 000814 2f0c mov Ax, Y_low ; Load Ax with low byte Y-pointer and 000815 950a dec Ax 000816 eb10 ldi Bx, SW_arrayL_SRAM 000817 1b01 sub Ax, Bx ; subi Ax, $7F ; subtrakt $7F and devide in by two by 000818 9506 lsr Ax ; shift vallue right 2 bits without carry. 000819 9506 lsr Ax ; Ax contains total found vallid SW times 00081a 912f pop Cx ; restore low byte SRAM vallue 00081b 2fc2 mov Y_low,Cx ; load Y-low org. vallue 00081c 8308 st Y, Ax ; Store total Sw-times number into SRAM location 00081d 91ff pop Z_high ; Retore org Z-register vallues 00081e 91ef pop Z_low 00081f 9508 ret ;************************************************************************ ; ; Routine to set I/O module in the wanted state: ; ; Ax = channel number ; Bx = wanted state of channel ( LSB = 0 > off ) ; ( LSB = 1 > onn ) ;*********************************************************************** activate_channel: 000820 932f push Cx ; save Cx reg. on stack 000821 931f push Bx ; save channel status on stack 000822 ff03 sbrs Ax, 3 ; check for 74A module to change 000823 c005 rjmp change_lowSW 000824 7007 andi Ax, 0b00000111 ; Remove bit[3] 000825 0f00 lsl Ax ; multiply SW number by two 000826 e710 ldi Bx, PCF8574_SWH ; Load Bx with basic I2C 8574A address 000827 0f01 add Ax, Bx ; add number of SW to I2C address 000828 c003 rjmp changestate change_lowSW: 000829 0f00 lsl Ax 00082a e410 ldi Bx, PCF8574_SWL 00082b 0f01 add Ax, Bx changestate: 00082c 911f pop Bx ; reload channel number/stat information 00082d ef2f ldi Cx, $FF ; Load Cx with all bits high 00082e ff10 sbrs Bx, 0 ; check if LSB Bx id "0", if so 00082f 2722 clr Cx ; then clear Cx register 000830 2f12 mov Bx, Cx ; load stat information from Cx into Bx 000831 rcall I2Cstart ; send I2C start command on I2C bus error : Relative branch out of reach 000832 rcall I2Csend ; send I2C device address on the bus error : Relative branch out of reach 000833 ff00 sbrs Ax, 0 ; check for aknowledge from device 000834 c005 rjmp norespI2C 000835 2f01 mov Ax, Bx 000836 rcall I2Csend error : Relative branch out of reach 000837 ff00 sbrs Ax, 0 000838 d86e rcall no_I2Cresponce ; if no responce the I2C error on display 000839 rcall I2Cstop error : Relative branch out of reach norespI2C: 00083a 912f pop Cx 00083b 9508 ret .include "data_ned.asm" ;*************************************************************************** ;* ;* Data definition Nederlands ;* By hugo Vos ;* ;* E-mail : hugo@hvos.myweb.nl ;* ;*************************************************************************** dayinfo: .db $00, $01, $02, $04, $08, $10, $20, $40, $1F, $60, $7F 00083c 0100 00083d 0402 00083e 1008 00083f 4020 000840 601f 000841 007f Dagen: .db $6d, $61, $64, $69, $77, $6f, $64, $6f, $76, $72, $7a, $61, $7a ,$6f 000842 616d 000843 6964 000844 6f77 000845 6f64 000846 7276 000847 617a 000848 6f7a ; m a d i w o d o v r z a z o maanden: .db $6A, $61, $6E, $20, $66, $65, $62, $20, $6D, $72, $74, $20, $61, $70, $72, $20 000849 616a 00084a 206e 00084b 6566 00084c 2062 00084d 726d 00084e 2074 00084f 7061 000850 2072 ; j a n f e b m r t a p r .db $6D, $65, $69, $20, $6A, $75, $6E, $69, $6A, $75, $6C, $69, $61, $75, $67, $20 000851 656d 000852 2069 000853 756a 000854 696e 000855 756a 000856 696c 000857 7561 000858 2067 ; m e i j u n i j u l i a u g .db $73, $65, $70, $20, $6F, $6B, $74, $20, $6E, $6F, $76, $20, $64, $65, $63, $20 000859 6573 00085a 2070 00085b 6b6f 00085c 2074 00085d 6f6e 00085e 2076 00085f 6564 000860 2063 ; s e p o k t n o v d e c channel: .db $4B, $61, $6E, $61, $61, $6C, $20, $00 000861 614b 000862 616e 000863 6c61 000864 0020 ; K a n a a l ;*************************************************************************** ; ; EEPROM Data definition ; ;*************************************************************************** .ESEG .ORG 0x0000 Off: .db $55, $69, $74, $00 000000 55 000001 69 000002 74 000003 00 ; U i t .ORG 0x0004 Time: .db $54, $69, $6a, $64, $3a, $00 000004 54 000005 69 000006 6a 000007 64 000008 3a 000009 00 ; T i j d : .ORG 0x000A Chanstate: .db $53, $74, $61, $74, $75, $73, $20, $20, $4B, $61, $6E, $61, $61, $6C, $00 00000a 53 00000b 74 00000c 61 00000d 74 00000e 75 00000f 73 000010 20 000011 20 000012 4b 000013 61 000014 6e 000015 61 000016 61 000017 6c 000018 00 ; S t a t u s K a n a a l .ORG 0x0019 Menutxt: .db $4D, $65, $6E, $75, $00 000019 4d 00001a 65 00001b 6e 00001c 75 00001d 00 ; m e n u .ORG 0x001E On: .db $41, $61, $6E, $00 00001e 41 00001f 61 000020 6e 000021 00 ; A a n .ORG 0x0022 rtc: .db $20, $20, $52, $54, $43, $20, $69, $6E, $73, $74, $65, $6C, $6C, $65, $6E, $00 000022 20 000023 20 000024 52 000025 54 000026 43 000027 20 000028 69 000029 6e 00002a 73 00002b 74 00002c 65 00002d 6c 00002e 6c 00002f 65 000030 6e 000031 00 ; r t c i n s t e l l e n .ORG 0x0032 klok: .db $20, $20, $20, $53, $63, $68, $61, $6b, $65, $6c, $6b, $6c, $6f, $6b, $00 000032 20 000033 20 000034 20 000035 53 000036 63 000037 68 000038 61 000039 6b 00003a 65 00003b 6c 00003c 6b 00003d 6c 00003e 6f 00003f 6b 000040 00 ; s c h a k e l k l o k .ORG 0x0041 noSWmod1: .db $47, $65, $65, $6E, $20, $53, $57, $2D, $6D, $6F, $64, $75, $6C, $65, $73, $00 000041 47 000042 65 000043 65 000044 6e 000045 20 000046 53 000047 57 000048 2d 000049 6d 00004a 6f 00004b 64 00004c 75 00004d 6c 00004e 65 00004f 73 000050 00 ; G e e n S W - m o d u l e s .ORG 0x0051 noSWmod2: .db $6F, $70, $20, $49, $32, $43, $20, $62, $75, $73, $21, $00 000051 6f 000052 70 000053 20 000054 49 000055 32 000056 43 000057 20 000058 62 000059 75 00005a 73 00005b 21 00005c 00 ; o p I 2 C b u s ! .ORG 0x005D cvklok: .db $54, $69, $6A, $64, $3A, $20, $4D, $44, $57, $44, $56, $5A, $5A, $00 00005d 54 00005e 69 00005f 6a 000060 64 000061 3a 000062 20 000063 4d 000064 44 000065 57 000066 44 000067 56 000068 5a 000069 5a 00006a 00 ; T i j d : M D W D V Z Z .ORG 0x006B cvsave: .db $42, $65, $77, $61, $61, $72, $20, $4E, $28, $2D, $29, $20, $4A, $28, $2B, $29, $00 00006b 42 00006c 65 00006d 77 00006e 61 00006f 61 000070 72 000071 20 000072 4e 000073 28 000074 2d 000075 29 000076 20 000077 4a 000078 28 000079 2b 00007a 29 00007b 00 ; B e w a a r N ( - ) J ( + ) .ORG 0x007C Uren: .db $55, $72, $65, $6e, $3a, $00 00007c 55 00007d 72 00007e 65 00007f 6e 000080 3a 000081 00 ; u r e n : .ORG 0x0082 Min: .db $4d, $69, $6e, $75, $74, $65, $6e, $3a, $00 000082 4d 000083 69 000084 6e 000085 75 000086 74 000087 65 000088 6e 000089 3a 00008a 00 ; m i n u t e n : .ORG 0x008B Maand: .db $4d, $61, $61, $6e, $64, $3a, $00 00008b 4d 00008c 61 00008d 61 00008e 6e 00008f 64 000090 3a 000091 00 ; m a a n d : .ORG 0x0092 Dag: .db $44, $61, $67, $20, $76, $20, $6d, $61, $61, $6e, $64, $3a, $00 000092 44 000093 61 000094 67 000095 20 000096 76 000097 20 000098 6d 000099 61 00009a 61 00009b 6e 00009c 64 00009d 3a 00009e 00 ; d a g v m a a n d : .ORG 0x009F Dag_w: .db $44, $61, $67, $20, $76, $20, $77, $65, $65, $6b, $3a, $20, $20, $20, $20, $20,$00 00009f 44 0000a0 61 0000a1 67 0000a2 20 0000a3 76 0000a4 20 0000a5 77 0000a6 65 0000a7 65 0000a8 6b 0000a9 3a 0000aa 20 0000ab 20 0000ac 20 0000ad 20 0000ae 20 0000af 00 ; d a g v w e e k : .ORG 0x00B0 Jaar: .db $4a, $61, $61, $72, $3a, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20,$00 0000b0 4a 0000b1 61 0000b2 61 0000b3 72 0000b4 3a 0000b5 20 0000b6 20 0000b7 20 0000b8 20 0000b9 20 0000ba 20 0000bb 20 0000bc 20 0000bd 20 0000be 20 0000bf 20 0000c0 00 ; j a a r : .ORG 0x00C1 errortxt1: .db $49, $32, $43, $20, $43, $68, $69, $70, $20, $6E, $69, $65, $74, $20, $20, $20, $00 0000c1 49 0000c2 32 0000c3 43 0000c4 20 0000c5 43 0000c6 68 0000c7 69 0000c8 70 0000c9 20 0000ca 6e 0000cb 69 0000cc 65 0000cd 74 0000ce 20 0000cf 20 0000d0 20 0000d1 00 ; I 2 C C h i p n i e t .ORG 0x00D2 errortxt2: .db $67, $65, $76, $6F, $6E, $64, $65, $6E, $21, $20, $20, $20, $20, $20, $20, $00 0000d2 67 0000d3 65 0000d4 76 0000d5 6f 0000d6 6e 0000d7 64 0000d8 65 0000d9 6e 0000da 21 0000db 20 0000dc 20 0000dd 20 0000de 20 0000df 20 0000e0 20 0000e1 00 ; g e v o n d e n ! .ORG 0x00E2 module: .db $20, $20, $6D, $6F, $64, $75, $6c, $65, $20, $6c, $69, $6A, $73, $74, $00 0000e2 20 0000e3 20 0000e4 6d 0000e5 6f 0000e6 64 0000e7 75 0000e8 6c 0000e9 65 0000ea 20 0000eb 6c 0000ec 69 0000ed 6a 0000ee 73 0000ef 74 0000f0 00 ; m o d u l e l i j s t .ORG 0x00F1 PCF8574: .db $38, $35, $37, $34, $00 0000f1 38 0000f2 35 0000f3 37 0000f4 34 0000f5 00 ; 8 5 7 4 .ORG 0x00F6 manual: .db $20, $20, $20, $20, $48, $61, $6E, $64, $6D, $61, $74, $69, $67, $20, $20, $20, $00 0000f6 20 0000f7 20 0000f8 20 0000f9 20 0000fa 48 0000fb 61 0000fc 6e 0000fd 64 0000fe 6d 0000ff 61 000100 74 000101 69 000102 67 000103 20 000104 20 000105 20 000106 00 ; H a n d m a t i g .ORG 0x0108 schakel: .db $53, $63, $68, $61, $6b, $65, $6C, $20, $4E, $28, $2D, $29, $4A, $28, $2B, $29, $00 000108 53 000109 63 00010a 68 00010b 61 00010c 6b 00010d 65 00010e 6c 00010f 20 000110 4e 000111 28 000112 2d 000113 29 000114 4a 000115 28 000116 2b 000117 29 000118 00 ; S c h a k e l N ( - ) J ( + ) ;.include "data_eng.asm" Assembly complete with 4 errors