crti.s90

fitted with the external ram for avr

;*******************************************************************
;  startup.s90 for no interrupts AVR micro.
;
;
;
;
;
;
;
;
;
; Ron Kreymborg
;
;*******************************************************************

	col	120
	lstexp-				; no macro listing

#include "avr.inc"
#include "io8515.h"

;*******************************************************************
; CODE SEGMENT

	name	startup
	rseg	scode
	extern	SOFTSTK, HARDSTK
        extern	_main
	
	rjmp	_prep

_prep	ldiz	HARDSTK
	out	SPH,r31
	out	SPL,r30
	
	ldi	r20,0x80
	out	MCUCR,r20
	
	rcall	_rmclr
	ldiy	SOFTSTK+1
	rcall	_main
	rjmp	$


_rmclr	clr	r27
	ldiz	SOFTSTK
_rcl1	st	-z,r27
	cpi	r30,low(HARDSTK+1)
	brne	_rcl1
	cpi	r31,high(HARDSTK+1)
	brne	_rcl1
	ret

	end