� >Source.SWI03
� BAU3D_HeapInit source
� by DCA
(� for 32-bit machines
2� (c) BAU August 1993
<:
F� �swi03_name
P="HeapInit"
Z:
d� �swi03_vars
nheap_base=�wk(4)
xheap_size=�wk(4)
�=0
�:
�� �swi03_code
�[OPT pass%
�&        STMFD   (sp)!,{r0-r3,link}
�        �adrl(14,heap_base)
�        STMIA   r14,{r0,r1}
�        LDMIA   r14,{r1,r3}
�        MOV     r0,#0
�        SWI     "XOS_Heap"
�        STRVS   r0,[sp]
�$        LDMFD   (sp)!,{r0-r3,pc}
�]

=0
�

00000000  0d 00 0a 13 f4 20 3e 53  6f 75 72 63 65 2e 53 57  |..... >Source.SW|
00000010  49 30 33 0d 00 14 1b f4  20 42 41 55 33 44 5f 48  |I03..... BAU3D_H|
00000020  65 61 70 49 6e 69 74 20  73 6f 75 72 63 65 0d 00  |eapInit source..|
00000030  1e 0c f4 20 62 79 20 44  43 41 0d 00 28 19 f4 20  |... by DCA..(.. |
00000040  66 6f 72 20 33 32 2d 62  69 74 20 6d 61 63 68 69  |for 32-bit machi|
00000050  6e 65 73 0d 00 32 19 f4  20 28 63 29 20 42 41 55  |nes..2.. (c) BAU|
00000060  20 41 75 67 75 73 74 20  31 39 39 33 0d 00 3c 05  | August 1993..<.|
00000070  3a 0d 00 46 11 dd 20 a4  73 77 69 30 33 5f 6e 61  |:..F.. .swi03_na|
00000080  6d 65 0d 00 50 0f 3d 22  48 65 61 70 49 6e 69 74  |me..P.="HeapInit|
00000090  22 0d 00 5a 05 3a 0d 00  64 11 dd 20 a4 73 77 69  |"..Z.:..d.. .swi|
000000a0  30 33 5f 76 61 72 73 0d  00 6e 14 68 65 61 70 5f  |03_vars..n.heap_|
000000b0  62 61 73 65 3d a4 77 6b  28 34 29 0d 00 78 14 68  |base=.wk(4)..x.h|
000000c0  65 61 70 5f 73 69 7a 65  3d a4 77 6b 28 34 29 0d  |eap_size=.wk(4).|
000000d0  00 82 06 3d 30 0d 00 8c  05 3a 0d 00 96 11 dd 20  |...=0....:..... |
000000e0  a4 73 77 69 30 33 5f 63  6f 64 65 0d 00 a0 0e 5b  |.swi03_code....[|
000000f0  4f 50 54 20 70 61 73 73  25 0d 00 aa 26 20 20 20  |OPT pass%...&   |
00000100  20 20 20 20 20 53 54 4d  46 44 20 20 20 28 73 70  |     STMFD   (sp|
00000110  29 21 2c 7b 72 30 2d 72  33 2c 6c 69 6e 6b 7d 0d  |)!,{r0-r3,link}.|
00000120  00 b4 1f 20 20 20 20 20  20 20 20 a4 61 64 72 6c  |...        .adrl|
00000130  28 31 34 2c 68 65 61 70  5f 62 61 73 65 29 0d 00  |(14,heap_base)..|
00000140  be 1f 20 20 20 20 20 20  20 20 53 54 4d 49 41 20  |..        STMIA |
00000150  20 20 72 31 34 2c 7b 72  30 2c 72 31 7d 0d 00 c8  |  r14,{r0,r1}...|
00000160  1f 20 20 20 20 20 20 20  20 4c 44 4d 49 41 20 20  |.        LDMIA  |
00000170  20 72 31 34 2c 7b 72 31  2c 72 33 7d 0d 00 d2 19  | r14,{r1,r3}....|
00000180  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00000190  72 30 2c 23 30 0d 00 dc  1e 20 20 20 20 20 20 20  |r0,#0....       |
000001a0  20 53 57 49 20 20 20 20  20 22 58 4f 53 5f 48 65  | SWI     "XOS_He|
000001b0  61 70 22 0d 00 e6 1b 20  20 20 20 20 20 20 20 53  |ap"....        S|
000001c0  54 52 56 53 20 20 20 72  30 2c 5b 73 70 5d 0d 00  |TRVS   r0,[sp]..|
000001d0  f0 24 20 20 20 20 20 20  20 20 4c 44 4d 46 44 20  |.$        LDMFD |
000001e0  20 20 28 73 70 29 21 2c  7b 72 30 2d 72 33 2c 70  |  (sp)!,{r0-r3,p|
000001f0  63 7d 0d 00 fa 05 5d 0d  01 04 06 3d 30 0d ff     |c}....]....=0..|
000001ff