Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-30 18:31:21 +00:00
Code Issues Projects Releases Wiki Activity
5535da13f0
antoine-source/cogito/Cogito.Main.s
Antoine Vignau 33f00570f0 Adding Cogito & Cogito 2 (SecondSight) 
Antoine's Cogito & Cogito 2 (for the Second Sight) source code
2022-10-29 21:26:10 +02:00

2582 lines
84 KiB
ArmAsm
Raw Blame History

*
* Start Olivier
*
INITMOUS LDA #$0000
STA POSX
STA POSY
STA A1 ; INIT SOURIS
STA AP
JSR SAUV ; SAUVEGARDE DECOR
JSR DESS
LDY ptrMESSAGE+1 ; INIT ADRESSE EASTER EGGS
STY EAEGSP1+2
STY EAEGSP3+2
STY EAEGSP4+2
STY EAEGSP6+2
LDA fgDOC ; INIT LANGUE
BEQ INITMOU1
LDA #TEXTEUSD ; ANGLAIS
STA DOCADR
LDA #TEXTEUSA
STA ABOUADR
LDA #$0008 ; 9 PAGES DE DOC
STA ECR1012+1
LDA #$0008 ; 9 PAGES DE ABOUT
STA ECR1112+1
BRA INITMOU2
INITMOU1 LDA #TEXTEFRD ; FRANCAIS
STA DOCADR
LDA #TEXTEFRA
STA ABOUADR
LDA #$0007 ; 8 PAGES DE DOC
STA ECR1012+1
LDA #$0007 ; 8 PAGES DE ABOUT
STA ECR1112+1
INITMOU2 LDA #CADMMUF ; INIT MUSIC PATCH BUMPER : MUSIC
STA ECR07DAT
LDA #CADMSNC
STA ECR07DAT+8
JSR ECR08PATCH ; INIT GROUND PATCH BUMPER : RANDOM
LDA #CADGRRAF
STA ECR08DAT+32
LDA #$0002
JMP PICT ; IMAGE LUDY
asc 'Tinies & Cogito, copyright CACAlisto',8d
asc 'Atreid, Kalisto, Muad Dib... copyright Frank Herbert',8D
asc 'Taken from the book Dune...',8d
*****************************************************************************
**************************** MOUSE MANAGER ********************************
*****************************************************************************
SOURIS LDA BOUT ; ANCIEN BOUT=NOUVEAU BOUT
STA BOUT1
SOURIS0 JSR SLECT ; LECTURE SOURIS
CPY #$FFFF
BEQ SECR ; DONNEES NON DISPONIBLES
SOURIS1 LDA A1 ; A1 POSITION ACTUELLE
STA AP ; AP ANCIENNE POSITION
LDA POSX
LSR
STA SOURIS2+1
LDA POSY
ASL
TAX
LDA TABLE,X
CLC
SOURIS2 ADC #$0000 ; CALCUL DE A1 (160*POSY+POSX)
STA A1
JSR TRACE ; ON DESSINE LE POINTEUR
lda BON
inc
sta BON
cmp #1000
bne SECR
stz BON
LDA fgWHICH
BNE SECR
PHA
_NTUpdateSound ; SOUNDTRACK
PLA
*****
SECR JSR KEYBOARD ; TOUCHE ?
LDA ECRAN
DEC
ASL
TAX
LDA ECRTAB,X
TAY ; ADRESSE TABLEAU DES BOUTONS
DEC
DEC
TAX
SECR0 LDA\ $0000,X ; NB DE BUMPER DANS ECRAN
ASL
STA SECR8+1
LDX #$0000
LDA POSX
SECR1 CMP\ $0000,Y ; X0 ECR1, ECR2, ECR3 ...
BMI SECR4
INY
INY
SECR11 CMP\ $0000,Y ; X1
BPL SECR5
INY
INY
LDA POSY
SECR12 CMP\ $0000,Y ; Y0
BMI SECR6
INY
INY
SECR13 CMP\ $0000,Y ; Y1
BPL SECR7
STX SECR2+1 ; ON EST SUR UN BUMPER
LDA ECRAN
DEC
ASL
TAX
LDA ECRDESA,X
STA SECR20+1 ; ADRESSE DE L'ADRESSE EXECUTION
SECR2 LDX #$0000 ; NUMERO DU BUMPER TRAVERSE (*2)
SECR20 LDA $FFFF,X
STA SECR3+1
SECR3 JMP $A0A0 ;
SECR4 INY
INY
SECR5 INY
INY
SECR6 INY
INY ; BOUTON SUIVANT
SECR7 INY
INY
LDA POSX
INX
INX
SECR8 CPX #$0000 ; NB DE BOUTON
BMI SECR1
JSR BORD5 ; FORCE LA BORDURE NOIRE
JMP BUMPDEF ; AUCUN BOUTON DETECTE : TRAITEMENT PAR DEFAUT
BON ds 2
asc 'Steve Sebban: don t you need a french dictionary? :-)',8d
*******************************************************************************
*********************** TRAITEMENT DES BOUTONS ******************************
*******************************************************************************
KEYBOARD LDAL $00BFFF
BPL KEYBOAR1
STAL $00C010 ; BIT $C010
LDA ECRAN
CMP #$0005
BPL KEYBOAR1
PLA ; RECUPERE L'ADRESSE DE RETOUR DU JSR
LDA #$0005 ; SAUT AU CONTROL PANEL
JMP PICT
KEYBOAR1 RTS
BORD5 LDAL $00C034 ; ICI TRAITEMENT PAR DEFAUT
AND #$FFF0 ; BORDURE NOIRE
STAL $00C034
BORD55 RTS
BORD6 LDAL $00C034
AND #$FFF0
ORA #$0001 ; ROUGE
STAL $00C034
RTS
**************** COGITO JEU
ECRJEH1 LDX SECR2+1 ; FLECHES HAUT
LDA #ECRJEH10
STA BUMPER5+1
JMP BUMPER
ECRJEH10 LDA POSX
SEC
SBC #$0016 ; 22
TAX
LDA ECR01TA1,X
AND #$00FF
BEQ ECRJEH11 ; RIEN
DEC
PHA
JSR DESS1
PLA
JMP THIRD
ECRJEH11 JMP SOURIS
ECRJEB1 LDX SECR2+1 ; FLECHES BAS
LDA #ECRJEB10
STA BUMPER5+1
JMP BUMPER
ECRJEB10 LDA POSX
SEC
SBC #$0016 ; 22
TAX
LDA ECR01TA2,X
AND #$00FF
BEQ ECRJEB11 ; RIEN
PHA
JSR DESS1
PLA
JMP THIRD
ECRJEB11 JMP SOURIS
ECRJEG1 LDX SECR2+1 ; FLECHES GAUCHE
LDA #ECRJEG10
STA BUMPER5+1
JMP BUMPER
ECRJEG10 LDA POSY
SEC
SBC #$0026 ; 38
TAX
LDA ECR01TA3,X
AND #$00FF
BEQ ECRJEG11 ; RIEN
PHA
JSR DESS1
PLA
JMP THIRD
ECRJEG11 JMP SOURIS
ECRJED1 LDX SECR2+1 ; FLECHE DROITE 1
LDA #ECRJED10
STA BUMPER5+1
JMP BUMPER
ECRJED10 LDA POSY
SEC
SBC #$0026 ; 38
TAX
LDA ECR01TA4,X
AND #$00FF
BEQ ECRJED11 ; RIEN
PHA
JSR DESS1
PLA
JMP THIRD
ECRJED11 JMP SOURIS
ECREEHA LDA #ECREEHA1 ; EASTER EGGS HAPPY (SURFACE)
STA SURFACE5+1
JMP SURFACE
ECREEHA1 NOP
STZ noINTER ; ARRETE LE TEMPS
INC CTPNFLG ; INTERDIT L'ENTREE DANS LE CONTROL PANEL
JSR DESS1 ; ENLEVE LE POINTEUR
JSR CADEAEG ; CREATION DU CADRE ET DU BOUTON
LDA #$0000 ; SPRITE WOOD
JSR EAEGSPR
LDA #$0001 ; TEXTE WOOD
JSR EAEGSPR
LDA #$000D
JMP PICT1
ECREELU LDA #ECREELU1 ; EASTER EGGS LUDY (SURFACE)
STA SURFACE5+1
JMP SURFACE
ECREELU1 NOP
STZ noINTER ; ARRETE LE TEMPS
INC CTPNFLG ; INTERDIT L'ENTREE DANS LE CONTROL PANEL
JSR DESS1 ; ENLEVE LE POINTEUR
JSR CADEAEG ; CREATION CADRE ET BOUTON
LDA #$0004 ; SPRITE B&W
JSR EAEGSPR
LDA #$0005 ; TEXTE B&W
JSR EAEGSPR
LDA #$000D
JMP PICT1
ECREEPL LDA #ECREEPL1 ; EASTER EGGS PLANET (SURFACE)
STA SURFACE5+1
JMP SURFACE
ECREEPL1 NOP
STZ noINTER ; ARRETE LE TEMPS
INC CTPNFLG ; INTERDIT L'ENTREE DANS LE CONTROL PANEL
JSR DESS1 ; ENLEVE LE POINTEUR
JSR CADEAEG ; CREATION CADRE ET BOUTON
LDA #$0006 ; SPRITE FUTUR
JSR EAEGSPR
LDA #$0007 ; TEXTE FUTUR
JSR EAEGSPR
LDA #$000D
JMP PICT1
ECREEXE LDA #ECREEXE1 ; EASTER EGGS XENO (SURFACE)
STA SURFACE5+1
JMP SURFACE
ECREEXE1 NOP
STZ noINTER ; ARRETE LE TEMPS
INC CTPNFLG ; INTERDIT L'ENTREE DANS LE CONTROL PANEL
JSR DESS1 ; ENLEVE LE POINTEUR
JSR CADEAEG ; CREATION CADRE ET BOUTON
LDA #$0002 ; SPRITE BRUTAL
JSR EAEGSPR
LDA #$0003 ; TEXTE BRUTAL
JSR EAEGSPR
LDA #$000D
JMP PICT1
JAMAIS STZ noINTER ; ECRAN GAGNE !!
INC CTPNFLG
JSR DESS1
JSR CADRE
LDA #$0008 ; COUPE
JSR EAEGSPR
LDA #$0009 ; TEXTE
JSR EAEGSPR
JSR KBD ; ATTEND UNE TOUCHE
JSR RESTAUR
LDA #$0001
STA noINTER ; RETABLI LE TEMPS
STZ CTPNFLG ; ON AUTORISE L'ENTREE DANS LE CTPN
LDA OLDECR
STA ECRAN
RTS
************* CONTROL PANEL
ECR0500 LDX SECR2+1 ; GAME
LDA #ECR0501
STA BUMPER5+1
JMP BUMPER
ECR0501 NOP
LDA #$0006
JMP PICT
ECR0510 LDX SECR2+1 ; MUSIC
LDA #ECR0511
STA BUMPER5+1
JMP BUMPER
ECR0511 NOP
LDA #$0007
JMP PICT
ECR0520 LDX SECR2+1 ; GROUND
LDA #ECR0521
STA BUMPER5+1
JMP BUMPER
ECR0521 NOP
LDA #$0008
JMP PICT
ECR0530 LDX SECR2+1 ; LEVEL
LDA #ECR0531
STA BUMPER5+1
JMP BUMPER
ECR0531 NOP
LDA #$0009
JMP PICT
ECR0540 LDX SECR2+1 ; DOC
LDA #ECR0541
STA BUMPER5+1
JMP BUMPER
ECR0541 NOP
STZ AFTIND
LDA #$000A
JMP PICT
ECR0550 LDX SECR2+1 ; ABOUT
LDA #ECR0551
STA BUMPER5+1
JMP BUMPER
ECR0551 NOP
STZ AFTIND
LDA #$000B
JMP PICT
ECR0560 LDX SECR2+1 ; QUIT
LDA #ECR0561
STA BUMPER5+1
JMP BUMPER
ECR0561 NOP
LDA #$000C
JMP PICT
ECR0570 LDX SECR2+1 ; OK
LDA #ECR0571
STA BUMPER5+1
JMP BUMPER
ECR0571 NOP
JSR RESTAUR ; ENLEVE LE CONTROL PANEL
LDA #$0001
STA noINTER ; RETABLI LE TEMPS
STZ CTPNFLG ; ON AUTORISE LA CREATION DU CTPN
LDA GROUECR
JMP PICT1 ; EN REVIENT A L'ANCIEN ECRAN
*********** LOAD/SAVE GAME
ECR0600 LDX SECR2+1 ; LOAD
LDA #ECR0601
STA BUMPER5+1
JMP BUMPER
ECR0601 NOP
JSR TEMPload
LDA CHANGFLG ; ON DEMANDE UN CHANGEMENT PIECES/FLECHES
ORA #$0001 ; 0000.0000,0000.0001
STA CHANGFLG
JMP SOURIS1
ECR0610 LDX SECR2+1 ; SAVE
LDA #ECR0611
STA BUMPER5+1
JMP BUMPER
ECR0611 NOP
JSR saveFILE
JMP SOURIS1
ECR0620 LDX SECR2+1 ; OK
LDA #ECR0621
STA BUMPER5+1
JMP BUMPER
ECR0621 NOP
JSR CTPNCLNZ ; ENLEVE LES BOUTONS
LDA #$0005
JMP PICT1
************** MUSIC
ECR0700 LDX SECR2+1 ; MUSIC
LDA #ECR0701
STA BUMPER5+1
JMP BUMPER
ECR0701 NOP
LDA #CADMMUF ; PATCH BUMPER
STA ECR07DAT
LDA #CADMSNC
STA ECR07DAT+8
JSR CADMSNC ; SOUND FONCE
JSR CADMMUF ; MUSIC CLAIR
LDA MUSIFLAG
BEQ ECR07010 ; ON AVAIT DEJA SELECTIONNE LA ZIC
STZ MUSIFLAG
jsr stopSND ; ARRETE LES SONS
jsr startNT ; DEMARRE LA MUSIQUE
jsr startZIK
stz fgWHICH
ECR07010 JSR SAUV
JMP SOURIS1
ECR0710 LDX SECR2+1 ; SOUND
LDA #ECR0711
STA BUMPER5+1
JMP BUMPER
ECR0711 NOP
LDA #CADMMUC ; PATCH BUMPER
STA ECR07DAT
LDA #CADMSNF
STA ECR07DAT+8
JSR CADMMUC ; MUSIC FONCE
JSR CADMSNF ; SOUND CLAIR
LDA MUSIFLAG
BNE ECR07110 ; ON AVAIT DEJA
LDA #$0001
STA MUSIFLAG
JSR stopNT ; ARRETE MUSIQUE
JSR startSND ; DEMARRE LES SONS
lda #1
sta fgWHICH
ECR07110 JSR SAUV
JMP SOURIS1
ECR0720 LDX SECR2+1 ; OK
LDA #ECR0721
STA BUMPER5+1
JMP BUMPER
ECR0721 NOP
JSR CTPNCLNZ ; ENLEVE LES BOUTONS
LDA #$0005
JMP PICT1
MUSIFLAG HEX 0000 ; 0:MUSIC, 1:SOUND
****************** GROUND
ECR0800 LDX SECR2+1 ; HAPPY
LDA #ECR0801
STA BUMPER5+1
JMP BUMPER
ECR0801 NOP
JSR ECR08PATCH ; PATCH BUMPER
LDA #CADGRHAF
STA ECR08DAT
JSR CADGRLUC ; LUDY FONCE
JSR CADGRPLC ; PLANET FONCE
JSR CADGRXEC ; XENO FONCE
JSR CADGRRAC ; RANDOM FONCE
JSR CADGRHAF ; HAPPY CLAIR
STZ GROUFLAG ; DESIRE : HAPPY
STZ fgRANDOM ; RANDOM OFF
LDA CHANGFLG
ORA #$0002 ; DEMANDE UN CHANGEMENT DE DECOR
STA CHANGFLG
JSR SAUV
JMP SOURIS1
ECR0810 LDX SECR2+1 ; LUDY
LDA #ECR0811
STA BUMPER5+1
JMP BUMPER
ECR0811 NOP
JSR ECR08PATCH ; PATCH BUMPER
LDA #CADGRLUF
STA ECR08DAT+8
JSR CADGRHAC ; HAPPY FONCE
JSR CADGRPLC ; PLANET FONCE
JSR CADGRXEC ; XENO FONCE
JSR CADGRRAC ; RANDOM FONCE
JSR CADGRLUF ; LUDY CLAIR
LDA #$0001
STA GROUFLAG ; DESIRE : LUDY
STZ fgRANDOM ; RANDOM OFF
LDA CHANGFLG
ORA #$0002 ; DEMANDE UN CHANGEMENT DE DECOR
STA CHANGFLG
JSR SAUV
JMP SOURIS1
ECR0820 LDX SECR2+1 ; PLANET
LDA #ECR0821
STA BUMPER5+1
JMP BUMPER
ECR0821 NOP
JSR ECR08PATCH ; PATCH BUMPER
LDA #CADGRPLF
STA ECR08DAT+16
JSR CADGRHAC ; HAPPY FONCE
JSR CADGRLUC ; LUDY FONCE
JSR CADGRXEC ; XENO FONCE
JSR CADGRRAC ; RANDOM FONCE
JSR CADGRPLF ; PLANET CLAIR
LDA #$0002
STA GROUFLAG ; DESIRE : PLANET
STZ fgRANDOM ; RANDOM OFF
LDA CHANGFLG
ORA #$0002 ; DEMANDE UN CHANGEMENT DE DECOR
STA CHANGFLG
JSR SAUV
JMP SOURIS1
ECR0830 LDX SECR2+1 ; XENO
LDA #ECR0831
STA BUMPER5+1
JMP BUMPER
ECR0831 NOP
JSR ECR08PATCH ; PATCH BUMPER
LDA #CADGRXEF
STA ECR08DAT+24
JSR CADGRHAC ; HAPPY FONCE
JSR CADGRLUC ; LUDY FONCE
JSR CADGRPLC ; PLANET FONCE
JSR CADGRRAC ; RANDOM FONCE
JSR CADGRXEF ; XENO CLAIR
LDA #$0003
STA GROUFLAG ; DESIRE : XENO
STZ fgRANDOM ; RANDOM OFF
LDA CHANGFLG
ORA #$0002 ; DEMANDE UN CHANGEMENT DE DECOR
STA CHANGFLG
JSR SAUV
JMP SOURIS1
ECR0840 LDX SECR2+1 ; RANDOM
LDA #ECR0841
STA BUMPER5+1
JMP BUMPER
ECR0841 NOP
JSR ECR08PATCH ; PATCH BUMPER
LDA #CADGRRAF
STA ECR08DAT+32
JSR CADGRHAC ; HAPPY FONCE
JSR CADGRLUC ; LUDY FONCE
JSR CADGRPLC ; PLANET FONCE
JSR CADGRXEC ; XENO FONCE
JSR CADGRRAF ; RANDOM CLAIR
LDA #$0004
STA GROUFLAG
LDA #$0001 ; RAMDOM ON
STA fgRANDOM
LDA CHANGFLG
AND #$FFFD ; INTERDIT UN CHANGEMENT DE DECOR
STA CHANGFLG
JSR SAUV
JMP SOURIS1
ECR0850 LDX SECR2+1 ; OK
LDA #ECR0851
STA BUMPER5+1
JMP BUMPER
ECR0851 NOP
JSR CTPNCLNZ ; ENLEVE LES BOUTONS
LDA #$0005
JMP PICT1
ECR08PATCH LDA #CADGRHAC ; PATCH BUMPER
STA ECR08DAT
LDA #CADGRLUC
STA ECR08DAT+8
LDA #CADGRPLC
STA ECR08DAT+16
LDA #CADGRXEC
STA ECR08DAT+24
LDA #CADGRRAC
STA ECR08DAT+32
RTS
GROUFLAG HEX 0400 ; 0:HAPPY,1:LUDY,2:PLANET,3:XENO,4:RANDOM
GROUCONV HEX 0300,0100,0400,0200
GROUECR HEX 0000 ; NUMERO DE L'ECRAN PRECEDENT
**************** LEVEL
ECR0900 LDX SECR2+1 ; <<
LDA #ECR0901
STA BUMPER5+1
JMP BUMPER
ECR0901 NOP
JSR NUMMOID ; LEVEL - 10
JSR NUMVERIF ; COHERENCE 1-120
JSR NUMAFFI ; AFFICHAGE
LDA CHANGFLG
ORA #$0001 ; DEMANDE LE CHANGEMENT PIECES/FLECHES
STA CHANGFLG
JMP SOURIS1
ECR0910 LDX SECR2+1 ; <
LDA #ECR0911
STA BUMPER5+1
JMP BUMPER
ECR0911 NOP
JSR NUMMOIU ; LEVEL - 1
JSR NUMVERIF ; COHERENCE 1-120
JSR NUMAFFI ; AFFICHAGE
LDA CHANGFLG
ORA #$0001 ; DEMANDE LE CHANGEMENT PIECES/FLECHES
STA CHANGFLG
JMP SOURIS1
ECR0920 LDX SECR2+1 ; >
LDA #ECR0921
STA BUMPER5+1
JMP BUMPER
ECR0921 NOP
JSR NUMPLUU ; LEVEL + 1
JSR NUMVERIF ; COHERENCE 1-120
JSR NUMAFFI ; AFFICHAGE
LDA CHANGFLG
ORA #$0001 ; DEMANDE LE CHANGEMENT PIECES/FLECHES
STA CHANGFLG
JMP SOURIS1
ECR0930 LDX SECR2+1 ; >>
LDA #ECR0931
STA BUMPER5+1
JMP BUMPER
ECR0931 NOP
JSR NUMPLUD ; LEVEL + 10
JSR NUMVERIF ; COHERENCE 1-120
JSR NUMAFFI ; AFFICHAGE
LDA CHANGFLG
ORA #$0001 ; DEMANDE LE CHANGEMENT PIECES/FLECHES
STA CHANGFLG
JMP SOURIS1
ECR0940 LDX SECR2+1 ; OK
LDA #ECR0941
STA BUMPER5+1
JMP BUMPER
ECR0941 NOP
JSR CTPNCLNZ ; ENLEVE LES BOUTONS
LDA #$0005
JMP PICT1
*************** DOC
ECR1000 LDX SECR2+1 ; <
LDA #ECR1001
STA BUMPER5+1
JMP BUMPER
ECR1001 NOP
LDA AFTIND
BEQ ECR1002
DEC
STA AFTIND
JSR AFTPAG ; AFICHAGE PAGE PRECEDENTE
ECR1002 JMP SOURIS1
ECR1010 LDX SECR2+1 ; >
LDA #ECR1011
STA BUMPER5+1
JMP BUMPER
ECR1011 NOP
LDA AFTIND
ECR1012 CMP #$0007 ; NB DE PAGES MAXI
BEQ ECR1013
INC
STA AFTIND
JSR AFTPAG ; AFFICHAGE PAGE SUIVANTE
ECR1013 JMP SOURIS1
ECR1020 LDX SECR2+1 ; OK
LDA #ECR1021
STA BUMPER5+1
JMP BUMPER
ECR1021 NOP
JSR CTPNCLNZ ; ENLEVE LES BOUTONS
LDA #$0005
JMP PICT1
DOCADR HEX 0000 ; ADRESSE DU TEXTE DOCU (FRANCAIS/ANGLAIS)
************* ABOUT
ECR1100 LDX SECR2+1 ; <
LDA #ECR1101
STA BUMPER5+1
JMP BUMPER
ECR1101 NOP
LDA AFTIND
BEQ ECR1102
DEC
STA AFTIND
JSR AFTPAG ; AFICHAGE PAGE PRECEDENTE
ECR1102 JMP SOURIS1
ECR1110 LDX SECR2+1 ; >
LDA #ECR1111
STA BUMPER5+1
JMP BUMPER
ECR1111 NOP
LDA AFTIND
ECR1112 CMP #$0005 ; NB DE PAGES MAXI
BEQ ECR1113
INC
STA AFTIND
JSR AFTPAG ; AFFICHAGE PAGE SUIVANTE
ECR1113 JMP SOURIS1
ECR1120 LDX SECR2+1 ; OK
LDA #ECR1121
STA BUMPER5+1
JMP BUMPER
ECR1121 NOP
JSR CTPNCLNZ ; ENLEVE LES BOUTONS
LDA #$0005
JMP PICT1
ABOUADR HEX 0000 ; ADRESSE DU TEXTE ABOUT (FRANCAIS/ANGLAIS)
************ QUIT
ECR1200 LDX SECR2+1 ; QUIT
LDA #ECR1201
STA BUMPER5+1
JMP BUMPER
ECR1201 NOP
JMP keyEND ; FIN
ECR1210 LDX SECR2+1 ; OK
LDA #ECR1211
STA BUMPER5+1
JMP BUMPER
ECR1211 NOP
JSR CTPNCLNZ ; ENLEVE LES BOUTONS
LDA #$0005
JMP PICT1
************ EASTER EGG HAPPY,LUDY,PLANET,XENO
ECR1300 LDX SECR2+1 ; OK
LDA #ECR1301
STA BUMPER5+1
JMP BUMPER
ECR1301 NOP
JSR RESTAUR
LDA #$0001
STA noINTER ; RETABLI LE TEMPS
STZ CTPNFLG ; ON AUTORISE L'ENTREE DANS LE CTPN
LDA OLDECR
STA ECRAN
JSR SAUV
JMP SOURIS1
asc 'Hey! I am looking for the WATCHMEN comics number 5 and 6',8d
***************************************************************************
****************************** DATA *************************************
***************************************************************************
************ BUMPER MANAGER ************ PAVE
BUMPER LDA FLAGTAB,X
BEQ BUMPER2
LDA BOUT
BEQ BUMPER1
BUMPER0 JMP SOURIS
BUMPER1 STZ FLAGTAB,X ; RELEVE LE BUMPER ET EFFECTUE LE TRAITEMENT
STZ BMPFLG
JSR DESS1
JSR AFFSPRR
JSR SAUV
BUMPER5 JMP $FFFF ; TRAITEMENT A EFFECTUER
BUMPER2 STX BUMPER4+1 ; SAUVEGARDE TEMPORAIRE DE X
LDA BMPFLG
BEQ BUMPER3
LDX LAST ; FORCE LE REMONTEE DE L'ANCIEN
STZ FLAGTAB,X
STZ BMPFLG
STX SECR2+1
JSR DESS1
JSR AFFSPRR
JSR SAUV
BUMPER3 LDA BOUT
BEQ BUMPER0 ; JMP SOURIS
BUMPER4 LDX #$FFFF ; RECUPERE LA VALEUR DE X PERTURBEE PAR LA REMONTE FORCEE
STX LAST ; ENFONCE LE BUMPER SUR LEQUEL ON SE TROUVE
LDA #$0001
STA BMPFLG
STA FLAGTAB,X
STX SECR2+1
JSR DESS1
JSR AFFSPRE
JSR SAUV
JMP SOURIS1
************* SURFACE MANAGER ************* ZONE D'ECRAN
SURFACE LDA BMPFLG ; X CONTIENT LE NUMERO DU BOUTON
BEQ SURFACE1
LDX LAST ; ON FORCE SA RELEVE
STZ BMPFLG
STZ FLAGTAB,X
STX SECR2+1
JSR DESS1
JSR AFFSPRR
JSR SAUV
JMP SOURIS1
SURFACE1 LDA BOUT
BEQ SURFACE2
SURFACE5 JMP $FFFF ; TRAITEMENT A EFFECTUER
SURFACE2 JMP SOURIS
******** TRAITEMENT PAR DEFAUT *********
BUMPDEF LDA BMPFLG
BEQ BUMPDEF1
LDX LAST ; FORCE LE REMONTEE DE L'ANCIEN
STZ FLAGTAB,X
STZ BMPFLG
STX SECR2+1
JSR DESS1
JSR AFFSPRR
JSR SAUV
JMP SOURIS1
BUMPDEF1 JMP SOURIS
**********************************************
ECR01TA1 HEX 01,01,01,01,01,01,01,01,01,01,01,01,00,00,00,00 ; FLECHES HAUT
HEX 02,02,02,02,02,02,02,02,02,02,02,02,00,00,00,00
HEX 03,03,03,03,03,03,03,03,03,03,03,03,00,00,00,00
HEX 04,04,04,04,04,04,04,04,04,04,04,04,00,00,00,00
HEX 05,05,05,05,05,05,05,05,05,05,05,05,00,00,00,00
HEX 06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00
HEX 07,07,07,07,07,07,07,07,07,07,07,07,00,00,00,00
HEX 08,08,08,08,08,08,08,08,08,08,08,08,00,00,00,00
HEX 09,09,09,09,09,09,09,09,09,09,09,09,00,00,00,00
ECR01TA2 HEX 12,12,12,12,12,12,12,12,12,12,12,12,00,00,00,00 ; FLECHES BAS
HEX 13,13,13,13,13,13,13,13,13,13,13,13,00,00,00,00
HEX 14,14,14,14,14,14,14,14,14,14,14,14,00,00,00,00
HEX 15,15,15,15,15,15,15,15,15,15,15,15,00,00,00,00
HEX 16,16,16,16,16,16,16,16,16,16,16,16,00,00,00,00
HEX 17,17,17,17,17,17,17,17,17,17,17,17,00,00,00,00
HEX 18,18,18,18,18,18,18,18,18,18,18,18,00,00,00,00
HEX 19,19,19,19,19,19,19,19,19,19,19,19,00,00,00,00
HEX 1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,1A,00,00,00,00
ECR01TA3 HEX 1B,1B,1B,1B,1B,1B,1B,1B,1B,1B,1B,1B,00,00 ; FLECHES GAUCHE
HEX 1C,1C,1C,1C,1C,1C,1C,1C,1C,1C,1C,1C,00,00
HEX 1D,1D,1D,1D,1D,1D,1D,1D,1D,1D,1D,1D,00,00
HEX 1E,1E,1E,1E,1E,1E,1E,1E,1E,1E,1E,1E,00,00
HEX 1F,1F,1F,1F,1F,1F,1F,1F,1F,1F,1F,1F,00,00
HEX 20,20,20,20,20,20,20,20,20,20,20,20,00,00
HEX 21,21,21,21,21,21,21,21,21,21,21,21,00,00
HEX 22,22,22,22,22,22,22,22,22,22,22,22,00,00
HEX 23,23,23,23,23,23,23,23,23,23,23,23,00,00
ECR01TA4 HEX 09,09,09,09,09,09,09,09,09,09,09,09,00,00 ; FLECHES DROITE
HEX 0A,0A,0A,0A,0A,0A,0A,0A,0A,0A,0A,0A,00,00
HEX 0B,0B,0B,0B,0B,0B,0B,0B,0B,0B,0B,0B,00,00
HEX 0C,0C,0C,0C,0C,0C,0C,0C,0C,0C,0C,0C,00,00
HEX 0D,0D,0D,0D,0D,0D,0D,0D,0D,0D,0D,0D,00,00
HEX 0E,0E,0E,0E,0E,0E,0E,0E,0E,0E,0E,0E,00,00
HEX 0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,00,00
HEX 10,10,10,10,10,10,10,10,10,10,10,10,00,00
HEX 11,11,11,11,11,11,11,11,11,11,11,11,00,00
HEX 0500 ; HAPPY NB DE BOUTONS DANS ECRAN1
ECR01TAB HEX 1600,A100,1B00,2300 ; HAUT TABLEAU DES BOUTONS POUR ECRAN1
HEX 1600,A100,A500,AD00 ; BAS X0,X1 Y0,Y1
HEX 0A00,1100,2600,A200 ; GAUCHE
HEX A700,AE00,2600,A200 ; DROITE
HEX E900,ED00,2500,2800 ; EASTER EGGS
HEX 0500 ; LUDY
ECR02TAB HEX 1600,A100,1B00,2300 ; HAUT
HEX 1600,A100,A500,AD00 ; BAS
HEX 0A00,1100,2600,A200 ; GAUCHE
HEX A700,AE00,2600,A200 ; DROITE
HEX 1D01,2301,2E00,3300 ; EASTER EGGS
HEX 0500 ; PLANET
ECR03TAB HEX 1600,A100,1B00,2300 ; HAUT
HEX 1600,A100,A500,AD00 ; BAS
HEX 0A00,1100,2600,A200 ; GAUCHE
HEX A700,AE00,2600,A200 ; DROITE
HEX 0D01,1101,6300,6700 ; EASTER EGGS
HEX 0500 ; XENO
ECR04TAB HEX 1600,A100,1B00,2300 ; HAUT
HEX 1600,A100,A500,AD00 ; BAS
HEX 0A00,1100,2600,A200 ; GAUCHE
HEX A700,AE00,2600,A200 ; DROITE
HEX 0801,0E01,1900,1E00 ; EASTER EGGS
ECR01DAT HEX 0000,0000,0000,0000 ; LONGUEUR (*4),HAUTEUR,@ ECRAN,@ SPRITE
HEX 0800 ; CONTROL PANEL
ECR05TAB HEX 1800,5700,2500,3500 ; GAME
HEX 1800,5700,3800,4800 ; MUSIC
HEX 1800,5700,4B00,5B00 ; GROUND
HEX 1800,5700,5E00,6E00 ; LEVEL
HEX 1800,5700,7100,8100 ; DOC
HEX 1800,5700,8400,9400 ; ABOUT
HEX 1800,5700,9700,A700 ; QUIT
HEX 8800,B800,AD00,BD00 ; OK
ECR05DAT DA CADGAMC,CADGAMF,CADGAMC,CADGAMF
DA CADMUSC,CADMUSF,CADMUSC,CADMUSF
DA CADGROC,CADGROF,CADGROC,CADGROF
DA CADLEVC,CADLEVF,CADLEVC,CADLEVF
DA CADDOCC,CADDOCF,CADDOCC,CADDOCF
DA CADABOC,CADABOF,CADABOC,CADABOF
DA CADQUIC,CADQUIF,CADQUIC,CADQUIF
DA CADOKC,CADOKF,CADOKC,CADOKF
HEX 0300 ; LOAD/SAVE GAME
ECR06TAB HEX BC00,1301,4B00,5B00 ; LOAD
HEX BC00,1301,5E00,6E00 ; SAVE
HEX D000,FF00,7B00,8B00 ; OK
ECR06DAT DA CADGLOC,CADGLOF,CADGLOC,CADGLOF
DA CADGSAC,CADGSAF,CADGSAC,CADGSAF
DA CADGOKC,CADGOKF,CADGOKC,CADGOKF
HEX 0300 ; MUSIC
ECR07TAB HEX C800,0701,4B00,5B00 ; MUSIC X0,X1,Y0,Y1
HEX C800,0701,5E00,6E00 ; SOUND
HEX D000,FF00,7B00,8B00 ; OK
ECR07DAT DA CADMMUC,CADMMUF,CADMMUC,CADMMUF
DA CADMSNC,CADMSNF,CADMSNC,CADMSNF
DA CADMOKC,CADMOKF,CADMOKC,CADMOKF
HEX 0600 ; GROUND
ECR08TAB HEX A200,E700,4100,5100 ; HAPPY
HEX EC00,3101,4100,5100 ; LUDY
HEX A200,E700,5400,6400 ; PLANET
HEX EC00,3101,5400,6400 ; XENO
HEX C800,0B01,6C00,7C00 ; RANDOM
HEX D200,0101,8900,9900 ; OK
ECR08DAT DA CADGRHAC,CADGRHAF,CADGRHAC,CADGRHAF
DA CADGRLUC,CADGRLUF,CADGRLUC,CADGRLUF
DA CADGRPLC,CADGRPLF,CADGRPLC,CADGRPLF
DA CADGRXEC,CADGRXEF,CADGRXEC,CADGRXEF
DA CADGRRAC,CADGRRAF,CADGRRAC,CADGRRAF
DA CADGROKC,CADGROKF,CADGROKC,CADGROKF
HEX 0500 ; LEVEL
ECR09TAB HEX B400,CB00,6800,7700 ; MOINS 10
HEX CE00,E500,6800,7700 ; MOINS 1
HEX E000,0101,6800,7700 ; PLUS 1
HEX 0401,1B01,6800,7700 ; PLUS 10
HEX D000,FF00,8400,9400 ; OK
ECR09DAT DA CADLMDC,CADLMDF,CADLMDC,CADLMDF
DA CADLMUC,CADLMUF,CADLMUC,CADLMUF
DA CADLPUC,CADLPUF,CADLPUC,CADLPUF
DA CADLPDC,CADLPDF,CADLPDC,CADLPDF
DA CADLOKC,CADLOKF,CADLOKC,CADLOKF
HEX 0300 ; DOC
ECR10TAB HEX 9600,AD00,9900,A800 ; MOINS UNE
HEX E600,FD00,9900,A800 ; PLUS UNE
HEX B200,E100,9900,A900 ; OK
ECR10DAT DA CADDMUC,CADDMUF,CADDMUC,CADDMUF
DA CADDPUC,CADDPUF,CADDPUC,CADDPUF
DA CADDOKC,CADDOKF,CADDOKC,CADDOKF
HEX 0300 ; ABOUT
ECR11TAB HEX 9600,AD00,9900,A800 ; MOINS UNE
HEX E600,FD00,9900,A800 ; PLUS UNE
HEX B200,E100,9900,A900 ; OK
ECR11DAT DA CADDMUC,CADDMUF,CADDMUC,CADDMUF
DA CADDPUC,CADDPUF,CADDPUC,CADDPUF
DA CADDOKC,CADDOKF,CADDOKC,CADDOKF
HEX 0200 ; QUIT
ECR12TAB HEX BC00,1101,5600,6600 ; QUIT
HEX CE00,FD00,7D00,8D00 ; OK
ECR12DAT DA CADQQUC,CADQQUF,CADQQUC,CADQQUF
DA CADQOKC,CADQOKF,CADQOKC,CADQOKF
HEX 0100 ; EASTER EGGS
ECR13TAB HEX 8800,B800,AD00,BD00 ; OK
ECR13DAT DA CADOKC,CADOKF,CADOKC,CADOKF
****************
ECRTAB DA ECR01TAB,ECR02TAB,ECR03TAB,ECR04TAB ; ADRESSES DES TABLEAUX
DA ECR05TAB,ECR06TAB,ECR07TAB,ECR08TAB
DA ECR09TAB,ECR10TAB,ECR11TAB,ECR12TAB
DA ECR13TAB
ECRDAT DA ECR01DAT,ECR01DAT,ECR01DAT,ECR01DAT ; ADRESSE DES DONNEES BUMPERS
DA ECR05DAT,ECR06DAT,ECR07DAT,ECR08DAT
DA ECR09DAT,ECR10DAT,ECR11DAT,ECR12DAT
DA ECR13DAT
ECRDESA DA ECRDES1,ECRDES2,ECRDES3,ECRDES4 ; ADRESSE POUR LES DESTINATIONS
DA ECRDES5,ECRDES6,ECRDES7,ECRDES8
DA ECRDES9,ECRDES10,ECRDES11,ECRDES12
DA ECRDES13
****
ECRDES1 DA ECRJEH1,ECRJEB1,ECRJEG1,ECRJED1,ECREEHA ; ECRAN JEU : HAPPY
ECRDES2 DA ECRJEH1,ECRJEB1,ECRJEG1,ECRJED1,ECREELU ; ECRAN JEU : LUDY
ECRDES3 DA ECRJEH1,ECRJEB1,ECRJEG1,ECRJED1,ECREEPL ; ECRAN JEU : PLANET
ECRDES4 DA ECRJEH1,ECRJEB1,ECRJEG1,ECRJED1,ECREEXE ; ECRAN JEU : XENO
ECRDES5 DA ECR0500,ECR0510,ECR0520,ECR0530,ECR0540 ; CONTROL PANEL
DA ECR0550,ECR0560,ECR0570
ECRDES6 DA ECR0600,ECR0610,ECR0620 ; LOAD/SAVE
ECRDES7 DA ECR0700,ECR0710,ECR0720 ; MUSIC
ECRDES8 DA ECR0800,ECR0810,ECR0820,ECR0830,ECR0840 ; GROUND
DA ECR0850
ECRDES9 DA ECR0900,ECR0910,ECR0920,ECR0930,ECR0940 ; LEVEL
ECRDES10 DA ECR1000,ECR1010,ECR1020 ; DOC
ECRDES11 DA ECR1100,ECR1110,ECR1120 ; ABOUT
ECRDES12 DA ECR1200,ECR1210 ; QUIT
ECRDES13 DA ECR1300 ; EASTER EGGS
********************* SOUS ROUTINES SOURIS **************************
DEC HEX 000000000000 ; DECOR SOUS LE POINTEUR
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 000000000000
HEX 000000000000
PTPAI HEX FFFFFFFF0000
HEX 0F00000F0000 ; POINTEUR POSITION PAIRE
HEX 00F000F00000
HEX 000F00F00000
HEX 0000FF000000
HEX 00000F000000
PTPAIMA HEX 00000000FFFF
HEX F0000000FFFF ; MASQUE POSITION PAIRE
HEX FF00000FFFFF
HEX FFF0000FFFFF
HEX FFFF00FFFFFF
HEX FFFFF0FFFFFF
PTIMP HEX 0FFFFFFFF000
HEX 00F00000F000 ; POINTEUR POSITION IMPAIRE
HEX 000F000F0000
HEX 0000F00F0000
HEX 00000FF00000
HEX 000000F00000
PTIMPMA HEX F00000000FFF
HEX FF0000000FFF ; MASQUE POSITION IMPAIRE
HEX FFF00000FFFF
HEX FFFF0000FFFF
HEX FFFFF00FFFFF
HEX FFFFFF0FFFFF
POSX HEX 0000 ; 0-312
POSY HEX 0000 ; 0-194
A1 HEX 0000 ; POSITION ACTUELLE
AP HEX 0000 ; ANCIENNE POSITION
ECRAN HEX 0100 ; ECRAN 1,2,3...
OLDECR HEX 0000 ; ECRAN PRECEDENT
GO HEX 0000 ; CONTIENT LE NUMERO DU BOUTON ENFONCE (A RELACHER)
LAST HEX 0000 ; DERNIER BUMPER ENFONCE
BMPFLG HEX 0000 ; A 1 SI UN BUMPER EST DEJA ENFONCE
BOUT HEX 0000 ; BOUTON
BOUT1 HEX 0000 ;
DELX HEX 000000
DELY HEX 000000 ; DONNEES SOURIS
NEX HEX 0000
NEY HEX 0000
FLAGTAB HEX 0000000000000000000000000000000000000000 ; FLAGS : 1 SI BUMPER ENFONCE
HEX 0000000000000000000000000000000000000000 ; NB DE BUMPER/BOUTON DANS 1 ECRAN
HEX 0000000000000000000000000000000000000000
HEX 0000000000000000000000000000000000000000
HEX 0000000000000000000000000000000000000000
asc 'There are two ways to get rich:',8d
asc '- To be very strong',8d
asc '- To take advantage of people',8d
asc 'Isn t it, Gaumu?',8d
********************
SEXIT LDY #$FFFF
RTS
SLECT LDAL $00C026 ; $C027 LECTURE SOURIS
BPL SEXIT
AND #$0200
BEQ SLECT1
LDAL $00C024
BRA SLECT
SLECT1 LDA #$0000 ; BOUT,NEX,NEY A 0 PAR DEFAUT
STA BOUT
STA NEX
STA NEY
LDAL $00C023 ; $C024 : DELTA X
BIT #$4000 ; SIGNE ?
BNE SLECT3
AND #$3F00 ; POSITIF
STA DELX
BRA SLECT4
SLECT3 AND #$3F00 ; NEGATIF
STA SLECT33+1
INC NEX
LDA #$4000 ; 64
SEC
SLECT33 SBC #$0000
STA DELX
SLECT4 LDAL $00C023 ; $C024 : DELTA Y
BMI SLECT44 ; NO BOUT : LECTURE SUR Y DE BOUTON 1
INC BOUT ; BOUT=1
SLECT44 BIT #$4000 ; SIGNE ?
BNE SLECT5
AND #$3F00 ; POSITIF
STA DELY
BRA SLECT6
SLECT5 AND #$3F00 ; NEGATIF
STA SLECT55+1
INC NEY
LDA #$4000 ; 64
SEC
SLECT55 SBC #$0000
STA DELY
SLECT6 LDA NEX ; CALCUL DE POSX
BNE SLECT8
LDA POSX ; DELX > 0
CLC
ADC DELX+1
CMP #$0139 ; 313
BMI SLECT7
LDA #$0138 ; 312
SLECT7 STA POSX
BRA SLECT10
SLECT8 LDA POSX ; DELX < 0
SEC
SBC DELX+1
BPL SLECT9
LDA #$0000
SLECT9 STA POSX
SLECT10 LDA NEY ; CALCUL DE POSY
BNE SLECT12
LDA POSY ; DELY > 0
CLC
ADC DELY+1
CMP #$00C3 ; 195
BMI SLECT11
LDA #$00C2 ; 194
SLECT11 STA POSY
BRA SLECT14
SLECT12 LDA POSY ; DELY < 0
SEC
SBC DELY+1
BPL SLECT13
LDA #$0000
SLECT13 STA POSY
SLECT14 RTS
**********************
DESS1 LDA A1
BRA DESS2
DESS LDA AP ; DESSINE LE DECOR (LIE A AP), ANCIENNE POSITION
DESS2 CLC
ADC #$2000
STA DESS4+1
LDY #$0000
LDX #$0004 ; LARGEUR 3
DESS3 LDA DEC,Y
DESS4 STAL $E12000,X
INY
INY
DEX
DEX
BPL DESS3
CPY #$0024 ; NB CASES (36)
BPL DESS5
LDX #$0004 ; LARGEUR 3
LDA DESS4+1
CLC
ADC #$00A0
STA DESS4+1
BRA DESS3
DESS5 RTS
SAUV LDA A1 ; SAUVEGARDE LE DECOR (LIE A A1), NOUVELLE POSITION
CLC
ADC #$2000
STA SAUV1+1
LDY #$0000
LDX #$0004 ; LARGEUR 3
SAUV1 LDAL $E12000,X
STA DEC,Y
INY
INY
DEX
DEX
BPL SAUV1
CPY #$0024 ; NB CASES (36)
BPL SAUV2
LDX #$0004 ; LARGEUR 3
LDA SAUV1+1
CLC
ADC #$00A0
STA SAUV1+1
BRA SAUV1
SAUV2 RTS
TRACE JSR DESS ; OK
JSR SAUV
TRACE6 LDA A1 ; DESSINE LE POINTEUR POSITION PAIRE
CLC
ADC #$2000
STA TRACE1+1
STA TRACE4+1
LDA POSX
LSR
BCC TRACEP
LDX #PTIMP ; POSITION IMPAIRE
LDY #PTIMPMA
BRA TRACE0
TRACEP LDX #PTPAI ; POSITION PAIRE
LDY #PTPAIMA
TRACE0 STX TRACE3+1 ; MOTIF
STY TRACE2+1 ; MASQUE
LDY #$0000
LDX #$0000
TRACE1 LDAL $E12000,X
TRACE2 AND $A0A0,Y ; ET AVEC LE MASQUE
TRACE3 ORA $A0A0,Y ; OU AVEC LE MOTIF
TRACE4 STAL $E12000,X
INY
INY
INX
INX
CPX #$0006 ; LARGEUR 3
BNE TRACE1
CPY #$0024 ; NB CASES (36)
BEQ TRACE5
LDX #$0000
LDA TRACE1+1
CLC
ADC #$00A0
STA TRACE1+1
STA TRACE4+1
BRA TRACE1
TRACE5 RTS
*************************************************
AFFSPRR INC AFFSPRF ; BUMPER RELEVE
AFFSPRE LDA ECRAN ; BUMPER ENFONCE
CMP #$0005
BPL AFFSPR0
STZ AFFSPRF
RTS ; BOUTON DE JEUX : PAS DE POSITIONS RELEVES/ENFONCES
AFFSPR0 DEC
ASL
TAX
LDA ECRDAT,X ; ADRESSE DU TABLEAU DES DATA POUR L'ECRAN CONCERNE
STA AFFSPR1+1
LDA SECR2+1 ; CONTIENT LE NUMERO DU BUMPER (*2)
ASL
ASL ; *4
CLC
AFFSPR1 ADC #$0000 ; ADRESSE DATA BUMPER
TAX
LDA\ $0000,X ; ADRESSE RELEVE C
STA AFFSPR3+1
LDA\ $0002,X ; ADRESSE ENFONCE F
STA AFFSPR2+1
LDA AFFSPRF ; FLAG DE AFFSPR
BNE AFFSPR3 ; ON DESSINE LE SPRITE RELEVE
AFFSPR2 JSR $A0A0
STZ AFFSPRF
RTS
AFFSPR3 JSR $A0A0
STZ AFFSPRF
RTS
AFFSPRF HEX 0000 ; FLAG RELEVE/ENFONCE
******************** TRAITEMENT ET AFFICHAGE ECRANS *********************
PICT1 LDX ECRAN ; PASSAGE ECRAN SANS CHANGEMENT DE FOND
STX OLDECR
STA ECRAN
JSR SAUV
JMP PICT21
PICT PHA
JSR DESS1 ; ENLEVE LE POINTEUR
PLA
LDX ECRAN
STX OLDECR
STA ECRAN
PICT21 JSR CLNFLG ; LES FLAGS DE BUMPER A ZERO
STZ BMPFLG ; LES FLAGS A ZERO
LDA ECRAN ; AFFICHAGES LIE A CHAQUE ECRAN
DEC
ASL
TAX
LDA ECRANTAB,X
STA PICT20+1
PICT20 JMP $FFFF ; ON VA SUR LA ROUTINE CORRESPONDANTE
ECRANTAB DA ECRJEU1,ECRJEU2,ECRJEU3,ECRJEU4,ECRCTPN ; NOM DES ECRANS POUR INIT D'AFFICHAGE
DA ECRGAME,ECRMUSI,ECRGROU,ECRLEVE,ECRDOCU
DA ECRABOU,ECRQUIT,ECREAEG
CLNFLG LDX #$0062 ; ON MET TOUS LES FLAG DE BUMPER A 0
LDA #$0000
CLNFLG1 STA FLAGTAB,X
DEX
DEX
BPL CLNFLG1
RTS
CHANGFLG HEX 0000 ; 0 SI PAS DE CHANGEMENT D'ECRAN QUAND ON REVIENT DU CTPN
; 1 SI CHANGEMENT PIECES/FLECHES
; 2 SI CHANGEMENT DECOR
; 3 SI CHANGEMENT TOTAL : PIECES/FLECHES et DECOR
*********** TRAITEMENT INITIAL A L'AFFICHAGE D'UN ECRAN
ECRJEU1 LDA CHANGFLG ; ECRAN DE JEU HAPPYLAND
BEQ ECRJEU10
LDA #$0001 ; MODIFICATION ?
JSR CHANGSOM
ECRJEU10 STZ CHANGFLG
JSR SAUV
JMP SOURIS1
ECRJEU2 LDA CHANGFLG ; ECRAN DE JEU LUDYLAND
BEQ ECRJEU20
LDA #$0002 ; MODIFICATION ?
JSR CHANGSOM
ECRJEU20 STZ CHANGFLG
JSR SAUV
JMP SOURIS1
ECRJEU3 LDA CHANGFLG ; ECRAN DE JEU PLANETLAST
BEQ ECRJEU30
LDA #$0003 ; MODIFICATION ?
JSR CHANGSOM
ECRJEU30 STZ CHANGFLG
JSR SAUV
JMP SOURIS1
ECRJEU4 LDA CHANGFLG ; ECRAN DE JEU XENOLAST
BEQ ECRJEU40
LDA #$0004 ; MODIFICATION ?
JSR CHANGSOM
ECRJEU40 STZ CHANGFLG
JSR SAUV
JMP SOURIS1
CHANGSOM LDX GROUFLAG ; AIGUILLAGE VERS UN CHANGEMENT PIECES ET/OU DECOR
CPX #$0004
BEQ CHANGSO4 ; PAS BESOIN DE CHANGER LE DECOR
DEC
CMP GROUFLAG
BEQ CHANGSO4 ; PAS BESOIN DE CHANGER LE DECOR
LDA CHANGFLG
CMP #$0001 ; BESOIN DE CHANGER LES PIECES ?
BEQ CHANGSO1
CMP #$0002 ; BESOIN DE CHANGER LE DECOR
BEQ CHANGSO2
BRA CHANGSO3 ; BESOIN DE CHANGER LES DEUX
CHANGSO4 LDA CHANGFLG ; ON N'A PAS BESOIN DE MODIFIER LE DECOR
AND #$0001
BNE CHANGSO1
STZ CHANGFLG
RTS ; AUCUNE MODIF
CHANGSO1 PLX ; MODIFICATION PIECES/FLECHES
STZ CHANGFLG
LDA ECRAN ; NOUVEL ECRAN SOUHAITE
DEC
ASL
TAX
LDA GROUCONV,X
STA CurDecor
lda vivaTOINET
bne laRUSE
LDA NUMHEX
STA Niveau
stz ldFlag
bra ahlala
laRUSE stz vivaTOINET
lda #1
sta ldFlag
ahlala jsr fadeOUT
JMP FIRST
CHANGSO2 PLX ; MODIFICATION DECOR
STZ CHANGFLG
LDA GROUFLAG ; NOUVEL ECRAN SOUHAITE
ASL
TAX
LDA GROUCONV,X
STA CurDecor
LDA GROUFLAG
INC
STA ECRAN
JSR setDecor
LDA #$0001
STA ldFlag
JSR fadeOUT
JMP FIRST
CHANGSO3 PLX ; MODIFICATION TOTALE
STZ CHANGFLG
LDA NUMHEX
STA Niveau
LDA GROUFLAG ; NOUVEL ECRAN SOUHAITE
ASL
TAX
LDA GROUCONV,X
STA CurDecor
LDA GROUFLAG
INC
STA ECRAN
jsr setDecor
jsr fadeOUT
stz ldFlag
JMP FIRST
ECRCTPN LDA CTPNFLG
BNE ECRCTPN1
LDA OLDECR
STA GROUECR ; ON CONSERVE LE NUMERO DE L'ECRAN PRECEDENT L'ENTREE
STZ noINTER ; ARRETE LE TEMPS
STZ CHANGFLG ; AUCUN CHANGEMENT PREVU AU RETOUR
JSR CADRE ; CREATION CADRE PAGE
JSR CADCTPN ; CREATION CONTROL PANEL
INC CTPNFLG
ECRCTPN1 JSR CTPNCLNZ ; NETTOYAGE ZONE BOUTONS AUXILIAIRES
JSR SAUV
JMP SOURIS1
CTPNFLG HEX 0000
ECRGAME JSR CADGAME ; CREATION DE L'ECRAN
JSR SAUV
JMP SOURIS1
ECRMUSI JSR CADMUSI ; CREATION DE L'ECRAN
JSR SAUV
JMP SOURIS1
ECRGROU JSR CADGROU ; CREATION DE L'ECRAN
JSR SAUV
JMP SOURIS1
ECRLEVE JSR CADLEVE ; CREATION DE L'ECRAN
JSR NUMVNOC ; CONVERSION NIVEAU EN COURS
JSR NUMAFFI ; AFFICHAGE NIVEAU
JSR SAUV
JMP SOURIS1
ECRDOCU JSR CADDOCU ; CREATION DE L'ECRAN
LDA DOCADR
STA AFTLIG1+1
JSR AFTPAG ; AFFICHE 1 PAGE DE TEXTE
JSR SAUV
JMP SOURIS1
ECRABOU JSR CADABOU ; CREATION DE L'ECRAN
LDA ABOUADR
STA AFTLIG1+1
JSR AFTPAG ; AFFICHE 1 PAGE DE TEXTE
JSR SAUV
JMP SOURIS1
ECRQUIT JSR CADQUIT ; CREATION DE L'ECRAN
JSR SAUV
JMP SOURIS1
ECREAEG JSR SAUV ; EASTER EGGS (ECRAN DEJA CONSTRUIT)
JMP SOURIS1
asc 'Coming soon to a screen near you: Cogito for the TurboRez',8d
asc 'The colorful version of the legendary game',8d
*********************************************************************
AFTA HEX 00FF0F000FFF0F000F00F0000F00FF000F000F00 ; A
AFTB HEX 0FFF0F000FFF0F000FFFF0000F00F0000F00F000 ; B
AFTC HEX 00FF0F000F000F0000FFF0000F0000000F00F000 ; C
AFTD HEX 0FFF0F000F000F000FFFF0000F000F000F00F000 ; D
AFTE HEX 0FFF0F000FFF0F000FFFFF00000000000000FF00 ; E
AFTF HEX 0FFF0F000FFF0F000F00FF000000000000000000 ; F
AFTG HEX 00FF0F000F000F0000FFF0000000FF000F00F000 ; G
AFTH HEX 0F000F000FFF0F000F000F000F00FF000F000F00 ; H
AFTI HEX 0FFF000F000F000F0FFFFF00000000000000FF00 ; I
AFTJ HEX 000F000000000F0000FFFF00F000F000F0000000 ; J
AFTK HEX 0F000F000FFF0F000F000F00F0000000F0000F00 ; K
AFTL HEX 0F000F000F000F000FFF0000000000000000FF00 ; L
AFTM HEX 0F000FF00F0F0F000F000F00FF000F000F000F00 ; M
AFTN HEX 0F000FF00F0F0F000F000F000F000F00FF000F00 ; N
AFTO HEX 00FF0F000F000F0000FFF0000F000F000F00F000 ; O
AFTP HEX 0FFF0F000FFF0F000F00F0000F00F00000000000 ; P
AFTQ HEX 00FF0F000F000F0000FFF0000F000F00F0000F00 ; Q
AFTR HEX 0FFF0F000FFF0F000F00F0000F00F000F0000F00 ; R
AFTS HEX 00FF0F0000FF00000FFFFF000000F0000F00F000 ; S
AFTT HEX 0FFF000F000F000F000FFF000000000000000000 ; T
AFTU HEX 0F000F000F000F0000FF0F000F000F000F00F000 ; U
AFTV HEX 0F000F0000F000F0000F0F000F00F000F0000000 ; V
AFTW HEX 0F000F000F0F0FF00F000F000F000F00FF000F00 ; W
AFTX HEX 0F0000F0000F00F00F000F00F0000000F0000F00 ; X
AFTY HEX 0F000F0000F0000F000F0F000F00F00000000000 ; Y
AFTZ HEX 0FFF0000000F00F00FFFFF00F00000000000FF00 ; Z
AFT0 HEX 00FF0F000F000F0000FFF0000F000F000F00F000 ; 0
AFT1 HEX 000F00FF000F000F0FFF0000000000000000FF00 ; 1
AFT2 HEX 0FFF000000FF0F000FFFF0000F00F0000000FF00 ; 2
AFT3 HEX 0FFF0000000F00000FFFF0000F00F0000F00F000 ; 3
AFT4 HEX 0F000F000F000FFF00000000F000F000FF00F000 ; 4
AFT5 HEX 0FFF0F000FFF00000FFFFF000000F0000F00F000 ; 5
AFT6 HEX 00FF0F000FFF0F0000FFFF000000F0000F00F000 ; 6
AFT7 HEX 0FFF0000000F00F000F0FF00F000000000000000 ; 7
AFT8 HEX 00FF0F0000FF0F0000FFF0000F00F0000F00F000 ; 8
AFT9 HEX 00FF0F0000FF00000FFFF0000F00FF000F00F000 ; 9
AFTPL HEX 000F000F0FFF000F000F00000000FF0000000000 ; +
AFTMOI HEX 000000000FFF0000000000000000FF0000000000 ; -
AFTET HEX 0F0F00FF0FFF00FF0F0F0F00F000FF00F0000F00 ; *
AFTSL HEX 00000000000F00F00F000F00F000000000000000 ; /
AFTEG HEX 00000FFF00000FFF00000000FF000000FF000000 ; =
AFTSO HEX 00000000000000000FFF0000000000000000FF00 ; _
AFTPE HEX 000F000F000F0000000F00000000000000000000 ; !
AFTPI HEX 00FF0F00000F0000000FF0000F00F00000000000 ; ?
AFTSU HEX 00F0000F0000000F00F000000000F00000000000 ; >
AFTIN HEX 0000000F00F0000F0000F000000000000000F000 ; <
AFTPO HEX 000F00F000F000F0000F00000000000000000000 ; (
AFTPF HEX 000F000000000000000F0000F000F000F0000000 ; )
AFTDP HEX 0000000F0000000F000000000000000000000000 ; :
AFTPT HEX 0000000000000000000F00000000000000000000 ; .
AFTVI HEX 0000000000000000000F000000000000F0000000 ; ,
AFTRO HEX 00FF00F000FF00000000F000F000F00000000000 ; o
AFTGU HEX 00F000F0000000000000F000F000000000000000 ; "
AFTAP HEX 000F000F00000000000000000000000000000000 ; '
AFTPV HEX 0000000000000000000F0000F0000000F0000000 ; ;
AFTDI HEX 00F00FFF00F00FFF00F0F000FF00F000FF00F000 ; #
AFTDO HEX 00FF0F0F00FF000F0FFFFF000000F0000F00F000 ; $
AFTAC HEX 000F00F00F00000000000000F0000F0000000000 ; ^
AFTPC HEX 0FF00FF0000F00F00F000F00F0000000FF00FF00 ; %
AFTSP HEX 0000000000000000000000000000000000000000 ; SPACE
AFTRD HEX 00FF0FFF0FFF0FFF00FFF000FF00FF00FF00F000 ; o
AFTBA HEX 0FF0F0000F0000F0FF00FF00F0F0FF00F000F000 ; SP
AFTFD HEX 000F000F0FFF000F000F0000F000FF00F0000000 ; ->
AFTFG HEX 000F00FF0FFF00FF000F00000000FF0000000000 ; <-
AFTNS HEX 0FFF0FFF0FFF0FFF0FFFFF00FF00FF00FF00FF00 ; NO SE
AFTADR DA AFTA,AFTB,AFTC,AFTD,AFTE,AFTF,AFTG,AFTH,AFTI,AFTJ,AFTK,AFTL,AFTM,AFTN ; 0-13
DA AFTO,AFTP,AFTQ,AFTR,AFTS,AFTT,AFTU,AFTV,AFTW,AFTX,AFTY,AFTZ,AFT0 ; 14-26
DA AFT1,AFT2,AFT3,AFT4,AFT5,AFT6,AFT7,AFT8,AFT9,AFTPL,AFTMOI,AFTET,AFTSL,AFTEG ; 27-40
DA AFTSO,AFTPE,AFTPI,AFTSU,AFTIN,AFTPO,AFTPF,AFTDP,AFTPT,AFTVI,AFTRO ; 41-51
DA AFTGU,AFTAP,AFTPV,AFTDI,AFTDO,AFTAC,AFTPC,AFTSP ; 52-59
DA AFTA,AFTB,AFTC,AFTD,AFTE,AFTF,AFTG,AFTH,AFTI,AFTJ,AFTK,AFTL,AFTM,AFTN ; 60-73
DA AFTO,AFTP,AFTQ,AFTR,AFTS,AFTT,AFTU,AFTV,AFTW,AFTX,AFTY,AFTZ ; 74-85
DA AFTRD
AFTTBL HEX C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DA ; A-Z
HEX B0,B1,B2,B3,B4,B5,B6,B7,B8,B9 ; 0-9
HEX AB,AD,AA,AF,BD,DF,A1,BF,BE,BC,A8,A9,BA,AE,AC ; +-*/=_!?><():.,
HEX DB,A2,A7,BB,A3,A4,DE,A5,A0 ; o"';#$^%SPC
HEX E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FA ; a-z
**************************** AFFICHAGE TEXT **********************************
******** AFFICHE PAGE ************
AFTPAG JSR AFTNE ; NETTOY
LDA #$0000
AFTPAG1 JSR AFTLIG ; AFFICHE 16 LIGNES
INC
CMP #$0010
BNE AFTPAG1
RTS
******** AFFICHE LIGNE ************
AFTLIG PHA ; RECOIT DANS A LE NUMERO DE LA LIGNE
ASL
TAX
LDA AFTTADLI,X
STA AFTAE ; OFFSET ADRESSE ECRAN DEBUT LIGNE
LDA AFTTABM,X
STA AFTLIG0+1 ; OFFSET DU CARACTERE DANS SA PAGE
LDA AFTIND
ASL
TAX
LDA AFTTADPT,X ; OFFSET DE LA PAGE DANS LE TEXTE
CLC
AFTLIG0 ADC #$AAAA
TAY ; OFFSET DU CARACTERE DANS LE TEXTE
AFTLIG1 LDA TEXTEFRD,Y
AND #$00FF
CMP #$008D
BEQ AFTLIG5 ; FIN DE LIGNE DETECTE
STA AFTLIG3+1
LDX #$0000
AFTLIG2 LDA AFTTBL,X
AND #$00FF
AFTLIG3 CMP #$AAAA
BEQ AFTLIG4 ; CARACTERE TROUVE
INX
CPX #$0062
BNE AFTLIG2
LDX #$0056 ; PAS TROUVE : ON MET UN BLANC
AFTLIG4 JSR AFTCAR ; AFFICHE CARACTERE
LDA AFTAE ; ADRESSE ECRAN CARACTERE SUIVANT
CLC
ADC #$0003
STA AFTAE
INY
BRA AFTLIG1
AFTLIG5 PLA
RTS
******** AFFICHE CARACTERE ********
AFTCAR PHY ; RECOIT DANS X L'INDICE DU CARACTERE
TXA
ASL
TAX
LDA AFTADR,X
STA AFTCAR1+1
CLC
ADC #$000A
STA AFTCAR3+1
LDX AFTAE ; 1 ere COLONNE
LDY #$0000 ;
AFTCAR2 LDAL $E12000,X
AFTCAR1 ORA $AAAA,Y
STAL $E12000,X
TXA
CLC
ADC #$00A0
TAX ; LIGNE SUIVANTE
INY
INY
CPY #$000A
BNE AFTCAR2
LDX AFTAE ; 2 eme COLONNE
INX
INX
LDY #$0000
AFTCAR4 LDAL $E12000,X
AFTCAR3 ORA $AAAA,Y
STAL $E12000,X
TXA
CLC
ADC #$00A0
TAX ; LIGNE SUIVANTE
INY
INY
CPY #$000A
BNE AFTCAR4
PLY
RTS
******* NETTOYAGE ********
AFTNE LDA #$0064 ; NETTOYAGE DE LA ZONE D'AFFICHAGE
STA CADRX0
LDA #$0031
STA CADRY0
LDA #$012C
STA CADRX1
LDA #$0091
STA CADRY1
JSR CARETAB
RTS
*************** TABLES, VARIABLES ET FLAGS ******************
AFTAE HEX 0000 ; ADRESSE ECRAN ECRITURE
AFTIND HEX 0000 ; INDEX PAGES
AFTTADPT HEX 0000,2002,4004,6006,8008,A00A,C00C,E00E,0011,2013
HEX 4015,6017,8019,A01B,C01D,E01F,0022,2024,4026,6028
AFTTADLI HEX 731F,3323,F326,B32A,732E,3332,F335,B339,733D,3341,F344,B348,734C,3350,F353,B357
AFTTABM HEX 0000,2200,4400,6600,8800,AA00,CC00,EE00,1001,3201,5401,7601,9801,BA01,DC01,FE01
****************.. TEXTE ......................*****************
TEXTEFRD ASC " ",8D
ASC " DOCUMENTATION COGITO ",8D
ASC " ",8D
ASC " (C) 1992 ATREID CONCEPT. ",8D
ASC " ",8D
ASC " ",8D
ASC "CONCEPTION : JEROME CRETAUX ",8D
ASC " ",8D
ASC "GRAPHISMES : O. BAILLY-MAITRE",8D
ASC " ",8D
ASC "MUSIQUE : FREDERIC MOTTE ",8D
ASC " ",8D
ASC "EFFETS SONORES : O. BAILLY-MAITRE",8D
ASC " ",8D
ASC "DOCUMENTATION : T.P. HIBIKI ",8D
ASC " ",8D
ASC " ",8D
ASC " PRINCIPE DU JEU ",8D
ASC " --------------- ",8D
ASC " ",8D
ASC " LE BUT DU JEU EST DE",8D
ASC "RECONSTITUER UNE FIGURE MELANGEE",8D
ASC "PAR L'ORDINATEUR. UTILISEZ LES",8D
ASC "FLECHES DE CONTROLE POUR DEPLACER",8D
ASC "LES LIGNES OU LES COLONNES. ",8D
ASC " ",8D
ASC " MAIS ATTENTION, PLUS VOUS",8D
ASC "MONTEZ EN NIVEAU, PLUS LE MODE",8D
ASC "DE DEPLACEMENT DES LIGNES ET DES",8D
ASC "COLONNES DEVIENT COMPLEXE, ET,",8D
ASC "BIEN ENTENDU, PLUS LA FIGURE A",8D
ASC "RECONSTITUER EST SOPHISTIQUEE. ",8D
ASC " ",8D
ASC " DANS COGITO, LE TEMPS N'EST",8D
ASC "PAS LIMITE MAIS IL EST COMPTE.",8D
ASC "VOTRE ENJEU EST DONC DE LE",8D
ASC "REDUIRE AU MINIMUM. IL FAUT NOTER",8D
ASC "QUE LE CHRONOMETRE NE S'ARRETE",8D
ASC "PAS SI VOUS ENTREZ DANS LE",8D
ASC "CONTROL PANEL DU GS PENDANT LE",8D
ASC "JEU. ",8D
ASC " ",8D
ASC " CE JEU N'ETANT PAS ",8D
ASC "FONDAMENTALEMENT UNE COURSE",8D
ASC "CONTRE LA MONTRE, IL EST ",8D
ASC "IMPORTANT QUE VOUS PRENIEZ VOTRE",8D
ASC "TEMPS LA PREMIERE FOIS QUE VOUS",8D
ASC "DECOUVREZ UN TABLEAU POUR ",8D
ASC " ",8D
ASC "ANALYSER FINEMENT LES ACTIONS ",8D
ASC "DE TOUTES LES FLECHES. ",8D
ASC " ",8D
ASC " UNE FOIS QUE VOUS AUREZ ",8D
ASC "TERMINE UN TABLEAU POUR LA",8D
ASC "PREMIERE FOIS, ESSAYEZ ",8D
ASC "D'AMELIORER VOTRE SCORE EN ",8D
ASC "REDUISANT AUSSI BIEN LE TEMPS",8D
ASC "ECOULE QUE LE NOMBRE DE COUPS",8D
ASC "UTILISES. ",8D
ASC " ",8D
ASC " LE JEU COMPORTE 120 NIVEAUX ",8D
ASC "DE DIFFICULTE CROISSANTE. ",8D
ASC " ",8D
ASC " BON COURAGE ! ",8D
ASC " ",8D
ASC " LE MENU DE CONFIGURATION ",8D
ASC " ------------------------ ",8D
ASC " ",8D
ASC " L'ACCES AU MENU DEPUIS LE",8D
ASC "JEU S'EFFECTUE SIMPLEMENT EN",8D
ASC "APPUYANT SUR UNE TOUCHE DU",8D
ASC "CLAVIER. ",8D
ASC " ",8D
ASC " * GAME : SI VOUS VOULEZ ",8D
ASC "INTERROMPRE UN JEU EN COURS POUR ",8D
ASC "LE REPRENDRE PLUS TARD, IL VOUS",8D
ASC "SUFFIT D'ENREGISTRER LE JEU",8D
ASC "EN UTILISANT L'OPTION 'SAVE'. ",8D
ASC "VOUS POURREZ LE REPRENDRE DANS",8D
ASC "L'ETAT OU IL ETAIT AVEC 'LOAD'.",8D
ASC " * MUSIC : VOUS POUVEZ ACTIVER",8D
ASC "OU DESACTIVER LA MUSIQUE DE FOND.",8D
ASC "SI LA MUSIQUE EST DESACTIVEE, ",8D
ASC "VOUS AUREZ DROIT A UN SON A",8D
ASC "CHAQUE DEPLACEMENT D'UNE LIGNE OU",8D
ASC "D'UNE COLONNE. ",8D
ASC " SI TOUTEFOIS VOUS NE VOULEZ",8D
ASC "AUCUN BRUIT, L'ACCES AU CONTROL",8D
ASC "PANEL DU GS RESTE POSSIBLE POUR",8D
ASC "METTRE A ZERO LE VOLUME SONORE",8D
ASC "DU GS. ",8D
ASC " IL FAUT NOTER QUE ",8D
ASC "L'ACTIVATION OU NON DE LA MUSIQUE",8D
ASC "N'A AUCUNE INFLUENCE SUR LE ",8D
ASC "CHRONOMETRE DU JEU. ",8D
ASC " ",8D
ASC " * GROUND : CETTE OPTION PERMET",8D
ASC "DE CHANGER DE DECOR DE FOND.",8D
ASC "VOUS AVEZ LA POSSIBILITE DE ",8D
ASC "CHOISIR UN DES QUATRE DECORS ",8D
ASC "(HAPPY, LUDY, PLANET OU XENO) OU",8D
ASC "DE LAISSER L'ORDINATEUR CHOISIR",8D
ASC "ALEATOIREMENT UN DECOR DE FOND",8D
ASC "POUR CHAQUE TABLEAU. ",8D
ASC " LE CHOIX DU DECOR DE FOND",8D
ASC "N'A AUCUNE INCIDENCE SUR LA ",8D
ASC "DIFFICULTE DU TABLEAU. ",8D
ASC " ",8D
ASC " * LEVEL : DANS LES VERSIONS",8D
ASC "COMMERCIALES DU JEU (MAC ET PC),",8D
ASC "UN CODE PERMETTAIT D'ACCEDER AUX",8D
ASC "DIFFERENTS NIVEAUX DU JEU. DANS",8D
ASC "LA VERSION GS, NOUS AVONS DECIDE ",8D
ASC "DE VOUS LAISSER ACCEDER LIBREMENT",8D
ASC "A N'IMPORTE QUEL NIVEAU. ",8D
ASC " VOUS POUVEZ DONC CHOISIR LE",8D
ASC "NIVEAU EN INDIQUANT SON NUMERO. ",8D
ASC " ",8D
ASC " * DOC : VOUS Y ETES !!! TOUT CE",8D
ASC "QUE VOUS AVEZ BESOIN DE SAVOIR",8D
ASC "POUR UTILISER CE LOGICIEL DE LA",8D
ASC "MEILLEURE FACON. ",8D
ASC " ",8D
ASC " * ABOUT : INFORMATIONS DIVERSES",8D
ASC "SUR LES PROGRAMMEURS DE LA",8D
ASC "VERSION APPLE //GS DU JEU. ",8D
ASC " ",8D
ASC " * QUIT : QUITTER LE LOGICIEL. ",8D
TEXTEUSD ASC " ",8D
ASC " COGITO DOCUMENTATION ",8D
ASC " ",8D
ASC " (C) 1992 ATREID CONCEPT. ",8D
ASC " ",8D
ASC " ",8D
ASC "CONCEPT : JEROME CRETAUX ",8D
ASC " ",8D
ASC "GRAPHICS : O. BAILLY-MAITRE",8D
ASC " ",8D
ASC "MUSIC : FREDERIC MOTTE ",8D
ASC " ",8D
ASC "SOUND EFFECTS : O. BAILLY-MAITRE",8D
ASC " ",8D
ASC "DOCUMENTATION : T.P. HIBIKI ",8D
ASC " ",8D
ASC " ",8D
ASC " INTRODUCTION ",8D
ASC " ------------ ",8D
ASC " ",8D
ASC " A FURIOUS CLICKING SOUND ",8D
ASC "THAT DOES NOT QUITE DROWN OUT",8D
ASC "SOFT ENCHANTING MUSIC. PEARL-LIKE",8D
ASC "BALLS SMASH INTO EACH OTHER WITH ",8D
ASC "UNBELIEVABLE SPEED. ",8D
ASC "AND YET, ALREADY, IT IS CALM",8D
ASC "AGAIN. ALONE AGAINST AN EVER ",8D
ASC "CHANGING OPPONENT, YOU WILL HAVE",8D
ASC "TO FIND A WAY TO RECONSTRUCT A",8D
ASC "DIAGRAM THAT HAS BEEN SCRAMBLED",8D
ASC "BY THE COMPUTER. DON'T GET YOUR",8D
ASC "HOPES UP, HOWEVER : ANY VICTORY",8D
ASC " ",8D
ASC "WILL ONLY BE TEMPORARY, YOUR ",8D
ASC "FREEDOM OF CHOICE WILL CONSTANTLY",8D
ASC "BE CURTAILED, YOUR MOVEMENTS WILL",8D
ASC "BECOME CLUMSY AND CONFUSED, THE",8D
ASC "DIAGRAM WILL BE MORE COMPLEX...",8D
ASC "AND THUS BEGINS, FOR THE NOVICE",8D
ASC "AS FOR THE EXPERT, THE NEVER",8D
ASC "ENDING QUEST FOR THE BOUNDARIES",8D
ASC "OF THE HUMAN SPIRIT... ",8D
ASC " ",8D
ASC " ",8D
ASC " ",8D
ASC " ",8D
ASC " ",8D
ASC " ",8D
ASC " ",8D
ASC " OVERVIEW ",8D
ASC " -------- ",8D
ASC " ",8D
ASC " THE OBJECTIVE OF THE GAME IS",8D
ASC "TO RECONSTRUCT A DIAGRAM THAT HAS",8D
ASC "BEEN SCRAMBLED BY THE COMPUTER. ",8D
ASC "YOU WILL USE THE CONTROL ARROWS",8D
ASC "THAT SURROUND THE DIAGRAM TO MOVE",8D
ASC "THE ROWS AND COLUMNS. ",8D
ASC " BE CAREFUL, HOWEVER: AS YOU ",8D
ASC "PROGRESS, MOVING THE ROWS AND",8D
ASC "COLUMNS WILL BECOME MORE",8D
ASC "DIFFICULT AND, NATURALLY, THE ",8D
ASC "DIAGRAM ITSELF WILL BECOME MORE",8D
ASC "AND MORE SOPHISTICATED. ",8D
ASC " ",8D
ASC " THERE IS NO TIME LIMIT, BUT",8D
ASC "THE TIME ELAPSED IS DISPLAYED. ",8D
ASC "YOUR GOAL IS TO RECONSTRUCT THE",8D
ASC "DIAGRAM AS QUICKLY AS POSSIBLE. ",8D
ASC " ",8D
ASC " AS THIS GAME IS FUNDAMENTALLY",8D
ASC "NOT A RACE AGAINST THE CLOCK, WE ",8D
ASC "RECOMMEND THAT YOU TAKE YOUR TIME",8D
ASC "AT THE BEGINNING TO CLOSELY",8D
ASC "ANALYZE THE RESULTS OBTAINED WHEN",8D
ASC "USING THE VARIOUS CONTROL ARROWS.",8D
ASC " ONCE YOU HAVE SUCCESSFULLY",8D
ASC "COMPLETED A DIAGRAM, TRY TO",8D
ASC "IMPROVE YOUR SCORE BY REDUCING",8D
ASC "THE TIME AND NUMBER OF MOVES USED",8D
ASC " ",8D
ASC " CONFIGURATION PANEL ",8D
ASC " ------------------- ",8D
ASC " ",8D
ASC " TO ACCESS THE PANEL ",8D
ASC "CONFIGURATION FROM THE GAME, JUST",8D
ASC "HIT A KEY OF THE APPLE IIGS",8D
ASC "KEYBOARD. ",8D
ASC " ",8D
ASC " * GAME : IF YOU WANT TO END A",8D
ASC "CURRENT GAME TO COME BACK LATER,",8D
ASC "YOU JUST HAVE TO RECORD IT USING",8D
ASC "THE 'SAVE GAME' OPTION. ",8D
ASC "IF YOU NOW WANT TO LOAD YOUR",8D
ASC "SAVED GAME JUST USE THE",8D
ASC "'LOAD GAME' OPTION. ",8D
ASC " * MUSIC : YOU CAN ACTIVATE OR",8D
ASC "DESACTIVATE THE MUSIC. ",8D
ASC "IF THE MUSIC IS DESACTIVADED, YOU",8D
ASC "WILL HAVE A SOUND EACH TIME YOU",8D
ASC "MOVE A ROW OR A COLUMN. ",8D
ASC " IF YOU DON'T WANT ANY NOISE",8D
ASC "YOU CAN FREELY ACCESS THE ",8D
ASC "APPLE IIGS CONTROL PANEL DURING",8D
ASC "THE GAME TO MODIFY THE SPEAKER",8D
ASC "VOLUME. ",8D
ASC " ",8D
ASC " * GROUND : THIS OPTION LETS YOU",8D
ASC "CHOOSE THE BACKGROUND PICTURE.",8D
ASC "YOU CAN SELECT ONE FROM THE FOUR",8D
ASC "AVAILABLE (HAPPY, LUDY, PLANET OR",8D
ASC "XENO) OR LET THE COMPUTER ",8D
ASC "RANDOMLY CHOOSE A NEW BACKGROUND",8D
ASC "PICTURE FOR EACH NEW LEVEL. ",8D
ASC " THE CHOICE OF A BACKGROUND",8D
ASC "PICTURE HAS NO CONNEXION WITH THE",8D
ASC "DIFFICULTY OF THE LEVEL. ",8D
ASC " ",8D
ASC " * LEVEL : IN THE COMMERCIAL",8D
ASC "EDITIONS OF THIS GAME (MAC, PC),",8D
ASC "YOU HAD TO GIVE A CODE TO GAIN",8D
ASC "ACCESS TO A LEVEL. IN THE",8D
ASC "APPLE II GS VERSION, WE HAVE",8D
ASC "DECIDED TO LET YOU ACCESS",8D
ASC "FREELY ANY LEVEL. ",8D
ASC " THEN YOU CAN CHOOSE YOUR",8D
ASC "LEVEL JUST BY GIVING ITS NUMBER. ",8D
ASC " ",8D
ASC " ",8D
ASC " * DOC : HERE YOU ARE !!!",8D
ASC "EVERYTHING YOU NEED TO KNOW ABOUT",8D
ASC "THIS GAME TO USE IT AS THE BEST",8D
ASC "WAY. ",8D
ASC " ",8D
ASC " * ABOUT : INFORMATIONS ABOUT ",8D
ASC "THE PROGRAMMERS OF THE APPLE //GS",8D
ASC "VERSION OF THE GAME. ",8D
ASC " ",8D
ASC " * QUIT : TO QUIT THE GAME. ",8D
ASC " ",8D
ASC " ",8D
ASC " ",8D
ASC " GOOD LUCK WITH THE 120 LEVELS ! ",8D
ASC " ",8D
TEXTEFRA ASC " ",8D
ASC " *** *** * * ***** ** * ",8D
ASC " * * * * * * * * * * ",8D
ASC " *** *** * * * **** * ",8D
ASC " * * * * * * * * * * ",8D
ASC " *** * * *** * * * **** ",8D
ASC " ",8D
ASC " *** **** * * * * * **** ",8D
ASC " * * * * * * * * * ",8D
ASC " * * *** * * * * *** ",8D
ASC " * * * * * * * * * ",8D
ASC " *** **** **** *** * * **** ",8D
ASC " ",8D
ASC " ",8D
ASC " SEPTEMBRE 1994 ",8D
ASC " ",8D
ASC " ",8D
ASC " COGITO VERSION APPLE//GS ",8D
ASC " ",8D
ASC " ",8D
ASC " PROGRAMMATION : BRUTAL DELUXE ",8D
ASC " ",8D
ASC " DESIGN : BRUTAL DELUXE ",8D
ASC " ",8D
ASC "LES GRAPHIQUES ONT ETE CONVERTIS ",8D
ASC " A L'AIDE DE CONVERT 3200, ",8D
ASC " (C) 1993 BRUTAL DELUXE ",8D
ASC " ",8D
ASC " MUSIQUE : TOOL 220 ",8D
ASC " (C) 1991 FTA ",8D
ASC " ",8D
ASC "MERCI A J. CRETAUX POUR SON AIDE.",8D
ASC " ",8D
ASC " COGITO GS EST ",8D
ASC " ",8D
ASC " - INSTALLABLE SUR DISQUE DUR, ",8D
ASC " ",8D
ASC " - COMPATIBLE GS/OS 5.0 A 6.01,",8D
ASC " ",8D
ASC " - N'OCCUPE QUE 500 KO EN RAM, ",8D
ASC " ",8D
ASC " - UN LOGICIEL EN FREEWARE, ",8D
ASC " ",8D
ASC " - N'EST PAS CENSE FONCTIONNER ",8D
ASC "SOUS DES ENVIRONNEMENTS MULTI ",8D
ASC "TACHES OU MULTI APPLICATIONS ",8D
ASC "(THE MANAGER, SWITCH IT, GNO...).",8D
ASC "A VOS RISQUES ET PERILS... ",8D
ASC " ",8D
ASC " TOUTES NOS PRODUCTIONS : ",8D
ASC " ",8D
ASC " - BILLE ART ",8D
ASC " ",8D
ASC " - OPALE DEMO ",8D
ASC " ",8D
ASC " - SYSTEME GS/OS 6.01 FRANCAIS",8D
ASC " ",8D
ASC " - TINIES GS ",8D
ASC " ",8D
ASC " - COGITO GS ",8D
ASC " ",8D
ASC " SONT DISPONIBLES AUPRES DU",8D
ASC "GS CLUB. ",8D
ASC " ",8D
ASC " ",8D
ASC " PROCHAINS LOGICIELS DISPONIBLES ",8D
ASC " ",8D
ASC " - TINIES CONSTRUCTION KIT ",8D
ASC "EDITEZ VOUS MEME DES NOUVEAUX",8D
ASC "TABLEAUX POUR TINIES ET JOUEZ",8D
ASC "AVEC. ",8D
ASC " ",8D
ASC " - CONVERT 3200 ",8D
ASC "UN CONVERTISSEUR GRAPHIQUE. ",8D
ASC " ",8D
ASC " ",8D
ASC "VOUS POUVEZ NOUS CONTACTER SUR",8D
ASC "MINITEL : ",8D
ASC " ",8D
ASC " 3615 RTEL, BAL : BRUTAL DELUXE ",8D
ASC "UN GRAND COUCOU A NOS AMIS : ",8D
ASC " ",8D
ASC " ACHA, ANTONIO, ARAGORN GS,",8D
ASC "AZEBULON, BABAR, BANDIT II, BARBE",8D
ASC "BLEUE, BILBO BILOBA, J.M BOUILLY,",8D
ASC "BRAINSTORM SOFTWARE, J.A. CANAL,",8D
ASC "CGS, DIZZY, FLATLINER, GHERKIN,",8D
ASC "J.P GOURNAY, GRAND SOT, INDIANA,",8D
ASC "KRYPTON, LACAZE BROTHER, J.C",8D
ASC "LEDUCQ, FRED LEHIDEUX, LO44,",8D
ASC "NIBBLE, OTOMATIC, PERFECT BUGS,",8D
ASC "PILATUS, SAM IIGS, TEASER, TEDY,",8D
ASC "THE WHITE MAN... ",8D
ASC " ",8D
ASC " AINSI QU'AUX NOMBREUX ET FIDELES",8D
ASC "RTELIENS DE LA RUB GS. ",8D
ASC " NOUS N'OUBLIONS PAS NON PLUS NOS",8D
ASC "CONTACTS A L'ETRANGER : ",8D
ASC " ",8D
ASC " URS 'CODEBURGER', HENRIK GUDAT,",8D
ASC "FRANK M.LIN, JOE KOHN, WILLIAM",8D
ASC "ST PIERRE, KEN POPPLETON, STEVE",8D
ASC "SEBAN, SAM LATELLA... ",8D
ASC " ",8D
ASC " COGITO COMME TOUTES NOS AUTRES",8D
ASC "PRODUCTIONS EST GRATUIT. SI VOUS",8D
ASC "PENSEZ QUE VOUS AURIEZ ACHETE",8D
ASC "CES LOGICIELS S'ILS ETAIENT EN",8D
ASC "VENTE, LA CHOSE QUI NOUS FERAIT",8D
ASC "PLAISIR SERAIT QUE VOUS UTILISIEZ",8D
ASC "L'ARGENT AINSI ECONOMISE EN VOUS",8D
ASC "ABONNANT A DES REVUES EN FRANCAIS",8D
ASC "QUI PARLENT DU GS. VOICI LEURS",8D
ASC "ADRESSES. ",8D
ASC " ",8D
ASC " LA POMME ILLUSTREE : ",8D
ASC " ",8D
ASC " LA POMME ILLUSTREE ",8D
ASC " 20 IMPASSE SOUS LES PRES ",8D
ASC " 94110 ARCUEIL ",8D
ASC " FRANCE ",8D
ASC " ",8D
ASC " KISS FROM ISRAEL : ",8D
ASC " ",8D
ASC " KPL EDITION ",8D
ASC " PO BOX 2593 ",8D
ASC " NETANYA ",8D
ASC " ISRAEL ",8D
TEXTEUSA ASC " ",8D
ASC " *** *** * * ***** ** * ",8D
ASC " * * * * * * * * * * ",8D
ASC " *** *** * * * **** * ",8D
ASC " * * * * * * * * * * ",8D
ASC " *** * * *** * * * **** ",8D
ASC " ",8D
ASC " *** **** * * * * * **** ",8D
ASC " * * * * * * * * * ",8D
ASC " * * *** * * * * *** ",8D
ASC " * * * * * * * * * ",8D
ASC " *** **** **** *** * * **** ",8D
ASC " ",8D
ASC " SEPTEMBER 1994 ",8D
ASC " ",8D
ASC " WE'RE BACK ! ",8D
ASC " ",8D
ASC " COGITO APPLE//GS VERSION ",8D
ASC " ",8D
ASC " ",8D
ASC " PROGRAMMATION : BRUTAL DELUXE ",8D
ASC " ",8D
ASC " DESIGN : BRUTAL DELUXE ",8D
ASC " ",8D
ASC " GRAPHICS HAVE BEEN CONVERTED ",8D
ASC " USING CONVERT 3200, ",8D
ASC " (C) 1993 BRUTAL DELUXE ",8D
ASC " ",8D
ASC " MUSIC : TOOL 220 ",8D
ASC " (C) 1991 FTA ",8D
ASC " ",8D
ASC "THANKS TO J.CRETAUX FOR HIS HELP.",8D
ASC " ",8D
ASC " COGITO GS IS ",8D
ASC " ",8D
ASC " - INSTALLABLE ON HARD DRIVE ",8D
ASC " ",8D
ASC " - COMPATIBLE GS/OS 5.0 TO 6.01",8D
ASC " ",8D
ASC " - USE ONLY 500 KB OF MEMORY ",8D
ASC " ",8D
ASC " - A FREEWARE SOFTWARE ",8D
ASC " ",8D
ASC " - NOT SUPPOSED TO WORK UNDER",8D
ASC "MULTI TASKING ENVIRONMENTS OR",8D
ASC "MULTI APPLICATIONS ENVIRONMENTS",8D
ASC "(THE MANAGER, SWITCH IT, GNO...).",8D
ASC "YOU WILL USE IT AT YOUR OWN RISKS",8D
ASC " ",8D
ASC " ALL OUR PRODUCTIONS : ",8D
ASC " ",8D
ASC " - BILLE ART ",8D
ASC " ",8D
ASC " - TINIES GS ",8D
ASC " ",8D
ASC " - OPALE DEMO ",8D
ASC " ",8D
ASC " - COGITO GS ",8D
ASC " ",8D
ASC " ARE AVAILABLE ON FTP SITES LIKE",8D
ASC "CCOSUN.CALTECH.EDU OR IF YOU HAVE",8D
ASC "SUBSCRIBED TO SHAREWARE SOLUTIONS",8D
ASC "YOU CAN ASK THEM TO JOE KOHN. ",8D
ASC " ",8D
ASC " OUR NEXT SOFTWARES WILL BE : ",8D
ASC " ",8D
ASC " - TINIES CONSTRUCTION KIT ",8D
ASC "EDIT AND PLAY AT YOUR OWN LEVELS.",8D
ASC " ",8D
ASC " - CONVERT 3200 ",8D
ASC "A 16/256/3200 GRAPHIC CONVERTER ",8D
ASC " ",8D
ASC "YOU CAN JOIN US AT : ",8D
ASC " ",8D
ASC " BRUTAL DELUXE SOFTWARE ",8D
ASC " 11 RUE EMILE FOURCAND ",8D
ASC " 33000 BORDEAUX ",8D
ASC " FRANCE ",8D
ASC " INTERNET : ",8D
ASC " ZARDINI@IXL.U-BORDEAUX.FR ",8D
ASC " WE WOULD LIKE TO SAY HELLO TO ",8D
ASC "OUR FRIENDS AND PEOPLE WE HAVE",8D
ASC "MET ON INTERNET : ",8D
ASC " ",8D
ASC " JOE KOHN, FRANK M.LIN, MARC SIRA",8D
ASC "PAUL SCHULTZ, NATHAN MATES, DAVID",8D
ASC "ONG TAT-WEE, LIM THYE CHEAN, ",8D
ASC "DANIEL PFARRER, RANDY SHACKELFORD",8D
ASC "PETAR E PUSKARICH, SAM LATELLA,",8D
ASC "KEN RICHARSON, ELIAS KOUTOULAKIS,",8D
ASC "RICHARD KING, TOM WEISHAAR, STEVE",8D
ASC "SEBAN, WILLIAM ST PIERRE, KEN",8D
ASC "POPPLETON, URS 'CODEBURGER', ",8D
ASC "HENRIK GUDAT, IAN SCHMIDT... ",8D
ASC " ",8D
ASC "AND ALL THOSE WE HAVE FORGOTTEN..",8D
ASC " ",8D
ASC " SPECIAL HELLO TO ALL THE PEOPLE",8D
ASC "WHO HAVE WRITTEN TO US TO TELL US",8D
ASC "THEY HAD LOVED TINIES... ",8D
ASC " ",8D
ASC " BRUTAL DELUXE SUPPORTS THE ",8D
ASC " PHOENIX PROJECT ",8D
ASC " TURBO REZ GRAPHIC CARD ",8D
ASC " DSP CARD ",8D
ASC " ",8D
ASC " ",8D
ASC "BRUTAL DELUXE IS LOOKING FOR ",8D
ASC "GRAPHISTS TO END THE OPALE GAME, ",8D
ASC "JUST HAVE A LOOK TO THE OPALE ",8D
ASC "DEMO FOR MORE INFORMATIONS. ",8D
ASC " ",8D
ASC " BIG KISSES EVERYWHERE TO ",8D
ASC " CHARLOTTE HORSTMAN (OKLAHOMA), ",8D
ASC "MY PREFERED AMERICAN GIRL... ",8D
ASC " ",8D
ASC " ",8D
ASC " ALL OUR PRODUCTIONS ARE FREE.",8D
ASC "IF YOU THINK YOU HAD BOUGHT ",8D
ASC "THEM IF THEY HAD BEEN SOLD, WE",8D
ASC "WILL BE REALLY VERY HAPPY IF YOU",8D
ASC "COULD USE THE MONEY YOU HAVE KEPT",8D
ASC "TO SUBSCRIBE TO SHAREWARE SOL. II",8D
ASC "NEWSLETTER. IT IS A VERY GOOD",8D
ASC "BI-MONTHLY PAPER. SSII COMES WITH",8D
ASC "A PRO-RATED MONEY BACK GUARANTEE.",8D
ASC " PERHAPS YOU DON'T UNDERSTAND",8D
ASC "THE CONNEXION BETWEEN THE FACT",8D
ASC "THAT WE SPEND OUR TIME TO PROGRAM",8D
ASC "FREELY AND A NEWSLETTER, BUT IT",8D
ASC "EXISTS...THE SAME APPLE II SPIRIT",8D
ASC " ",8D
ASC " TO CONTACT JOE : ",8D
ASC " ",8D
ASC " SHAREWARE SOLUTIONS II ",8D
ASC " JOE KOHN ",8D
ASC " 166 ALPINE STREET ",8D
ASC " SAN RAFAEL, CA 94901-1008 ",8D
ASC " USA ",8D
ASC " ",8D
ASC "CIS : 76702,565 ",8D
ASC "GENIE : JOE.KOHN ",8D
ASC "INTERNET : JOKO@CRL.COM",8D
ASC "AMERICAN ONLINE : JOKO ",8D
**************************
KBD PHA
KBD1 LDAL $00BFFF
BPL KBD1
STAL $00C010
PLA
RTS
FADELINE1 PHX ; FADE OUT LIGNE Acc
PHY
LDY #$0000
FAD0 ASL
TAX
LDA TABLE,X
CLC
ADC #$2000
STA FAD5+1
STA FAD8+1
STA FAD6+1
STA FAD9+1
FAD4 LDX #$009F
FAD5 LDAL $E15E80,X
BIT #$00F0
BEQ FAD6
SEC
SBC #$0010
FAD8 STAL $E15E80,X
FAD6 LDAL $E15E80,X
BIT #$000F
BEQ FAD7
SEC
SBC #$0001
FAD9 STAL $E15E80,X
FAD7 DEX
BPL FAD5
DEY
BPL FAD4
PLY
PLX
RTS
FADELINE8 PHX ; FADE LINE Acc
PHY
ASL
TAX
LDA TABLE,X
CLC
ADC #$2000
STA FAD10+1
STA FAD12+1
STA FAD13+1
LDX #$009F
FAD10 LDAL $E12000,X
AND #$00FF
TAY
LDA TABLE2,Y
AND #$00FF
STA FAD11+1
FAD12 LDAL $E12000,X
AND #$FF00
FAD11 ORA #$0000
FAD13 STAL $E12000,X
DEX
BPL FAD10
PLY
PLX
RTS
TRAC1 PHA
PHX
PHY
LDA TRACFLAG
BEQ TRAC10
STZ TRACFLAG
BRA TRAC11
TRAC10 STZ LIFLAG
JSR TRACELI ; NETTOYAGE
DEC COOR1Y
DEC COOR1Y
INC COOR2Y
INC COOR2Y
INC LIFLAG
JSR TRACELI ; TRACE
INC TRACFLAG
TRAC11 PLY
PLX
PLA
RTS
TRAC2 PHA
PHX
PHY
LDA TRACFLAG
BEQ TRAC20
STZ TRACFLAG
BRA TRAC22
TRAC20 STZ LIFLAG
JSR TRACELI ; NETTOYAGE
INC COOR1X
INC COOR1X
INC COOR1X
INC COOR1X
INC COOR2Y
INC COOR2Y
INC LIFLAG
JSR TRACELI ; TRACE
INC TRACFLAG
TRAC22 PLY
PLX
PLA
RTS
TRAC3 PHA
PHX
PHY
LDA TRACFLAG
BEQ TRAC30
STZ TRACFLAG
BRA TRAC33
TRAC30 STZ LIFLAG
JSR TRACELI ; NETTOYAGE
INC COOR1X
INC COOR1X
INC COOR1X
INC COOR1X
DEC COOR2X
DEC COOR2X
DEC COOR2X
DEC COOR2X
INC LIFLAG
JSR TRACELI ; TRACE
INC TRACFLAG
TRAC33 PLY
PLX
PLA
RTS
TRAC4 PHA
PHX
PHY
LDA TRACFLAG
BEQ TRAC40
STZ TRACFLAG
BRA TRAC44
TRAC40 STZ LIFLAG
JSR TRACELI ; NETTOYAGE
INC COOR1Y
INC COOR1Y
DEC COOR2X
DEC COOR2X
DEC COOR2X
DEC COOR2X
INC LIFLAG
JSR TRACELI ; TRACE
INC TRACFLAG
TRAC44 PLY
PLX
PLA
RTS
TRAC5 PHA
PHX
PHY
LDA TRACFLAG
BEQ TRAC50
STZ TRACFLAG
BRA TRAC55
TRAC50 STZ LIFLAG
JSR TRACELI ; NETTOYAGE
LDA COOR1Y
CMP #$00C1
BEQ TRAC51
INC COOR1Y
INC COOR1Y
TRAC51 DEC COOR2Y
DEC COOR2Y
INC LIFLAG
JSR TRACELI ; TRACE
INC TRACFLAG
TRAC55 PLY
PLX
PLA
RTS
TRAC6 PHA
PHX
PHY
LDA TRACFLAG
BEQ TRAC60
STZ TRACFLAG
BRA TRAC66
TRAC60 STZ LIFLAG
JSR TRACELI ; NETTOYAGE
DEC COOR1X
DEC COOR1X
DEC COOR1X
DEC COOR1X
DEC COOR2Y
DEC COOR2Y
INC LIFLAG
JSR TRACELI ; TRACE
INC TRACFLAG
TRAC66 PLY
PLX
PLA
RTS
TRACEND PHX
PHY
STZ LIFLAG
JSR TRACELI ; NETTOYAGE
INC LIFLAG
PLY
PLX
RTS
TRACELI LDA COOR1X ; TRACE LES LIGNES DU CADRE
STA LIX1
LDA COOR1Y
STA LIY1
LDA #$00A0
STA LIX0
LDA #$0064
STA LIY0
JSR LIGNE
LDA COOR2X
STA LIX1
LDA COOR2Y
STA LIY1
LDA #$00A0
STA LIX0
LDA #$0064
STA LIY0
JSR LIGNE
RTS
TRACFLAG HEX 0000
COOR1X HEX 0000
COOR1Y HEX 0000
COOR2X HEX 0000
COOR2Y HEX 0000
Reference in New Issue View Git Blame Copy Permalink