pouët.net

Coders, please write about your work

category: general [glöplog]
Code: *= $1000 ;dycp scroller in 256 bytes ;lousy coding & comments by: ;oswald of resource ;(cruzer: it wasnt hard at all ;but i ran out of mem when ;i wanted to add some cosmetics ;:) freq = $04 sinmove = $f0 szoveg = $a1a0 ;text at rom sin = $1f00 sinptrs = $1e00 cset = $3000 sei ;copy charset lda #$33 ;from rom sta $01 ldx #$00 copy lda $d800,x sta $3000,x dex bne copy lda #$37 sta $01 lda #$04 ;set up screen sta $ff stx $fe txa lp2 ldy #0 lp sta ($fe),y adc #6 iny cpy #40 bne lp lda #$28 jsr add inx txa cmp #$06 bne lp2 lda #24 sta 53272 ;--------------------------------------- again2 ldx #7 stx $fb stx 53270 lda #0 ;clear @ mkspc sta cset,x ;to make it a dex ;space bpl mkspc again lda #$00 ;reset counters sta $fe sta $fc lda #$20 sta $ff lda sinmove sta $fa mainloop lda $fa clc adc #freq ;get sine offset sta $fa tay lda sin,y pha tay lda #$00 ;clear char ldx #$0b clr sta ($fe),y iny dex bpl clr pla clc adc #$02 tay ldx $fc text lda szoveg,x ;get text asl a asl a asl a tax lda #$06 sta $fd copychr lda cset,x ;draw char sta ($fe),y inx iny dec $fd bpl copychr lda #48 ;move 2 next jsr add ;column inc $fc lda $fc cmp #40 bne mainloop lda #$68 cmp $d012 bne *-3 lda sinmove clc adc #$02 sta sinmove ldx $fb stx 53270 dec $fb bpl again ;clc ;fix flicker adc #freq ;when moving 8 sta sinmove ;pixel each char inc text+1 bne *+5 inc text+2 jmp again2 add clc ;saves sum bytes adc $fe sta $fe bcc *+4 inc $ff rts
added on the 2006-06-19 07:55:19 by Oswald Oswald
oops, I swear I only pasted it once, must be something with the c64 EOL codes =)
added on the 2006-06-19 07:57:27 by Oswald Oswald
i rather stay in jail, than writing for hugi.
added on the 2006-06-19 08:56:53 by quisten quisten
The following is the (I think) smallest code currently known to
reset the Atari 2600 (including zeroing RAM):
Code: sei cld ldx #0 txa tay .clearmemory: dex txs pha bne .clearmemory
added on the 2006-06-19 09:23:16 by Moerder Moerder
00000000000000000000000000
00110000001111110011000000
00110000001111110011000000
00110000001100110011000000
00110000001100110011000000
00110000001100110011000000
00111111001111110011111100
00111111001111110011111100
00000000000000000000000002
added on the 2006-06-19 10:17:17 by sauli sauli
Sorry, I'd really like to write something, but I have a principle: no articles to diskmags unless they keep web-readable versions available for all the issues.
the following is the smallest known code that resets the c64:

Code: sys 64738
added on the 2006-06-19 12:25:34 by Oswald Oswald
Quote:
the following is the smallest known code that resets the c64:
Code: sys 64738
Wrong, that code doesn't reset the C64, it calls a function that resets the C64. With the same logic the really shortest code to reset a C64 is to use no code and reset it manually with a reset switch.
added on the 2006-06-19 17:13:25 by nitro2k01 nitro2k01
@keops: conkers bad fur day^n64
added on the 2006-06-19 17:40:07 by toxie toxie
toxie: thanks but I'm not the one who asked about it ;)
added on the 2006-06-19 18:54:53 by keops keops
I'm not a coder, but I'll write about my work anyway:

My work SUCKS. Every day I'm HAPPY when I can GO HOME. The wages are TERRIBLE. Can anyone recommend a BETTER JOB?!

How 'bout that? :)
added on the 2006-06-19 19:29:23 by havoc havoc
i know, you're a professional dogshit remover in lutjebroek.
BB Image
THAT IS WHERE LUTJEBROEK IS LOCATED EXACTLY!
added on the 2006-06-19 19:46:30 by Maali Maali
in arctic ocean?
Code: bass 100h wtf ax, 13h scene 10h lol A000h omg es wtf cx, 32000 wtf di, 0 wtf ax, BA55h leet megabass ; powerful opcode
added on the 2006-06-19 20:22:35 by bdk bdk
Code: // write a daily wtf in here
added on the 2006-06-19 22:34:27 by rmeht rmeht
oink oink
added on the 2006-06-19 23:24:33 by nitro2k01 nitro2k01
Private Sub Command1_Click()
For i = 1 To 1
Select Case i
Case 1
While i = 1
If i = 1 Then
DoEvents
Do
Randomize
If Round(Int(Rnd(i) + 1)) = 1 And Int(i) = 1 And Sqr(i) = 1 And 1 ^ 999999 = i Or i = i Then
MsgBox "This program has been done by a Microsoft Certified Windows Vista Kernel programmer!"
End If
Loop Until i = 1
i = 2
ElseIf i = Not 1 Or i = Not True Then
i = 2
End If
Wend
End Select
Next i
GoTo a:
a:
i = 1

