mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-30 18:31:21 +00:00
1940 lines
53 KiB
ArmAsm
1940 lines
53 KiB
ArmAsm
|
|
*******************************************************************************
|
|
******************************** INITS **************************************
|
|
*******************************************************************************
|
|
|
|
lda #pMAIN
|
|
ldx ptrUNPACK+1
|
|
jsr loadFILE
|
|
bcc bip
|
|
brl initOFF
|
|
|
|
bip lda ptrECRAN+1
|
|
jsr unPACK
|
|
|
|
*--- Look for preference file
|
|
|
|
lda #$6038
|
|
sta loadERR+3
|
|
|
|
lda #pPREF
|
|
ldx ptrUNPACK+1
|
|
jsr loadFILE
|
|
bcc bip30
|
|
brl bip40
|
|
|
|
bip30 lda ptrUNPACK
|
|
sta Debut
|
|
lda ptrUNPACK+2
|
|
sta Debut+2
|
|
|
|
ldy #0 ; Select
|
|
lda [Debut],y
|
|
sta ACTION
|
|
and #$7f
|
|
sta ACTION+2
|
|
iny ; Left
|
|
iny
|
|
lda [Debut],y
|
|
sta ACTION+4
|
|
and #$7f
|
|
sta ACTION+6
|
|
iny ; Right
|
|
iny
|
|
lda [Debut],y
|
|
sta ACTION+8
|
|
and #$7f
|
|
sta ACTION+10
|
|
iny ; Up
|
|
iny
|
|
lda [Debut],y
|
|
sta ACTION+12
|
|
and #$7f
|
|
sta ACTION+14
|
|
iny ; Down
|
|
iny
|
|
lda [Debut],y
|
|
sta ACTION+16
|
|
and #$7f
|
|
sta ACTION+18
|
|
|
|
ldy #14 ; Level
|
|
lda [Debut],y
|
|
sta LEVEL
|
|
sta level
|
|
iny ; Life
|
|
iny
|
|
lda [Debut],y
|
|
sta life
|
|
iny ; Joker
|
|
iny
|
|
lda [Debut],y
|
|
sta joker
|
|
|
|
ldx LEVEL
|
|
lda #0
|
|
]lp cpx #0
|
|
beq bip31
|
|
clc
|
|
adc #8
|
|
dex
|
|
bpl ]lp
|
|
lda #0
|
|
bip31 clc
|
|
adc #PASSWRD
|
|
sta bip32+1
|
|
|
|
ldx #0
|
|
bip32 lda PASSWRD,x
|
|
sec
|
|
sbc #$0300
|
|
sta SAVESBU,x
|
|
inx
|
|
inx
|
|
cpx #8
|
|
bne bip32
|
|
|
|
*--- Look for construction kit mode
|
|
|
|
bip40 lda #pDATAS2
|
|
ldx ptrUNPACK+1
|
|
jsr loadFILE
|
|
bcs bip20
|
|
|
|
lda #$eaea
|
|
sta loadERR+3
|
|
lda #1
|
|
sta okDATAS2
|
|
bra bip21
|
|
|
|
bip20 lda #$eaea
|
|
sta loadERR+3
|
|
stz okDATAS2
|
|
|
|
*---
|
|
|
|
bip21 lda #pDOCU
|
|
ldx ptrUNPACK+1
|
|
jsr loadFILE
|
|
bcc bip1
|
|
brl initOFF
|
|
|
|
bip1 lda ptrBOUGE+1
|
|
jsr unPACK
|
|
|
|
ldal $e102e9
|
|
cmp #$0202
|
|
beq bip11
|
|
pha
|
|
and #$ff00
|
|
cmp #$0200
|
|
beq bip10
|
|
pla
|
|
and #$00ff
|
|
cmp #$0002
|
|
beq bip11
|
|
|
|
lda #pDOCUS
|
|
bra bip12
|
|
|
|
bip10 pla
|
|
bip11 lda #pDOCFR
|
|
|
|
bip12 ldx ptrNIV+1
|
|
jsr loadFILE
|
|
bcc bip2
|
|
brl initOFF
|
|
|
|
bip2 lda ptrNIV
|
|
sta AFTTBI
|
|
sta AFTDEB0+1
|
|
sta AFTDEB3+1
|
|
|
|
lda #pSPRITE
|
|
ldx ptrUNPACK+1
|
|
jsr loadFILE
|
|
bcc bip3
|
|
brl initOFF
|
|
|
|
bip3 lda ptrDATAS+1
|
|
jsr unPACK
|
|
|
|
*---
|
|
LDA #$0000
|
|
STA POSX
|
|
STA POSY
|
|
STA A1 ; INIT SOURIS
|
|
STA AP
|
|
JSR SAUV ; SAUVEGARDE DECOR
|
|
JSR DESS
|
|
|
|
LDA #$0001
|
|
JMP PICT ; AFFICHE L'IMAGE MAIN
|
|
|
|
okDATAS2 ds 2
|
|
okDATAS3 ds 2
|
|
|
|
*-------------------------- Message
|
|
|
|
hex 0d0d
|
|
asc 'Is it possible to create a game without any easter eggs ?'
|
|
asc ':-)'
|
|
hex 0d0d
|
|
|
|
*****************************************************************************
|
|
**************************** 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 Ligne,X
|
|
CLC
|
|
SOURIS2 ADC #$0000 ; CALCUL DE A1 (160*POSY+POSX)
|
|
STA A1
|
|
JSR TRACE ; ON DESSINE LE POINTEUR
|
|
|
|
*****
|
|
|
|
SECR 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
|
|
JMP BUMPDEF ; AUCUN BOUTON DETECTE : TRAITEMENT PAR DEFAUT
|
|
|
|
|
|
*******************************************************************************
|
|
*********************** TRAITEMENT DES BOUTONS ******************************
|
|
*******************************************************************************
|
|
|
|
BORD4 LDX SECR2+1 ; NUMERO DU BUMPER (*2)
|
|
LDA #BORD44
|
|
STA BUMPER5+1 ; ADRESSE D'EXECUTION
|
|
JMP BUMPER
|
|
BORD44 JMP SOURIS1 ; ON SORT SANS LIRE LA SOURIS
|
|
|
|
BORD5 LDA ECRAN
|
|
CMP #$0009 ; ON EST SUR L'ECRAN LINE, ON NE CHANGE RIEN
|
|
BEQ BORD55
|
|
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
|
|
|
|
*********** TINIES MAIN
|
|
|
|
ECR0100 LDX SECR2+1 ; MAIN : DOCUMENTATION
|
|
LDA #ECR01000
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR01000 LDA #$0002 ; IMAGE DOCU
|
|
JMP PICT
|
|
|
|
ECR0101 LDX SECR2+1 ; MAIN : EXIT
|
|
LDA #ECR01010
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR01010 lda #1
|
|
jsr nowWAIT
|
|
jsr fadeOUT
|
|
brl initOFF ; ON QUIT
|
|
|
|
ECR0102 LDX SECR2+1 ; MAIN : PLAY
|
|
LDA #ECR01020
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR01020 lda LEVEL ; TRANSFERT DE LEVEL ET DES TOUCHES
|
|
sta level
|
|
ldx #0
|
|
txy
|
|
]lp lda ACTION,x
|
|
sta keyPREF,y
|
|
inx
|
|
inx
|
|
inx
|
|
inx
|
|
iny
|
|
iny
|
|
cpy #10
|
|
bne ]lp
|
|
|
|
jsr saveFILE
|
|
|
|
LDA okDATAS2 ; DETECTION DU DEUXIEME JEU DE TABLEAU
|
|
BEQ ECR01021
|
|
LDA #$0003
|
|
JMP PICT3 ; SELECTION DU JEU
|
|
ECR01021 lda #1
|
|
jsr nowWAIT
|
|
jsr fadeOUT
|
|
brl entryGAME ; SAUT AU JEU
|
|
|
|
ECR0103 LDA #ECR01030 ; MAIN : SURFACE SAISIE CODE
|
|
STA SURFACE5+1
|
|
JMP SURFACE
|
|
ECR01030 JSR DESS1 ; SAISIE DU CODE
|
|
JSR SAVESAI
|
|
JSR ECR0110 ; REAFFICHAGE
|
|
JSR SAUV
|
|
JMP SOURIS
|
|
|
|
ECR0104 LDA #ECR01040 ; MAIN : SURFACE SAISIE HAUT
|
|
STA SURFACE5+1
|
|
JMP SURFACE
|
|
ECR01040 JSR DESS1 ; SAISIE HAUT
|
|
STZ HAUT
|
|
LDX #$0CFC
|
|
JSR DIRECT
|
|
STA HAUT ; VALEUR CLAVIER
|
|
AND #$007F
|
|
STA HAUT+2 ; VALEUR ASCII
|
|
JSR ECR0110 ; AFFICHAGE
|
|
JSR SAUV
|
|
JMP SOURIS
|
|
|
|
ECR0105 LDA #ECR01050 ; MAIN : SURFACE SAISIE BAS
|
|
STA SURFACE5+1
|
|
JMP SURFACE
|
|
ECR01050 JSR DESS1 ; SAISIE BAS
|
|
STZ BAS
|
|
LDX #$223C
|
|
JSR DIRECT
|
|
STA BAS ; VALEUR CLAVIER
|
|
AND #$007F
|
|
STA BAS+2 ; VALEUR ASCII
|
|
JSR ECR0110 ; AFFICHAGE
|
|
JSR SAUV
|
|
JMP SOURIS
|
|
|
|
ECR0106 LDA #ECR01060 ; MAIN : SURFACE SAISIE GAUCHE
|
|
STA SURFACE5+1
|
|
JMP SURFACE
|
|
ECR01060 JSR DESS1 ; SAISIE GAUCHE
|
|
STZ GAUCHE
|
|
LDX #$1792
|
|
JSR DIRECT
|
|
STA GAUCHE ; VALEUR CLAVIER
|
|
AND #$007F
|
|
STA GAUCHE+2 ; VALEUR ASCII
|
|
JSR ECR0110 ; AFFICHAGE
|
|
JSR SAUV
|
|
JMP SOURIS
|
|
|
|
ECR0107 LDA #ECR01070 ; MAIN : SURFACE SAISIE DROITE
|
|
STA SURFACE5+1
|
|
JMP SURFACE
|
|
ECR01070 JSR DESS1 ; SAISIE DROITE
|
|
STZ DROITE
|
|
LDX #$17A6
|
|
JSR DIRECT
|
|
STA DROITE ; VALEUR CLAVIER
|
|
AND #$007F
|
|
STA DROITE+2 ; VALEUR ASCII
|
|
JSR ECR0110 ; AFFICHAGE
|
|
JSR SAUV
|
|
JMP SOURIS
|
|
|
|
ECR0108 LDA #ECR01080 ; MAIN : SURFACE SAISIE ACTION
|
|
STA SURFACE5+1
|
|
JMP SURFACE
|
|
ECR01080 JSR DESS1 ; SAISIE ACTION
|
|
STZ ACTION
|
|
LDX #$179C
|
|
JSR DIRECT
|
|
STA ACTION ; VALEUR CLAVIER
|
|
AND #$007F
|
|
STA ACTION+2 ; VALEUR ASCII
|
|
JSR ECR0110 ; AFFICHAGE
|
|
JSR SAUV
|
|
JMP SOURIS
|
|
|
|
ECR0109 LDA #ECR01090 ; MAIN : SURFACE TIPS
|
|
STA SURFACE5+1
|
|
JMP SURFACE
|
|
ECR01090 NOP
|
|
LDA TIPSFLAG ; PLUS COURT...
|
|
BNE ECR01091
|
|
INC TIPSFLAG
|
|
ECR01091 JMP SOURIS
|
|
|
|
TIPSFLAG HEX 0000
|
|
|
|
ECR0110 JSR SAVESAF ; AFFICHAGE ECRAN MAIN
|
|
LDA #$2CFC ; UP
|
|
STA OPENADR
|
|
LDA HAUT+2
|
|
JSR OPENCAR
|
|
LDA #$379C ; ACTION
|
|
STA OPENADR
|
|
LDA ACTION+2
|
|
JSR OPENCAR
|
|
LDA #$423C ; DOWN
|
|
STA OPENADR
|
|
LDA BAS+2
|
|
JSR OPENCAR
|
|
LDA #$3792 ; <-
|
|
STA OPENADR
|
|
LDA GAUCHE+2
|
|
JSR OPENCAR
|
|
LDA #$37A6 ; ->
|
|
STA OPENADR
|
|
LDA DROITE+2
|
|
JSR OPENCAR
|
|
|
|
LDA LEVEL ; AFFICHAGE LEVEL
|
|
STA VALH
|
|
LDA #$2C10
|
|
STA ADRE
|
|
JSR TRANS ; AFFICHAGE RHS
|
|
RTS
|
|
|
|
LEVEL HEX 0000 ; N[ DU NIVEAU (1-110)
|
|
ACTION HEX B000,3000 ; CLAVIER,ASCII
|
|
GAUCHE HEX B400,3400 ; TOUCHE DE DIRECTION
|
|
DROITE HEX B600,3600
|
|
HAUT HEX B800,3800
|
|
BAS HEX B200,3200
|
|
|
|
DIRECT NOP ; SAISIE DIRECTION
|
|
LDY #$0004
|
|
DIREC LDA #$0000
|
|
STAL $012000,X
|
|
STAL $012002,X ; NETTOY LA SURFACE
|
|
TXA
|
|
CLC
|
|
ADC #$00A0
|
|
TAX
|
|
DEY
|
|
BPL DIREC
|
|
|
|
LDA #$9999 ; AFFICHAGE TIRET ROUGE
|
|
STAL $012000,X
|
|
LDA #$9099
|
|
STAL $012002,X
|
|
|
|
DIRECKB LDAL $00BFFF
|
|
BPL DIRECKB
|
|
STAL $00C010 ; BIT $C010
|
|
XBA
|
|
AND #$00FF
|
|
CMP #$00A6
|
|
BEQ DIRECKB ; ON ELIMINE &
|
|
CMP #$00A0
|
|
BMI DIRECKB
|
|
CMP #$00DB
|
|
BMI DIRECKB1
|
|
CMP #$00E1
|
|
BMI DIRECKB
|
|
CMP #$00FB
|
|
BPL DIRECKB
|
|
DIRECKB1 CMP HAUT ; ON ACCEPTE LE CARACTERE
|
|
BEQ DIRECKB
|
|
CMP BAS
|
|
BEQ DIRECKB
|
|
CMP GAUCHE ; ON VERIFIE QU'ON NE DOUBLONNE PAS
|
|
BEQ DIRECKB
|
|
CMP DROITE
|
|
BEQ DIRECKB
|
|
CMP ACTION
|
|
BEQ DIRECKB
|
|
TAY
|
|
LDA #$0000 ; NETTOYAGE TIRET ROUGE
|
|
STAL $012000,X
|
|
STAL $012002,X
|
|
TYA
|
|
RTS
|
|
|
|
*********** TINIES DOCUMENTATION
|
|
|
|
ECR0200 LDX SECR2+1 ; DOCU : <-
|
|
LDA #ECR02000
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR02000 LDA AFTIND ; PAGE PRECEDENTE
|
|
BEQ ECR02001
|
|
DEC AFTIND
|
|
STZ AFTFL4
|
|
JSR AFFTEXT
|
|
ECR02001 JMP SOURIS1
|
|
|
|
ECR0201 LDX SECR2+1 ; DOCU : ->
|
|
LDA #ECR02010
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR02010 LDA AFTFL4 ; PAGE SUIVANTE
|
|
BNE ECR02011 ; ON EST AU BOUT DU FICHIER
|
|
INC AFTIND ; INDEX
|
|
JSR AFFTEXT
|
|
ECR02011 JMP SOURIS1
|
|
|
|
ECR0202 LDX SECR2+1 ; DOCU : o
|
|
LDA #ECR02020
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR02020 LDA AFTIND ; INDICE DE PAGE
|
|
BEQ ECR02021
|
|
STZ AFTFL4 ; SOMMAIRE
|
|
STZ AFTIND ; PREMIERE PAGE
|
|
STZ AFTCONT
|
|
JSR AFFTEXT
|
|
ECR02021 JMP SOURIS1
|
|
|
|
ECR0203 LDX SECR2+1 ; DOCU : EXIT
|
|
LDA #ECR02030
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR02030 STZ AFTCONT ; ECRAN MAIN
|
|
LDA #$0001
|
|
JMP PICT
|
|
|
|
*********** TINIES SELECT
|
|
|
|
ECR0300 LDX SECR2+1 ; SELECT : CLASSIC
|
|
LDA #ECR03000
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR03000 lda #1
|
|
jsr nowWAIT
|
|
stz okDATAS3
|
|
jsr fadeOUT
|
|
BRL entryGAME
|
|
|
|
ECR0301 LDX SECR2+1 ; SELECT : EXTEND
|
|
LDA #ECR03010
|
|
STA BUMPER5+1
|
|
JMP BUMPER
|
|
ECR03010 lda #1
|
|
jsr nowWAIT
|
|
lda #1
|
|
sta okDATAS3
|
|
jsr fadeOUT
|
|
BRL entryGAME
|
|
|
|
***************************************************************************
|
|
****************************** 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
|
|
|
|
**********************************************
|
|
|
|
HEX 0A00 ; MAIN NB DE BOUTONS DANS ECRAN1
|
|
ECR01TAB HEX B600,3F01,8900,C700 ; DOCU TABLEAU DES BOUTONS POUR ECRAN1
|
|
HEX 0000,8900,8900,C700 ; EXIT X0,X1 Y0,Y1
|
|
HEX 4E00,F200,5D00,8500 ; PLAY
|
|
HEX 2C00,6300,3400,3D00 ; CODE
|
|
HEX F700,0201,1200,1B00 ; HAUT
|
|
HEX F700,0201,3400,3D00 ; BAS
|
|
HEX E300,ED00,2300,2C00 ; GAUCHE
|
|
HEX 0B01,1301,2300,2C00 ; DROITE
|
|
HEX F700,0201,2300,2C00 ; ACTION
|
|
HEX 1700,1800,1E00,1F00 ; TIPS
|
|
|
|
ECR01DAT HEX 0600,1800,D87E,1D00 ; LONGUEUR (*4),HAUTEUR,@ ECRAN,@ SPRITE
|
|
HEX 0E00,2400,1D7A,0000 ; EXIT
|
|
HEX 0100,0100,405D,9B00 ; PLAY
|
|
|
|
HEX 0400 ; DOCU
|
|
ECR02TAB HEX 6C00,7800,B600,BF00 ; <-
|
|
HEX 9000,9C00,B600,BF00 ; ->
|
|
HEX 8100,8700,B800,BD00 ; POINT
|
|
HEX 0601,3801,B300,C100 ; EXIT
|
|
|
|
ECR02DAT HEX 0300,0900,F691,2A00 ; LONGUEUR (*4),HAUTEUR,@ ECRAN,@ SPRITE
|
|
HEX 0300,0900,0892,6A06
|
|
HEX 0200,0500,4093,AA0C
|
|
HEX 0800,0700,E892,5D10
|
|
|
|
HEX 0200 ; SELECT
|
|
ECR03TAB HEX 5D00,9E00,6500,7300 ; CLASSIC X0,X1 Y0,Y1
|
|
HEX A200,E300,6500,7300 ; EXTENT
|
|
|
|
ECR03DAT HEX 0E00,0700,D161,3105 ; LONGUEUR (*4),HAUTEUR,@ ECRAN,@ SPRITE
|
|
HEX 0C00,0700,F761,3100
|
|
|
|
****************
|
|
|
|
ECRTAB DA ECR01TAB,ECR02TAB,ECR03TAB ; ADRESSES DES TABLEAUX
|
|
|
|
ECRDAT DA ECR01DAT,ECR02DAT,ECR03DAT ; ADRESSE DES DONNEES BUMPERS
|
|
|
|
ECRDESA DA ECRDES1,ECRDES2,ECRDES3 ; ADRESSE POUR LES DESTINATIONS
|
|
|
|
ECRDES1 DA ECR0100,ECR0101,ECR0102,ECR0103,ECR0104 ; MAIN : ADRESSES DES DESTINATIONS
|
|
DA ECR0105,ECR0106,ECR0107,ECR0108,ECR0109
|
|
ECRDES2 DA ECR0200,ECR0201,ECR0202,ECR0203 ; DOCUMENTATION
|
|
ECRDES3 DA ECR0300,ECR0301 ; SELECT
|
|
|
|
********************* 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 0000 ; ECRAN 1,2,3...
|
|
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
|
|
|
|
********************
|
|
|
|
SEXIT LDY #$FFFF
|
|
RTS
|
|
|
|
SLECT LDAL $00C026 ; $C027 LECTURE SOURIS
|
|
BPL SEXIT
|
|
AND #$0200 ; BUG
|
|
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 $012000,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 $012000,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
|
|
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 $012000,X
|
|
TRACE2 AND $A0A0,Y ; ET AVEC LE MASQUE
|
|
TRACE3 ORA $A0A0,Y ; OU AVEC LE MOTIF
|
|
TRACE4 STAL $012000,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
|
|
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
|
|
SECR14 LDA\ $0000,X ; LONGUEUR
|
|
DEC
|
|
ASL
|
|
STA AFFSPR3+1
|
|
INX
|
|
INX
|
|
SECR15 LDA\ $0000,X ; HAUTEUR
|
|
DEC
|
|
STA AFFSPR2+1
|
|
INX
|
|
INX
|
|
SECR16 LDA\ $0000,X ; @ ECRAN
|
|
STA AFFSPR5+1
|
|
INX
|
|
INX
|
|
lda ptrDATAS
|
|
sta AFFSPR4+1
|
|
lda ptrDATAS+1
|
|
sta AFFSPR4+2
|
|
SECR17 LDA\ $0000,X ; @ SPRITE
|
|
clc
|
|
adc AFFSPR4+1
|
|
STA AFFSPR4+1
|
|
LDA AFFSPRF ; FLAG DE AFFSPR
|
|
BNE AFFSPR2 ; ON DESSINE LE SPRITE RELEVE
|
|
LDA AFFSPR4+1
|
|
CLC ; SPRITE ENFONCE
|
|
ADC #$1720 ; 37 LIGNES PLUS BAS
|
|
STA AFFSPR4+1
|
|
AFFSPR2 LDY #$0000 ; HAUTEUR-1
|
|
AFFSPR3 LDX #$0000 ; NOMBRE DE *4-2
|
|
AFFSPR4 LDAL $060000,X ; ADRESSE SPRITE (BANC 06)
|
|
AFFSPR5 STAL $012000,X ; ADRESSE ECRAN
|
|
DEX
|
|
DEX
|
|
BPL AFFSPR4 ; RECOPIE 1 LIGNE
|
|
LDA AFFSPR4+1
|
|
CLC ; LIGNE SUIVANTE SPRITE
|
|
ADC #$00A0
|
|
STA AFFSPR4+1
|
|
LDA AFFSPR5+1
|
|
CLC ; LIGNE SUIVANTE ECRAN
|
|
ADC #$00A0
|
|
STA AFFSPR5+1
|
|
DEY
|
|
BPL AFFSPR3
|
|
STZ AFFSPRF
|
|
RTS
|
|
AFFSPRF HEX 0000 ; FLAG RELEVE/ENFONCE
|
|
|
|
*-------------------------- Message
|
|
|
|
hex 0d0d
|
|
asc 'Have you ever dreamed of playing the level you prefer ?'
|
|
hex 0d0d
|
|
|
|
***************** AFFICHE DES CHIFFRES SUR 3 COLONNES ****************************
|
|
|
|
TRANS LDA VALH ; ON CONVERTIT L'HEXA EN DECIMAL
|
|
BNE TRANS1
|
|
LDA #$000A ; LE CHIFFRE EN NOIR
|
|
STA VAL2
|
|
STA VAL3
|
|
stz VAL1
|
|
BRA TRANS6 ; ON AFFICHE LE NOIR
|
|
TRANS1 LDX #$0000
|
|
TRANS2 LDA VALH ; VALEUR EN HEXA
|
|
CMP #$0064 ; 100
|
|
BMI TRANS3
|
|
SEC
|
|
SBC #$0064
|
|
STA VALH
|
|
INX
|
|
BRA TRANS2
|
|
TRANS3 STX VAL3 ; CENTAINE
|
|
LDX #$0000
|
|
TRANS4 LDA VALH ; VALEUR EN HEXA
|
|
CMP #$000A ; 10
|
|
BMI TRANS5
|
|
SEC
|
|
SBC #$000A ; 10
|
|
STA VALH
|
|
INX
|
|
BRA TRANS4
|
|
TRANS5 STX VAL2 ; DIZAINE
|
|
STA VAL1 ; UNITES
|
|
|
|
LDA VAL3 ; CENTAINES
|
|
BNE TRANS6
|
|
LDY #$000A
|
|
STY VAL3 ; SI LE CHIFFRE DES CENTAINES EST 0, ON LE NOIRCI
|
|
LDA VAL2 ; DIZAINE
|
|
BNE TRANS6
|
|
STY VAL2 ; SI CENTAINE ET DIZAINE = ZERO, ON NOIRCIT LES 2
|
|
|
|
TRANS6 LDA ADRE ; ON AFFICHE LES 3 CHIFFRES
|
|
STA AFTCA+1 ; ADRESSE ECRAN
|
|
LDA VAL3
|
|
JSR CHIF ; CENTAINES
|
|
LDA ADRE
|
|
CLC
|
|
ADC #$0003
|
|
STA AFTCA+1 ; ADRESSE ECRAN
|
|
LDA VAL2
|
|
JSR CHIF ; DIZAINES
|
|
LDA ADRE
|
|
CLC
|
|
ADC #$0006
|
|
STA AFTCA+1 ; ADRESSE ECRAN
|
|
LDA VAL1
|
|
JSR CHIF ; UNITES
|
|
RTS
|
|
|
|
*********************
|
|
|
|
CHIF ASL ; DANS ACC LA VALEUR DECIMALE (0-9)
|
|
ASL
|
|
STA CHIF1+1
|
|
ASL
|
|
ASL ; *16
|
|
CLC
|
|
CHIF1 ADC #$0000 ; + *4
|
|
CLC
|
|
ADC #$0012 ; 10*2
|
|
TAX
|
|
LDY #$0012 ; 10*2
|
|
CHIF2 LDA AFBT0,X
|
|
STA AFBTT,Y
|
|
DEX
|
|
DEX ; RECOPIE DANS LE BUFFER
|
|
DEY
|
|
DEY
|
|
BPL CHIF2
|
|
|
|
*** AFFICHE CARACTERE ***
|
|
|
|
AFTCA LDA #$0000 ; ADRESSE ECRAN
|
|
STA AFTCA2+1
|
|
INC
|
|
INC
|
|
STA AFTCA4+1
|
|
LDX #$0000 ; 1 ere COLONNE
|
|
AFTCA1 LDA AFBTT,X
|
|
AFTCA2 STAL $012000
|
|
LDA AFTCA2+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA AFTCA2+1 ; LIGNE SUIVANTE
|
|
INX
|
|
INX
|
|
CPX #$000A
|
|
BNE AFTCA1
|
|
LDX #$0000 ; 2 eme COLONNE
|
|
AFTCA3 LDA AFBTT1,X
|
|
AFTCA4 STAL $012000
|
|
LDA AFTCA4+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA AFTCA4+1 ; LIGNE SUIVANTE
|
|
INX
|
|
INX
|
|
CPX #$000A
|
|
BNE AFTCA3
|
|
RTS
|
|
|
|
AFBTT HEX 00000000000000000000
|
|
AFBTT1 HEX 00000000000000000000
|
|
VALH HEX 0000 ; VALEUR HEXA
|
|
VAL1 HEX 0000
|
|
VAL2 HEX 0000 ; VALEUR DECIMALE
|
|
VAL3 HEX 0000
|
|
VAL4 HEX 0000
|
|
VALFLAG HEX 0000 ; SI !=0 ALORS 000 EN NOIR
|
|
ADRE HEX 0000 ; ADRESSE ECRAN
|
|
AFBT0 HEX 00FF0F000F000F0000FFF0000F000F000F00F000 ; 0
|
|
HEX 000F00FF000F000F0FFF0000000000000000FF00 ; 1
|
|
HEX 0FFF000000FF0F000FFFF0000F00F0000000FF00 ; 2
|
|
HEX 0FFF0000000F00000FFFF0000F00F0000F00F000 ; 3
|
|
HEX 0F000F000F000FFF00000000F000F000FF00F000 ; 4
|
|
HEX 0FFF0F000FFF00000FFFFF000000F0000F00F000 ; 5
|
|
HEX 00FF0F000FFF0F0000FFFF000000F0000F00F000 ; 6
|
|
HEX 0FFF0000000F00F000F0FF00F000000000000000 ; 7
|
|
HEX 00FF0F0000FF0F0000FFF0000F00F0000F00F000 ; 8
|
|
HEX 00FF0F0000FF00000FFFF0000F00FF000F00F000 ; 9
|
|
HEX 0000000000000000000000000000000000000000 ; NOIR
|
|
|
|
*-------------------------- Message
|
|
|
|
hex 0d0d
|
|
asc 'Let'27's just hope',0d
|
|
asc ':-)'
|
|
hex 0d0d
|
|
|
|
******************** TRAITEMENT ET AFFICHAGE ECRANS *********************
|
|
|
|
PICT PHA ; DESSINE LE DECOR SUR LE POINTEUR
|
|
JSR DESS1
|
|
|
|
PICT00 LDA ECRAN
|
|
BEQ PICT01
|
|
jsr fadeOUT
|
|
PICT01 PLA
|
|
STA ECRAN ; DANS ACC LE NUMERO DE L'ECRAN
|
|
dec
|
|
asl
|
|
tax
|
|
lda ECRADTAB,x
|
|
tax
|
|
|
|
lda ptrECRAN+1,x ; et mettre ces 3 lignes
|
|
ldy #0
|
|
jsr fadeIN
|
|
|
|
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 ECRMAIN,ECRDOCU ; NOM DES ECRANS POUR INIT
|
|
ECRADTAB dw 0,4
|
|
|
|
CLNFLG LDX #$0062 ; ON MET TOUS LES FLAG DE BUMPER A 0
|
|
LDA #$0000
|
|
CLNFLG1 STA FLAGTAB,X
|
|
DEX
|
|
DEX
|
|
BPL CLNFLG1
|
|
RTS
|
|
|
|
PICT3 STA ECRAN ; CREATION DE L'IMAGE SELECT
|
|
JSR DESS1
|
|
JSR fadeOUT
|
|
LDA ptrDATAS+1
|
|
STA PICT31+2
|
|
* CLC
|
|
* ADC #$007E
|
|
* STA Fin3+2
|
|
* STA Fin5+2 ; INIT FADE IN
|
|
* STA Fin7+2
|
|
LDA PICT31+1
|
|
AND #$FF00
|
|
ORA #$004E
|
|
STA PICT31+1
|
|
LDY #$001A
|
|
PICT30 LDX #$0048
|
|
PICT31 LDAL $060000,X
|
|
PICT32 STAL $015B8B,X ; IMAGE
|
|
DEX
|
|
DEX
|
|
BPL PICT31
|
|
LDA PICT31+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA PICT31+1 ; LIGNE SUIVANTE
|
|
LDA PICT32+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA PICT32+1
|
|
DEY
|
|
BPL PICT30
|
|
LDA #$5B8B
|
|
STA PICT32+1 ; REMET LA VALEUR
|
|
lda ptrDATAS+1
|
|
ldy #-1
|
|
jsr fadeIN
|
|
* JSR Fin0 ; FADEIN
|
|
JSR CLNFLG ; LES FLAGS DE BUMPER A ZERO
|
|
STZ BMPFLG ; LES FLAGS A ZERO
|
|
JSR SAUV
|
|
JMP SOURIS1
|
|
|
|
*********** TRAITEMENT INITIAL A L'AFFICHAGE
|
|
|
|
ECRMAIN JSR ECR0110 ; ECRAN MAIN
|
|
JSR SAUV
|
|
JMP SOURIS1
|
|
|
|
ECRDOCU STZ AFTCONT ; ECRAN DOCUMENTATION
|
|
JSR AFFTEXT ; INITIALISATION COMPLETE
|
|
JSR SAUV
|
|
JMP SOURIS1
|
|
|
|
*********************************************************************
|
|
|
|
******** SAISIE *******************
|
|
|
|
SAVESAI LDY #$0006 ; NETTOYAGE SURFACE
|
|
SAVESAI1 LDA #$0000
|
|
LDX #$0018
|
|
SAVESAI2 STAL $0141D6,X ; 1 LIGNES
|
|
DEX
|
|
DEX
|
|
BPL SAVESAI2
|
|
LDA SAVESAI2+1
|
|
CLC ; 5 LIGNES A EFFACER
|
|
ADC #$00A0
|
|
STA SAVESAI2+1
|
|
DEY
|
|
BNE SAVESAI1
|
|
LDA #$41D6 ; REMET LA VALEUR
|
|
STA SAVESAI2+1
|
|
|
|
LDX #$0006 ; NETTOYAGE BUFFER ET NOM DE SAUVEGARDE (8 LETTRES)
|
|
LDA #$0000
|
|
SAVESAI3 STA SAVESBU,X
|
|
DEX
|
|
DEX
|
|
BPL SAVESAI3
|
|
|
|
LDA #$9999 ; AFFICHAGE TIRET ROUGE
|
|
STAL $01450C
|
|
LDA #$9099
|
|
STAL $01450E
|
|
|
|
SAVESAI4 LDAL $00BFFF ; ON COMMENCE LA SAISIE : ON ATTEND 1 LETTRE
|
|
BPL SAVESAI4
|
|
STAL $00C010 ; BIT $C010
|
|
XBA
|
|
AND #$00FF
|
|
|
|
CMP #$00FF ; DELETE : ON EFFACE LA LETTRE
|
|
BNE SAVESAI10
|
|
LDA SAVESLS
|
|
BEQ SAVESAI4 ; RIEN A EFFACER
|
|
JSR SAVESGE ; EFFACE 1 LETTRE : DECALAGE DROITE
|
|
JSR SAVESAF ; REAFFICHE LA CHAINE
|
|
DEC SAVESLS
|
|
BRA SAVESAI4
|
|
SAVESAI10 CMP #$00C1 ; MAJUSCULE ?
|
|
BMI SAVESAI4
|
|
CMP #$00DB
|
|
BMI SAVESAI5
|
|
CMP #$00E1 ; MINUSCULE ?
|
|
BMI SAVESAI4
|
|
CMP #$00FB
|
|
BPL SAVESAI4
|
|
SEC
|
|
SBC #$0020
|
|
BRA SAVESAI5 ; CONVERSION MINUSCULE -> MAJUSCULE
|
|
|
|
SAVESAI5 TAY
|
|
JSR SAVESDE ; DECALAGE GAUCHE
|
|
STY SAVESBU+7
|
|
JSR SAVESAF ; AFFICHAGE
|
|
LDA SAVESLS
|
|
INC
|
|
CMP #$0008
|
|
BEQ SAVESAI8 ; ON A SAISIE HUIT LETTRES
|
|
STA SAVESLS
|
|
BRA SAVESAI4
|
|
|
|
SAVESAI8 STZ SAVESLS ; C'EST LA FIN (8 LETTRES SAISIES)
|
|
LDA #$0000 ; EFFACE LE TIRET ROUGE
|
|
STAL $01450C
|
|
STAL $01450E
|
|
LDX #$0006 ; ON VERIFIE LE CODE
|
|
SAVESAI9 LDA SAVESBU,X
|
|
CLC
|
|
ADC #$0300
|
|
STA SAVECRY,X ; ON CRYPTE
|
|
DEX
|
|
DEX
|
|
BPL SAVESAI9
|
|
LDY #$0000
|
|
LDX #$0000
|
|
SAVESAI6 LDA SAVECRY,Y ; ON CHERCHE
|
|
CMP PASSWRD,X
|
|
BNE SAVESAI7
|
|
CPY #$0006
|
|
BEQ SAVESAI11 ; TROUVE
|
|
INY
|
|
INY
|
|
INX
|
|
INX
|
|
BRA SAVESAI6
|
|
SAVESAI7 LDY #$0000
|
|
INX
|
|
INX
|
|
CPX #$0328
|
|
BNE SAVESAI6
|
|
LDA #$0000 ; PAS TROUVE...
|
|
STA LEVEL
|
|
LDX #$0006
|
|
SAVESAI12 LDA SAVEDEF,X ; ON RECOPIE ADJUACES (DEFAULT)
|
|
STA SAVESBU,X
|
|
DEX
|
|
DEX
|
|
BPL SAVESAI12
|
|
RTS
|
|
SAVESAI11 INX
|
|
INX
|
|
TXA
|
|
LSR
|
|
LSR ; /8
|
|
LSR
|
|
dec
|
|
STA LEVEL
|
|
sta level
|
|
stz joker
|
|
stz life
|
|
RTS
|
|
|
|
SAVESDE LDX #$0000 ; DECALAGE 1 CRAN VERS LA GAUCHE
|
|
SAVESDE1 LDA SAVESBU+1,X
|
|
STA SAVESBU,X
|
|
INX
|
|
INX
|
|
CPX #$000A
|
|
BNE SAVESDE1
|
|
RTS
|
|
|
|
SAVESGE LDX #$0006 ; DECALAGE 1 CRAN VERS LA DROITE
|
|
SAVESGE1 LDA SAVESBU,X
|
|
STA SAVESBU+1,X
|
|
DEX
|
|
DEX
|
|
BPL SAVESGE1
|
|
LDA #$0000 ; PLACE UN ZERO AU DEBUT
|
|
STA SAVESBU-1
|
|
RTS
|
|
|
|
SAVESAF LDY #$0000 ; AFFICHAGE SAISIE : 8 CARACTERES
|
|
LDA #$41D7
|
|
STA OPENADR
|
|
SAVESAF1 LDA SAVESBU,Y
|
|
AND #$007F ; PASSAGE 8 bit -> 7 bit
|
|
JSR OPENCAR ; AFFICHE 1 CARAC
|
|
INY
|
|
CPY #$0008
|
|
BNE SAVESAF1
|
|
RTS
|
|
|
|
HEX 0000
|
|
SAVESBU HEX C1,C4,CA,D5,C1,C3,C5,D3,0000 ; ADJUACES PAR DEFAUT
|
|
SAVESLS HEX 0000 ; NB DE LETTRES SAISIES
|
|
SAVEDEF HEX C1C4CAD5C1C3C5D3
|
|
SAVECRY HEX 0000000000000000
|
|
|
|
OPENCAR PHY ; RECOIT DANS ACC LE CARACTERE ET L'AFFICHE (OPENADR)
|
|
AND #$00FF
|
|
CMP #$0020 ; ESPACE -> SP
|
|
BNE OPENCAR8
|
|
LDA #$009E
|
|
OPENCAR8 STA OPENCAR6+1
|
|
LDY #$0063
|
|
OPENCAR5 LDA AFTTBL,Y ; ON CHERCHE LE SPRITE CORESPONDANT
|
|
AND #$00FF
|
|
OPENCAR6 CMP #$00FF
|
|
BEQ OPENCAR7
|
|
DEY
|
|
BPL OPENCAR5
|
|
LDY #$003B ; PAS TROUVE, ON MET UN ESPACE (40)
|
|
OPENCAR7 TYA
|
|
ASL
|
|
TAY
|
|
LDA AFTADR,Y ; ADRESSE DES SPRITES
|
|
STA OPENCAR1+1
|
|
CLC
|
|
ADC #$000A
|
|
STA OPENCAR3+1
|
|
LDA OPENADR ; ADRESSE DESTINATION
|
|
STA OPENCAR2+1
|
|
INC
|
|
INC
|
|
STA OPENCAR4+1
|
|
INC
|
|
STA OPENADR
|
|
LDY #$0000 ; 1 ere COLONNE
|
|
OPENCAR1 LDA $AAAA,Y
|
|
OPENCAR2 STAL $012000
|
|
LDA OPENCAR2+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA OPENCAR2+1 ; LIGNE SUIVANTE
|
|
INY
|
|
INY
|
|
CPY #$000A
|
|
BNE OPENCAR1
|
|
LDY #$0000 ; 2 eme COLONNE
|
|
OPENCAR3 LDA $AAAA,Y
|
|
OPENCAR4 STAL $012000
|
|
LDA OPENCAR4+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA OPENCAR4+1 ; LIGNE SUIVANTE
|
|
INY
|
|
INY
|
|
CPY #$000A
|
|
BNE OPENCAR3
|
|
PLY
|
|
RTS
|
|
|
|
OPENADR HEX 0000 ; ADRESSE ECRAN
|
|
|
|
OBJAFF SEC ; AFFICHAGE OBJET
|
|
SBC #$00F0
|
|
ASL
|
|
TAX
|
|
lda ptrDATAS
|
|
sta OBJAFF1+1
|
|
lda ptrDATAS+1
|
|
sta OBJAFF1+2
|
|
LDA OBJETT,X
|
|
clc
|
|
adc OBJAFF1+1
|
|
STA OBJAFF1+1 ; ADRESSE SPR
|
|
LDA AFTAE
|
|
STA OBJAFF2+1 ; ADRESSE ECR
|
|
LDY #$0017
|
|
OBJAFF0 LDX #$000A
|
|
OBJAFF1 LDAL $060000,X ; ADRESSE SPRITE
|
|
OBJAFF2 STAL $012000,X ; ADRESSE ECRAN
|
|
DEX
|
|
DEX
|
|
BPL OBJAFF1
|
|
LDA OBJAFF1+1 ; LIGNE SUIVANTE
|
|
CLC
|
|
ADC #$00A0
|
|
STA OBJAFF1+1
|
|
LDA OBJAFF2+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA OBJAFF2+1
|
|
DEY
|
|
BPL OBJAFF0
|
|
RTS
|
|
|
|
*-------------------------- Message
|
|
|
|
hex 0d0d
|
|
asc 'No wind, no wave, no woman, then no future'
|
|
hex 0d0d
|
|
|
|
*************************************************
|
|
|
|
OBJETT HEX E12E,6140,E151,0B2F,EF2E,6F40,EF51,FD2E,7D40,FD51
|
|
|
|
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 AFTA,AFTC,AFTE,AFTU,AFTE,AFTE,AFTA,AFTO,AFTBA,AFTRD,AFTFD,AFTFG,AFTSP,AFTNS ; 86-99
|
|
|
|
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
|
|
|
|
AFTTBL HEX 4142434445464748494A4B4C4D4E4F505152535455565758595A ; A-Z
|
|
HEX 30313233343536373839 ; 0-9
|
|
HEX 2B2D2A2F3D5F213F3E3C28293A2E2C ; +-*/=_!?><():.,
|
|
HEX 5B22273B23245E2520 ; o"';#$^% @
|
|
HEX 6162636465666768696A6B6C6D6E6F707172737475767778797A ; a-z
|
|
HEX 888D8E9D8F9089999E94C8C709 ; @\{|}^e^a^oIo-><-TAB
|
|
|
|
PASSWRD ASC "AGJXAFEVGDSLAQDLGUOLDHKQNHBDCUUFRHSWUVHDEQTULDCRBRTFRHPDOFTRAQVD"
|
|
ASC "CRAGSXPSRDWESNIWTDNJVLLLDHNDJRIQVDMETKEDUQPDSXBRLDNGPDP\PUESPDNG"
|
|
ASC "NLFHSDIOBUOFIQDLBXSNPXLLLRGLMDRDOFTRGOAETUIVEPEVCRNYJHHRRHNGCOIQ"
|
|
ASC "NHGDPRL\PHTUAFCHSSOQEQCULDZ\HRMLHHNGOXTNPDP\ESISCRCNSWUPEWHLGDNJ"
|
|
ASC "IQLDDRNFIQTHAVSDMDSWWROGAERRIQSWBDCNBDNDEFLRWKISGUOLIPPRCXBDCXBD"
|
|
ASC "DHCODUOOSLMSUQDHUQHXSFHRLHGDMXRDAQIPCDTHLDUJMDGDPDLVD\SVBUOFRHVH"
|
|
ASC "PRRUUQDHULGXASEUNRNKMLSFPHRXSPIWD\SVDHKQDLUUGDSLOGOUCDUVPHAVAQCK"
|
|
ASC "UUOUDHFHSXBEPLCNRXLDSFAUNRDXORPKCRBHGDLHTUOOTDCVPHAVVDMEX\LRWLRH"
|
|
ASC "SFIXMLNWEXGHRXNHEUUSPOOWMDRLCRNNNXRVHLSSSQOEHRMRPRRWCDRRCKAUGHDD"
|
|
ASC "UQNHPRWVPROQRRMDPUEDPUESSDIOZROQIVOVNXRVHHNGWROGAJOQUSSQLDNGDLVX"
|
|
ASC "NLCNMDSWPLCNRRLOOXTVSSOWKDLDAFCHTHLRRXLDWRRNLDUGGUALUSLDPRLROFTR"
|
|
ASC "RHPDDHTDFHLGUQFRBDDLVHLOPDTLBHEITLTDSDUFPXPLUQPUMDSWEUUSQXAUFHLG"
|
|
ASC "GUIISLDHWKIWUQNLDRWQIQSXUQLLIVOSMXAGDLBX"
|
|
|
|
**************************** AFFICHAGE TEXT **********************************
|
|
|
|
AFFTEXT LDA #$0062 ; LONGUEUR DE LA Ligne
|
|
STA AFTAM1+1 ; 90
|
|
STZ AFTLIG
|
|
STZ AFTCOL
|
|
JSR AFTLC ; EN HAUT A GAUCHE
|
|
STA AFTAE
|
|
JSR AFTNE ; CLEAR SCREEN
|
|
|
|
LDA AFTCONT
|
|
BNE AFTDEB1
|
|
|
|
*** DEBUT ***
|
|
|
|
AFTDEB0 LDA #$0000 ; DEBUT DU TEXTE 040000
|
|
STA AFTDEB3+1
|
|
STA AFTTBI
|
|
STZ AFTCONT
|
|
STZ AFTIND ; PREMIERE PAGE
|
|
STZ AFTFL4 ; FIN DE FICHIER
|
|
BRA AFTDEB3
|
|
|
|
AFTDEB1 LDA AFTIND
|
|
ASL
|
|
TAX ; ON SE MET A LA BONNE PAGE
|
|
LDA AFTTBI,X ; ADRESSE
|
|
STA AFTDEB3+1
|
|
|
|
******************
|
|
|
|
AFTDEB3 lda #0000 ; ADRESSE DE LA PREMIERE LETTRE
|
|
sta AFTDEB4+1
|
|
sta AFTAM+1
|
|
sep #$20
|
|
lda ptrNIV+2
|
|
sta AFTDEB4+3
|
|
sta AFTAM+3
|
|
rep #$20
|
|
|
|
LDY #$0000
|
|
AFTDEB4 LDAL $040000 ; ADRESSE DU MOT
|
|
sec
|
|
sbc #$0303
|
|
CMP #$A4A4 ; FIN DU FICHIER : ]]
|
|
BEQ AFTFFI0
|
|
AND #$00FF
|
|
BEQ AFTFFI0 ; FIN DU FICHIER : 00
|
|
CMP #$00A4 ; TIPS...
|
|
BEQ AFTTIPS
|
|
CMP #$0020 ; ESPACE
|
|
BEQ AFTES0
|
|
CMP #$000D ; RETURN
|
|
BEQ AFTRE0
|
|
CMP #$0009 ; TABULATION
|
|
BEQ AFTTA0
|
|
INY
|
|
INC AFTDEB4+1
|
|
BRA AFTDEB4
|
|
|
|
AFTES0 JMP AFTES
|
|
AFTRE0 JMP AFTRE
|
|
AFTTA0 JMP AFTTA
|
|
AFTFFI0 JMP AFTFFI ; FIN DE FICHIER
|
|
AFTTIPS LDA TIPSFLAG
|
|
BEQ AFTFFI0
|
|
BRA AFTES0 ; ON IGNORE
|
|
|
|
***************
|
|
|
|
AFTFFI INC AFTFL4 ; FIN DU FICHIER
|
|
JMP AFTFI
|
|
|
|
AFTTA CPY #$0000 ; TAB
|
|
BNE AFTTA1
|
|
LDA #$0001 ; TAB SEUL
|
|
STA AFTTR3+1
|
|
JMP AFTTR1
|
|
AFTTA1 INC AFTFL3 ; MOT AVANT
|
|
JMP AFTMO
|
|
|
|
AFTRE CPY #$0000 ; RETURN
|
|
BNE AFTRE1
|
|
LDA #$0001 ; RETURN SEUL
|
|
STA AFTTR6+1
|
|
JMP AFTTR5
|
|
AFTRE1 INC AFTFL2 ; MOT AVANT
|
|
JMP AFTMO
|
|
|
|
AFTES CPY #$0000 ; ESPACE
|
|
BNE AFTES1
|
|
LDA #$0001 ; ESPACE SEUL
|
|
STA AFTTR10+1
|
|
JMP AFTTR8
|
|
AFTES1 INC AFTFL1 ; MOT AVANT
|
|
JMP AFTMO
|
|
|
|
********* AFFICHAGE MOT ***********
|
|
|
|
AFTMO CPY #$0033
|
|
BMI AFTMO2
|
|
INY ; MOT SUIVANT
|
|
STY AFTMO1+1
|
|
LDA AFTDEB3+1
|
|
CLC
|
|
AFTMO1 ADC #$0000
|
|
STA AFTDEB3+1
|
|
JMP AFTDEB3
|
|
AFTMO2 LDA #$0034
|
|
SEC
|
|
SBC AFTCOL
|
|
STA AFTMO3+1
|
|
AFTMO3 CPY #$0000 ; NB COLON RESTANTE
|
|
BMI AFTMO5
|
|
LDA AFTLIG
|
|
CMP #$001A ; 26 LIGNES
|
|
BNE AFTMO4
|
|
JMP AFTFI ; FIN ECRAN
|
|
AFTMO4 STZ AFTCOL
|
|
INC AFTLIG
|
|
AFTMO5 LDA AFTDEB3+1 ; ADRESSE DU DERNIER MOT
|
|
STA AFTAM+1
|
|
TYA
|
|
STA AFTAM8+1
|
|
INC
|
|
STA AFTTR3+1 ; LONGUEUR DU MOT +1
|
|
STA AFTTR6+1
|
|
STA AFTTR10+1
|
|
JSR AFTLC
|
|
STA AFTAE
|
|
JSR AFTAM
|
|
|
|
****** TRAITEMENT DU SPACE, RETURN, TAB ... ******
|
|
|
|
AFTTR LDA AFTFL3 ; TAB
|
|
BEQ AFTTR4
|
|
STZ AFTFL3
|
|
AFTTR1 LDA AFTDEB3+1
|
|
CLC
|
|
AFTTR3 ADC #$0000 ; LONGUEUR+1
|
|
STA AFTDEB3+1
|
|
LDA AFTCOL
|
|
ASL
|
|
TAX
|
|
LDA AFTTAB,X
|
|
CMP #$0033
|
|
BMI AFTTR2
|
|
LDA AFTLIG ; ON VA A LA LIGNE
|
|
CMP #$001A
|
|
BEQ AFTFI ; FIN ECRAN
|
|
INC AFTLIG
|
|
LDA #$0000
|
|
AFTTR2 STA AFTCOL
|
|
JMP AFTDEB3
|
|
|
|
AFTTR4 LDA AFTFL2 ; RETURN
|
|
BEQ AFTTR7
|
|
STZ AFTFL2
|
|
AFTTR5 LDA AFTDEB3+1
|
|
CLC
|
|
AFTTR6 ADC #$0000 ; LONGUEUR+1
|
|
STA AFTDEB3+1
|
|
LDA AFTLIG
|
|
CMP #$001A ; 26 LIGNES
|
|
BEQ AFTFI ; FIN ECRAN
|
|
INC AFTLIG
|
|
STZ AFTCOL
|
|
JMP AFTDEB3
|
|
|
|
AFTTR7 LDA AFTFL1 ; SPACE
|
|
BEQ AFTTR11 ; **********
|
|
STZ AFTFL1
|
|
AFTTR8 LDA AFTDEB3+1
|
|
CLC
|
|
AFTTR10 ADC #$0000 ; LONGUEUR +1
|
|
STA AFTDEB3+1
|
|
LDA AFTCOL
|
|
INC
|
|
STA AFTCOL
|
|
CMP #$0033
|
|
BMI AFTTR9
|
|
LDA AFTLIG
|
|
CMP #$001A
|
|
BEQ AFTFI ; FIN ECRAN
|
|
INC AFTLIG
|
|
STZ AFTCOL
|
|
AFTTR9 JMP AFTDEB3
|
|
AFTTR11 LDA AFTDEB3+1
|
|
CLC
|
|
ADC AFTTR10+1 ; LONGUEUR +1
|
|
STA AFTDEB3+1
|
|
JMP AFTDEB3
|
|
|
|
******* FIN D'AFFICHAGE D'1 PAGE *******
|
|
|
|
AFTFI INC AFTCONT ;
|
|
LDA AFTIND
|
|
INC
|
|
ASL ;
|
|
TAX
|
|
LDA AFTDEB3+1
|
|
STA AFTTBI,X ; INDEX TAB
|
|
RTS ; ON SORT
|
|
|
|
************************** AFFICHAGE GRAPHIQUE ********************************
|
|
|
|
AFTAM LDAL $040000 ; ADRESSE DE LA LETTRE
|
|
AND #$00FF
|
|
sec
|
|
sbc #$0003
|
|
STA AFTAM3+1 ; cherche le caractere dans la table
|
|
AND #$00FF
|
|
CMP #$00F0 ; CARACTERE SPECIAUX : OBJETS
|
|
BMI AFTAM1
|
|
JSR OBJAFF ; AFFICHAGE OBJETS
|
|
BRA AFTAM7
|
|
AFTAM1 LDX #$0000 ; LONGUEUR DE LA Ligne DE CARACTERE
|
|
AFTAM2 LDA AFTTBL,X
|
|
AND #$00FF
|
|
AFTAM3 CMP #$0000 ; notre caractere
|
|
BEQ AFTAM5
|
|
CPX #$0000
|
|
BEQ AFTAM4
|
|
DEX
|
|
BRA AFTAM2
|
|
AFTAM4 LDX #$0063 ; PAS DANS LA Ligne
|
|
AFTAM5 JSR AFTCAR ; AFFICHE LE CARACTERE
|
|
DEY ; DANS Y LA LONGUEUR DU MOT
|
|
BEQ AFTAM7
|
|
LDA AFTAE
|
|
INC
|
|
INC ; ADREC LETTRE SUIVANTE
|
|
INC
|
|
STA AFTAE
|
|
INC AFTAM+1 ; LETTRE SUIVANTE
|
|
BRA AFTAM
|
|
AFTAM7 LDA AFTCOL
|
|
CLC
|
|
AFTAM8 ADC #$0000 ; LONGUEUR DU MOT+1
|
|
STA AFTCOL
|
|
RTS
|
|
|
|
******* NETTOYAGE ********
|
|
|
|
AFTNE LDA #$25A2
|
|
STA AFTNE2+1 ; INIT
|
|
LDY #$00A0 ; 160 LIGNES
|
|
AFTNE1 LDA #$0000
|
|
LDX #$0099 ; 306/2
|
|
AFTNE2 STAL $0125A2,X
|
|
DEX ; 1 LIGNE
|
|
DEX
|
|
BPL AFTNE2
|
|
LDA AFTNE2+1
|
|
CLC ; LIGNE SUIVANTE
|
|
ADC #$00A0
|
|
STA AFTNE2+1
|
|
DEY
|
|
BPL AFTNE1
|
|
RTS
|
|
|
|
******** AFFICHE CARACTERE ********
|
|
|
|
AFTCAR TXA ; RECOIT DANS X LA POSITION
|
|
ASL ; DU CARACTERE
|
|
TAX
|
|
LDA AFTADR,X
|
|
STA AFTCAR1+1
|
|
CLC
|
|
ADC #$000A
|
|
STA AFTCAR3+1
|
|
LDA AFTAE
|
|
STA AFTCAR2+1
|
|
INC
|
|
INC
|
|
STA AFTCAR4+1
|
|
LDX #$0000 ; 1 ere COLONNE
|
|
AFTCAR1 LDA $AAAA,X
|
|
AFTCAR2 STAL $012000
|
|
LDA AFTCAR2+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA AFTCAR2+1 ; LIGNE SUIVANTE
|
|
INX
|
|
INX
|
|
CPX #$000A
|
|
BNE AFTCAR1
|
|
LDX #$0000 ; 2 eme COLONNE
|
|
AFTCAR3 LDA $AAAA,X
|
|
AFTCAR4 STAL $012000
|
|
LDA AFTCAR4+1
|
|
CLC
|
|
ADC #$00A0
|
|
STA AFTCAR4+1 ; LIGNE SUIVANTE
|
|
INX
|
|
INX
|
|
CPX #$000A
|
|
BNE AFTCAR3
|
|
RTS
|
|
|
|
*********** LIGNE COLONNE *************
|
|
|
|
AFTLC LDA AFTLIG
|
|
ASL
|
|
TAX
|
|
LDA AFTTL,X ; LIGNE
|
|
STA AFTLC1+1
|
|
LDA AFTCOL
|
|
ASL
|
|
TAX
|
|
LDA AFTTC,X ; COLON
|
|
CLC
|
|
AFTLC1 ADC #$0000
|
|
CLC
|
|
ADC #$2000
|
|
RTS
|
|
|
|
*-------------------------- Message
|
|
|
|
hex 0d0d
|
|
asc 'What is the difference the MAC IIcx and the SE30 ? $1000'
|
|
hex 0d0d
|
|
|
|
*************** TABLES, VARIABLES ET FLAGS ******************
|
|
|
|
AFTAE HEX 0000 ; ADRESSE ECRAN ECRITURE
|
|
AFTLIG HEX 0000 ; 0 A 26 LIGNES
|
|
AFTCOL HEX 0000 ; 0 A 50 COLONNES
|
|
AFTIND HEX 0000 ; INDEX PAGES
|
|
|
|
AFTFL1 HEX 0000 ; 1 SI SPACE
|
|
AFTFL2 HEX 0000 ; 1 SI RETURN
|
|
AFTFL3 HEX 0000 ; 1 SI TAB
|
|
AFTFL4 HEX 0000 ; 1 SI FIN DE FICHIER
|
|
AFTCONT HEX 0000 ; 1 SI NON FIN
|
|
|
|
AFTTBI HEX 0000000000000000000000000000000000000000 ; 10
|
|
HEX 0000000000000000000000000000000000000000 ; 20
|
|
HEX 0000000000000000000000000000000000000000 ; 30
|
|
HEX 0000000000000000000000000000000000000000 ; 40
|
|
|
|
AFTTL HEX A0056009200DE010A0146018201CE01FA0236027202B ; 0-10
|
|
HEX E02EA0326036203AE03DA04160452049E04CA0506054 ; 11-21
|
|
HEX 2058E05BA05F60632067 ; 22-26
|
|
|
|
AFTTC HEX 0300060009000C000F001200150018001B001E002100 ; 0-10
|
|
HEX 240027002A002D0030003300360039003C003F004200 ; 11-21
|
|
HEX 450048004B004E005100540057005A005D0060006300 ; 22-32
|
|
HEX 660069006C006F007200750078007B007E0081008400 ; 33-43
|
|
HEX 87008A008D009000930096009900 ; 44-50
|
|
|
|
AFTTAB HEX 040004000400040008000800080008000C000C000C000C00 ; 12
|
|
HEX 100010001000100014001400140014001800180018001800 ;
|
|
HEX 1C001C001C001C0020002000200020002400240024002400 ;
|
|
HEX 28002800280028002C002C002C002C003000300030003000 ;
|
|
HEX 34003400340034003800380038003800
|
|
|
|
*******************************************************************************
|