Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » Rambles/Super
Rambles/Super
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 1997-02 B.adf » Regulars |
| Filename: | Rambles/Super |
| Read OK: | ✔ |
| File size: | 018A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>Supervisor
100
110DIM CODE% 500
140
150PROC_INIT
410END
411
420DEF PROC_INIT
560
570FOR A%=0 TO 2 STEP 2
580P%=CODE%
590[
600OPT A%
640
650.Rd
660STMFD R13!,{R14}
670MOV R9,R15
680SWI "OS_EnterOS"
690TEQP R15,#&C000003 \DISABLE INTERRUPTS
760
761\ Now yoy are in Supervisor mode
1120
1121\ Now to come out of it
1330
1340TEQP R9,#0
1350MOVNV R0,R0
1360LDMFD R13!, {PC} \ BACK FROM WHENST YOU CAME
1590]
1910NEXT
1920ENDPROC
1930
�>Supervisor
d
n� CODE% 500
�
�
�_INIT
��
�
� � �_INIT
0
:� A%=0 � 2 � 2
D P%=CODE%
N[
X
OPT A%
�
�.Rd
�STMFD R13!,{R14}
�MOV R9,R15
�SWI "OS_EnterOS"
�(TEQP R15,#&C000003 \DISABLE �ERRUPTS
�
�$\ Now yoy are in Supervisor mode
`
a\ Now to come out of it
2
<TEQP R9,#0
FMOVNV R0,R0
P-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
6]
v�
��
�
� 00000000 0d 00 0a 10 f4 3e 53 75 70 65 72 76 69 73 6f 72 |.....>Supervisor|
00000010 0d 00 64 04 0d 00 6e 0f de 20 43 4f 44 45 25 20 |..d...n.. CODE% |
00000020 35 30 30 0d 00 8c 04 0d 00 96 0a f2 5f 49 4e 49 |500........._INI|
00000030 54 0d 01 9a 05 e0 0d 01 9b 04 0d 01 a4 0c dd 20 |T.............. |
00000040 f2 5f 49 4e 49 54 0d 02 30 04 0d 02 3a 12 e3 20 |._INIT..0...:.. |
00000050 41 25 3d 30 20 b8 20 32 20 88 20 32 0d 02 44 0c |A%=0 . 2 . 2..D.|
00000060 50 25 3d 43 4f 44 45 25 0d 02 4e 05 5b 0d 02 58 |P%=CODE%..N.[..X|
00000070 0a 4f 50 54 20 41 25 0d 02 80 04 0d 02 8a 07 2e |.OPT A%.........|
00000080 52 64 0d 02 94 14 53 54 4d 46 44 20 52 31 33 21 |Rd....STMFD R13!|
00000090 2c 7b 52 31 34 7d 0d 02 9e 0e 4d 4f 56 20 52 39 |,{R14}....MOV R9|
000000a0 2c 52 31 35 0d 02 a8 14 53 57 49 20 22 4f 53 5f |,R15....SWI "OS_|
000000b0 45 6e 74 65 72 4f 53 22 0d 02 b2 28 54 45 51 50 |EnterOS"...(TEQP|
000000c0 20 52 31 35 2c 23 26 43 30 30 30 30 30 33 20 5c | R15,#&C000003 \|
000000d0 44 49 53 41 42 4c 45 20 a8 45 52 52 55 50 54 53 |DISABLE .ERRUPTS|
000000e0 0d 02 f8 04 0d 02 f9 24 5c 20 4e 6f 77 20 79 6f |.......$\ Now yo|
000000f0 79 20 61 72 65 20 69 6e 20 53 75 70 65 72 76 69 |y are in Supervi|
00000100 73 6f 72 20 6d 6f 64 65 0d 04 60 04 0d 04 61 1b |sor mode..`...a.|
00000110 5c 20 4e 6f 77 20 74 6f 20 63 6f 6d 65 20 6f 75 |\ Now to come ou|
00000120 74 20 6f 66 20 69 74 0d 05 32 04 0d 05 3c 0e 54 |t of it..2...<.T|
00000130 45 51 50 20 52 39 2c 23 30 0d 05 46 0f 4d 4f 56 |EQP R9,#0..F.MOV|
00000140 4e 56 20 52 30 2c 52 30 0d 05 50 2d 4c 44 4d 46 |NV R0,R0..P-LDMF|
00000150 44 20 52 31 33 21 2c 20 7b 50 43 7d 20 5c 20 42 |D R13!, {PC} \ B|
00000160 41 43 4b 20 46 52 4f 4d 20 c9 53 54 20 59 4f 55 |ACK FROM .ST YOU|
00000170 20 43 41 4d 45 0d 06 36 05 5d 0d 07 76 05 ed 0d | CAME..6.]..v...|
00000180 07 80 05 e1 0d 07 8a 04 0d ff |..........|
0000018a 
.