Random line of code thread
category: code [glöplog]
Curs Off : Flash Off : Hide On : Cls 0
Code:
Define constants for the Amiga custom registers
We need more activity in this thread. :)
Code:
or.w #$0700,sr
Code:
add sizeof_Metasprite - ((wMetasprites3_Delay - wMetasprites3_PosY)) + 1
Code:
// Fix at the later date
// ad. Fixing it caused too many errors. Leave it as it is
Code:
if (color.lower != color.upper) lower[block].add((offset, color.lower));
Code:
ld [hl], (35 + 8) + 10
Code:
ocs_to_rgb = lambda c : tuple(((c >> i) & 0x0F) * 0x11 for i in (8, 4, 0))
Code:
(function q() { console.log("(" + q.toString() + ")()") })()
Code:
var %y $calc(($sin($calc((%dm.c / 24) + (%cnt * 1.5))).deg * 96) + (720 / 2))
Code:
ff=lambda x,n=mp.dps//2:f'{mp.nstr(x,n-(mp.fabs(x)<1),min_fixed=mp.ninf,max_fixed=mp.inf):0{n+1}}'
Code:
minterms = (-1 << (threshold & 7)) & 0xFF;
Code:
elseif ($right($left($did(11, $did(11).sel).text, 2), 1) == $chr(58)) {
cd $did(11, $did(11).sel).text
}
adjtim=(((tim-20)*10)%396)/10
Code:
int maxSprites = min(8, (ddfStart - 0x14) >> 2);
calcAllpos
move.l ptrref1,a5
move.l ptrref2,a1
move.w ang1,d0
add d0,d0
add d0,d0
add.w d0,a5
move.w ang2,d0
add d0,d0
add.w d0,d0
add.w d0,a1
move.l ptrref3,a2
move.l ptrref4,a3
move.w ang3,d0
add d0,d0
add d0,d0
add d0,a2
move.w ang4,d0
add d0,d0
add d0,d0
add d0,a3
move.l (a5),a5
move.l (a1),a1
move.l (a2),a2
move.l (a3),a3
move.l codecurefface,a4
move.l ptrConvX,d0
move.l ptrConvY,d1
move.l log,d3
move.w #nbbob-1,d2
moveq #0,d4
move.w seuil,d5
move.l #brabrabra,d7
loopcalcul
move.w d5,d0
add.w (a2)+,d0
add.w (a3)+,d0
move.l d0,a6
move.w (a6),d3 ; y*160
move.w (a5)+,d0
add.w (a1)+,d0
move.l d0,a6
add.w (a6)+,d3
move.w d3,(a4)+ ; effacement offset
move.l (a6)+,(a4)+ ; routine d'effacement
move.l (a6),a6 ; routine d'affichage
move.l d3,a0
exg.l d7,a4
jmp (a6)
brabrabra
exg.l a4,d7
; move.w d5,d0
; add.w (a2)+,d0
; add.w (a3)+,d0
;
; move.l d0,a6
; move.w (a6),d3 ; y*160
;
; move.w (a5)+,d0
; add.w (a1)+,d0
;
; move.l d0,a6
; add.w (a6)+,d3
; addq.w #4,d3
; move.w d3,(a4)+ ; effacement offset
; move.l (a6)+,(a4)+ ; routine d'effacement
;
; move.l (a6),a6 ; routine d'affichage
; move.l d3,a0
;
; jsr (a6)
dbf d2,loopcalcul
lea ang1,a0
lea 8(a0),a1
movem.w (a1),d0-d3
move.w (a0),d4
add.w d0,d4
move.w #511,d5
and d5,d4
move.w d4,(a0)+
move.w (a0),d4
add.w d1,d4
cmp.w #900,d4
blt.s .toto
sub.w #900,d4
.toto move.w d4,(a0)+
move.w (a0),d4
add.w d2,d4
and d5,d4
move.w d4,(a0)+
move.w (a0),d4
add.w d3,d4
cmp.w #900,d4
blt.s .toto2
sub.w #900,d4
.toto2
move.w d4,(a0)+
; maj angle fait
rts
move.l ptrref1,a5
move.l ptrref2,a1
move.w ang1,d0
add d0,d0
add d0,d0
add.w d0,a5
move.w ang2,d0
add d0,d0
add.w d0,d0
add.w d0,a1
move.l ptrref3,a2
move.l ptrref4,a3
move.w ang3,d0
add d0,d0
add d0,d0
add d0,a2
move.w ang4,d0
add d0,d0
add d0,d0
add d0,a3
move.l (a5),a5
move.l (a1),a1
move.l (a2),a2
move.l (a3),a3
move.l codecurefface,a4
move.l ptrConvX,d0
move.l ptrConvY,d1
move.l log,d3
move.w #nbbob-1,d2
moveq #0,d4
move.w seuil,d5
move.l #brabrabra,d7
loopcalcul
move.w d5,d0
add.w (a2)+,d0
add.w (a3)+,d0
move.l d0,a6
move.w (a6),d3 ; y*160
move.w (a5)+,d0
add.w (a1)+,d0
move.l d0,a6
add.w (a6)+,d3
move.w d3,(a4)+ ; effacement offset
move.l (a6)+,(a4)+ ; routine d'effacement
move.l (a6),a6 ; routine d'affichage
move.l d3,a0
exg.l d7,a4
jmp (a6)
brabrabra
exg.l a4,d7
; move.w d5,d0
; add.w (a2)+,d0
; add.w (a3)+,d0
;
; move.l d0,a6
; move.w (a6),d3 ; y*160
;
; move.w (a5)+,d0
; add.w (a1)+,d0
;
; move.l d0,a6
; add.w (a6)+,d3
; addq.w #4,d3
; move.w d3,(a4)+ ; effacement offset
; move.l (a6)+,(a4)+ ; routine d'effacement
;
; move.l (a6),a6 ; routine d'affichage
; move.l d3,a0
;
; jsr (a6)
dbf d2,loopcalcul
lea ang1,a0
lea 8(a0),a1
movem.w (a1),d0-d3
move.w (a0),d4
add.w d0,d4
move.w #511,d5
and d5,d4
move.w d4,(a0)+
move.w (a0),d4
add.w d1,d4
cmp.w #900,d4
blt.s .toto
sub.w #900,d4
.toto move.w d4,(a0)+
move.w (a0),d4
add.w d2,d4
and d5,d4
move.w d4,(a0)+
move.w (a0),d4
add.w d3,d4
cmp.w #900,d4
blt.s .toto2
sub.w #900,d4
.toto2
move.w d4,(a0)+
; maj angle fait
rts
...thats not 1 line anyways i feel the need to post in this specific kind of threads idk why so here it goes. likely my last post in a long while. anyways.
Code:
la $a0, SYSCALL_PRINT_STRING
Code:
return n; /* FIXME FIXME FIXME */