;************************** ;* LIB par Marc Plouhinec * ;* 13/07/2004 * ;* www.thebestof.tk * ;* m_plouhinec@yahoo.fr * ;************************** ;Ce fichier d'incude est un exemple pour les logiciels qui utilisent une librairie ;Appels: ;------- ECRITSALUT = 0 ECRITAUREVOIR = 3 ;Routines: ;--------- #DEFINE INITLIB LD DE,NomLib\ CALL INIT_LIBRARY ;sortie: HL = adresse de la lib #DEFINE SEARCHLIB 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 "LIB",0\ChaineTrouvee:\ POP DE\ POP HL\ LD DE,8\ ADD HL,DE\ CALL LD_HL_MHL #DEFINE LIBCALL(adresse,AdresseLib) LD HL,(AdresseLib)\ LD BC,adresse\ ADD HL,BC\ CALL CALL_HL .END