| TV Noise CPC | ||||||||
|---|---|---|---|---|---|---|---|---|
|
|
|||||||
|
popularity : 58% |
|||||||
alltime top: #9435 |
|
|||||||
|
||||||||
added on the 2010-11-12 12:28:21 by chiourme  |
||||||||
popularity helper
comments
ATTITUDE
what kaneel said
1 line, in-your-face :)
what kaneel said !
that 1line_only rocks the most !
plz repost in all of em shitty releases by that sucker someone !
plz repost in all of em shitty releases by that sucker someone !
Quote:
1 BORDER 0:i=i+1:Poke &C000+i MOD &4000,RND*15:OUT &BD00,RND*255:goto 1
TV Noise, people owning Daemon :)
lol
And so I typed in a CPC Basic programm for the first time again after 18 years and hey: it works ;-) When I save it to disk I can only see "1k". If I remember correctly CPC Basic uses tokens. How can I see the exact size?
Wow!
What aquaman said!
fantastic one-line prod!
Heh. 63 bytes in BASIC
noise
the so famous pouët.net oneliner
glöp
:)
mooaarr
LOL
^_^
.
takes time but the most amazing one :D
tv noise
[nostalgia]reminds me something :')[/nostalgia]
.
CPC Oneliner... :-) 63 bytes in BASIC? As a coder I find it pretty although there have been too many of these around lately.
So instead of flooding pouet.net with another prod, I'll just give one away in here. It's short and rather random in (full) 4 colors and squeezed down to 16 bytes. "TV Noise CPC - Tiny" in Assembler, anyone?
The idea was presented in this MSX forum by ARTRAG, although I think it's quite well known(?) trick when using Z80.
For a quicker tranfer to your CPC ;-) you can also type it in BASIC ... or Cut&Paste to your favourite emulator, if you wish.
So instead of flooding pouet.net with another prod, I'll just give one away in here. It's short and rather random in (full) 4 colors and squeezed down to 16 bytes. "TV Noise CPC - Tiny" in Assembler, anyone?
Code:
org &7f00
run &7f00
di
ld b,&bd
.rndLoop
ld d,a ; a <- 8-bit random routine (begin)
ld a,r ; ..
add d ; ..
rrca ; (end), 5 bytes
out (c),a
set 7,h
ld (hl),a
inc hl
jr rndLoop
The idea was presented in this MSX forum by ARTRAG, although I think it's quite well known(?) trick when using Z80.
For a quicker tranfer to your CPC ;-) you can also type it in BASIC ... or Cut&Paste to your favourite emulator, if you wish.
Code:
10 a%=&7F00:MEMORY a%-1
20 READ b%:IF b%<0 THEN CALL &7F00 ELSE POKE a%,b%:a%=a%+1:GOTO 20
30 DATA &F3,6,&BD,&57,&ED,&5F,&82,15,&ED,&79,&CB,
&FC,&77,&23,&18,&F3,0,-1
There are 2 interesting ideas in your noise : begining OUT &BD00,XX without any OUT &BC00,13 is clever (I wouldn't have predicted it works). The other one is the POKE XX,RND*15 to use only 1 ink in mode 1. You could get the same with MODE 2 instead of BORDER 0.
The problem are it takes 3'30" to display and other 3'30" to crash (overflow of i). I propose this modification to ovoid these 2 problems:
56b
The problem are it takes 3'30" to display and other 3'30" to crash (overflow of i). I propose this modification to ovoid these 2 problems:
56b
Code:
You have still 8 octets left to change the border or one ink.1 FOR x=&C000 TO &FFFF:POKE x,RND*15:NEXT:WHILE 1:OUT &BD00,RND*99:WEND
For optimisation...
noise
64b! Nice!
29b version:
Code:
1 OUT &BC00,12:OUT &BD00,RND*44:RUN
Cheating to 12 bytes:
Run it from BASIC with:
Code:
org &4c
ld c,a ; a <- 8-bit random routine (begin)
ld a,r ; ..
add c ; ..
rrca ; (end), 5 bytes
out (c),a
set 7,d
ld (de),a
inc de
jp (hl)
Run it from BASIC with:
Code:
CALL &43,&F3BD
🤷♂️
lists containing this prod
submit changes
if this prod is a fake, some info is false or the download link is broken,
do not post about it in the comments, it will get lost.
instead, click here !
1 BORDER 0:i=i+1:Poke &C000+i MOD &4000,RND*15:OUT &BD00,RND*255:goto 1