Home » Archimedes archive » Acorn User » AU 1993-08.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-08.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:
- Archimedes archive » Acorn User » AU 1993-10.adf » !3DGraphic_3DGraphic » Source/SWI06
- Archimedes archive » Acorn User » AU 1993-08.adf » !3DGraphic_3DGraphic » Source/SWI06
- Archimedes archive » Acorn User » AU 1993-09.adf » !3DGraphic_3DGraphic » Source/SWI06
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