;
; 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.. |