Place the return code into ST

git-svn-id: svn://svn.cc65.org/cc65/trunk@2883 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/c128/crt0.s b/libsrc/c128/crt0.s
index ea70a8dc83f740df9e1926fc4cc4304f69f369f8..46cfd93d2ea5ddee8fd6e90984a03f58acb0dace 100644 (file)
--- a/libsrc/c128/crt0.s
+++ b/libsrc/c128/crt0.s
@@ -112,10 +112,12 @@ L1:       lda     sp,x
 
 NoIRQ1:        jsr     callmain
 
-; Back from main (this is also the _exit entry). Reset the IRQ vector if
-; we chained it.
+; Back from main (this is also the _exit entry). Store the return code into
+; ST, where it is accessible from BASIC. Reset the IRQ vector if we chained 
+; it.
 
-_exit:  lda     #<__IRQFUNC_COUNT__
+_exit:  sta    ST
+       lda     #<__IRQFUNC_COUNT__
        beq     NoIRQ2
        lda     IRQInd+1
        ldx     IRQInd+2

diff --git a/libsrc/c64/crt0.s b/libsrc/c64/crt0.s
index 63d4c864ca98699424d50489027f5929bdc13b95..7144d61aecd56d985fadab5f73a65a7b4d49149d 100644 (file)
--- a/libsrc/c64/crt0.s
+++ b/libsrc/c64/crt0.s
@@ -82,7 +82,8 @@ L1:   lda     sp,x
 
 ; Call module destructors. This is also the _exit entry.
 
-_exit: jsr     donelib         ; Run module destructors
+_exit:         sta     ST              ; Place return code into ST
+       jsr     donelib         ; Run module destructors
 
 ; Restore system stuff