P/CRAM

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_25.ADF » P/CRAM

P/CRAM

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_25.ADF
Filename:	P/CRAM
Read OK:	✔
File size:	0210 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » eug » eug_5_25_discs_Eug-25_D-EUG25.dsd » U.CRAM
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_25.ADF » P/CRAM

File contents

   10REM Restore/Save configurations
   20REM In anticipation of flat battery
   30MODE7
   40PRINT"Master Series battery backup":PRINT:PRINT"1)Save Configuration":PRINT"2)Restore configuration"
   50A=GET-48:IF A>2 OR A<1 THENRUN
   60*DRIVE0
   70*DIR $
   80PRINT
   90IFA=2 THENGOTO190
  100REM Put bytes to disk
  110PRINT"Saving as $.CMOSRAM"
  120A%=161:F%=OPENOUT"$.CMOSRAM"
  130FORX%=0 TO 49
  140Y%=(USR(&FFF4)AND &FF0000)DIV&FFFF
  150BPUT#F%,Y%
  160NEXT
  170CLOSE#F%:PRINT:PRINT"Done."
  180END
  190REM Restore all
  200PRINT"Searching for $.CMOSRAM"
  210A%=162:F%=OPENIN"$.CMOSRAM"
  220FORX%=0 TO 49
  230Y%=BGET#F%:CALL &FFF4
  240NEXT
  250CLOSE#F%:PRINT:PRINT"Done."
  260END


!� Restore/Save configurations
%� In anticipation of flat battery
�7
(X�"Master Series battery backup":�:�"1)Save Configuration":�"2)Restore configuration"
2A=�-48:� A>2 � A<1 ��
<*DRIVE0
F
*DIR $
P�
Z�A=2 ��t~@
d� Put bytes to disk
n�"Saving as $.CMOSRAM"
xA%=161:F%=�"$.CMOSRAM"
��X%=0 � 49
� Y%=(�(&FFF4)� &FF0000)�&FFFF
��#F%,Y%
��
��#F%:�:�"Done."
��
�� Restore all
��"Searching for $.CMOSRAM"
�A%=162:F%=�"$.CMOSRAM"
��X%=0 � 49
�Y%=�#F%:� &FFF4
��
��#F%:�:�"Done."
�
�

00000000  0d 00 0a 21 f4 20 52 65  73 74 6f 72 65 2f 53 61  |...!. Restore/Sa|
00000010  76 65 20 63 6f 6e 66 69  67 75 72 61 74 69 6f 6e  |ve configuration|
00000020  73 0d 00 14 25 f4 20 49  6e 20 61 6e 74 69 63 69  |s...%. In antici|
00000030  70 61 74 69 6f 6e 20 6f  66 20 66 6c 61 74 20 62  |pation of flat b|
00000040  61 74 74 65 72 79 0d 00  1e 06 eb 37 0d 00 28 58  |attery.....7..(X|
00000050  f1 22 4d 61 73 74 65 72  20 53 65 72 69 65 73 20  |."Master Series |
00000060  62 61 74 74 65 72 79 20  62 61 63 6b 75 70 22 3a  |battery backup":|
00000070  f1 3a f1 22 31 29 53 61  76 65 20 43 6f 6e 66 69  |.:."1)Save Confi|
00000080  67 75 72 61 74 69 6f 6e  22 3a f1 22 32 29 52 65  |guration":."2)Re|
00000090  73 74 6f 72 65 20 63 6f  6e 66 69 67 75 72 61 74  |store configurat|
000000a0  69 6f 6e 22 0d 00 32 19  41 3d a5 2d 34 38 3a e7  |ion"..2.A=.-48:.|
000000b0  20 41 3e 32 20 84 20 41  3c 31 20 8c f9 0d 00 3c  | A>2 . A<1 ....<|
000000c0  0b 2a 44 52 49 56 45 30  0d 00 46 0a 2a 44 49 52  |.*DRIVE0..F.*DIR|
000000d0  20 24 0d 00 50 05 f1 0d  00 5a 0f e7 41 3d 32 20  | $..P....Z..A=2 |
000000e0  8c e5 8d 74 7e 40 0d 00  64 17 f4 20 50 75 74 20  |...t~@..d.. Put |
000000f0  62 79 74 65 73 20 74 6f  20 64 69 73 6b 0d 00 6e  |bytes to disk..n|
00000100  1a f1 22 53 61 76 69 6e  67 20 61 73 20 24 2e 43  |.."Saving as $.C|
00000110  4d 4f 53 52 41 4d 22 0d  00 78 1a 41 25 3d 31 36  |MOSRAM"..x.A%=16|
00000120  31 3a 46 25 3d ae 22 24  2e 43 4d 4f 53 52 41 4d  |1:F%=."$.CMOSRAM|
00000130  22 0d 00 82 0e e3 58 25  3d 30 20 b8 20 34 39 0d  |".....X%=0 . 49.|
00000140  00 8c 20 59 25 3d 28 ba  28 26 46 46 46 34 29 80  |.. Y%=(.(&FFF4).|
00000150  20 26 46 46 30 30 30 30  29 81 26 46 46 46 46 0d  | &FF0000).&FFFF.|
00000160  00 96 0b d5 23 46 25 2c  59 25 0d 00 a0 05 ed 0d  |....#F%,Y%......|
00000170  00 aa 13 d9 23 46 25 3a  f1 3a f1 22 44 6f 6e 65  |....#F%:.:."Done|
00000180  2e 22 0d 00 b4 05 e0 0d  00 be 11 f4 20 52 65 73  |.".......... Res|
00000190  74 6f 72 65 20 61 6c 6c  0d 00 c8 1e f1 22 53 65  |tore all....."Se|
000001a0  61 72 63 68 69 6e 67 20  66 6f 72 20 24 2e 43 4d  |arching for $.CM|
000001b0  4f 53 52 41 4d 22 0d 00  d2 1a 41 25 3d 31 36 32  |OSRAM"....A%=162|
000001c0  3a 46 25 3d 8e 22 24 2e  43 4d 4f 53 52 41 4d 22  |:F%=."$.CMOSRAM"|
000001d0  0d 00 dc 0e e3 58 25 3d  30 20 b8 20 34 39 0d 00  |.....X%=0 . 49..|
000001e0  e6 13 59 25 3d 9a 23 46  25 3a d6 20 26 46 46 46  |..Y%=.#F%:. &FFF|
000001f0  34 0d 00 f0 05 ed 0d 00  fa 13 d9 23 46 25 3a f1  |4..........#F%:.|
00000200  3a f1 22 44 6f 6e 65 2e  22 0d 01 04 05 e0 0d ff  |:."Done.".......|
00000210

P/CRAM.m0

P/CRAM.m1

P/CRAM.m2

P/CRAM.m4

P/CRAM.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .