; Macro file to translate SCCAVR assembler output
; into AVR instructions.
; Ron Kreymborg

ldix	macro	val
	ldi	r27,high(val)
	ldi	r26,low(val)
	endm

ldiy	macro	val
	ldi	r29,high(val)
	ldi	r28,low(val)
	endm

ldiz	macro	val
	ldi	r31,high(val)
	ldi	r30,low(val)
	endm

ldil	macro	val
	ldi	r31,high(hwrd(val))
	ldi	r30,low(hwrd(val))
	ldi	r27,high(lwrd(val))
	ldi	r26,low(lwrd(val))
	endm

llds	macro	val
	lds	r31,val
	lds	r30,val+1
	lds	r27,val+2
	lds	r26,val+3
	endm

ldpri	macro	val
	ldi	r30,low(val)
	ldi	r31,high(val)
	endm

ldsc	macro	val
	lds	r30,val
	endm

ldsw	macro	val
	lds	r31,val
	lds	r30,val+1
	endm

stsc	macro	val
	sts	val,r30
	endm

stsw	macro	val
	sts	val,r31
	sts	val+1,r30
	endm

cpystk	macro
	mov	r30,r28
	mov	r31,r29
	endm

addz	macro	val
	adiw	r30,val
	endm

subz	macro	val
	sbiw	r30,val
	endm

lodc	macro
	lpm
	mov	r30,r0
	clr	r31
	endm

lodw	macro
	lpm
	mov	r25,r0
	adiw	r30,1
	lpm
	mov	r30,r0
	mov	r31,r25
	endm

pushz	macro
	st	-y,r30
	st	-y,r31
	endm

popx	macro
	ld	r27,y+
	ld	r26,y+
	endm