Home » Archimedes archive » Acorn User » AU 1997-06 B.adf » Extras » RiscUtils/!RuInstall/Install/Non_User/Key
RiscUtils/!RuInstall/Install/Non_User/Key
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-06 B.adf » Extras |
| Filename: | RiscUtils/!RuInstall/Install/Non_User/Key |
| Read OK: | ✔ |
| File size: | 00E4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM key% 100:P%=key%:ON ERROR OSCLI "<RISCutils$Path>.!Help.!Run 7 "+REPORT$+" at line "+STR$(ERL):END 20[OPT 0 30MOV R0,#&7A 40MOV R1,#0 50MOV R2,#0 60SWI "OS_Byte" 70MOV R0,R1 80MOV R15,R14 90] 100OSCLI"SET KeyBoardNumber "+STR$(-(USR(key%)+1))
S� key% 100:P%=key%:� � � "<RISCutils$Path>.!Help.!Run 7 "+�$+" at line "+�(�):� [OPT 0 MOV R0,#&7A ( MOV R1,#0 2 MOV R2,#0 <SWI "OS_Byte" F MOV R0,R1 PMOV R15,R14 Z] d*�"SET KeyBoardNumber "+�(-(�(key%)+1)) �
00000000 0d 00 0a 53 de 20 6b 65 79 25 20 31 30 30 3a 50 |...S. key% 100:P| 00000010 25 3d 6b 65 79 25 3a ee 20 85 20 ff 20 22 3c 52 |%=key%:. . . "<R| 00000020 49 53 43 75 74 69 6c 73 24 50 61 74 68 3e 2e 21 |ISCutils$Path>.!| 00000030 48 65 6c 70 2e 21 52 75 6e 20 37 20 22 2b f6 24 |Help.!Run 7 "+.$| 00000040 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 9e |+" at line "+.(.| 00000050 29 3a e0 0d 00 14 0a 5b 4f 50 54 20 30 0d 00 1e |):.....[OPT 0...| 00000060 0f 4d 4f 56 20 52 30 2c 23 26 37 41 0d 00 28 0d |.MOV R0,#&7A..(.| 00000070 4d 4f 56 20 52 31 2c 23 30 0d 00 32 0d 4d 4f 56 |MOV R1,#0..2.MOV| 00000080 20 52 32 2c 23 30 0d 00 3c 11 53 57 49 20 22 4f | R2,#0..<.SWI "O| 00000090 53 5f 42 79 74 65 22 0d 00 46 0d 4d 4f 56 20 52 |S_Byte"..F.MOV R| 000000a0 30 2c 52 31 0d 00 50 0f 4d 4f 56 20 52 31 35 2c |0,R1..P.MOV R15,| 000000b0 52 31 34 0d 00 5a 05 5d 0d 00 64 2a ff 22 53 45 |R14..Z.]..d*."SE| 000000c0 54 20 4b 65 79 42 6f 61 72 64 4e 75 6d 62 65 72 |T KeyBoardNumber| 000000d0 20 22 2b c3 28 2d 28 ba 28 6b 65 79 25 29 2b 31 | "+.(-(.(key%)+1| 000000e0 29 29 0d ff |))..| 000000e4
.