Home » Archimedes archive » Micro User » MU 1992-03.adf » PD » AMUSING/!WrongWay/!RunImage
AMUSING/!WrongWay/!RunImage
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 » Micro User » MU 1992-03.adf » PD |
| Filename: | AMUSING/!WrongWay/!RunImage |
| Read OK: | ✔ |
| File size: | 0163 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM code% 256 20DIM data% 16 30P%=code% 40[ 50OPT 0 60MOV r5,#32 70.loop1 80MOV r0,#10 90ADR r1,data% 100STRB r5,[r1] 110SWI "OS_Word" 120SWI 256+23 130MOV r0,r5 140SWI "OS_WriteC" 150MOV r4,#8 160.loop2 170LDRB r0,[r1,r4] 180SWI "OS_WriteC" 190SUBS r4,r4,#1 200BNE loop2 210ADD r5,r5,#1 220CMP r5,#126 230BLE loop1 240MOV pc,r14 250] 260CALL code%
� code% 256 � data% 16 P%=code% ([ 2 OPT 0 <MOV r5,#32 F .loop1 PMOV r0,#10 ZADR r1,data% dSTRB r5,[r1] nSWI "OS_Word" xSWI 256+23 � MOV r0,r5 �SWI "OS_WriteC" � MOV r4,#8 � .loop2 �LDRB r0,[r1,r4] �SWI "OS_WriteC" �SUBS r4,r4,#1 � BNE loop2 �ADD r5,r5,#1 �CMP r5,#126 � BLE loop1 �MOV pc,r14 �] � code% �
00000000 0d 00 0a 0f de 20 63 6f 64 65 25 20 32 35 36 0d |..... code% 256.| 00000010 00 14 0e de 20 64 61 74 61 25 20 31 36 0d 00 1e |.... data% 16...| 00000020 0c 50 25 3d 63 6f 64 65 25 0d 00 28 05 5b 0d 00 |.P%=code%..(.[..| 00000030 32 09 4f 50 54 20 30 0d 00 3c 0e 4d 4f 56 20 72 |2.OPT 0..<.MOV r| 00000040 35 2c 23 33 32 0d 00 46 0a 2e 6c 6f 6f 70 31 0d |5,#32..F..loop1.| 00000050 00 50 0e 4d 4f 56 20 72 30 2c 23 31 30 0d 00 5a |.P.MOV r0,#10..Z| 00000060 10 41 44 52 20 72 31 2c 64 61 74 61 25 0d 00 64 |.ADR r1,data%..d| 00000070 10 53 54 52 42 20 72 35 2c 5b 72 31 5d 0d 00 6e |.STRB r5,[r1]..n| 00000080 11 53 57 49 20 22 4f 53 5f 57 6f 72 64 22 0d 00 |.SWI "OS_Word"..| 00000090 78 0e 53 57 49 20 32 35 36 2b 32 33 0d 00 82 0d |x.SWI 256+23....| 000000a0 4d 4f 56 20 72 30 2c 72 35 0d 00 8c 13 53 57 49 |MOV r0,r5....SWI| 000000b0 20 22 4f 53 5f 57 72 69 74 65 43 22 0d 00 96 0d | "OS_WriteC"....| 000000c0 4d 4f 56 20 72 34 2c 23 38 0d 00 a0 0a 2e 6c 6f |MOV r4,#8.....lo| 000000d0 6f 70 32 0d 00 aa 13 4c 44 52 42 20 72 30 2c 5b |op2....LDRB r0,[| 000000e0 72 31 2c 72 34 5d 0d 00 b4 13 53 57 49 20 22 4f |r1,r4]....SWI "O| 000000f0 53 5f 57 72 69 74 65 43 22 0d 00 be 11 53 55 42 |S_WriteC"....SUB| 00000100 53 20 72 34 2c 72 34 2c 23 31 0d 00 c8 0d 42 4e |S r4,r4,#1....BN| 00000110 45 20 6c 6f 6f 70 32 0d 00 d2 10 41 44 44 20 72 |E loop2....ADD r| 00000120 35 2c 72 35 2c 23 31 0d 00 dc 0f 43 4d 50 20 72 |5,r5,#1....CMP r| 00000130 35 2c 23 31 32 36 0d 00 e6 0d 42 4c 45 20 6c 6f |5,#126....BLE lo| 00000140 6f 70 31 0d 00 f0 0e 4d 4f 56 20 70 63 2c 72 31 |op1....MOV pc,r1| 00000150 34 0d 00 fa 05 5d 0d 01 04 0b d6 20 63 6f 64 65 |4....]..... code| 00000160 25 0d ff |%..| 00000163
.