� >Examples.SwiHand

$� {MODULE TITLE   TestMod      }
($� {MODULE VERSION 1.00         }
2$� {MODULE TYPE    SERVICE      }
<$� {MODULE COMMAND Test         }
F%� {MODULE HELP    A test module }
P� {MODULE MEMORY = 10000 }
Z
d� {SWIBASE = &8F400 }
n
x� ș Init = 0
�� ș Exit = 1
�� ș Error = 2
�
�"�"Hello this is a swi handler"
�
�Ȏ ș� �
�� Init :�"Initialise"
�
�  � I%=0 � 7*4 �4
�     �"R";�I%;"=&";~I%!șǓ
�  �
�
�� Exit :�"Exit"

  � I%=0 � 7*4 �4

    I%!șǓ = I%!șǓ +I%

  �

6

@� Error:� 1,"Get away"

J�
�

00000000  0d 00 0a 17 f4 20 3e 45  78 61 6d 70 6c 65 73 2e  |..... >Examples.|
00000010  53 77 69 48 61 6e 64 0d  00 14 04 0d 00 1e 24 f4  |SwiHand.......$.|
00000020  20 7b 4d 4f 44 55 4c 45  20 54 49 54 4c 45 20 20  | {MODULE TITLE  |
00000030  20 54 65 73 74 4d 6f 64  20 20 20 20 20 20 7d 0d  | TestMod      }.|
00000040  00 28 24 f4 20 7b 4d 4f  44 55 4c 45 20 56 45 52  |.($. {MODULE VER|
00000050  53 49 4f 4e 20 31 2e 30  30 20 20 20 20 20 20 20  |SION 1.00       |
00000060  20 20 7d 0d 00 32 24 f4  20 7b 4d 4f 44 55 4c 45  |  }..2$. {MODULE|
00000070  20 54 59 50 45 20 20 20  20 53 45 52 56 49 43 45  | TYPE    SERVICE|
00000080  20 20 20 20 20 20 7d 0d  00 3c 24 f4 20 7b 4d 4f  |      }..<$. {MO|
00000090  44 55 4c 45 20 43 4f 4d  4d 41 4e 44 20 54 65 73  |DULE COMMAND Tes|
000000a0  74 20 20 20 20 20 20 20  20 20 7d 0d 00 46 25 f4  |t         }..F%.|
000000b0  20 7b 4d 4f 44 55 4c 45  20 48 45 4c 50 20 20 20  | {MODULE HELP   |
000000c0  20 41 20 74 65 73 74 20  6d 6f 64 75 6c 65 20 7d  | A test module }|
000000d0  0d 00 50 1e f4 20 7b 4d  4f 44 55 4c 45 20 4d 45  |..P.. {MODULE ME|
000000e0  4d 4f 52 59 20 3d 20 31  30 30 30 30 20 7d 0d 00  |MORY = 10000 }..|
000000f0  5a 04 0d 00 64 19 f4 20  7b 53 57 49 42 41 53 45  |Z...d.. {SWIBASE|
00000100  20 3d 20 26 38 46 34 30  30 20 7d 0d 00 6e 04 0d  | = &8F400 }..n..|
00000110  00 78 11 dd 20 c8 99 20  49 6e 69 74 20 3d 20 30  |.x.. .. Init = 0|
00000120  0d 00 82 11 dd 20 c8 99  20 45 78 69 74 20 3d 20  |..... .. Exit = |
00000130  31 0d 00 8c 12 dd 20 c8  99 20 45 72 72 6f 72 20  |1..... .. Error |
00000140  3d 20 32 0d 00 96 04 0d  00 a0 22 f1 22 48 65 6c  |= 2......."."Hel|
00000150  6c 6f 20 74 68 69 73 20  69 73 20 61 20 73 77 69  |lo this is a swi|
00000160  20 68 61 6e 64 6c 65 72  22 0d 00 aa 04 0d 00 b4  | handler".......|
00000170  0c c8 8e 20 c8 99 a4 20  ca 0d 00 be 19 c9 20 49  |... ... ...... I|
00000180  6e 69 74 20 3a f1 22 49  6e 69 74 69 61 6c 69 73  |nit :."Initialis|
00000190  65 22 0d 00 c8 04 0d 00  d2 15 20 20 e3 20 49 25  |e"........  . I%|
000001a0  3d 30 20 b8 20 37 2a 34  20 88 34 0d 00 dc 1f 20  |=0 . 7*4 .4.... |
000001b0  20 20 20 20 f1 22 52 22  3b c3 49 25 3b 22 3d 26  |    ."R";.I%;"=&|
000001c0  22 3b 7e 49 25 21 c8 99  c7 93 0d 00 e6 07 20 20  |";~I%!........  |
000001d0  ed 0d 00 f0 04 0d 00 fa  13 c9 20 45 78 69 74 20  |.......... Exit |
000001e0  3a f1 22 45 78 69 74 22  0d 01 04 15 20 20 e3 20  |:."Exit"....  . |
000001f0  49 25 3d 30 20 b8 20 37  2a 34 20 88 34 0d 01 0e  |I%=0 . 7*4 .4...|
00000200  1d 20 20 20 20 49 25 21  c8 99 c7 93 20 3d 20 49  |.    I%!.... = I|
00000210  25 21 c8 99 c7 93 20 2b  49 25 0d 01 18 07 20 20  |%!.... +I%....  |
00000220  ed 0d 01 36 04 0d 01 40  1a c9 20 45 72 72 6f 72  |...6...@.. Error|
00000230  3a 85 20 31 2c 22 47 65  74 20 61 77 61 79 22 0d  |:. 1,"Get away".|
00000240  01 4a 05 cb 0d ff                                 |.J....|
00000246