Home » Archimedes archive » Zipped Apps » 6502em » !6502Em/!Run

!6502Em/!Run

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 » Zipped Apps » 6502em
Filename: !6502Em/!Run
Read OK:
File size: 0273 bytes
Load address: 0000
Exec address: 0000
File contents
| Use more memory and allow saving of BBC screens?
Set 6502Em$SaveScreen No
|Set 6502Em$SaveScreen Yes

SetEval 6502Em$Mem 672
If "<6502Em$SaveScreen>"="Yes" Then SetEval 6502Em$Mem <6502Em$Mem>+96
Set Alias$6502EmSetMem WimpSlot -min <6502Em$Mem>k -max <6502Em$Mem>k
6502EmSetMem
UnSet Alias$6502EmSetMem
Set 6502Em$Dir <Obey$Dir>
Set 6502Em$Res <Obey$Dir>.Resources
Set 6502Em$ROMPath <Obey$Dir>.ROMs.
Set File$Type_BBC BBCSnap
Set File$Type_B22 DFSImage
IconSprites <6502Em$Res>.!Sprites
RMEnsure 6502Support 0.10 RMLoad <6502Em$Res>.65Support
Set Alias$@RunType_BBC Run <6502Em$Dir>.!Run %%*0
Run <6502Em$Dir>.!RunImage %*0
00000000  7c 20 55 73 65 20 6d 6f  72 65 20 6d 65 6d 6f 72  || Use more memor|
00000010  79 20 61 6e 64 20 61 6c  6c 6f 77 20 73 61 76 69  |y and allow savi|
00000020  6e 67 20 6f 66 20 42 42  43 20 73 63 72 65 65 6e  |ng of BBC screen|
00000030  73 3f 0a 53 65 74 20 36  35 30 32 45 6d 24 53 61  |s?.Set 6502Em$Sa|
00000040  76 65 53 63 72 65 65 6e  20 4e 6f 0a 7c 53 65 74  |veScreen No.|Set|
00000050  20 36 35 30 32 45 6d 24  53 61 76 65 53 63 72 65  | 6502Em$SaveScre|
00000060  65 6e 20 59 65 73 0a 0a  53 65 74 45 76 61 6c 20  |en Yes..SetEval |
00000070  36 35 30 32 45 6d 24 4d  65 6d 20 36 37 32 0a 49  |6502Em$Mem 672.I|
00000080  66 20 22 3c 36 35 30 32  45 6d 24 53 61 76 65 53  |f "<6502Em$SaveS|
00000090  63 72 65 65 6e 3e 22 3d  22 59 65 73 22 20 54 68  |creen>"="Yes" Th|
000000a0  65 6e 20 53 65 74 45 76  61 6c 20 36 35 30 32 45  |en SetEval 6502E|
000000b0  6d 24 4d 65 6d 20 3c 36  35 30 32 45 6d 24 4d 65  |m$Mem <6502Em$Me|
000000c0  6d 3e 2b 39 36 0a 53 65  74 20 41 6c 69 61 73 24  |m>+96.Set Alias$|
000000d0  36 35 30 32 45 6d 53 65  74 4d 65 6d 20 57 69 6d  |6502EmSetMem Wim|
000000e0  70 53 6c 6f 74 20 2d 6d  69 6e 20 3c 36 35 30 32  |pSlot -min <6502|
000000f0  45 6d 24 4d 65 6d 3e 6b  20 2d 6d 61 78 20 3c 36  |Em$Mem>k -max <6|
00000100  35 30 32 45 6d 24 4d 65  6d 3e 6b 0a 36 35 30 32  |502Em$Mem>k.6502|
00000110  45 6d 53 65 74 4d 65 6d  0a 55 6e 53 65 74 20 41  |EmSetMem.UnSet A|
00000120  6c 69 61 73 24 36 35 30  32 45 6d 53 65 74 4d 65  |lias$6502EmSetMe|
00000130  6d 0a 53 65 74 20 36 35  30 32 45 6d 24 44 69 72  |m.Set 6502Em$Dir|
00000140  20 3c 4f 62 65 79 24 44  69 72 3e 0a 53 65 74 20  | <Obey$Dir>.Set |
00000150  36 35 30 32 45 6d 24 52  65 73 20 3c 4f 62 65 79  |6502Em$Res <Obey|
00000160  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 0a  |$Dir>.Resources.|
00000170  53 65 74 20 36 35 30 32  45 6d 24 52 4f 4d 50 61  |Set 6502Em$ROMPa|
00000180  74 68 20 3c 4f 62 65 79  24 44 69 72 3e 2e 52 4f  |th <Obey$Dir>.RO|
00000190  4d 73 2e 0a 53 65 74 20  46 69 6c 65 24 54 79 70  |Ms..Set File$Typ|
000001a0  65 5f 42 42 43 20 42 42  43 53 6e 61 70 0a 53 65  |e_BBC BBCSnap.Se|
000001b0  74 20 46 69 6c 65 24 54  79 70 65 5f 42 32 32 20  |t File$Type_B22 |
000001c0  44 46 53 49 6d 61 67 65  0a 49 63 6f 6e 53 70 72  |DFSImage.IconSpr|
000001d0  69 74 65 73 20 3c 36 35  30 32 45 6d 24 52 65 73  |ites <6502Em$Res|
000001e0  3e 2e 21 53 70 72 69 74  65 73 0a 52 4d 45 6e 73  |>.!Sprites.RMEns|
000001f0  75 72 65 20 36 35 30 32  53 75 70 70 6f 72 74 20  |ure 6502Support |
00000200  30 2e 31 30 20 52 4d 4c  6f 61 64 20 3c 36 35 30  |0.10 RMLoad <650|
00000210  32 45 6d 24 52 65 73 3e  2e 36 35 53 75 70 70 6f  |2Em$Res>.65Suppo|
00000220  72 74 0a 53 65 74 20 41  6c 69 61 73 24 40 52 75  |rt.Set Alias$@Ru|
00000230  6e 54 79 70 65 5f 42 42  43 20 52 75 6e 20 3c 36  |nType_BBC Run <6|
00000240  35 30 32 45 6d 24 44 69  72 3e 2e 21 52 75 6e 20  |502Em$Dir>.!Run |
00000250  25 25 2a 30 0a 52 75 6e  20 3c 36 35 30 32 45 6d  |%%*0.Run <6502Em|
00000260  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 20  |$Dir>.!RunImage |
00000270  25 2a 30                                          |%*0|
00000273