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

Source/SWI01

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

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

File contents
   10REM >Source.SWI01
   20REM BAU3D_WriteConfig source
   30REM by DCA
   40REM for 32-bit machines
   50REM (c) BAU August 1993
   60:
   70DEF FNswi01_name
   80="WriteConfig"
   90:
  100DEF FNswi01_vars
  110flags=FNwk(4)
  120s=FNwk(4)
  130zplus=FNwk(4)
  131min_z=FNwk(4)
  132max_z=FNwk(4)
  140=0
  150:
  160DEF FNswi01_code
  170[OPT pass%
  180        STMFD   (sp)!,{link}
  190        FNadrl(14,flags)
  200        STMIA   r14,{r0-r4}
  210        LDMFD   (sp)!,{pc}
  220]
  230=0

� >Source.SWI01
� BAU3D_WriteConfig source
� by DCA
(� for 32-bit machines
2� (c) BAU August 1993
<:
F� �swi01_name
P="WriteConfig"
Z:
d� �swi01_vars
nflags=�wk(4)
xs=�wk(4)
�zplus=�wk(4)
�min_z=�wk(4)
�max_z=�wk(4)
�=0
�:
�� �swi01_code
�[OPT pass%
�         STMFD   (sp)!,{link}
�        �adrl(14,flags)
�        STMIA   r14,{r0-r4}
�        LDMFD   (sp)!,{pc}
�]
�=0
�
00000000  0d 00 0a 13 f4 20 3e 53  6f 75 72 63 65 2e 53 57  |..... >Source.SW|
00000010  49 30 31 0d 00 14 1e f4  20 42 41 55 33 44 5f 57  |I01..... BAU3D_W|
00000020  72 69 74 65 43 6f 6e 66  69 67 20 73 6f 75 72 63  |riteConfig sourc|
00000030  65 0d 00 1e 0c f4 20 62  79 20 44 43 41 0d 00 28  |e..... by DCA..(|
00000040  19 f4 20 66 6f 72 20 33  32 2d 62 69 74 20 6d 61  |.. for 32-bit ma|
00000050  63 68 69 6e 65 73 0d 00  32 19 f4 20 28 63 29 20  |chines..2.. (c) |
00000060  42 41 55 20 41 75 67 75  73 74 20 31 39 39 33 0d  |BAU August 1993.|
00000070  00 3c 05 3a 0d 00 46 11  dd 20 a4 73 77 69 30 31  |.<.:..F.. .swi01|
00000080  5f 6e 61 6d 65 0d 00 50  12 3d 22 57 72 69 74 65  |_name..P.="Write|
00000090  43 6f 6e 66 69 67 22 0d  00 5a 05 3a 0d 00 64 11  |Config"..Z.:..d.|
000000a0  dd 20 a4 73 77 69 30 31  5f 76 61 72 73 0d 00 6e  |. .swi01_vars..n|
000000b0  10 66 6c 61 67 73 3d a4  77 6b 28 34 29 0d 00 78  |.flags=.wk(4)..x|
000000c0  0c 73 3d a4 77 6b 28 34  29 0d 00 82 10 7a 70 6c  |.s=.wk(4)....zpl|
000000d0  75 73 3d a4 77 6b 28 34  29 0d 00 83 10 6d 69 6e  |us=.wk(4)....min|
000000e0  5f 7a 3d a4 77 6b 28 34  29 0d 00 84 10 6d 61 78  |_z=.wk(4)....max|
000000f0  5f 7a 3d a4 77 6b 28 34  29 0d 00 8c 06 3d 30 0d  |_z=.wk(4)....=0.|
00000100  00 96 05 3a 0d 00 a0 11  dd 20 a4 73 77 69 30 31  |...:..... .swi01|
00000110  5f 63 6f 64 65 0d 00 aa  0e 5b 4f 50 54 20 70 61  |_code....[OPT pa|
00000120  73 73 25 0d 00 b4 20 20  20 20 20 20 20 20 20 53  |ss%...         S|
00000130  54 4d 46 44 20 20 20 28  73 70 29 21 2c 7b 6c 69  |TMFD   (sp)!,{li|
00000140  6e 6b 7d 0d 00 be 1b 20  20 20 20 20 20 20 20 a4  |nk}....        .|
00000150  61 64 72 6c 28 31 34 2c  66 6c 61 67 73 29 0d 00  |adrl(14,flags)..|
00000160  c8 1f 20 20 20 20 20 20  20 20 53 54 4d 49 41 20  |..        STMIA |
00000170  20 20 72 31 34 2c 7b 72  30 2d 72 34 7d 0d 00 d2  |  r14,{r0-r4}...|
00000180  1e 20 20 20 20 20 20 20  20 4c 44 4d 46 44 20 20  |.        LDMFD  |
00000190  20 28 73 70 29 21 2c 7b  70 63 7d 0d 00 dc 05 5d  | (sp)!,{pc}....]|
000001a0  0d 00 e6 06 3d 30 0d ff                           |....=0..|
000001a8