� Loader for !Asylum
�
*� All code copyright A. Southgate 1993
(
2ș "Hourglass_On"
<codelen=&B400
Fvarslen=&D100
Pstorearealen=&5C000
Z8� code codelen, vars varslen, storearea storearealen
d1� "Load <Asylum$Path>Code.Gamecode "+�~(code)
n+� "StasisSample 31 0 0":� Delete sample
xș "Hourglass_Off"
�ș "Hourglass_Off"
�aș "XOS_CLI","Shadow 1":� To cancel any Shadow command which may have been issued in the past
�� 13
�Ƞ 8
�Ȣ 5,-32
�Ȣ 6,32
�Ȣ 7,-32
�Ȣ 8,32
�ș "Stasis_Control",8,8
�A%=vars
�B%=storearea
�C%=storearealen
�
� code

Iș "XOS_CLI","If ""<Asylum$Reset>"" =  ""Yes"" Then Error 0" � ;flags

� (flags � 1)=1 �

� 0

"Q� "In order to run Asylum has altered the memory allocation of your machine."

,Q� "Please reset or switch off your machine to restore the normal allocation."

6� "Bye"

@�

J� �

T�

^ș "XWimp_CommandWindow",-1

h�

r

|

�

�

�

�

�
�

00000000  0d 00 0a 18 f4 20 4c 6f  61 64 65 72 20 66 6f 72  |..... Loader for|
00000010  20 21 41 73 79 6c 75 6d  0d 00 14 05 f4 0d 00 1e  | !Asylum........|
00000020  2a f4 20 41 6c 6c 20 63  6f 64 65 20 63 6f 70 79  |*. All code copy|
00000030  72 69 67 68 74 20 41 2e  20 53 6f 75 74 68 67 61  |right A. Southga|
00000040  74 65 20 31 39 39 33 0d  00 28 04 0d 00 32 15 c8  |te 1993..(...2..|
00000050  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00000060  0d 00 3c 11 63 6f 64 65  6c 65 6e 3d 26 42 34 30  |..<.codelen=&B40|
00000070  30 0d 00 46 11 76 61 72  73 6c 65 6e 3d 26 44 31  |0..F.varslen=&D1|
00000080  30 30 0d 00 50 17 73 74  6f 72 65 61 72 65 61 6c  |00..P.storeareal|
00000090  65 6e 3d 26 35 43 30 30  30 0d 00 5a 38 de 20 63  |en=&5C000..Z8. c|
000000a0  6f 64 65 20 63 6f 64 65  6c 65 6e 2c 20 76 61 72  |ode codelen, var|
000000b0  73 20 76 61 72 73 6c 65  6e 2c 20 73 74 6f 72 65  |s varslen, store|
000000c0  61 72 65 61 20 73 74 6f  72 65 61 72 65 61 6c 65  |area storeareale|
000000d0  6e 0d 00 64 31 ff 20 22  4c 6f 61 64 20 3c 41 73  |n..d1. "Load <As|
000000e0  79 6c 75 6d 24 50 61 74  68 3e 43 6f 64 65 2e 47  |ylum$Path>Code.G|
000000f0  61 6d 65 63 6f 64 65 20  22 2b c3 7e 28 63 6f 64  |amecode "+.~(cod|
00000100  65 29 0d 00 6e 2b ff 20  22 53 74 61 73 69 73 53  |e)..n+. "StasisS|
00000110  61 6d 70 6c 65 20 33 31  20 30 20 30 22 3a f4 20  |ample 31 0 0":. |
00000120  44 65 6c 65 74 65 20 73  61 6d 70 6c 65 0d 00 78  |Delete sample..x|
00000130  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00000140  66 66 22 0d 00 82 16 c8  99 20 22 48 6f 75 72 67  |ff"...... "Hourg|
00000150  6c 61 73 73 5f 4f 66 66  22 0d 00 8c 61 c8 99 20  |lass_Off"...a.. |
00000160  22 58 4f 53 5f 43 4c 49  22 2c 22 53 68 61 64 6f  |"XOS_CLI","Shado|
00000170  77 20 31 22 3a f4 20 54  6f 20 63 61 6e 63 65 6c  |w 1":. To cancel|
00000180  20 61 6e 79 20 53 68 61  64 6f 77 20 63 6f 6d 6d  | any Shadow comm|
00000190  61 6e 64 20 77 68 69 63  68 20 6d 61 79 20 68 61  |and which may ha|
000001a0  76 65 20 62 65 65 6e 20  69 73 73 75 65 64 20 69  |ve been issued i|
000001b0  6e 20 74 68 65 20 70 61  73 74 0d 00 96 08 eb 20  |n the past..... |
000001c0  31 33 0d 00 a0 08 c8 a0  20 38 0d 00 aa 0c c8 a2  |13...... 8......|
000001d0  20 35 2c 2d 33 32 0d 00  b4 0b c8 a2 20 36 2c 33  | 5,-32...... 6,3|
000001e0  32 0d 00 be 0c c8 a2 20  37 2c 2d 33 32 0d 00 c8  |2...... 7,-32...|
000001f0  0b c8 a2 20 38 2c 33 32  0d 00 d2 1b c8 99 20 22  |... 8,32...... "|
00000200  53 74 61 73 69 73 5f 43  6f 6e 74 72 6f 6c 22 2c  |Stasis_Control",|
00000210  38 2c 38 0d 00 dc 0b 41  25 3d 76 61 72 73 0d 00  |8,8....A%=vars..|
00000220  e6 10 42 25 3d 73 74 6f  72 65 61 72 65 61 0d 00  |..B%=storearea..|
00000230  f0 13 43 25 3d 73 74 6f  72 65 61 72 65 61 6c 65  |..C%=storeareale|
00000240  6e 0d 00 fa 0a d6 20 63  6f 64 65 0d 01 04 49 c8  |n..... code...I.|
00000250  99 20 22 58 4f 53 5f 43  4c 49 22 2c 22 49 66 20  |. "XOS_CLI","If |
00000260  22 22 3c 41 73 79 6c 75  6d 24 52 65 73 65 74 3e  |""<Asylum$Reset>|
00000270  22 22 20 3d 20 20 22 22  59 65 73 22 22 20 54 68  |"" =  ""Yes"" Th|
00000280  65 6e 20 45 72 72 6f 72  20 30 22 20 b8 20 3b 66  |en Error 0" . ;f|
00000290  6c 61 67 73 0d 01 0e 15  e7 20 28 66 6c 61 67 73  |lags..... (flags|
000002a0  20 80 20 31 29 3d 31 20  8c 0d 01 18 07 eb 20 30  | . 1)=1 ...... 0|
000002b0  0d 01 22 51 f1 20 22 49  6e 20 6f 72 64 65 72 20  |.."Q. "In order |
000002c0  74 6f 20 72 75 6e 20 41  73 79 6c 75 6d 20 68 61  |to run Asylum ha|
000002d0  73 20 61 6c 74 65 72 65  64 20 74 68 65 20 6d 65  |s altered the me|
000002e0  6d 6f 72 79 20 61 6c 6c  6f 63 61 74 69 6f 6e 20  |mory allocation |
000002f0  6f 66 20 79 6f 75 72 20  6d 61 63 68 69 6e 65 2e  |of your machine.|
00000300  22 0d 01 2c 51 f1 20 22  50 6c 65 61 73 65 20 72  |"..,Q. "Please r|
00000310  65 73 65 74 20 6f 72 20  73 77 69 74 63 68 20 6f  |eset or switch o|
00000320  66 66 20 79 6f 75 72 20  6d 61 63 68 69 6e 65 20  |ff your machine |
00000330  74 6f 20 72 65 73 74 6f  72 65 20 74 68 65 20 6e  |to restore the n|
00000340  6f 72 6d 61 6c 20 61 6c  6c 6f 63 61 74 69 6f 6e  |ormal allocation|
00000350  2e 22 0d 01 36 0b ff 20  22 42 79 65 22 0d 01 40  |."..6.. "Bye"..@|
00000360  05 f5 0d 01 4a 07 fd 20  a3 0d 01 54 05 cd 0d 01  |....J.. ...T....|
00000370  5e 1f c8 99 20 22 58 57  69 6d 70 5f 43 6f 6d 6d  |^... "XWimp_Comm|
00000380  61 6e 64 57 69 6e 64 6f  77 22 2c 2d 31 0d 01 68  |andWindow",-1..h|
00000390  05 e0 0d 01 72 04 0d 01  7c 04 0d 01 86 04 0d 01  |....r...|.......|
000003a0  90 04 0d 01 9a 04 0d 01  a4 04 0d 01 ae 04 0d ff  |................|
000003b0