;Test4  par Marc Plouhinec
;Ce logiciel est un exemple pour les programmeurs de SNG
;Attention Si vous avez 2 librairies LIB et LIBTRUC, initialisez d'abord LIB pour éviter les erreurs.


#include "sng10.inc"
#include "LIB.inc"

 .ORG START_ADDR
 .DB "TestLIB",0

;On initialise la librairie

 INITLIB
 OR A  ;Si on a eu un problème on quitte
 RET Z ;

;On cherche l'adresse de la librairie
 SEARCHLIB ;sortie: HL = adresse de la lib
 LD (AdresseLib),HL

;On lance la routine 'salut' de la librairie
 LIBCALL(ECRITSALUT,AdresseLib)

;On lance la routine 'Au revoir' de la librairie
 LIBCALL(ECRITAUREVOIR,AdresseLib)

AttendCLEAR:
 ld a,%11111101
 out (1),a
 in a,(1)
 and %01000000
 JR NZ,AttendCLEAR

;On Déinitialise la librairie LIB
 XOR A
 CALL STOP_LIBRARY
 
 RET


AdresseLib .DW 0


.END
end