Random line of code thread
category: code [glöplog]
Code:
lda $dc00
for (;;){fork();}
Code:
(define (cons a b) (lambda (pick) (cond ((= pick 1) a) ((= pick 2) b))))
(define (car x) (x 1))
(define (cdr x) (x 2))
Code:
*sr 0.9998 # (over)samplerate-independent volume envelope (exponential decay)
Code:
id test
inc myosc
<out:
~myosc freq=1 dcy=0.25 # instantiate a template. now we're cookin' :-)Code:
.pool @ ugh
Code:
0;
While...Wend
JZ MetaRet ; most of the time we will fail.
Code:
10 PRINT "PENUS ";
20 GOTO 10
Code:
nop
Code:
ldr r1,[r1,r0]; word compare on Z80
or a ; clear carry flag
sbc hl, de
add hl, de
; aaaand... flags are ready
or a ; clear carry flag
sbc hl, de
add hl, de
; aaaand... flags are ready
Code:
impl Serialize for CSharpString {
fn serialize<S>(&self, serializer: S) -> Result<S::Ok, S::Error>
where
S: Serializer,
{
let bytes = self.0.as_bytes();
let len = bytes.len() as u8;
let mut seq = serializer.serialize_seq(Some(len as usize + 1))?;
seq.serialize_element(&len)?;
for byte in bytes {
seq.serialize_element(byte)?;
}
seq.end()
}
}
CSharpString beyond 255 bytes. Probably never happens.
Code:
<div data-st-cnt="ee" id="easter-egg"></div>
Code:
; --------------------------------------- shoot crotch lasers
Sync_Laser:
Code:
adds r1,4
ldr r7,=0xFFFFFFFC
ands r1,r7
Code:
ldr r2, [r4]
ldr r3, [r4, #4]
str r2, [r12]
str r3, [r12, #4]
Code:
// FIXME: This is very prone to memory leaks.
Context* ctx = new Context();
Code:
72: 225a movea.l (a2)+,a1
74: 362a 0002 move.w 2(a2),d3
78: 3210 move.w (a0),d1
7a: 2008 move.l a0,d0
7c: 5880 addq.l #4,d0
7e: 2040 movea.l d0,a0
80: 5988 subq.l #4,a0
82: 0c41 fff0 cmpi.w #-16,d1
Code:
//new bees?
if rnd(1) > 0.95 then
local bee = {-1,rnd(98)+16}
add(bees, bee)
end
A2000 LDA$01
ADC#$38
STA $FF11
JMP $2000
G2000
ADC#$38
STA $FF11
JMP $2000
G2000
SYS 52651
Code:
shapeOut = vect_rotate(shapeVerts[i], shapeAng, 32); //currently commits DIV/0