# HG changeset patch
# User Robert Gault <robert.gault@att.net>
# Date 1422137755 -3600
# Node ID a951ab0b3003e420f0ee249c34823cb1df6fe5f6
# Parent  e3e858889ab60358657729522ee0f6122b36898b
level1 6309: Switch to native mode early in rel.asm

Otherwise it will crash in the first F$Link call.

diff -r e3e858889ab6 -r a951ab0b3003 level1/modules/rel.asm
--- a/level1/modules/rel.asm	Sat Jan 24 23:15:48 2015 +0100
+++ b/level1/modules/rel.asm	Sat Jan 24 23:15:55 2015 +0100
@@ -102,6 +102,7 @@
          clra             make A=0 for later
          IFNE  H6309
          tfr   0,dp       set direct page to $0000
+         ldmd  #3         native mode
          ELSE
          tfr   a,dp
          ENDC
@@ -283,6 +284,9 @@
          IFNE  (tano+d64+dalpha)
          clr   PIA0Base+1		added for Dragon, works on CoCo
          ENDC
+         IFNE  H6309
+         ldmd  #3                      native mode
+         ENDC
 
          sta   $FFDF                   turn off ROM
 * locate Boot Text Screen at $8000