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