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

Source/SWI06

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/SWI06
Read OK:
File size: 01EF bytes
Load address: 0000
Exec address: 0000
Duplicates

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

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

� >Source.SWI06
� BAU3D_Realloc source
� by DCA
(� for 32-bit machines
2� (c) BAU August 1993
<:
F� �swi06_name
P="Realloc"
Z:
d� �swi06_vars
n=0
x:
�� �swi06_code
�[OPT pass%
�.realloc
�&        STMFD   (sp)!,{r1-r3,link}
�        MOV     r2,r0
�        MOV     r3,r1
�        �adrl(14,heap_base)
�        LDR     r1,[r14]
�        MOV     r0,#4
�        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 36 0d 00 14 1a f4  20 42 41 55 33 44 5f 52  |I06..... BAU3D_R|
00000020  65 61 6c 6c 6f 63 20 73  6f 75 72 63 65 0d 00 1e  |ealloc source...|
00000030  0c f4 20 62 79 20 44 43  41 0d 00 28 19 f4 20 66  |.. by DCA..(.. f|
00000040  6f 72 20 33 32 2d 62 69  74 20 6d 61 63 68 69 6e  |or 32-bit machin|
00000050  65 73 0d 00 32 19 f4 20  28 63 29 20 42 41 55 20  |es..2.. (c) BAU |
00000060  41 75 67 75 73 74 20 31  39 39 33 0d 00 3c 05 3a  |August 1993..<.:|
00000070  0d 00 46 11 dd 20 a4 73  77 69 30 36 5f 6e 61 6d  |..F.. .swi06_nam|
00000080  65 0d 00 50 0e 3d 22 52  65 61 6c 6c 6f 63 22 0d  |e..P.="Realloc".|
00000090  00 5a 05 3a 0d 00 64 11  dd 20 a4 73 77 69 30 36  |.Z.:..d.. .swi06|
000000a0  5f 76 61 72 73 0d 00 6e  06 3d 30 0d 00 78 05 3a  |_vars..n.=0..x.:|
000000b0  0d 00 82 11 dd 20 a4 73  77 69 30 36 5f 63 6f 64  |..... .swi06_cod|
000000c0  65 0d 00 8c 0e 5b 4f 50  54 20 70 61 73 73 25 0d  |e....[OPT pass%.|
000000d0  00 96 0c 2e 72 65 61 6c  6c 6f 63 0d 00 a0 26 20  |....realloc...& |
000000e0  20 20 20 20 20 20 20 53  54 4d 46 44 20 20 20 28  |       STMFD   (|
000000f0  73 70 29 21 2c 7b 72 31  2d 72 33 2c 6c 69 6e 6b  |sp)!,{r1-r3,link|
00000100  7d 0d 00 aa 19 20 20 20  20 20 20 20 20 4d 4f 56  |}....        MOV|
00000110  20 20 20 20 20 72 32 2c  72 30 0d 00 b4 19 20 20  |     r2,r0....  |
00000120  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 72 33  |      MOV     r3|
00000130  2c 72 31 0d 00 be 1f 20  20 20 20 20 20 20 20 a4  |,r1....        .|
00000140  61 64 72 6c 28 31 34 2c  68 65 61 70 5f 62 61 73  |adrl(14,heap_bas|
00000150  65 29 0d 00 c8 1c 20 20  20 20 20 20 20 20 4c 44  |e)....        LD|
00000160  52 20 20 20 20 20 72 31  2c 5b 72 31 34 5d 0d 00  |R     r1,[r14]..|
00000170  d2 19 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |..        MOV   |
00000180  20 20 72 30 2c 23 34 0d  00 dc 1e 20 20 20 20 20  |  r0,#4....     |
00000190  20 20 20 53 57 49 20 20  20 20 20 22 58 4f 53 5f  |   SWI     "XOS_|
000001a0  48 65 61 70 22 0d 00 e6  19 20 20 20 20 20 20 20  |Heap"....       |
000001b0  20 4d 4f 56 56 43 20 20  20 72 30 2c 72 32 0d 00  | MOVVC   r0,r2..|
000001c0  f0 24 20 20 20 20 20 20  20 20 4c 44 4d 46 44 20  |.$        LDMFD |
000001d0  20 20 28 73 70 29 21 2c  7b 72 31 2d 72 33 2c 70  |  (sp)!,{r1-r3,p|
000001e0  63 7d 0d 00 fa 05 5d 0d  01 04 06 3d 30 0d ff     |c}....]....=0..|
000001ef