; Copy 64k v1.0
; Programme pour Multiface Two
; OffseT of Futurs' - 02/2003
;
; Installe un programme en mode Direct Jump
; qui copie les 64k de RAM centrale dans les
; premiers 64k de bank
;

	Org &8000	; Implantation
	Limit &80ff	; programme d'installation
	Nolist

	ld hl,msgintro	; Texte d'intro
	call afftxt

	di		; Interdiction interruptions
	ld bc,&7f8a
	out (c),c	; Commutation ROM basse
	ld bc,&fee8
	out (c),c	; Commutation page MF2
	ld a,(2)	; Test MF2 pr{sente
	cp &7f
	jr z,erreur

	ld hl,&8100
	ld de,&2000
	ld bc,&200
	ldir		; Installation de Direct Jump

	ld bc,&feea
	out (c),c	; D{connexion page MF2
	ei		; Autorisation interruptions

	ld hl,msgsucces	; Texte de r{ussite
AffTxt	ld a,(hl)
	or a
	ret z
	call &bb5a
	inc hl
	jr afftxt
Erreur	ld hl,msgerr
	jr afftxt

MSGIntro
	db "Copy 64k 1.0",13,10
	db "OffseT of Futurs' - 02/2003",13,10,0
MSGSucces
	db "Programme install{ avec succ}s,",13,10
	db "Multiface Two prete.",13,10,0
MSGErr	db "Multiface Two non trouv{e !",7,13,10,0

;

	Org &2000,&8100	; Implantation code
	Limit &9700	; Direct Jump

MF2Head	dw mf2code	; Header du code Direct Jump
	db &89		; Config ROM
	db &c0		; Config RAM
	db 0		; N/A
	db "RUN"	; config jump

MF2Code	ld bc,&7f10	; S{lection border
	out (c),c
	ld c,&4c	; Border rouge
	out (c),c

	ld c,&c1	; Copie de la page &4000
	out (c),c	; vers la bank &C7
	ld hl,&4000
	ld de,&c000
	ld bc,&4000
	ldir
	ld bc,&7fc2	; Copie de la bank &C7
	out (c),c	; vers la bank &C5
	ld hl,&c000
	ld de,&4000
	ld bc,&4000
	ldir
	ld bc,&7fc7	; Copie de la page &C000
	out (c),c	; vers la bank &C7
	ld hl,&c000
	ld de,&4000
	ld bc,&4000
	ldir

	ld bc,&7f4b	; Border blanc
	out (c),c

	ld c,&c6	; Copie de la page &8000
	out (c),c	; vers la bank &C6
	ld hl,&8000
	ld de,&4000
	ld bc,&4000
	ldir

	ld bc,&7fc4	; Copie de la page &0000
	out (c),c	; vers la bank &C4
	ld hl,&8000
	ld de,buffer
	ld bc,100
	ldir
	ld hl,swapcode
	ld de,&8000
	ld bc,100
	ldir
	jp &8000
RetourSwapCode
	ld hl,buffer
	ld de,&8000
	ld bc,100
	ldir
	ret		; Retour MF2

SwapCode		; Code de copie page &0000
	ld bc,&feea	; D{connexion page PF2
	out (c),c
	ld bc,&7f8d	; D{connexion ROM basse
	out (c),c
	ld hl,&0000
	ld de,&4000
	ld bc,&4000
	ldir
	ld bc,&7f89	; Connexion ROM basse
	out (c),c
	ld bc,&fee8	; Connexion page MF2
	out (c),c
	jp retourswapcode

Buffer	ds 100		; Buffer swap
Buffer swap
; OffseT of Futurs' - 02/2003
;
; Installe un programme en mode Direct Jump
ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее