*DIR :0
*NAMEDISC 0 Support
BASIC
LOAD"SUPPORT"
106END=HIMEM-(32*1024)
7590IF larE% THEN OSCLI"FX200":MODE12:QUIT ELSE P%=LOMEM:[:OPT 2:MOV R0,#&C8:MOV R1,#&03:MOV R2,#&00:SWI "XOS_Byte":MOV R0,#&03800000:LDR R1,[R0]:STR R1,[R1,-R1]:SWI "XOS_EnterOS":TEQP  PC,#&FC000003:MOV PC,#0:]:CALLLOMEM
SAVE
QUIT
CDIR              !Support
ACCESS *          WR
RENAME CRUSADE    !Support.CRUSADE
RENAME DATA1      !Support.DATA1
RENAME DATA2      !Support.DATA2
RENAME Dem2       !Support.Dem2
RENAME Dem3       !Support.Dem3
RENAME DEMO       !Support.Demo
RENAME DISPLAY    !Support.Display
RENAME EAGLE      !Support.Eagle
RENAME ESCHER     !Support.Escher
RENAME ESCHER1    !Support.Escher1
RENAME FASTRM     !Support.FastRM
RENAME Fonts      !Support.Fonts
RENAME intfix     !Support.Intfix
RENAME LOADER     !Support.Loader
RENAME OBJSUPPORT !Support.ObjSupport
RENAME PRINTPAT   !Support.PrintPat
RENAME SUPICONS   !Support.Supicons
RENAME SUPPORT    !Support.Support
RENAME !RUN       !Support.!Run
QUIT
QUIT
