Home » Archimedes archive » Acorn User » AU 1993-09.adf » !StarInfo_StarInfo » EightBit/Slime
EightBit/Slime
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-09.adf » !StarInfo_StarInfo |
| Filename: | EightBit/Slime |
| Read OK: | ✔ |
| File size: | 040A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1993-09.adf » !StarInfo_StarInfo » EightBit/Slime
- AEW website » au » au_5_25_discs_Acorn_User_93_09_tau93-09.ssd » Slime
File contents
10REM >Slime (Info7) 20REM By Christopher Bassett (mods by DA) 30REM For 8-bit machines 40REM (c) BAU September 1993 50: 60MODE 2 70DIM mc 250 80PROCassem 90k=10 100r1=RND(k) 110r2=RND(k) 120r3=RND(k) 130FOR z=0 TO 160 140 !lx=(z*8) 150 !ls=ABS((COSRAD(r1*z)+COSRAD(r2*z)+COSRAD(r3*z)))*32+16 160 CALL line 170NEXT 180*SAVE SlmeScr 3000 8000 190END 200: 210DEF PROCassem 220oswrch=&FFEE 230ly=&70:hy=&71 240lx=&74:hx=&75 250ls=&78:hs=&79 260FOR pass=0 TO 2 STEP 2 270P%=mc 280[OPT pass 290.line 300LDA #255 310STA ly 320LDA #3 330STA hy 340LDA #25 350JSR oswrch 360LDA #4 370JSR oswrch 380LDA lx 390JSR oswrch 400LDA hx 410JSR oswrch 420LDA ly 430JSR oswrch 440LDA hy 450JSR oswrch 460LDX #1 470.loop 480LDA #18 490JSR oswrch 500LDA #0 510JSR oswrch 520TXA 530JSR oswrch 540SEC 550LDA ly 560SBC ls 570STA ly 580LDA hy 590SBC hs 600STA hy 610BMI end 620LDA #25 630JSR oswrch 640LDA #5 650JSR oswrch 660LDA lx 670JSR oswrch 680LDA hx 690JSR oswrch 700LDA ly 710JSR oswrch 720LDA hy 730JSR oswrch 740INX 750CPX #15 760BNE loop 770LDX #1 780JMP loop 790.end 800RTS 810] 820NEXT 830ENDPROC
� >Slime (Info7) *� By Christopher Bassett (mods by DA) � For 8-bit machines ( � (c) BAU September 1993 2: <� 2 F � mc 250 P �assem Zk=10 d r1=�(k) n r2=�(k) x r3=�(k) �� z=0 � 160 � !lx=(z*8) �. !ls=�((��(r1*z)+��(r2*z)+��(r3*z)))*32+16 � � line �� �*SAVE SlmeScr 3000 8000 �� �: � � �assem �oswrch=&FFEE �ly=&70:hy=&71 �lx=&74:hx=&75 �ls=&78:hs=&79 � pass=0 � 2 � 2 P%=mc [OPT pass " .line , LDA #255 6 STA ly @ LDA #3 J STA hy T LDA #25 ^JSR oswrch h LDA #4 rJSR oswrch | LDA lx �JSR oswrch � LDA hx �JSR oswrch � LDA ly �JSR oswrch � LDA hy �JSR oswrch � LDX #1 � .loop � LDA #18 �JSR oswrch � LDA #0 �JSR oswrch TXA JSR oswrch SEC & LDA ly 0 SBC ls : STA ly D LDA hy N SBC hs X STA hy b BMI end l LDA #25 vJSR oswrch � LDA #5 �JSR oswrch � LDA lx �JSR oswrch � LDA hx �JSR oswrch � LDA ly �JSR oswrch � LDA hy �JSR oswrch �INX � CPX #15 � BNE loop LDX #1 JMP loop .end RTS *] 4� >� �
00000000 0d 00 0a 18 f4 20 20 20 20 20 3e 53 6c 69 6d 65 |..... >Slime| 00000010 20 28 49 6e 66 6f 37 29 0d 00 14 2a f4 20 42 79 | (Info7)...*. By| 00000020 20 20 43 68 72 69 73 74 6f 70 68 65 72 20 42 61 | Christopher Ba| 00000030 73 73 65 74 74 20 28 6d 6f 64 73 20 62 79 20 44 |ssett (mods by D| 00000040 41 29 0d 00 1e 18 f4 20 46 6f 72 20 38 2d 62 69 |A)..... For 8-bi| 00000050 74 20 6d 61 63 68 69 6e 65 73 0d 00 28 1c f4 20 |t machines..(.. | 00000060 28 63 29 20 42 41 55 20 53 65 70 74 65 6d 62 65 |(c) BAU Septembe| 00000070 72 20 31 39 39 33 0d 00 32 05 3a 0d 00 3c 07 eb |r 1993..2.:..<..| 00000080 20 32 0d 00 46 0c de 20 6d 63 20 32 35 30 0d 00 | 2..F.. mc 250..| 00000090 50 0a f2 61 73 73 65 6d 0d 00 5a 08 6b 3d 31 30 |P..assem..Z.k=10| 000000a0 0d 00 64 0b 72 31 3d b3 28 6b 29 0d 00 6e 0b 72 |..d.r1=.(k)..n.r| 000000b0 32 3d b3 28 6b 29 0d 00 78 0b 72 33 3d b3 28 6b |2=.(k)..x.r3=.(k| 000000c0 29 0d 00 82 0f e3 20 7a 3d 30 20 b8 20 31 36 30 |)..... z=0 . 160| 000000d0 0d 00 8c 0e 20 21 6c 78 3d 28 7a 2a 38 29 0d 00 |.... !lx=(z*8)..| 000000e0 96 2e 20 21 6c 73 3d 94 28 28 9b b2 28 72 31 2a |.. !ls=.((..(r1*| 000000f0 7a 29 2b 9b b2 28 72 32 2a 7a 29 2b 9b b2 28 72 |z)+..(r2*z)+..(r| 00000100 33 2a 7a 29 29 29 2a 33 32 2b 31 36 0d 00 a0 0b |3*z)))*32+16....| 00000110 20 d6 20 6c 69 6e 65 0d 00 aa 05 ed 0d 00 b4 1b | . line.........| 00000120 2a 53 41 56 45 20 53 6c 6d 65 53 63 72 20 33 30 |*SAVE SlmeScr 30| 00000130 30 30 20 38 30 30 30 0d 00 be 05 e0 0d 00 c8 05 |00 8000.........| 00000140 3a 0d 00 d2 0c dd 20 f2 61 73 73 65 6d 0d 00 dc |:..... .assem...| 00000150 10 6f 73 77 72 63 68 3d 26 46 46 45 45 0d 00 e6 |.oswrch=&FFEE...| 00000160 11 6c 79 3d 26 37 30 3a 68 79 3d 26 37 31 0d 00 |.ly=&70:hy=&71..| 00000170 f0 11 6c 78 3d 26 37 34 3a 68 78 3d 26 37 35 0d |..lx=&74:hx=&75.| 00000180 00 fa 11 6c 73 3d 26 37 38 3a 68 73 3d 26 37 39 |...ls=&78:hs=&79| 00000190 0d 01 04 14 e3 20 70 61 73 73 3d 30 20 b8 20 32 |..... pass=0 . 2| 000001a0 20 88 20 32 0d 01 0e 09 50 25 3d 6d 63 0d 01 18 | . 2....P%=mc...| 000001b0 0d 5b 4f 50 54 20 70 61 73 73 0d 01 22 09 2e 6c |.[OPT pass.."..l| 000001c0 69 6e 65 0d 01 2c 0c 4c 44 41 20 23 32 35 35 0d |ine..,.LDA #255.| 000001d0 01 36 0a 53 54 41 20 6c 79 0d 01 40 0a 4c 44 41 |.6.STA ly..@.LDA| 000001e0 20 23 33 0d 01 4a 0a 53 54 41 20 68 79 0d 01 54 | #3..J.STA hy..T| 000001f0 0b 4c 44 41 20 23 32 35 0d 01 5e 0e 4a 53 52 20 |.LDA #25..^.JSR | 00000200 6f 73 77 72 63 68 0d 01 68 0a 4c 44 41 20 23 34 |oswrch..h.LDA #4| 00000210 0d 01 72 0e 4a 53 52 20 6f 73 77 72 63 68 0d 01 |..r.JSR oswrch..| 00000220 7c 0a 4c 44 41 20 6c 78 0d 01 86 0e 4a 53 52 20 ||.LDA lx....JSR | 00000230 6f 73 77 72 63 68 0d 01 90 0a 4c 44 41 20 68 78 |oswrch....LDA hx| 00000240 0d 01 9a 0e 4a 53 52 20 6f 73 77 72 63 68 0d 01 |....JSR oswrch..| 00000250 a4 0a 4c 44 41 20 6c 79 0d 01 ae 0e 4a 53 52 20 |..LDA ly....JSR | 00000260 6f 73 77 72 63 68 0d 01 b8 0a 4c 44 41 20 68 79 |oswrch....LDA hy| 00000270 0d 01 c2 0e 4a 53 52 20 6f 73 77 72 63 68 0d 01 |....JSR oswrch..| 00000280 cc 0a 4c 44 58 20 23 31 0d 01 d6 09 2e 6c 6f 6f |..LDX #1.....loo| 00000290 70 0d 01 e0 0b 4c 44 41 20 23 31 38 0d 01 ea 0e |p....LDA #18....| 000002a0 4a 53 52 20 6f 73 77 72 63 68 0d 01 f4 0a 4c 44 |JSR oswrch....LD| 000002b0 41 20 23 30 0d 01 fe 0e 4a 53 52 20 6f 73 77 72 |A #0....JSR oswr| 000002c0 63 68 0d 02 08 07 54 58 41 0d 02 12 0e 4a 53 52 |ch....TXA....JSR| 000002d0 20 6f 73 77 72 63 68 0d 02 1c 07 53 45 43 0d 02 | oswrch....SEC..| 000002e0 26 0a 4c 44 41 20 6c 79 0d 02 30 0a 53 42 43 20 |&.LDA ly..0.SBC | 000002f0 6c 73 0d 02 3a 0a 53 54 41 20 6c 79 0d 02 44 0a |ls..:.STA ly..D.| 00000300 4c 44 41 20 68 79 0d 02 4e 0a 53 42 43 20 68 73 |LDA hy..N.SBC hs| 00000310 0d 02 58 0a 53 54 41 20 68 79 0d 02 62 0b 42 4d |..X.STA hy..b.BM| 00000320 49 20 65 6e 64 0d 02 6c 0b 4c 44 41 20 23 32 35 |I end..l.LDA #25| 00000330 0d 02 76 0e 4a 53 52 20 6f 73 77 72 63 68 0d 02 |..v.JSR oswrch..| 00000340 80 0a 4c 44 41 20 23 35 0d 02 8a 0e 4a 53 52 20 |..LDA #5....JSR | 00000350 6f 73 77 72 63 68 0d 02 94 0a 4c 44 41 20 6c 78 |oswrch....LDA lx| 00000360 0d 02 9e 0e 4a 53 52 20 6f 73 77 72 63 68 0d 02 |....JSR oswrch..| 00000370 a8 0a 4c 44 41 20 68 78 0d 02 b2 0e 4a 53 52 20 |..LDA hx....JSR | 00000380 6f 73 77 72 63 68 0d 02 bc 0a 4c 44 41 20 6c 79 |oswrch....LDA ly| 00000390 0d 02 c6 0e 4a 53 52 20 6f 73 77 72 63 68 0d 02 |....JSR oswrch..| 000003a0 d0 0a 4c 44 41 20 68 79 0d 02 da 0e 4a 53 52 20 |..LDA hy....JSR | 000003b0 6f 73 77 72 63 68 0d 02 e4 07 49 4e 58 0d 02 ee |oswrch....INX...| 000003c0 0b 43 50 58 20 23 31 35 0d 02 f8 0c 42 4e 45 20 |.CPX #15....BNE | 000003d0 6c 6f 6f 70 0d 03 02 0a 4c 44 58 20 23 31 0d 03 |loop....LDX #1..| 000003e0 0c 0c 4a 4d 50 20 6c 6f 6f 70 0d 03 16 08 2e 65 |..JMP loop.....e| 000003f0 6e 64 0d 03 20 07 52 54 53 0d 03 2a 05 5d 0d 03 |nd.. .RTS..*.]..| 00000400 34 05 ed 0d 03 3e 05 e1 0d ff |4....>....| 0000040a
.