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]