AVRA   Ver. 1.2.3 blink.asm Sat Sep 13 21:12:35 2008


         ; blink.asm - blink RS232 tester TxD LED
         ; author Neil Franklin, last modification 2008.09.13
         
         ; need fuses, fast external quarz osc, max stable startup
         ; FF: 7:BODLVL=1, 6:BOD=1 (disable), 54:SUT=11, 3210:CKSEL=1111 (int RC@1Hz)
         ; D9: 7:OCDEN=1 (dis), 6:JTAGEN=1 (dis), 5:SPIEN=0 (en), 4:CKOPT=1
         ;     3:EESAVE=1 (not preserve), 21:BOOTSZ=00, 0:BOOTRST=1 
         
         
            .include "m32def.inc"
          .list
         
            .cseg
            .org $0000
         
C:000000 940c 002b   jmp RESET
C:000002 940c 002a   jmp RETI
C:000004 940c 002a   jmp RETI
C:000006 940c 002a   jmp RETI
C:000008 940c 002a   jmp RETI
         
C:00000a 940c 002a   jmp RETI
C:00000c 940c 002a   jmp RETI
C:00000e 940c 002a   jmp RETI
C:000010 940c 002a   jmp RETI
C:000012 940c 002a   jmp RETI
         
C:000014 940c 002a   jmp RETI
C:000016 940c 002a   jmp RETI
C:000018 940c 002a   jmp RETI
C:00001a 940c 002a   jmp RETI
C:00001c 940c 002a   jmp RETI
         
C:00001e 940c 002a   jmp RETI
C:000020 940c 002a   jmp RETI
C:000022 940c 002a   jmp RETI
C:000024 940c 002a   jmp RETI
C:000026 940c 002a   jmp RETI
         
C:000028 940c 002a   jmp RETI
         
         
          RETI:
C:00002a 9518        reti
         
         
          RESET:
C:00002b e56f        ldi TL,low(MAXRAM)
C:00002c e078        ldi TH,high(MAXRAM)
C:00002d bf6d        out SPL,TL
C:00002e bf7e        out SPH,TH
C:00002f 9478        sei
         
          DDR:
C:000030 e062        ldi TL,(1<<PINTXD)
C:000031 bb61        out DDRD,TL
         
          COLOURS:
            .def RED = R16
            .def GRN = R17
C:000032 e002        ldi RED,(1<<PINTXD) ; pin = 1, RS232 = -12V, LED = red
C:000033 2f10        mov GRN,RED
C:000034 9510        com GRN             ; pin = 0, RS232 = 12V, LED = green
         
          INIT:
C:000035 b362        in TL,PORTD
C:000036 2b60        or TL,RED
C:000037 bb62        out PORTD,TL
         
          LOOP:
          G1:
C:000038 b362        in TL,PORTD
C:000039 2361        and TL,GRN      ; blink
C:00003a bb62        out PORTD,TL
         
C:00003b 940e 0056   call WAIT
         
          R1:
C:00003d b362        in TL,PORTD
C:00003e 2b60        or TL,RED       ; break
C:00003f bb62        out PORTD,TL
         
C:000040 940e 0056   call WAIT
         
          G2:
C:000042 b362        in TL,PORTD
C:000043 2361        and TL,GRN      ; blink
C:000044 bb62        out PORTD,TL
         
C:000045 940e 0056   call WAIT
         
          R2:
C:000047 b362        in TL,PORTD
C:000048 2b60        or TL,RED       ; wait
C:000049 bb62        out PORTD,TL
         
C:00004a 940e 0056   call WAIT
C:00004c 940e 0056   call WAIT
C:00004e 940e 0056   call WAIT
C:000050 940e 0056   call WAIT
C:000052 940e 0056   call WAIT
         
C:000054 940c 0038   jmp LOOP
         
         
          WAIT:
         
C:000056 e18e        ldi AL,30  ; 30 * 10.7ms = 0.321s
          WLOOP3:
C:000057 e070        ldi TH,0   ; 256 * 41.8us = 10.7ms
          WLOOP2:
C:000058 e060        ldi TL,0   ; 256 * 3 = 768 cycles = 41.8us @ 18.342MHz
          WLOOP1:
C:000059 956a        dec TL
C:00005a f7f1        brne WLOOP1
C:00005b 957a        dec TH
C:00005c f7d9        brne WLOOP2
C:00005d 958a        dec AL
C:00005e f7c1        brne WLOOP3
         
C:00005f 9508        ret


Segment usage:
   Code      :        96 words (192 bytes)
   Data      :         0 bytes
   EEPROM    :         0 bytes

Assembly completed with no errors.