IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Blitz.$.!Blitz

ScreenSize 160

Set BALL_Game$Dir <Obey$Dir>
IF ADFFS$CPUID>=&A10 THEN WimpSlot -min 1608K -max 1608K ELSE WimpSlot -min 608K -max 608K
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Don't use the stack for code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1ED24 E92D0009 E58F0000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1ED30 E28DD008 E1A00000

| Don't mess with hardware vectors
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20A60 E89103E0 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20A98 E4815008 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20A9C E8810380 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20B4C E4815008 E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20B50 E8810380 E1A00000

| Use local stack for SVC
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20B0C E28EE018 E28EE020
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20B1C E1A0F002 E3A0D601
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20B20 E1A00000 E24DCC01
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20B24 E1A00000 E1A0F002

| Move USER stack outside of code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1E030 E59F1024 E3A01809

| Switch use of EventV to call C code, to a Device Vector
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 209F4 E3500004 E1A0F00E
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20C68 E3A0000E E3A00003
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20C6C E3A01004 E24F1F9E
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20C70 EF020006 EF02004B
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20CCC E3A0000D E3A00003
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20CD0 E3A01004 E24F1FB7
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 20CD4 EF000006 EF02004C

ADFJoystickKeys J1 R=79 L=78 U=64 D=81 B1=95 J2 R=91 L=90 U=58 D=75 B1=103
| Player 1   Player2
| X          Keypad 2     - Right
| Z          Keypad 1     - Left
| G          Keypad +     - Down
| V          Keypad -     - Up
| SPACE      Keypad ENTER - Fire

<BALL_Game$Dir>.!RunImage %*0
ADFJoystickKeys
FX 15,0
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT