Home » Archimedes archive » Acorn User » AU 1993-06.adf » !ArmCode_ArmCode » Arm4
Arm4
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 1993-06.adf » !ArmCode_ArmCode |
| Filename: | Arm4 |
| Read OK: | ✔ |
| File size: | 0239 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Arm4 20REM By Dave Lawrence 30REM For 32-bit machines 40REM (c) BAU June 1993 50: 60MODE 0:OFF 70: 80sp=13:link=14:pc=15 90DIM code 100 100FOR pass=0 TO 2 STEP 2 110P%=code 120[OPT pass 130.rand 140 LDR R0,Aseed 150 LDR R1,Axor 160 MOVS R0,R0,LSL #1 170 EORCS R0,R0,R1 180 STR R0,Aseed 190 200 MOVCC R0,#0 210 MOVCS R0,#1 220 230 MOV pc,link 240 250.Aseed EQUD TIME 260.Axor EQUD &1D872B41 270] 280NEXT 290REPEAT 300FOR y=255 TO 0 STEP -1 310 FOR x=0 TO 639 320 GCOL USR(rand) 330 POINT x*2,y*4 340 NEXT 350NEXT 360UNTIL0
� >Arm4 � By Dave Lawrence � For 32-bit machines (� (c) BAU June 1993 2: < � 0:� F: Psp=13:link=14:pc=15 Z� code 100 d� pass=0 � 2 � 2 n P%=code x [OPT pass � .rand � LDR R0,Aseed � LDR R1,Axor � MOVS R0,R0,LSL #1 � �CS R0,R0,R1 � STR R0,Aseed � � MOVCC R0,#0 � MOVCS R0,#1 � � MOV pc,link � �.Aseed EQUD � .Axor EQUD &1D872B41 ] � "� ,� y=255 � 0 � -1 6 � x=0 � 639 @ � �(rand) J Ȓ x*2,y*4 T � ^� h�0 �
00000000 0d 00 0a 0f f4 20 20 20 20 20 3e 41 72 6d 34 0d |..... >Arm4.| 00000010 00 14 16 f4 20 42 79 20 44 61 76 65 20 4c 61 77 |.... By Dave Law| 00000020 72 65 6e 63 65 0d 00 1e 19 f4 20 46 6f 72 20 33 |rence..... For 3| 00000030 32 2d 62 69 74 20 6d 61 63 68 69 6e 65 73 0d 00 |2-bit machines..| 00000040 28 17 f4 20 28 63 29 20 42 41 55 20 4a 75 6e 65 |(.. (c) BAU June| 00000050 20 31 39 39 33 0d 00 32 05 3a 0d 00 3c 09 eb 20 | 1993..2.:..<.. | 00000060 30 3a 87 0d 00 46 05 3a 0d 00 50 17 73 70 3d 31 |0:...F.:..P.sp=1| 00000070 33 3a 6c 69 6e 6b 3d 31 34 3a 70 63 3d 31 35 0d |3:link=14:pc=15.| 00000080 00 5a 0e de 20 63 6f 64 65 20 31 30 30 0d 00 64 |.Z.. code 100..d| 00000090 14 e3 20 70 61 73 73 3d 30 20 b8 20 32 20 88 20 |.. pass=0 . 2 . | 000000a0 32 0d 00 6e 0b 50 25 3d 63 6f 64 65 0d 00 78 0d |2..n.P%=code..x.| 000000b0 5b 4f 50 54 20 70 61 73 73 0d 00 82 09 2e 72 61 |[OPT pass.....ra| 000000c0 6e 64 0d 00 8c 1c 20 20 20 20 20 20 20 20 4c 44 |nd.... LD| 000000d0 52 20 20 20 20 20 52 30 2c 41 73 65 65 64 0d 00 |R R0,Aseed..| 000000e0 96 1b 20 20 20 20 20 20 20 20 4c 44 52 20 20 20 |.. LDR | 000000f0 20 20 52 31 2c 41 78 6f 72 0d 00 a0 20 20 20 20 | R1,Axor... | 00000100 20 20 20 20 20 4d 4f 56 53 20 20 20 20 52 30 2c | MOVS R0,| 00000110 52 30 2c 4c 53 4c 20 23 31 0d 00 aa 1a 20 20 20 |R0,LSL #1.... | 00000120 20 20 20 20 20 82 43 53 20 20 20 52 30 2c 52 30 | .CS R0,R0| 00000130 2c 52 31 0d 00 b4 1c 20 20 20 20 20 20 20 20 53 |,R1.... S| 00000140 54 52 20 20 20 20 20 52 30 2c 41 73 65 65 64 0d |TR R0,Aseed.| 00000150 00 be 04 0d 00 c8 19 20 20 20 20 20 20 20 20 4d |....... M| 00000160 4f 56 43 43 20 20 20 52 30 2c 23 30 0d 00 d2 19 |OVCC R0,#0....| 00000170 20 20 20 20 20 20 20 20 4d 4f 56 43 53 20 20 20 | MOVCS | 00000180 52 30 2c 23 31 0d 00 dc 04 0d 00 e6 1b 20 20 20 |R0,#1........ | 00000190 20 20 20 20 20 4d 4f 56 20 20 20 20 20 70 63 2c | MOV pc,| 000001a0 6c 69 6e 6b 0d 00 f0 04 0d 00 fa 12 2e 41 73 65 |link.........Ase| 000001b0 65 64 20 20 45 51 55 44 20 91 0d 01 04 1a 2e 41 |ed EQUD ......A| 000001c0 78 6f 72 20 20 20 45 51 55 44 20 26 31 44 38 37 |xor EQUD &1D87| 000001d0 32 42 34 31 0d 01 0e 05 5d 0d 01 18 05 ed 0d 01 |2B41....].......| 000001e0 22 05 f5 0d 01 2c 14 e3 20 79 3d 32 35 35 20 b8 |"....,.. y=255 .| 000001f0 20 30 20 88 20 2d 31 0d 01 36 10 20 e3 20 78 3d | 0 . -1..6. . x=| 00000200 30 20 b8 20 36 33 39 0d 01 40 0f 20 20 e6 20 ba |0 . 639..@. . .| 00000210 28 72 61 6e 64 29 0d 01 4a 10 20 20 c8 92 20 78 |(rand)..J. .. x| 00000220 2a 32 2c 79 2a 34 0d 01 54 06 20 ed 0d 01 5e 05 |*2,y*4..T. ...^.| 00000230 ed 0d 01 68 06 fd 30 0d ff |...h..0..| 00000239
.