Add copyright banner

master
Fabien Freling 2016-02-02 21:25:53 +01:00
parent 67093196ea
commit 1b7c60e94d
8 changed files with 63 additions and 1 deletions

View File

@ -1,3 +1,11 @@
(**
* Copyright (c) 2015, Fabien Freling
* All rights reserved.
*
* This source code is licensed under the BSD 2-clause license found in the
* LICENSE file at the top level directory of this source tree.
*)
let is_set num i =
if i < 0 then
failwith "Invalid bit index."

View File

@ -1,3 +1,11 @@
(**
* Copyright (c) 2015, Fabien Freling
* All rights reserved.
*
* This source code is licensed under the BSD 2-clause license found in the
* LICENSE file at the top level directory of this source tree.
*)
(** http://bgb.bircd.org/pandocs.htm#thecartridgeheader *)

View File

@ -1,3 +1,11 @@
(**
* Copyright (c) 2015, Fabien Freling
* All rights reserved.
*
* This source code is licensed under the BSD 2-clause license found in the
* LICENSE file at the top level directory of this source tree.
*)
open Printf
let frequence = 4194304

View File

@ -1,3 +1,11 @@
(**
* Copyright (c) 2015, Fabien Freling
* All rights reserved.
*
* This source code is licensed under the BSD 2-clause license found in the
* LICENSE file at the top level directory of this source tree.
*)
open Printf
let rec print_slice ?(width=8) b start last =

View File

@ -1,3 +1,11 @@
(**
* Copyright (c) 2015, Fabien Freling
* All rights reserved.
*
* This source code is licensed under the BSD 2-clause license found in the
* LICENSE file at the top level directory of this source tree.
*)
open Bytes
open Printf

View File

@ -1,3 +1,11 @@
(**
* Copyright (c) 2015, Fabien Freling
* All rights reserved.
*
* This source code is licensed under the BSD 2-clause license found in the
* LICENSE file at the top level directory of this source tree.
*)
open Printf
let fps = 60

View File

@ -1,3 +1,11 @@
(**
* Copyright (c) 2015, Fabien Freling
* All rights reserved.
*
* This source code is licensed under the BSD 2-clause license found in the
* LICENSE file at the top level directory of this source tree.
*)
let width = 160
let height = 144
@ -87,4 +95,3 @@ let render mem =
let scy = Memory.get mem 0xFF42 |> int_of_char in
let scx = Memory.get mem 0xFF43 |> int_of_char in
scx + scy

View File

@ -1,3 +1,10 @@
(**
* Copyright (c) 2016, Fabien Freling
* All rights reserved.
*
* This source code is licensed under the BSD 2-clause license found in the
* LICENSE file at the top level directory of this source tree.
*)
let frequence = 4194304