Home » Archimedes archive » Acorn Computing » 1994 05 subscription disc.adf » 9405s » Miscellany/Eff/!Harmonica/s/code
Miscellany/Eff/!Harmonica/s/code
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 05 subscription disc.adf » 9405s |
| Filename: | Miscellany/Eff/!Harmonica/s/code |
| Read OK: | ✔ |
| File size: | 02CB bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
R0 RN 0
R1 RN 1
R2 RN 2
R3 RN 3
R4 RN 4
R5 RN 5
R6 RN 6
R7 RN 7
R8 RN 8
R9 RN 9
R10 RN 10
R11 RN 11
R12 RN 12
R13 RN 13
R14 RN 14
R15 RN 15
AREA |C$$code|,CODE,READONLY
EXPORT convert_byte
temp_r14
DCD 0
convert_byte
STR R14,temp_r14
; EOR R0,R0,#128
SUB R0,R0,#128
MOV R0,R0,LSL#24
SWI &60181
LDR R14,temp_r14
MOV R15,R14
END
00000000 52 30 20 20 20 20 20 20 20 52 4e 20 20 20 20 20 |R0 RN | 00000010 20 30 0a 52 31 20 20 20 20 20 20 20 52 4e 20 20 | 0.R1 RN | 00000020 20 20 20 20 31 0a 52 32 20 20 20 20 20 20 20 52 | 1.R2 R| 00000030 4e 20 20 20 20 20 20 32 0a 52 33 20 20 20 20 20 |N 2.R3 | 00000040 20 20 52 4e 20 20 20 20 20 20 33 0a 52 34 20 20 | RN 3.R4 | 00000050 20 20 20 20 20 52 4e 20 20 20 20 20 20 34 0a 52 | RN 4.R| 00000060 35 20 20 20 20 20 20 20 52 4e 20 20 20 20 20 20 |5 RN | 00000070 35 0a 52 36 20 20 20 20 20 20 20 52 4e 20 20 20 |5.R6 RN | 00000080 20 20 20 36 0a 52 37 20 20 20 20 20 20 20 52 4e | 6.R7 RN| 00000090 20 20 20 20 20 20 37 0a 52 38 20 20 20 20 20 20 | 7.R8 | 000000a0 20 52 4e 20 20 20 20 20 20 38 0a 52 39 20 20 20 | RN 8.R9 | 000000b0 20 20 20 20 52 4e 20 20 20 20 20 20 39 0a 52 31 | RN 9.R1| 000000c0 30 20 20 20 20 20 20 52 4e 20 20 20 20 20 20 31 |0 RN 1| 000000d0 30 0a 52 31 31 20 20 20 20 20 20 52 4e 20 20 20 |0.R11 RN | 000000e0 20 20 20 31 31 0a 52 31 32 20 20 20 20 20 20 52 | 11.R12 R| 000000f0 4e 20 20 20 20 20 20 31 32 0a 52 31 33 20 20 20 |N 12.R13 | 00000100 20 20 20 52 4e 20 20 20 20 20 20 31 33 0a 52 31 | RN 13.R1| 00000110 34 20 20 20 20 20 20 52 4e 20 20 20 20 20 20 31 |4 RN 1| 00000120 34 0a 52 31 35 20 20 20 20 20 20 52 4e 20 20 20 |4.R15 RN | 00000130 20 20 20 31 35 0a 0a 0a 20 20 20 20 20 20 20 20 | 15... | 00000140 20 20 20 20 20 20 20 20 41 52 45 41 20 20 20 20 | AREA | 00000150 7c 43 24 24 63 6f 64 65 7c 2c 43 4f 44 45 2c 52 ||C$$code|,CODE,R| 00000160 45 41 44 4f 4e 4c 59 0a 0a 20 20 20 20 20 20 20 |EADONLY.. | 00000170 20 20 20 20 20 20 20 20 20 45 58 50 4f 52 54 20 | EXPORT | 00000180 20 63 6f 6e 76 65 72 74 5f 62 79 74 65 0a 0a 74 | convert_byte..t| 00000190 65 6d 70 5f 72 31 34 0a 20 20 20 20 20 20 20 20 |emp_r14. | 000001a0 20 20 20 20 20 20 20 20 44 43 44 20 30 0a 0a 63 | DCD 0..c| 000001b0 6f 6e 76 65 72 74 5f 62 79 74 65 20 20 20 20 0a |onvert_byte .| 000001c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001d0 53 54 52 20 20 20 20 20 52 31 34 2c 74 65 6d 70 |STR R14,temp| 000001e0 5f 72 31 34 0a 20 20 20 20 20 20 20 20 20 20 20 |_r14. | 000001f0 20 20 20 20 20 3b 20 45 4f 52 20 20 20 20 20 52 | ; EOR R| 00000200 30 2c 52 30 2c 23 31 32 38 0a 20 20 20 20 20 20 |0,R0,#128. | 00000210 20 20 20 20 20 20 20 20 20 20 53 55 42 20 20 20 | SUB | 00000220 20 20 52 30 2c 52 30 2c 23 31 32 38 0a 20 20 20 | R0,R0,#128. | 00000230 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 56 | MOV| 00000240 20 20 20 20 20 52 30 2c 52 30 2c 4c 53 4c 23 32 | R0,R0,LSL#2| 00000250 34 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |4. | 00000260 20 20 53 57 49 20 20 20 20 20 26 36 30 31 38 31 | SWI &60181| 00000270 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000280 20 4c 44 52 20 20 20 20 20 52 31 34 2c 74 65 6d | LDR R14,tem| 00000290 70 5f 72 31 34 0a 20 20 20 20 20 20 20 20 20 20 |p_r14. | 000002a0 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 31 | MOV R1| 000002b0 35 2c 52 31 34 0a 0a 20 20 20 20 20 20 20 20 20 |5,R14.. | 000002c0 20 20 20 20 20 20 20 45 4e 44 0a | END.| 000002cb
.