;******************************
;* GRAYLIB par Marc Plouhinec *
;*        13/07/2004          *
;*      www.thebestof.tk      *
;*    m_plouhinec@yahoo.fr    *
;******************************

;Zones de la mémoire:
;--------------------

PLANE_0      = GRAPH_MEM

;Appels:
;-------

GRAYSCALE_ON  = 0
GRAYSCALE_OFF = 3
CLR_BUF       = 6

;Routines:
;---------

#DEFINE INITGRAYLIB  LD DE,NomLib\ CALL INIT_LIBRARY

;sortie: HL = adresse de la lib
#DEFINE SEARCHGRAYLIB LD HL,LIB_BUFFER\ChercheLib:\ PUSH HL\ PUSH DE\ LD DE,NomLib\ LD C,0\ CALL CP_STRING\ OR A\ JR NZ,ChaineTrouvee\ POP DE\ POP HL\ LD BC,10\ ADD HL,BC\ JR ChercheLib\NomLib .DB "GRAYLIB",0\ChaineTrouvee:\ POP DE\ POP HL\ LD DE,8\ ADD HL,DE\ CALL LD_HL_MHL 
#DEFINE STOPGRAYLIB LD B,0\ LD HL,LIB_BUFFER\ChercheLib2:\ PUSH BC\ PUSH HL\ PUSH DE\ LD DE,NomLib\ LD C,0\ CALL CP_STRING\ OR A\ JR NZ,ChaineTrouvee2\ POP DE\ POP HL\ LD BC,10\ ADD HL,BC\ POP BC\ INC B\ JR ChercheLib2\ChaineTrouvee2:\ POP DE\ POP HL\ POP BC\ LD A,B\ CALL STOP_LIBRARY 

#DEFINE LIBCALL(adresse,AdresseLib)  PUSH BC\ LD HL,(AdresseLib)\ LD BC,adresse\ ADD HL,BC\ POP BC\ CALL CALL_HL 

.END