#define B_CALL(xxxx) rst 28h \ .dw xxxx
OP1	.equ	8478h
zone_copie	.equ	9872h
	.org 9D95h-2d
	.db $BB,$6D

	ld      hl,debut_copie
	ld      de,zone_copie
	ld      bc,fin_copie-debut_copie
	ldir
	jp    zone_copie

debut_copie:
decalage	.equ	zone_copie-9D93h-(debut_copie-9D93h)

    B_CALL(41C5h) ;Met Op1 à zéro
	ld	hl,prorgamme
	ld      de,OP1
	ld      bc,6
	ldir    

	B_CALL(42F1h) ; _ChkFindSym

	ex      de,hl
	ld      c,(hl)
	inc     hl
	ld      b,(hl)
	inc     hl
	push    bc	;	taille du programme dans bc

	ld      de,9d95h
boucle1:
	ld      a,(de)
	ldi
	dec     hl
	ld      (hl),a
	inc     hl
	jp      pe,boucle1+decalage

	push    hl
	push    de
	call    9d95h
	pop     de
	pop     hl
	pop     bc

	dec     de
	dec     hl
boucle2:
	ld      a,(de)
	ldd
	inc     hl
	ld      (hl),a
	dec     hl
	jp      pe,boucle2+decalage

	set     0,(iy+03h)
	B_CALL(4546h) ; _ClrScrnFull
	B_CALL(4558h) ; _homeup
	B_CALL(45A6h) ; _DispEOL

	ret
prorgamme:
	.db 05h,"ORBE",0
fin_copie:
.end