    ;********************************************************************
    ;* LED flasher: LED will flash with a X on/off ratio at PD6
    ;*
    ;* NOTE: delay depends in the value of X, 1 is fast, 255 is slow
    ;*
    ;* No copyright ©1998 RES® * FREEWARE *
    ;*
    ;* NOTE: Connect a low current LED with a 1k resistor in serie from
    ;*	 Vdd to pin 11 of the MCU. (Or a normal LED with a 330ohm)
    ;*
    ;* RES® can be reached by email: digitalaudio@mail.com
    ;* or visit the website: http://home.wanadoo.nl/electro1/avr
    ;*
    ;* Version           :1.0
    ;* Date		     :12/26/98
    ;* Author	     :Rob's ElectroSoft®
    ;* Target MCU        :AT90S1200-12PI@4MHz
    ;********************************************************************

    .include "1200def.inc"

    	rjmp	RESET		;reset handle

    ;* Long delay

    ;* Register variables

    	.def  T1      = r1
    	.def  T2      = r2
    	.def  temp    = r19

    ;* Code

    longDelay:
    	clr   T1		;T1 used as delay 2nd count
    	clr   T2		;T2 used as delay 3d count
    delay_1:
    	dec   T2
    	brne  delay_1
    	dec   T1
    	brne  delay_1
    	dec   temp		;temp must be preset as
    	brne  delay_1		; delay master count
    	ret

    ;* Resets the data direction register D

    ;* Defines

    	.equ  led   = 6		;LED at PD6

    ;* Code

    RESET:
    	sbi   DDRD, led		;connect LED to PORTD pin 6

    ;* Main program

    ;* This part will let the LED go on and off by X

    ;* Register variables

    	.equ  X   =  10 	;enter delaytime X

    flash:
    	sbi   PORTD, led	;LED on
    	ldi   temp, X		;X sec delay
    	rcall longDelay
    	cbi   PORTD, led	;LED off
    	ldi   temp, X		;X sec delay
    	rcall longDelay
    	rjmp  flash		;another run

    /* other
    tests */

    .org LARGEBOOTSTART
    ; the following sets up RAMPZ:Z to point to a FLASH data object, typically
    ; for use with ELPM.
    ldi ZL, low (cmdtable * 2)
    ldi ZH, high (cmdtable * 2)
    .if ((cmdtable * 2) > 65535)
    ldi r16, 1
    sts RAMPZ, r16
    .endif
    ; more code follows here
    cmdtable: .db "foo", 0x0
    .db "Hello\n" // is equivalent to:
    .db 'H', 'e', 'l', 'l', 'o', '\\', 'n'
    .db '\0', '\177', '\xff'
    .db "\nx\rx\ax\bx\fx\tx\vx\\x\0000\xfff\0\1"
    0b10_111_2 0xaf3_4 0_12 32_32 $32_3

    .macro m
    ldi @0, @1
    .endm m r16,\ 0

    #define TEST \
    .IF val \
    .DW __TIME__ \
    .ELSE \
    .DW 1 \
    .ENDIF

    #defi TEST