Home » Archimedes archive » Acorn User » AU 1993-10.adf » !3DGraphic_3DGraphic » Source/SWI05

Source/SWI05

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-10.adf » !3DGraphic_3DGraphic
Filename: Source/SWI05
Read OK:
File size: 01CF bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM >Source.SWI05
   20REM BAU3D_Free source
   30REM by DCA
   40REM for 32-bit machines
   50REM (c) BAU August 1993
   60:
   70DEF FNswi05_name
   80="Free"
   90:
  100DEF FNswi05_vars
  110=0
  120:
  130DEF FNswi05_code
  140[OPT pass%
  150.free
  160        STMFD   (sp)!,{r0-r3,link}
  170        MOV     r2,r0
  180        FNadrl(14,heap_base)
  190        LDR     r1,[r14]
  200        MOV     r0,#3
  210        SWI     "XOS_Heap"
  220        STRVS   r0,[sp]
  230        LDMFD   (sp)!,{r0-r3,pc}
  240]
  250=0

� >Source.SWI05
� BAU3D_Free source
� by DCA
(� for 32-bit machines
2� (c) BAU August 1993
<:
F� �swi05_name
P="Free"
Z:
d� �swi05_vars
n=0
x:
�� �swi05_code
�[OPT pass%
�	.free
�&        STMFD   (sp)!,{r0-r3,link}
�        MOV     r2,r0
�        �adrl(14,heap_base)
�        LDR     r1,[r14]
�        MOV     r0,#3
�        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 35 0d 00 14 17 f4  20 42 41 55 33 44 5f 46  |I05..... BAU3D_F|
00000020  72 65 65 20 73 6f 75 72  63 65 0d 00 1e 0c f4 20  |ree source..... |
00000030  62 79 20 44 43 41 0d 00  28 19 f4 20 66 6f 72 20  |by DCA..(.. for |
00000040  33 32 2d 62 69 74 20 6d  61 63 68 69 6e 65 73 0d  |32-bit machines.|
00000050  00 32 19 f4 20 28 63 29  20 42 41 55 20 41 75 67  |.2.. (c) BAU Aug|
00000060  75 73 74 20 31 39 39 33  0d 00 3c 05 3a 0d 00 46  |ust 1993..<.:..F|
00000070  11 dd 20 a4 73 77 69 30  35 5f 6e 61 6d 65 0d 00  |.. .swi05_name..|
00000080  50 0b 3d 22 46 72 65 65  22 0d 00 5a 05 3a 0d 00  |P.="Free"..Z.:..|
00000090  64 11 dd 20 a4 73 77 69  30 35 5f 76 61 72 73 0d  |d.. .swi05_vars.|
000000a0  00 6e 06 3d 30 0d 00 78  05 3a 0d 00 82 11 dd 20  |.n.=0..x.:..... |
000000b0  a4 73 77 69 30 35 5f 63  6f 64 65 0d 00 8c 0e 5b  |.swi05_code....[|
000000c0  4f 50 54 20 70 61 73 73  25 0d 00 96 09 2e 66 72  |OPT pass%.....fr|
000000d0  65 65 0d 00 a0 26 20 20  20 20 20 20 20 20 53 54  |ee...&        ST|
000000e0  4d 46 44 20 20 20 28 73  70 29 21 2c 7b 72 30 2d  |MFD   (sp)!,{r0-|
000000f0  72 33 2c 6c 69 6e 6b 7d  0d 00 aa 19 20 20 20 20  |r3,link}....    |
00000100  20 20 20 20 4d 4f 56 20  20 20 20 20 72 32 2c 72  |    MOV     r2,r|
00000110  30 0d 00 b4 1f 20 20 20  20 20 20 20 20 a4 61 64  |0....        .ad|
00000120  72 6c 28 31 34 2c 68 65  61 70 5f 62 61 73 65 29  |rl(14,heap_base)|
00000130  0d 00 be 1c 20 20 20 20  20 20 20 20 4c 44 52 20  |....        LDR |
00000140  20 20 20 20 72 31 2c 5b  72 31 34 5d 0d 00 c8 19  |    r1,[r14]....|
00000150  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00000160  72 30 2c 23 33 0d 00 d2  1e 20 20 20 20 20 20 20  |r0,#3....       |
00000170  20 53 57 49 20 20 20 20  20 22 58 4f 53 5f 48 65  | SWI     "XOS_He|
00000180  61 70 22 0d 00 dc 1b 20  20 20 20 20 20 20 20 53  |ap"....        S|
00000190  54 52 56 53 20 20 20 72  30 2c 5b 73 70 5d 0d 00  |TRVS   r0,[sp]..|
000001a0  e6 24 20 20 20 20 20 20  20 20 4c 44 4d 46 44 20  |.$        LDMFD |
000001b0  20 20 28 73 70 29 21 2c  7b 72 30 2d 72 33 2c 70  |  (sp)!,{r0-r3,p|
000001c0  63 7d 0d 00 f0 05 5d 0d  00 fa 06 3d 30 0d ff     |c}....]....=0..|
000001cf