43 lines
501 B
Text
43 lines
501 B
Text
.Enable 15 MHz full speed mode
|
|
Full
|
|
.Disable memory access delays (adds 1 FPS)
|
|
Fullʳ
|
|
|
|
.Flush key presses
|
|
While getKey(0)
|
|
End
|
|
|
|
.Setup
|
|
0→F
|
|
0→N
|
|
Fix 5
|
|
fnInt(FPS,6)
|
|
|
|
Repeat getKey(0)
|
|
NOISE()
|
|
F++
|
|
.Reset the FPS counter before it overflows
|
|
F>606?0→F→N
|
|
Text(0,0,F*108/N▶Dec)
|
|
DispGraph
|
|
End
|
|
|
|
.Clean up
|
|
LnRegʳ
|
|
Fix 4
|
|
Return
|
|
|
|
.Draws random noise to the buffer
|
|
Lbl NOISE
|
|
ClrDraw
|
|
For(I,0,5)
|
|
For(J,0,63)
|
|
rand→{J*12+(I*2)+L₆}ʳ
|
|
End
|
|
End
|
|
Return
|
|
|
|
.Increments the tick counter
|
|
Lbl FPS
|
|
N++
|
|
Return
|