Home » Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s » PD/!Cmos/!RunImage
PD/!Cmos/!RunImage
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 Computing » 1994 06 subscription disc.adf » 9406s |
| Filename: | PD/!Cmos/!RunImage |
| Read OK: | ✔ |
| File size: | 0249 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !RunImage
20PRINT "WARNING - THIS PROGRAM LOADS AND SAVES"
30PRINT "THE CMOS RAM SETTINGS OF THE MACHINE"
40PRINT "PLEASE BE SURE OF WHAT YOU ARE DOING."
50PRINT "PRESS <ESCAPE> TO QUIT."
60PRINT
70PRINT "Load or save?"
80REPEAT
90 L$=GET$
100UNTIL INSTR("LlSs",L$)>=1
110IF L$="S" OR L$="s" THEN
120 A%=OPENOUT("<Obey$Dir>.Cmos")
130 FOR I%=0 TO 239
140 SYS "OS_Byte",161,I% TO ,,B%
150 BPUT#A%,B%
160 NEXT
170 PRINT "Cmos settings have been saved."
180ELSE
190 A%=OPENIN("<Obey$Dir>.Cmos")
200 FOR I%=0 TO 239
210 SYS "OS_Byte",162,I%,BGET#A%
220 NEXT
230 PRINT "Now press Ctrl Break to effect Cmos changes."
240ENDIF
250CLOSE#A%
� > !RunImage
.� "WARNING - THIS PROGRAM LOADS AND SAVES"
,� "THE CMOS RAM SETTINGS OF THE MACHINE"
(-� "PLEASE BE SURE OF WHAT YOU ARE DOING."
2 � "PRESS <ESCAPE> TO QUIT."
<�
F� "Load or save?"
P�
Z L$=�
d� �"LlSs",L$)>=1
n� L$="S" � L$="s" �
x A%=�("<Obey$Dir>.Cmos")
� � I%=0 � 239
�$ ș "OS_Byte",161,I% � ,,B%
� �#A%,B%
� �
�) � "Cmos settings have been saved."
��
� A%=�("<Obey$Dir>.Cmos")
� � I%=0 � 239
�" ș "OS_Byte",162,I%,�#A%
� �
�7 � "Now press Ctrl Break to effect Cmos changes."
��
��#A%
� 00000000 0d 00 0a 11 f4 20 3e 20 21 52 75 6e 49 6d 61 67 |..... > !RunImag|
00000010 65 0d 00 14 2e f1 20 22 57 41 52 4e 49 4e 47 20 |e..... "WARNING |
00000020 2d 20 54 48 49 53 20 50 52 4f 47 52 41 4d 20 4c |- THIS PROGRAM L|
00000030 4f 41 44 53 20 41 4e 44 20 53 41 56 45 53 22 0d |OADS AND SAVES".|
00000040 00 1e 2c f1 20 22 54 48 45 20 43 4d 4f 53 20 52 |..,. "THE CMOS R|
00000050 41 4d 20 53 45 54 54 49 4e 47 53 20 4f 46 20 54 |AM SETTINGS OF T|
00000060 48 45 20 4d 41 43 48 49 4e 45 22 0d 00 28 2d f1 |HE MACHINE"..(-.|
00000070 20 22 50 4c 45 41 53 45 20 42 45 20 53 55 52 45 | "PLEASE BE SURE|
00000080 20 4f 46 20 57 48 41 54 20 59 4f 55 20 41 52 45 | OF WHAT YOU ARE|
00000090 20 44 4f 49 4e 47 2e 22 0d 00 32 1f f1 20 22 50 | DOING."..2.. "P|
000000a0 52 45 53 53 20 3c 45 53 43 41 50 45 3e 20 54 4f |RESS <ESCAPE> TO|
000000b0 20 51 55 49 54 2e 22 0d 00 3c 05 f1 0d 00 46 15 | QUIT."..<....F.|
000000c0 f1 20 22 4c 6f 61 64 20 6f 72 20 73 61 76 65 3f |. "Load or save?|
000000d0 22 0d 00 50 05 f5 0d 00 5a 0b 20 20 20 4c 24 3d |"..P....Z. L$=|
000000e0 be 0d 00 64 14 fd 20 a7 22 4c 6c 53 73 22 2c 4c |...d.. ."LlSs",L|
000000f0 24 29 3e 3d 31 0d 00 6e 17 e7 20 4c 24 3d 22 53 |$)>=1..n.. L$="S|
00000100 22 20 84 20 4c 24 3d 22 73 22 20 8c 0d 00 78 1e |" . L$="s" ...x.|
00000110 20 20 20 41 25 3d ae 28 22 3c 4f 62 65 79 24 44 | A%=.("<Obey$D|
00000120 69 72 3e 2e 43 6d 6f 73 22 29 0d 00 82 13 20 20 |ir>.Cmos").... |
00000130 20 e3 20 49 25 3d 30 20 b8 20 32 33 39 0d 00 8c | . I%=0 . 239...|
00000140 24 20 20 20 20 20 20 c8 99 20 22 4f 53 5f 42 79 |$ .. "OS_By|
00000150 74 65 22 2c 31 36 31 2c 49 25 20 b8 20 2c 2c 42 |te",161,I% . ,,B|
00000160 25 0d 00 96 11 20 20 20 20 20 20 d5 23 41 25 2c |%.... .#A%,|
00000170 42 25 0d 00 a0 08 20 20 20 ed 0d 00 aa 29 20 20 |B%.... ....) |
00000180 20 f1 20 22 43 6d 6f 73 20 73 65 74 74 69 6e 67 | . "Cmos setting|
00000190 73 20 68 61 76 65 20 62 65 65 6e 20 73 61 76 65 |s have been save|
000001a0 64 2e 22 0d 00 b4 05 cc 0d 00 be 1e 20 20 20 41 |d."......... A|
000001b0 25 3d 8e 28 22 3c 4f 62 65 79 24 44 69 72 3e 2e |%=.("<Obey$Dir>.|
000001c0 43 6d 6f 73 22 29 0d 00 c8 13 20 20 20 e3 20 49 |Cmos").... . I|
000001d0 25 3d 30 20 b8 20 32 33 39 0d 00 d2 22 20 20 20 |%=0 . 239..." |
000001e0 20 20 20 c8 99 20 22 4f 53 5f 42 79 74 65 22 2c | .. "OS_Byte",|
000001f0 31 36 32 2c 49 25 2c 9a 23 41 25 0d 00 dc 08 20 |162,I%,.#A%.... |
00000200 20 20 ed 0d 00 e6 37 20 20 20 f1 20 22 4e 6f 77 | ....7 . "Now|
00000210 20 70 72 65 73 73 20 43 74 72 6c 20 42 72 65 61 | press Ctrl Brea|
00000220 6b 20 74 6f 20 65 66 66 65 63 74 20 43 6d 6f 73 |k to effect Cmos|
00000230 20 63 68 61 6e 67 65 73 2e 22 0d 00 f0 05 cd 0d | changes."......|
00000240 00 fa 08 d9 23 41 25 0d ff |....#A%..|
00000249 
.