.text

start:
	;  system sequence
	mov	#$1f,apc
	punt
	jmp	_system
$:
	;  user sequence
	mov	#0,sp		; stack pointer
	mov	sp,bp		; frame pointer
        mov	#$1f,@--sp
        jmp	_main
$:
        jmp     $1b             ; trap in infinite loop