@ExitProc .macro

 lda @stack_pointer
 sec
 sbc #:1
 sta @stack_pointer
  
 rts

 .endm


 end
 
; --- wersja ktora zaoszczedzi bajty, ale nie cykle
; --- jesli chcesz uzyc tej wersji, zaremuj wczesniejsza deklaracje makra .EXITPROC
; --- i rozkaz END

@ExitProc .macro

 lda #:1
 jmp ExitProc

 .endm


ExitProc
 sta _exitproc

 lda @stack_pointer
 sec
 sbc #0
_exitproc equ *-1
 sta @stack_pointer
 rts