End Sub
added on the 2006-06-20 07:36:42 by ATH500 ATH500
I just released this: http://knos.free.fr/20060701/
added on the 2006-07-01 11:33:46 by _-_-__ _-_-__
Code:uses crt; var textpos:byte; dir:string; const text:string=('be a man like us.'); begin clrscr; textpos:=1; getdir(0,dir); write(dir,'>'); repeat if keypressed then begin readkey; if textpos=length(text) then writeln(text[textpos]) else write(text[textpos]); inc(textpos); end; until textpos=length(text)+1; end.
added on the 2006-07-01 12:49:27 by mind mind
Code:namespace VM { template<class RT> struct ReturnSpecialization { template<typename Callee, typename P1, typename P2, typename P3, typename P4> static inline void Call(RT (Callee::*func)(P1, P2, P3, P4), CStack<u32>* stack) { Callee* callee = (Callee*)stack->Pop(); P1 p1 = Pop<P1>(stack); P2 p2 = Pop<P2>(stack); P3 p3 = Pop<P3>(stack); P4 p4 = Pop<P4>(stack); RT ret = (callee->*func)(p1, p2, p3, p4); Push(stack, ret); }
added on the 2006-07-01 12:54:09 by bartman bartman
Code: // S3 Savages (GL 1.1, ProSavage/Twister and Savage4) crash a lot in glDeleteTextures when sharing lists if( (version <= 11) && (renderer.find("Savage") != string::npos) && (vendor.find("S3 ") != string::npos) ) { printf_console( "GL: Disabling fullscreen due to S3 Savage crashes\n" ); buggyShareLists = true; disableFullscreen = true; }
added on the 2006-07-01 13:04:11 by NeARAZ NeARAZ
about your work
added on the 2006-07-01 14:37:45 by skarab skarab
// coders on Pouet behavior modeled

when (adok-team.ask(serious-stuff) {
joke(hugi);
fuck(diskmag);
hide(lazyness);
hide(lack of motivation);
hide(lack of imagination);
}

// coders smarter behavior modeled

// coders on Pouet behavior modeled

when (adok-team.ask(serious-stuff) {
show(what-book-I-read-about-code);
show(how-I-started-coding);
show(what-url-I-read);
show(what-is-the-basics-of-nowadays-coding);
}

We are awaiting your ARTICLES or your thoughts: we are able to sum up, to make an article from just a few SMART words about coding, to build a tutorial from uncommented nor die hard optimized code. But we need just a bit to develop. Please considerate.

Thank you for everybody and more the article will be passionating, more this will in return benefit the scene, that's YOU, fellows geek / leet coders.

Please understand that.

Thank you reading.
added on the 2006-07-01 14:56:23 by ep ep
#include "tinyptc.bi"
#include "fmod.bi"
if ptc_open( "20 lines Optytro 3", 320, 240) then dim shared buffer(320*240) as integer
if FSOUND_Init(48000, 8, 0) then FMUSIC_PlaySong (FMUSIC_LoadSong ("contraduct_design.xm"))
do
l! = timer * 64.0
for y%=-120 to 119
for x%=-160 to 159
k! = sqr((10240 + sin(l!/32.0)*6144)- x%*x% - y%*y%)/256.0
if k!>0.1 then buffer((y%+120) * 320 + x% + 160) = (((((x%/k! + l!*8) AND (y%/k! + l!*8)) AND 255)) SHL 16) OR ((sqr(x%*x%+y%*y%)) AND 255) else buffer((y%+120) * 320 + x% + 160) = ((sin((sin(x%/45) * 41263 + sin((y% + l!*2)/45) * 65446 + sin((x% + sin((y% + l!*1)/64) * 256)/67) * 36676 + sin((x% + y% + y%)/127) * 7896)/4096) * 127 + 128) SHL 16) OR (((x%+160) SHR 1) SHL 8) OR (y% + 120)
next x%
next y%
ptc_update@buffer(0)
loop until inkey$<>""
added on the 2006-07-01 15:10:15 by Optimus Optimus

login