Home » Archimedes archive » Acorn User » AU 1997-08 B.adf » Regulars » starinfo/Andrews/TVFuzz
starinfo/Andrews/TVFuzz
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-08 B.adf » Regulars |
| Filename: | starinfo/Andrews/TVFuzz |
| Read OK: | ✔ |
| File size: | 0380 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM code 256 20FOR pass=0 TO 2 STEP 2 30P%=code 40[ 50OPT pass 60 MOV r11,r14 70 MOV r0,#13 80 SWI 256+22 90 SWI 0 100 SWI "OS_RemoveCursors" 110 ADR r0,vduin 120 ADR r1,vduout 130 SWI "OS_ReadVduVariables" 140 LDR r12,vduout 150B jump 160 .vduin 170 EQUD 149 180 EQUD -1 190 .vduout 200 EQUD 0 210.jump 220 MOV r9,#640 230 MOV r8,r12 240 MOV r7,#255 250.loop1 260MOV r10,#0 270.loop2 280 BL random 290 AND r7,r0,#255 300 STRB r7,[r8,r10] 310 ADD r10,r10,r9 320 CMP r10,#81920 330 BLT loop2 340 SUB r9,r9,#1 350 SWI 256+12 360 CMP r9,#3 370 BGT loop1 380 SWI "OS_ReadEscapeState" 390 BCC jump 400 MOV pc,r11 410.random 420 LDR r0,seed 430 LDR r1,c1 440 LDR r2,c2 450 MLA r0,r1,r0,r2 460 MLA r3,r1,r0,r2 470 STR r3,seed 480 EOR r0,r0,r3,ROR #16 490 MOV pc,r14 500.c1 510 EQUD 18904713 520.c2 530 EQUD 903279831 540.seed 550 EQUD TIME 560] 570NEXT 580CALL code 590
� code 256 � pass=0 � 2 � 2 P%=code ([ 2 OPT pass < MOV r11,r14 F MOV r0,#13 P SWI 256+22 Z SWI 0 d SWI "OS_RemoveCursors" n ADR r0,vduin x ADR r1,vduout � SWI "OS_ReadVduVariables" � LDR r12,vduout � B jump � .vduin � EQUD 149 � EQUD -1 � .vduout � EQUD 0 � .jump � MOV r9,#640 � MOV r8,r12 � MOV r7,#255 � .loop1 MOV r10,#0 .loop2 BL random " � r7,r0,#255 , STRB r7,[r8,r10] 6 ADD r10,r10,r9 @ CMP r10,#81920 J BLT loop2 T SUB r9,r9,#1 ^ SWI 256+12 h CMP r9,#3 r BGT loop1 | SWI "OS_ReadEscapeState" � BCC jump � MOV pc,r11 � .random � LDR r0,seed � LDR r1,c1 � LDR r2,c2 � MLA r0,r1,r0,r2 � MLA r3,r1,r0,r2 � STR r3,seed � � r0,r0,r3,ROR #16 � MOV pc,r14 �.c1 � EQUD 18904713 .c2 EQUD 903279831 .seed & EQUD � 0] :� D � code N �
00000000 0d 00 0a 0e de 20 63 6f 64 65 20 32 35 36 0d 00 |..... code 256..| 00000010 14 14 e3 20 70 61 73 73 3d 30 20 b8 20 32 20 88 |... pass=0 . 2 .| 00000020 20 32 0d 00 1e 0b 50 25 3d 63 6f 64 65 0d 00 28 | 2....P%=code..(| 00000030 05 5b 0d 00 32 0c 4f 50 54 20 70 61 73 73 0d 00 |.[..2.OPT pass..| 00000040 3c 11 20 20 4d 4f 56 20 72 31 31 2c 72 31 34 0d |<. MOV r11,r14.| 00000050 00 46 10 20 20 4d 4f 56 20 72 30 2c 23 31 33 0d |.F. MOV r0,#13.| 00000060 00 50 10 20 20 53 57 49 20 32 35 36 2b 32 32 0d |.P. SWI 256+22.| 00000070 00 5a 0b 20 20 53 57 49 20 30 0d 00 64 1c 20 20 |.Z. SWI 0..d. | 00000080 53 57 49 20 22 4f 53 5f 52 65 6d 6f 76 65 43 75 |SWI "OS_RemoveCu| 00000090 72 73 6f 72 73 22 0d 00 6e 12 20 20 41 44 52 20 |rsors"..n. ADR | 000000a0 72 30 2c 76 64 75 69 6e 0d 00 78 13 20 20 41 44 |r0,vduin..x. AD| 000000b0 52 20 72 31 2c 76 64 75 6f 75 74 0d 00 82 1f 20 |R r1,vduout.... | 000000c0 20 53 57 49 20 22 4f 53 5f 52 65 61 64 56 64 75 | SWI "OS_ReadVdu| 000000d0 56 61 72 69 61 62 6c 65 73 22 0d 00 8c 14 20 20 |Variables".... | 000000e0 4c 44 52 20 72 31 32 2c 76 64 75 6f 75 74 0d 00 |LDR r12,vduout..| 000000f0 96 0a 42 20 6a 75 6d 70 0d 00 a0 0c 20 20 2e 76 |..B jump.... .v| 00000100 64 75 69 6e 0d 00 aa 0e 20 20 45 51 55 44 20 31 |duin.... EQUD 1| 00000110 34 39 0d 00 b4 0d 20 20 45 51 55 44 20 2d 31 0d |49.... EQUD -1.| 00000120 00 be 0d 20 20 2e 76 64 75 6f 75 74 0d 00 c8 0c |... .vduout....| 00000130 20 20 45 51 55 44 20 30 0d 00 d2 09 2e 6a 75 6d | EQUD 0.....jum| 00000140 70 0d 00 dc 11 20 20 4d 4f 56 20 72 39 2c 23 36 |p.... MOV r9,#6| 00000150 34 30 0d 00 e6 10 20 20 4d 4f 56 20 72 38 2c 72 |40.... MOV r8,r| 00000160 31 32 0d 00 f0 11 20 20 4d 4f 56 20 72 37 2c 23 |12.... MOV r7,#| 00000170 32 35 35 0d 00 fa 0a 2e 6c 6f 6f 70 31 0d 01 04 |255.....loop1...| 00000180 0e 4d 4f 56 20 72 31 30 2c 23 30 0d 01 0e 0a 2e |.MOV r10,#0.....| 00000190 6c 6f 6f 70 32 0d 01 18 0f 20 20 42 4c 20 72 61 |loop2.... BL ra| 000001a0 6e 64 6f 6d 0d 01 22 12 20 20 80 20 72 37 2c 72 |ndom..". . r7,r| 000001b0 30 2c 23 32 35 35 0d 01 2c 16 20 20 53 54 52 42 |0,#255..,. STRB| 000001c0 20 72 37 2c 5b 72 38 2c 72 31 30 5d 0d 01 36 14 | r7,[r8,r10]..6.| 000001d0 20 20 41 44 44 20 72 31 30 2c 72 31 30 2c 72 39 | ADD r10,r10,r9| 000001e0 0d 01 40 14 20 20 43 4d 50 20 72 31 30 2c 23 38 |..@. CMP r10,#8| 000001f0 31 39 32 30 0d 01 4a 0f 20 20 42 4c 54 20 6c 6f |1920..J. BLT lo| 00000200 6f 70 32 0d 01 54 12 20 20 53 55 42 20 72 39 2c |op2..T. SUB r9,| 00000210 72 39 2c 23 31 0d 01 5e 10 20 20 53 57 49 20 32 |r9,#1..^. SWI 2| 00000220 35 36 2b 31 32 0d 01 68 0f 20 20 43 4d 50 20 72 |56+12..h. CMP r| 00000230 39 2c 23 33 0d 01 72 0f 20 20 42 47 54 20 6c 6f |9,#3..r. BGT lo| 00000240 6f 70 31 0d 01 7c 1e 20 20 53 57 49 20 22 4f 53 |op1..|. SWI "OS| 00000250 5f 52 65 61 64 45 73 63 61 70 65 53 74 61 74 65 |_ReadEscapeState| 00000260 22 0d 01 86 0e 20 20 42 43 43 20 6a 75 6d 70 0d |".... BCC jump.| 00000270 01 90 10 20 20 4d 4f 56 20 70 63 2c 72 31 31 0d |... MOV pc,r11.| 00000280 01 9a 0b 2e 72 61 6e 64 6f 6d 0d 01 a4 11 20 20 |....random.... | 00000290 4c 44 52 20 72 30 2c 73 65 65 64 0d 01 ae 0f 20 |LDR r0,seed.... | 000002a0 20 4c 44 52 20 72 31 2c 63 31 0d 01 b8 0f 20 20 | LDR r1,c1.... | 000002b0 4c 44 52 20 72 32 2c 63 32 0d 01 c2 15 20 20 4d |LDR r2,c2.... M| 000002c0 4c 41 20 72 30 2c 72 31 2c 72 30 2c 72 32 0d 01 |LA r0,r1,r0,r2..| 000002d0 cc 15 20 20 4d 4c 41 20 72 33 2c 72 31 2c 72 30 |.. MLA r3,r1,r0| 000002e0 2c 72 32 0d 01 d6 11 20 20 53 54 52 20 72 33 2c |,r2.... STR r3,| 000002f0 73 65 65 64 0d 01 e0 18 20 20 82 20 72 30 2c 72 |seed.... . r0,r| 00000300 30 2c 72 33 2c 52 4f 52 20 23 31 36 0d 01 ea 10 |0,r3,ROR #16....| 00000310 20 20 4d 4f 56 20 70 63 2c 72 31 34 0d 01 f4 07 | MOV pc,r14....| 00000320 2e 63 31 0d 01 fe 13 20 20 45 51 55 44 20 31 38 |.c1.... EQUD 18| 00000330 39 30 34 37 31 33 0d 02 08 07 2e 63 32 0d 02 12 |904713.....c2...| 00000340 14 20 20 45 51 55 44 20 39 30 33 32 37 39 38 33 |. EQUD 90327983| 00000350 31 0d 02 1c 09 2e 73 65 65 64 0d 02 26 0c 20 20 |1.....seed..&. | 00000360 45 51 55 44 20 91 0d 02 30 05 5d 0d 02 3a 05 ed |EQUD ...0.]..:..| 00000370 0d 02 44 0a d6 20 63 6f 64 65 0d 02 4e 04 0d ff |..D.. code..N...| 00000380
.