Moved interrupt enabling to the interrupt constructor.

diff --git a/libsrc/apple2/crt0.s b/libsrc/apple2/crt0.s
index 4a7463b273d6f8d7f426c0d3704b3c59d583648b..0f134202e5f7f439985724766bb2d0fd3e548e62 100644 (file)
--- a/libsrc/apple2/crt0.s
+++ b/libsrc/apple2/crt0.s
@@ -164,10 +164,6 @@ basic:  lda     HIMEM
 :       sta     sp
         stx     sp+1
 
-        ; Enable interrupts, as old ProDOS versions (i.e. 1.1.1)
-        ; jump to SYS and BIN programs with interrupts disabled.
-        cli
-
         ; Call the module constructors.
         jsr     initlib
 

diff --git a/libsrc/apple2/irq.s b/libsrc/apple2/irq.s
index c81fa7108da925541a35d5b7ec8e52ef241406ba..0b05556955aba72c5b89cc539da456a7fa113d04 100644 (file)
--- a/libsrc/apple2/irq.s
+++ b/libsrc/apple2/irq.s
@@ -21,6 +21,10 @@ initirq:
         .byte   $40             ; Alloc interrupt
         .addr   i_param
         bcs     prterr
+
+        ; Enable interrupts, as old ProDOS versions (i.e. 1.1.1)
+        ; jump to SYS and BIN programs with interrupts disabled.
+        cli
         rts
 
         ; Print error message and exit