From 2becfd310c190fdde181f03fc8402429e5d1e99c Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Wed, 8 Dec 2021 11:28:56 -0500
Subject: [PATCH] Move SEI to top of XF2AUX macro. Safer!

---
 applecorn.po  | Bin 819200 -> 819200 bytes
 applecorn.s   |   2 +-
 auxmem.init.s |   2 +-
 3 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/applecorn.po b/applecorn.po
index 4304ff61bf0b2bb6330456ac592584754382b7e5..15a523a5d15bc189c8d780d051bceca989f915e6 100644
GIT binary patch
delta 866
zcmZo@FluNp+AxuYw?kWoo1x(`g9C`Mc^=EnYQc(i-3NeZ5kucw=0ys9@0d4tG^}QX
z3;zNMzX1umH03br!c_Nwgx>;%Ep!aReMAm(<osiX$;rdyCf{w|2{#CA{so|p$;(@8
z;G(J^wf8}yUs|SMif*3S+Kq6_dXVB<AjPKbQE<h)Ako_((FN^laM9;*wb$E2;G%y(
zqIW=QZ90lfU=F?yGXd(ES?d}P08xa(OAnY51DM9mk2)-vtzg3aAmO_}^PoCU`dnaI
z$>6azKdg6in8LU444A@3n8L{+J+5%)z_m|a)uRU&MTE)Ao@}`2E077`kV@_Kf{P;5
z9_Tf~BFfyS1Q%TeG6584lg;{6;GVw*61|S_0^IZ3Q(%sl0V%lw(%9E$Q4bT{0usH6
zMdMUI1xdJGe5zE5Ql){aiUnllWY2zMxWC|5Oz!QU4j0XV`D?Q21W&kVCtS3D0>T7v
zVgZH0=F1bRI2bLO{bsiN&13{(CLm@8Viq7~1!6WJW(Q&pAm#*OuI+v^xi>un01%43
A@c;k-

delta 866
zcmZo@FluNp+AxuYw@q7EgrVUvg9C`Mc^=EnYQc5g2Y_f1L*HBGMGAfIm@77SG^}QX
z3I75KzX1!oH03brLRI&Ggx`XMEp!aReMAm(<osiX%E`m!Cf{w|2{Q<6{soYZ$;(@8
zV4|uZwfDiIUs|SMif*3S+6{NhdXVB<V8y2GQ82~4Ako`k(FN^lFwy4-wb$E2V4{CO
zqIbY*Z90lfpbowdHv#IIS?d}P08xa(OAn|L1GvV`k2)-vt)RmFAmO_p^PoCU`dnaI
z$>6azKdg6in8LU445-3JxWdUHJ+3h4Ahb_j)uRU!MGBLbJ=rkPS0EE0A(h(e1rtS5
zd!W|{izsuS5=?Xz$OLelO*ZROfqDKKNc1|A7vP@Po&t5e3`ofhaH#e5S=2*Cw}3=%
zV$(R)PeBr<7q2Q+qEu<1s$u~<#IxTR<}ZX5lY9H8!$fo7{+et$!4oFhi4g6d05<`g
zSioVh`SOG+4o0(PznSfRGZ}%H35c12m<5PgftU@5*@2h?h&h3nYrEe}?oH1CLTtV3

diff --git a/applecorn.s b/applecorn.s
index 9726988..27574ce 100644
--- a/applecorn.s
+++ b/applecorn.s
@@ -75,13 +75,13 @@ AUXMOS      EQU   $D000       ; Final location in aux LC
 * Called by code running in main mem to invoke a
 * routine in aux memory
 XF2AUX      MAC
+            SEI               ; Disable IRQ before XFER
             LDX   $C08B       ; R/W LC RAM, bank 1
             LDX   $C08B
             LDX   #<]1
             STX   STRTL
             LDX   #>]1
             STX   STRTH
-            SEI               ; Disable IRQ before XFER
             SEC               ; Use aux memory
             BIT   RTSINSTR    ; Set V: use alt ZP and LC
             JMP   XFER
diff --git a/auxmem.init.s b/auxmem.init.s
index aff249b..dff670e 100644
--- a/auxmem.init.s
+++ b/auxmem.init.s
@@ -204,7 +204,7 @@ BYTE00      BEQ   BYTE00A                    ; OSBYTE 0,0 - generate error
             RTS                              ; %000x1xxx host type, 'A'pple
 BYTE00A     BRK
             DB    $F7
-HELLO       ASC   'Applecorn MOS 2021-12-06'
+HELLO       ASC   'Applecorn MOS 2021-12-08'
             DB    $00                        ; Unify MOS messages