; Testing stack frames.
; Written by mr b0nk 500 <b0nk@b0nk.xyz>

.org $8000
reset:
	cps		;
	ldx.w #$FFFF	;
	txs		;
	lda #0		;
	tay		;
	tax		;
	tab		;
start:
	inc		;
	pha		;
	ldb sp, $1	;
	pla		;
	sta $0		;
	phy.q		;
	ldb (sp, $8)	;
	ply.q		;
	ldb (sp, -$8)	;
	bra start	;

.org $FFC0
.qword reset
a
;.org reset
;v
;q
d