Add copyright banner
This commit is contained in:
		
							parent
							
								
									67093196ea
								
							
						
					
					
						commit
						1b7c60e94d
					
				
					 8 changed files with 63 additions and 1 deletions
				
			
		| 
						 | 
					@ -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 =
 | 
					let is_set num i =
 | 
				
			||||||
  if i < 0 then
 | 
					  if i < 0 then
 | 
				
			||||||
    failwith "Invalid bit index."
 | 
					    failwith "Invalid bit index."
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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 *)
 | 
					(** http://bgb.bircd.org/pandocs.htm#thecartridgeheader *)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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
 | 
					open Printf
 | 
				
			||||||
 | 
					
 | 
				
			||||||
let frequence = 4194304
 | 
					let frequence = 4194304
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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
 | 
					open Printf
 | 
				
			||||||
 | 
					
 | 
				
			||||||
let rec print_slice ?(width=8) b start last =
 | 
					let rec print_slice ?(width=8) b start last =
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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 Bytes
 | 
				
			||||||
open Printf
 | 
					open Printf
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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
 | 
					open Printf
 | 
				
			||||||
 | 
					
 | 
				
			||||||
let fps = 60
 | 
					let fps = 60
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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 width = 160
 | 
				
			||||||
let height = 144
 | 
					let height = 144
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					@ -87,4 +95,3 @@ let render mem =
 | 
				
			||||||
  let scy = Memory.get mem 0xFF42 |> int_of_char in
 | 
					  let scy = Memory.get mem 0xFF42 |> int_of_char in
 | 
				
			||||||
  let scx = Memory.get mem 0xFF43 |> int_of_char in
 | 
					  let scx = Memory.get mem 0xFF43 |> int_of_char in
 | 
				
			||||||
  scx + scy
 | 
					  scx + scy
 | 
				
			||||||
 | 
					 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -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
 | 
					let frequence = 4194304
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue