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 
oops, I swear I only pasted it once, must be something with the c64 EOL codes =)
i rather stay in jail, than writing for hugi.
The following is the (I think) smallest code currently known to
reset the Atari 2600 (including zeroing RAM):
reset the Atari 2600 (including zeroing RAM):
Code:
sei
cld
ldx #0
txa
tay
.clearmemory:
dex
txs
pha
bne .clearmemory
00000000000000000000000000
00110000001111110011000000
00110000001111110011000000
00110000001100110011000000
00110000001100110011000000
00110000001100110011000000
00111111001111110011111100
00111111001111110011111100
00000000000000000000000002
00110000001111110011000000
00110000001111110011000000
00110000001100110011000000
00110000001100110011000000
00110000001100110011000000
00111111001111110011111100
00111111001111110011111100
00000000000000000000000002
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
Quote:
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.the following is the smallest known code that resets the c64:
Code:sys 64738
@keops: conkers bad fur day^n64
toxie: thanks but I'm not the one who asked about it ;)
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? :)
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? :)
i know, you're a professional dogshit remover in lutjebroek.
THAT IS WHERE LUTJEBROEK IS LOCATED EXACTLY!
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
Code:
// write a daily wtf in here
oink oink
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
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
I just released this: http://knos.free.fr/20060701/
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.
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);
}
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;
}
about your work
// 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.
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.
#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$<>""
#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$<>""
