Home » Archimedes archive » Acorn User » AU 1993-08.adf » !3DGraphic_3DGraphic » Source/SWI04
Source/SWI04
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1993-08.adf » !3DGraphic_3DGraphic |
| Filename: | Source/SWI04 |
| Read OK: | ✔ |
| File size: | 01D3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Archimedes archive » Acorn User » AU 1993-10.adf » !3DGraphic_3DGraphic » Source/SWI04
- Archimedes archive » Acorn User » AU 1993-08.adf » !3DGraphic_3DGraphic » Source/SWI04
- Archimedes archive » Acorn User » AU 1993-09.adf » !3DGraphic_3DGraphic » Source/SWI04
File contents
10REM >Source.SWI04
20REM BAU3D_Malloc source
30REM by DCA
40REM for 32-bit machines
50REM (c) BAU August 1993
60:
70DEF FNswi04_name
80="Malloc"
90:
100DEF FNswi04_vars
110=0
120:
130DEF FNswi04_code
140[OPT pass%
150.malloc
160 STMFD (sp)!,{r1-r3,link}
170 MOV r3,r0
180 FNadrl(14,heap_base)
190 LDR r1,[r14]
200 MOV r0,#2
210 SWI "XOS_Heap"
220 MOVVC r0,r2
230 LDMFD (sp)!,{r1-r3,pc}
240]
250=0
� >Source.SWI04
� BAU3D_Malloc source
� by DCA
(� for 32-bit machines
2� (c) BAU August 1993
<:
F� �swi04_name
P
="Malloc"
Z:
d� �swi04_vars
n=0
x:
�� �swi04_code
�[OPT pass%
� .malloc
�& STMFD (sp)!,{r1-r3,link}
� MOV r3,r0
� �adrl(14,heap_base)
� LDR r1,[r14]
� MOV r0,#2
� SWI "XOS_Heap"
� MOVVC r0,r2
�$ LDMFD (sp)!,{r1-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 34 0d 00 14 19 f4 20 42 41 55 33 44 5f 4d |I04..... BAU3D_M|
00000020 61 6c 6c 6f 63 20 73 6f 75 72 63 65 0d 00 1e 0c |alloc source....|
00000030 f4 20 62 79 20 44 43 41 0d 00 28 19 f4 20 66 6f |. by DCA..(.. fo|
00000040 72 20 33 32 2d 62 69 74 20 6d 61 63 68 69 6e 65 |r 32-bit machine|
00000050 73 0d 00 32 19 f4 20 28 63 29 20 42 41 55 20 41 |s..2.. (c) BAU A|
00000060 75 67 75 73 74 20 31 39 39 33 0d 00 3c 05 3a 0d |ugust 1993..<.:.|
00000070 00 46 11 dd 20 a4 73 77 69 30 34 5f 6e 61 6d 65 |.F.. .swi04_name|
00000080 0d 00 50 0d 3d 22 4d 61 6c 6c 6f 63 22 0d 00 5a |..P.="Malloc"..Z|
00000090 05 3a 0d 00 64 11 dd 20 a4 73 77 69 30 34 5f 76 |.:..d.. .swi04_v|
000000a0 61 72 73 0d 00 6e 06 3d 30 0d 00 78 05 3a 0d 00 |ars..n.=0..x.:..|
000000b0 82 11 dd 20 a4 73 77 69 30 34 5f 63 6f 64 65 0d |... .swi04_code.|
000000c0 00 8c 0e 5b 4f 50 54 20 70 61 73 73 25 0d 00 96 |...[OPT pass%...|
000000d0 0b 2e 6d 61 6c 6c 6f 63 0d 00 a0 26 20 20 20 20 |..malloc...& |
000000e0 20 20 20 20 53 54 4d 46 44 20 20 20 28 73 70 29 | STMFD (sp)|
000000f0 21 2c 7b 72 31 2d 72 33 2c 6c 69 6e 6b 7d 0d 00 |!,{r1-r3,link}..|
00000100 aa 19 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 |.. MOV |
00000110 20 20 72 33 2c 72 30 0d 00 b4 1f 20 20 20 20 20 | r3,r0.... |
00000120 20 20 20 a4 61 64 72 6c 28 31 34 2c 68 65 61 70 | .adrl(14,heap|
00000130 5f 62 61 73 65 29 0d 00 be 1c 20 20 20 20 20 20 |_base).... |
00000140 20 20 4c 44 52 20 20 20 20 20 72 31 2c 5b 72 31 | LDR r1,[r1|
00000150 34 5d 0d 00 c8 19 20 20 20 20 20 20 20 20 4d 4f |4].... MO|
00000160 56 20 20 20 20 20 72 30 2c 23 32 0d 00 d2 1e 20 |V r0,#2.... |
00000170 20 20 20 20 20 20 20 53 57 49 20 20 20 20 20 22 | SWI "|
00000180 58 4f 53 5f 48 65 61 70 22 0d 00 dc 19 20 20 20 |XOS_Heap".... |
00000190 20 20 20 20 20 4d 4f 56 56 43 20 20 20 72 30 2c | MOVVC r0,|
000001a0 72 32 0d 00 e6 24 20 20 20 20 20 20 20 20 4c 44 |r2...$ LD|
000001b0 4d 46 44 20 20 20 28 73 70 29 21 2c 7b 72 31 2d |MFD (sp)!,{r1-|
000001c0 72 33 2c 70 63 7d 0d 00 f0 05 5d 0d 00 fa 06 3d |r3,pc}....]....=|
000001d0 30 0d ff |0..|
000001d3 
.