;
;         LOGO MAGIC SOFT 07.86
;
;         ANTI-MULTIFACE V 1.0  07.87
;
;         CF PRG POUR LE LOADER
;
;         CF TEXTE POUR NOM
;
ORG #9900
DEBUT CALL #BBFF
LD A,(#A700)
PUSH AF
LD C,7
LD DE,#40
LD HL,#B0FF
CALL #BCCE
POP AF
OR A
JR Z,DISKA
RST #18
DW LECTB
DISKA CALL NORM
CALL EFF
XOR A
CALL #BC0E
LD BC,0
CALL #BC38
LD HL,TABCOUL
XOR A
LD B,16
COUL1 PUSH BC
PUSH AF
PUSH HL
LD B,(HL)
LD C,B
CALL #BC32
POP HL
POP AF
POP BC
INC HL
INC A
DJNZ COUL1
LD DE,#C000
LD A,10
PUSH DE
RT7 LD B,8
POP HL
LD (BUFF),HL
PUSH HL
RT1 LD HL,BRIQUE
PUSH BC
PUSH DE
PUSH AF
LD A,10
LD (DPE2+1),A
RLCA
CALL DEPL
POP AF
LD DE,10
LD HL,(BUFF)
ADD HL,DE
LD (BUFF),HL
POP DE
LD HL,10
ADD HL,DE
EX DE,HL
POP BC
DJNZ RT1
LD B,20
RT4 PUSH BC
LD B,8
RT2 INC D
DJNZ RT2
POP BC
LD C,A
LD A,D
CP 9
LD A,C
JR NC,RT3
POP DE
LD HL,80
ADD HL,DE
EX DE,HL
PUSH DE
RT3 DJNZ RT4
DEC A
JR NZ,RT7
POP HL
LD HL,#C299
LD (BUFF),HL
EX DE,HL
LD HL,LOGO
LD A,30
LD (DPE2+1),A
LD A,59
CALL DEPL
CALL APPA
LD B,#90
TEMPO CALL #BD19
DJNZ TEMPO
JP PRG
APPA LD HL,#0101
APPA1 CALL ENVOI1
INC L
LD A,L
CP 26
JR Z,DECL
APPA2 INC H
LD A,H
CP #29
JR NZ,APPA1
RET
DECL DEC L
JR APPA2
EFF LD HL,#2825
EFF1 CALL ENVOI1
DEC L
JR Z,INCL
EFF2 DEC H
JR NZ,EFF1
RET
ENVOI1 LD BC,#BC01
LD A,H
CALL ENVOI
LD A,L
LD C,6
CALL ENVOI
CALL TEMPO2
RET
TEMPO2 PUSH BC
CALL #BD19
POP BC
RET
INCL INC L
JR EFF2
ENVOI OUT (C),C
INC B
OUT (C),A
DEC B
RET
NORM LD BC,#BC01
OUT (C),C
INC B
LD A,40
OUT (C),A
LD BC,#BC06
OUT (C),C
INC B
LD A,25
OUT (C),A
RET
DEPL PUSH HL
POP BC
LD HL,(BUFF)
PUSH HL
PUSH BC
POP HL
DPE2 LD BC,10
PUSH DE
LDIR
POP DE
LD B,8
DPE3 INC D
DJNZ DPE3
DEC A
JR Z,DPE4
LD B,A
LD A,D
CP 9
LD A,B
JR NC,DPE2
POP DE
PUSH HL
LD HL,80
ADD HL,DE
EX DE,HL
POP HL
PUSH DE
JR DPE2
DPE4 POP HL
RET
;
LECTB DW #CDDD
DB 7
TABCOUL DB 6,24,18,6,2,26,12,8,10
DB 3,14,16,15,22,0,1
BUFF DS 2
BRIQUE DB #A5,#0F,#0F,#0F
DB #0F,#0F,#0F,#0F
DB #0F,#1F,#5A,#0F
DB #0F,#0F,#0F,#0F
DB #0F,#0F,#0F,#FF
C,#BC01
LD A,H
CALL ENVOI
LD A,L
LD C,6
CALL ENVOI
CALL TEMPO2
RET
TEMPO2 PUSH BC
CALL #BD19
POP BC
RET
INCL INC L
JR EFF2
ENVOI OUT (C),C
INC B
OUT (C),A
DEC B
RET
NORM LD BC,#BC01
OUT (C),C
INC B
LD A,40
OUT (C),A
LD BC,#BC06
OUT (C),C
INC B
LD A,25
OUT (C),A
RET
DEPL PUSH HL
POP BC
LD HL,(BUFF)
PUSH HL
PUSH BC
POP HL
DPE2 LD BC,10
PUSH DE
LDIR
POP DE
LD B,8
DPE3 INC D
DJNZ DPE3
DEC A
JR Z,DPE4
LD B,A
LD A,D
CP 9
LD A,B
JR NC,DPE2
POP DE
PUSH HL
LD HL,80
ADD HL,DE
EX DE,HL
POP HL
PUSH DE
JR DPE2
DPE4 POP HL
RET
;
LECTB DW #CDDD
DB 7
TABCOUL DB 6,24,18,6,2,26,12,8,10
DB 3,14,16,15,22,0,1
BUFF DS 2
BRIQUE DB #A5,#0F,#0F,#0F
DB #0F,#0F,#0F,#0F
DB #0F,#1F,#5A,#0F
DB #0F,#0F,#0F,#0F
DB #0F,#0F,#0F,#FF
0F,#30,#30,#30
DB #30,#30,#30,#30
DB #30,#FF,#0F,#30
DB #30,#30,#30,#30
DB #30,#30,#30,#FF
DB #0F,#30,#30,#30
DB #30,#30,#30,#30
DB #30,#FF,#5A,#30
DB #30,#30,#30,#30
DB #30,#30,#30,#FF
DB #A5,#FF,#FF,#FF
DB #FF,#FF,#FF,#FF
DB #FF,#7F,#5F,#FF
DB #FF,#FF,#FF,#FF
DB #FF,#FF,#FF,#BF
DB #80,#00,#00,#00
DB #00,#00,#00,#00
LOGO DB #E5,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#9F,#DA,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#6B
DB #CF,#E5,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #CF,#CF,#CF,#CF
DB #9F,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#3F,#3F,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#3F
DB #3D,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#3F,#3F,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#15
DB #3F,#3F,#3F,#2A
DB #3F,#3F,#3F,#3F
DB #15,#3F,#3F,#3F
DB #15,#3F,#3F,#3F
DB #00,#3F,#3F,#15
DB #3F,#3F,#2A,#00
DB #41,#C3,#CF,#8A
DB #00,#15,#A0,#71
DB #A0,#2A,#2A,#71
DB #A0,#35,#15,#71
DB #A0,#35,#15,#71
DB #A0,#35,#00,#7B
DB #B5,#15,#A0,#71
DB #2A,#00,#41,#C3
DB #CF,#8A,#00,#15
DB #60,#5D,#60,#2A
DB #6A,#5D,#60,#1D
DB #15,#5D,#60,#1D
DB #15,#5D,#60,#1D
DB #00,#7F,#35,#15
DB #60,#5D,#2A,#00
DB #41,#C3,#CF,#8A
DB #00,#15,#1D,#78
DB #1D,#3D,#1D,#78
DB #1D,#3D,#15,#3D
DB #3F,#3D,#15,#78
DB #1D,#3D,#00,#7A
DB #1D,#15,#1D,#78
DB #2A,#00,#41,#C3
DB #CF,#8A,#00,#15
DB #90,#04,#90,#15
DB #90,#04,#90,#15
DB #15,#15,#15,#15
DB #15,#15,#3F,#3F
DB #00,#2E,#95,#15
DB #95,#3F,#2A,#00
DB #41,#C3,#CF,#8A
DB #00,#15,#78,#B5
DB #78,#B5,#78,#B5
DB #78,#B5,#15,#B5
DB #15,#B5,#15,#B5
DB #00,#00,#00,#3F
DB #3D,#15,#3D,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#15
DB #20,#13,#20,#13
DB #20,#13,#20,#17
DB #15,#17,#3F,#17
DB #15,#17,#15,#3F
DB #2A,#3B,#35,#15
DB #35,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#15,#4F,#D3
DB #4F,#D3,#4F,#D3
DB #4F,#97,#15,#D3
DB #4F,#97,#15,#97
DB #15,#D3,#2A,#7B
DB #1F,#15,#1F,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#15
DB #7A,#40,#3F,#40
DB #3F,#40,#7A,#15
DB #15,#40,#7A,#15
DB #15,#15,#15,#40
DB #2A,#6A,#3F,#15
DB #3F,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#15,#A0,#71
DB #B5,#71,#B5,#71
DB #A0,#35,#15,#35
DB #3F,#35,#15,#35
DB #3F,#35,#2A,#7B
DB #B5,#15,#B5,#3F
DB #2A,#00,#41,#C3
DB #CF,#8A,#00,#15
DB #60,#5D,#35,#7F
DB #3F,#5D,#60,#1D
DB #15,#1D,#15,#1D
DB #15,#5D,#60,#1D
DB #00,#7F,#35,#15
DB #60,#5D,#2A,#00
DB #41,#C3,#CF,#8A
DB #00,#15,#1D,#78
DB #2A,#7A,#2A,#7A
DB #1D,#3D,#15,#3D
DB #15,#3D,#15,#78
DB #1D,#3D,#00,#7A
DB #1D,#15,#1D,#78
DB #2A,#00,#41,#C3
DB #CF,#8A,#00,#15
DB #3F,#3F,#2A,#15
DB #00,#3F,#3F,#3F
DB #15,#3F,#15,#3F
DB #15,#3F,#3F,#3F
DB #00,#3F,#3F,#15
DB #3F,#3F,#2A,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#14
DB #28,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #14,#68,#94,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#28,#00
DB #00,#00,#68,#94
DB #68,#3C,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#14,#3C
DB #94,#00,#00,#00
DB #68,#28,#14,#68
DB #28,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #68,#C0,#28,#00
DB #00,#14,#94,#00
DB #00,#68,#28,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#14,#94,#3C
DB #00,#14,#3C,#14
DB #94,#00,#00,#68
DB #28,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#14
DB #94,#3C,#00,#14
DB #C0,#3C,#94,#00
DB #14,#C0,#3C,#28
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#68,#C0
DB #3C,#68,#3C,#94
DB #94,#00,#3C,#C0
DB #C0,#28,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #14,#3C,#C0,#68
DB #3C,#C0,#94,#3C
DB #68,#68,#3C,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#14
DB #68,#94,#3C,#94
DB #C0,#94,#94,#68
DB #28,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#68,#68
DB #3C,#94,#94,#3C
DB #28,#68,#28,#28
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#3C,#3C
DB #94,#3C,#C0,#3C
DB #80,#00,#00,#68
DB #3C,#94,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#3C
DB #68,#C0,#28,#00
DB #3C,#14,#80,#00
DB #00,#14,#C0,#28
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#68,#94,#3C
DB #00,#00,#00,#14
DB #80,#00,#00,#00
DB #3C,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#3C
DB #28,#00,#00,#00
DB #00,#14,#80,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#14
DB #80,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#14,#80,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#14
DB #80,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#14,#80,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#05,#00
DB #00,#00,#00,#00
DB #0A,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#05,#00,#05
DB #05,#0F,#05,#0F
DB #05,#00,#05,#05
DB #00,#0A,#00,#00
DB #0A,#00,#0F,#0A
DB #0F,#0A,#0A,#05
DB #05,#0A,#41,#C3
DB #CF,#8A,#00,#05
DB #0A,#0F,#05,#00
DB #05,#05,#05,#00
DB #05,#05,#0A,#0A
DB #00,#00,#0A,#00
DB #0A,#0A,#0A,#0A
DB #0F,#05,#05,#05
DB #41,#C3,#CF,#8A
DB #00,#05,#05,#05
DB #05,#0A,#05,#0F
DB #05,#00,#05,#05
DB #05,#0A,#00,#00
DB #0A,#00,#0F,#00
DB #0A,#0A,#0A,#0F
DB #05,#05,#41,#C3
DB #CF,#8A,#00,#05
DB #00,#05,#05,#00
DB #05,#0A,#05,#00
DB #05,#05,#00,#0A
DB #00,#00,#0A,#0A
DB #0A,#0A,#0A,#0A
DB #0A,#05,#05,#05
DB #41,#C3,#CF,#8A
DB #00,#05,#00,#05
DB #05,#0F,#05,#05
DB #05,#0F,#05,#05
DB #00,#0A,#00,#0F
DB #00,#00,#0F,#0A
DB #0F,#0A,#0A,#05
DB #05,#0A,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#8A
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#41,#C3
DB #CF,#8A,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #00,#00,#00,#00
DB #41,#C3,#CF,#E1
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#97,#C3
DB #DA,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#6B,#E1,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#97
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#C3,#C3
DB #C3,#C3,#95
;
;
;        ICI COMMENCE LE LOADER
;        INIT DES COULEURS,MODE,ECT
;
;
PRG LD HL,#9900 ; INIT RAM 9900 ==> A200
LD DE,#9901
XOR A
LD (HL),A
LD BC,#900
LDIR
LD BC,#7FC0  TESTE SI RAM SUPP
OUT (C),C
LD A,"M"
LD (#4000),A
LD C,#C4
OUT (C),C
LD A,(#4000)
CP "M"
JR NZ,GOOD  OK 128 K
LD A,2  AIE : 464 664
CALL #BC0E
LD BC,#061A
CALL #BC38
POUI LD HL,PHRASE
VIUT LD A,(HL)
OR A
JR Z,POUI
CALL #BB5A
INC HL
JR VIUT
GOOD LD C,#C0 ; CONNECT RAM
OUT (C),C
LD HL,NAMEP  CHARGEMT TABLE
LD DE,#9F80
LD B,12
CALL #BC77
LD HL,#9F80  EN 9F80
CALL #BC83
CALL #BC7A
CALL SCRGS  AFFICH SCREEN GRAPHIQUE
LD A,"2"  PARTIE 2 : #4000
CALL LOAD
LD BC,#7FC5
OUT (C),C
LD A,"3"  PARTIE 3 : BANQUE 5
CALL LOAD
LD BC,#7FC6
OUT (C),C
LD A,"1"  PARTIE 1 : BANQUE 6
CALL LOAD
LD BC,#7FC0
OUT (C),C
CALL #BBFF
LD A,(#A02B)
CALL #BC0E
LD A,"4"  PARTIE 4: #C000
CALL LOAD1
;
DI
LD BC,#7FC7  SELECT RAM WORK
OUT (C),C
LD B,#DF  SELECT ROM AUX EXEC
LD A,(#A040)
OUT (C),A
LD HL,TRANSF  TRANSFERT PRG EXEC
LD DE,(#9FFC)  EN PAGE SCREEN
PUSH DE
LD BC,#B
LDIR
EX DE,HL
INC HL  CREATION ESPACE PILE EXEC
INC HL
INC HL
INC HL
LD (#6000),SP  SAUVE SP COURANT
LD SP,HL
LD HL,(#A0A7)  REGISTRE BC FINAL EXEC
PUSH HL
LD HL,(#A026)  ETATS ROM L&H EXEC
LD H,#7F
PUSH HL
LD (#6002),SP  SAUVEGARDE SP
LD SP,(#6000)  RECUPERE SP COURANT
POP HL  RECUPERE ADR PRG EXEC
LD DE,7
ADD HL,DE  POINTE SUR LD SP,XXXX
LD DE,(#A0B3)  MISE DE LA PILE A JOUR
LD (HL),E
INC HL
LD (HL),D
CALL COULEUR  INIT DU GATE ARRAY,CRTC 6845
LD A,(#A002)  SELECT REG COURANT CRTC
LD B,#BC
OUT (C),A
LD B,#FF
CALL TEMPOG  TEMPO PROCESS
LD HL,#A02C  INIT PPI 8255
LD BC,#F782
OUT (C),C
LD B,#10
LD D,0
GLOC PUSH BC
LD C,(HL)
LD A,D
CALL F4F6
INC HL
INC D
POP BC
DJNZ GLOC
LD BC,#F40E
OUT (C),C
LD BC,#F6C0
OUT (C),C
OUT (C),A
LD BC,#F792
OUT (C),C
LD BC,#F640
OUT (C),C
LD A,(#A03C)
LD B,#F7
OUT (C),A
LD BC,#7FC6
OUT (C),C
LD HL,#4000  TRANSFERT DE BQ6 EN #0000
LD DE,0
LD B,H
LD C,L
LDIR
LD BC,#7FC7  RESELECT WORK ZONE
OUT (C),C
LD HL,#A000  TRANSFERT EN WORK BANQUE
LD DE,#4000
LD BC,#600
LDIR
JP ZONE1-#6000  EXECUTION EN WORK BANQUE
ZONE1 LD HL,#D7D0 ; SAUVE RAM INTERM/LIEN
LD DE,#5000  DANS DATA ZONE
LD BC,#40
LDIR
LD HL,ZONE2-#6000  TRANSFERT LIEN
LD DE,#D7D0
LD BC,#40
LDIR
LD SP,#7000  INIT PILE ZONE
CALL #D7D0  TRANSFERT DE BQ5 EN #8000
LD HL,#5000  RESTAURE RAM INTERM/LIEN
LD DE,#D7D0
LD BC,#40
LDIR
LD SP,#409B  SELECTION REGISTRES
POP IY
POP IX
EXX
POP BC
POP DE
POP HL
EXX
EX AF,AF
POP AF
EX AF,AF
POP BC
POP DE
POP AF
LD R,A  RECUPERATION DE REFRESH
POP AF
LD I,A  ET DE Interrupt
LD A,(#4029)  TEST EI/DI 01/00
OR A
JR NZ,BLOUC
LD HL,(#4000)  INIT DI
LD (HL),A
BLOUC POP HL ; RECUP HL
LD A,(#4028)  MODE INTERRUPT.
CP #2
JR NZ,GLOUIC
IM 2
GLOUIC LD BC,(#4044) ; ADRESSE PRG EXEC
LD (GLORT+1-#6000),BC  INIT JUMP EXEC
LD BC,#7FC0  REG. SELECT. DECONNECT. FIN.
POP AF  AF RECUPERE !
CALL POPI-#6000  APPEL(TEMPO!)
LD SP,(#6002)  PILE RAM EXEC
LD A,A  TEMPO/FLAG
JP GLORT-#6000  EXEC
GLORT JP #FFFF ; C'EST PARTI
;
POPI RET
;
TRANSF OUT (C),C ; DESELECTE BANQUE 7
POP BC  ETAT ROMS L H
OUT (C),C  SELECTED
POP BC  RECUPERE BC
GLOK LD SP,0000 ; INIT PILE EXEC
EI  OU NOP 
RET  EN AVANT
;
ZONE2 LD BC,#7FC5
OUT (C),C
LD HL,#4000
LD DE,#8000
LD B,H
LD C,L
LDIR
LD BC,#7FC7
OUT (C),C
RET
;
LOAD1 LD DE,#C000
JR LSUITE
LOAD LD DE,#4000
LSUITE PUSH DE
PUSH DE
PUSH AF
LD C,#1F
LD A,(#9FF1)
SUB C
LD C,A
LD B,0
POP AF
LD HL,#9FE7
PUSH HL
ADD HL,BC
LD (HL),A
POP HL
LD B,8
CALL #BC77
POP HL
PUSH BC
CALL #BC83
CALL #BC7A
POP HL
LD DE,#4000
AND A
SBC HL,DE
POP HL
SCHOUM RET Z
JP DECOMP
;
F4F6 CALL FLOG
LD B,#F4
OUT (C),C
LD B,#F6
LD C,A
OR #80
OUT (C),A
OUT (C),C
RET
FLOG LD B,#F4
OUT (C),A
LD B,#F6
IN A,(C)
OR #C0
OUT (C),A
AND #3F
OUT (C),A
RET
;
COULEUR LD DE,#A003
LD B,1
LD C,#10
LD HL,#7F7F
CALL ENVOIG
LD B,#10
LD C,0
CALL ENVOIG
LD HL,#BCBD
LD BC,#1000
ENVOIG PUSH BC
LD B,H
OUT (C),C
LD A,(DE)
INC DE
LD B,L
RL B
LD B,L
JR C,XIZ
AND #1F
OR #40
XIZ OUT (C),A
POP BC
INC C
DJNZ ENVOIG
RET
;
TEMPOG DEC BC
LD A,B
OR C
JR NZ,TEMPOG
RET
;
;
;
DECOMP LD (BLUC),HL
PUSH AF
LD C,(HL)
INC HL
LD B,(HL)
DEC BC
DEC BC
DEC HL
ADD HL,BC
PUSH HL
LD E,(HL)
INC HL
LD D,(HL)
LD HL,(BLUC)
LD (HL),E
INC HL
LD (HL),D
DEC HL
LD DE,#4000
ADD HL,DE
EX DE,HL
POP HL
LD IX,(BLUC)
DEC HL
DEC DE
DEC IX
R1B3A
PUSH HL
PUSH DE
PUSH IX
POP DE
AND A
SBC HL,DE
POP DE
POP HL
JR Z,R1B73
LD A,(HL)
PUSH AF
CP #CB
DEC HL
JR Z,R1B52
R1B4D
POP AF
LD (DE),A
DEC DE
JR R1B3A
R1B52 LD A,(HL)
CP #ED
JR NZ,R1B4D
DEC HL
LD A,#37
CP (HL)
JR Z,R1B60
INC HL
JR R1B4D
R1B60 POP AF
DEC HL
LD A,(HL)
DEC HL
LD B,(HL)
DEC HL
LD C,(HL)
DEC HL
R1B68 LD (DE),A
DEC DE
DEC BC
EX AF,AF
LD A,B
OR C
JR Z,R1B3A
EX AF,AF
JR R1B68
R1B73
POP AF
RET
;
SCRGS EXX
PUSH BC
EXX
LD BC,#7F89
OUT (C),C
LD A,(#622)
CP #D9
EXX
POP BC
EXX
JR Z,A6128
LD HL,#B1D9
LD (GLOP1+1),HL
INC HL
LD (GLOP+1),HL
LD HL,#B1EA
LD (GLOP2+1),HL
A6128 LD A,#C9
LD (SCHOUM),A
LD A,"5"
CALL LOAD
LD A,#C8
LD (SCHOUM),A
LD A,(#80B8)
SUB #84
CALL #BC0E
LD HL,#80B7
GLOP LD DE,#B7D5
LD BC,16
PUSH HL
PUSH BC
LDIR
POP BC
POP HL
INC DE
LDIR
LD A,(#80C7)
GLOP1 LD (#B7D4),A
GLOP2 LD (#B7E5),A
LD HL,#4000
LD DE,#C000
LD B,H
LD C,L
LDIR
RET
;
PHRASE DM ANTI-MULTIFACE DE M
DM AGIC SOFTWARE NE FONCTIO
DM NNE QU'AVEC 128 Ko ! D
DM ESOLE ....
DB 0
BLUC DS 2
NAMEP DS 8
DM .BIN
DM ANTI-MULTIFACE / MERLIN
DM ..1987..Enlever notre LOG
DM O serait la lache impos
DM ture d'une nullite en In
DM formatique..