Home » Archimedes archive » Acorn Computing » 1993 06 Mega Disk.adf » 93_06 » Miscellany/SolidDrag/!SolidDrag/init
Miscellany/SolidDrag/!SolidDrag/init
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 » 1993 06 Mega Disk.adf » 93_06 |
| Filename: | Miscellany/SolidDrag/!SolidDrag/init |
| Read OK: | ✔ |
| File size: | 01F3 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| >init dir adfs::IDEDisc4.$.DeskUtils.!SolidDrag cdir ram:$.Library copy adfs::IDEDisc4.Library.AAsm ram:$.Library.AAsm ~cn set Run$Path ,ram:$.Library.,%.,adfs::IDEDisc4.Library.,System:modules. RMensure DDEUtils 150 RMload System:modules.DDEUtils RMensure TrapGrabber 0 RMload System:modules.Trap Filer_Run DDE:!SrcEdit key 12 wimpslot -min 1280k|Msetprefix|Maasm drag_src dragmod -quit -throwback|Msettype dragmod module|Mprefix|M key 11 rmload dragmod|M key 9 rmkill SolidDrag|M Desktop
00000000 7c 20 3e 69 6e 69 74 0a 0a 64 69 72 20 61 64 66 || >init..dir adf| 00000010 73 3a 3a 49 44 45 44 69 73 63 34 2e 24 2e 44 65 |s::IDEDisc4.$.De| 00000020 73 6b 55 74 69 6c 73 2e 21 53 6f 6c 69 64 44 72 |skUtils.!SolidDr| 00000030 61 67 0a 0a 63 64 69 72 20 72 61 6d 3a 24 2e 4c |ag..cdir ram:$.L| 00000040 69 62 72 61 72 79 0a 63 6f 70 79 20 61 64 66 73 |ibrary.copy adfs| 00000050 3a 3a 49 44 45 44 69 73 63 34 2e 4c 69 62 72 61 |::IDEDisc4.Libra| 00000060 72 79 2e 41 41 73 6d 20 72 61 6d 3a 24 2e 4c 69 |ry.AAsm ram:$.Li| 00000070 62 72 61 72 79 2e 41 41 73 6d 20 7e 63 6e 0a 0a |brary.AAsm ~cn..| 00000080 73 65 74 20 52 75 6e 24 50 61 74 68 20 2c 72 61 |set Run$Path ,ra| 00000090 6d 3a 24 2e 4c 69 62 72 61 72 79 2e 2c 25 2e 2c |m:$.Library.,%.,| 000000a0 61 64 66 73 3a 3a 49 44 45 44 69 73 63 34 2e 4c |adfs::IDEDisc4.L| 000000b0 69 62 72 61 72 79 2e 2c 53 79 73 74 65 6d 3a 6d |ibrary.,System:m| 000000c0 6f 64 75 6c 65 73 2e 0a 0a 52 4d 65 6e 73 75 72 |odules...RMensur| 000000d0 65 20 44 44 45 55 74 69 6c 73 20 31 35 30 20 52 |e DDEUtils 150 R| 000000e0 4d 6c 6f 61 64 20 53 79 73 74 65 6d 3a 6d 6f 64 |Mload System:mod| 000000f0 75 6c 65 73 2e 44 44 45 55 74 69 6c 73 0a 52 4d |ules.DDEUtils.RM| 00000100 65 6e 73 75 72 65 20 54 72 61 70 47 72 61 62 62 |ensure TrapGrabb| 00000110 65 72 20 30 20 20 52 4d 6c 6f 61 64 20 53 79 73 |er 0 RMload Sys| 00000120 74 65 6d 3a 6d 6f 64 75 6c 65 73 2e 54 72 61 70 |tem:modules.Trap| 00000130 0a 46 69 6c 65 72 5f 52 75 6e 20 44 44 45 3a 21 |.Filer_Run DDE:!| 00000140 53 72 63 45 64 69 74 0a 0a 6b 65 79 20 31 32 20 |SrcEdit..key 12 | 00000150 77 69 6d 70 73 6c 6f 74 20 2d 6d 69 6e 20 31 32 |wimpslot -min 12| 00000160 38 30 6b 7c 4d 73 65 74 70 72 65 66 69 78 7c 4d |80k|Msetprefix|M| 00000170 61 61 73 6d 20 64 72 61 67 5f 73 72 63 20 64 72 |aasm drag_src dr| 00000180 61 67 6d 6f 64 20 2d 71 75 69 74 20 2d 74 68 72 |agmod -quit -thr| 00000190 6f 77 62 61 63 6b 7c 4d 73 65 74 74 79 70 65 20 |owback|Msettype | 000001a0 64 72 61 67 6d 6f 64 20 6d 6f 64 75 6c 65 7c 4d |dragmod module|M| 000001b0 70 72 65 66 69 78 7c 4d 0a 6b 65 79 20 31 31 20 |prefix|M.key 11 | 000001c0 72 6d 6c 6f 61 64 20 64 72 61 67 6d 6f 64 7c 4d |rmload dragmod|M| 000001d0 0a 6b 65 79 20 39 20 72 6d 6b 69 6c 6c 20 53 6f |.key 9 rmkill So| 000001e0 6c 69 64 44 72 61 67 7c 4d 0a 0a 44 65 73 6b 74 |lidDrag|M..Deskt| 000001f0 6f 70 0a |op.| 000001f3
.