Index du Forum
IDENTIFICATION SERVEUR : 51.77.218.217 - CLIENT : 3.233.215.231

 FAQFAQ   RechercherRechercher   Liste des MembresListe des Membres   Groupes d'utilisateursGroupes d'utilisateurs   S'enregistrerS'enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

La bête du Gévaudan ?
Aller à la page 1, 2  Suivante
 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> PROTECTION MALEFIQUE
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mer 20 Juin 2007, 21:21    Sujet du message: La bête du Gévaudan ? Répondre en citant

Hello,
je me rappelle d'une discussion autour de l'Apple II avec Jérôme Crétaux il y a de nombreuses années à Bordeaux.
Il me disait qu'un de ses softs était tellement protégé que le boulot des déplombeurs aurait été impossible à réaliser : 18 secteurs, spiralling, utilisation de tous les octets disponibles sur la disquette (ainsi il n'y avait pas 16/18 secteurs et 35 pistes mais un gros fichier d'autant d'octets *256), on pouvait ainsi trouver un bout de programme en T1/S3 et la suite en T10/S7 octet 156.

Etait-ce la bête du Gévaudan (mais je n'en suis vraiment pas sûr) ou autre chose ?

merci,


antoine
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mer 15 Aoû 2007, 19:56    Sujet du message: Répondre en citant

D'après une discussion avec un "gars qui sait", il s'agit de Hold-Up, jeu français distribué par Infogrames.

antoine
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
.



Inscrit le: 29 Mar 2007
Messages: 350

MessagePosté le: Ven 17 Aoû 2007, 11:45    Sujet du message: Répondre en citant

Pourtant il est de notoriété publique que La Bête du Gevaudan était super dur à cracker.
Ca ne devait pas être triste aussi!!

JM
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Ven 17 Aoû 2007, 11:47    Sujet du message: Répondre en citant

Il ne reste plus qu'à trouver les originaux de ces softs pour y passer trois mois dessus...

antoine
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
JPL
Site Admin


Inscrit le: 12 Mar 2007
Messages: 165
Localisation: Issy les Moulineaux / PARIS

MessagePosté le: Ven 17 Aoû 2007, 15:47    Sujet du message: Répondre en citant

Pour Hold Up... no problème il est dans le second paquet pour les activités de toinet.

Par amitié pour TSM je n'ai jamais voulu en faire un COPYA d'autant que le code du spiraling est en principe celui donné dans un vieux bouquin Cool

Comme mon très cher ami est en Corse actuellement il a peut être accès à des magasins spécialisés dans la vendetta, vas savoir ? prudence !?? Wink Laughing Laughing Laughing
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Envoyer un e-mail Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mar 28 Oct 2008, 14:29    Sujet du message: Répondre en citant

bon, un an et demi plus tard, le toinet a mis Hold Up dans son mange-disques.

Le comportement sur IIgs est bizarre, la première fois il n'a pas booté, récemment il a booté jusqu'à la musique de l'écran de boot mais zut, rien ne s'est passé ensuite.

Mais quel joli son de lecteur qui déplace sa tête de lecture Wink

el toto
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
.



Inscrit le: 29 Mar 2007
Messages: 350

MessagePosté le: Mer 08 Juil 2009, 12:11    Sujet du message: Répondre en citant

Dans l'article "I've got the power" du magazine "La Pomme Illustrée" numéro 2 présent depuis peu sur le site de Brutal Deluxe, on trouve ceci de la main de Nibble (Damien C.):

"Pour la bête du Gévaudan, c'était vraiment la protection bestiale. Même Numéro 6 s'était gamelé la dessus...
C'était un soft français fait par CIL (La Compagnie Informatique Ludique?) et pour finir plombé par des français que vous connaissez certainement sous les pseudos (...)".

Est-ce que quelqu'un sait par qui le jeu a été plombé? Je veux dire: quel(s) pseudo(s)?

JM

ps: bonnes vacances aux "juilletistes"
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Sam 08 Aoû 2009, 20:17    Sujet du message: Répondre en citant

Deckard a écrit:
Dans l'article "I've got the power" du magazine "La Pomme Illustrée" numéro 2 présent depuis peu sur le site de Brutal Deluxe, on trouve ceci de la main de Nibble (Damien C.):

"Pour la bête du Gévaudan, c'était vraiment la protection bestiale. Même Numéro 6 s'était gamelé la dessus...
C'était un soft français fait par CIL (La Compagnie Informatique Ludique?) et pour finir plombé par des français que vous connaissez certainement sous les pseudos (...)".

Est-ce que quelqu'un sait par qui le jeu a été plombé? Je veux dire: quel(s) pseudo(s)?

JM

ps: bonnes vacances aux "juilletistes"


Le juilletiste découvre ton message lors de son retour et malheureusement ne peux pas te répondre.

Si personne ne le sait (ce dont je doute), avec un original sous la main (après hold-up) on pourrait regarder le code et découvrir les messages secrets du style "protégé par mimile"...

antoine
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mer 01 Sep 2010, 20:54    Sujet du message: Répondre en citant

Et Mandragore ?

J'en parlais avec Olivier hier soir et on se demandait lequel entre Mandragore et la bête du Gévaudan était protégé en spiralling ? Et surtout : qui avait des originaux (boîte, manuel, disquette)

antoine
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mar 18 Oct 2011, 9:07    Sujet du message: Répondre en citant

Je réveille ce thread.

Depuis ce lundi matin, j'ai en ma possession les originaux de "l'enlèvement (de Miss Kador)" et "la bête du Gévaudan" en originaux qui bootent.

La bête :
- Les dix premières pistes sont lisibles, format 16 secteurs avec un changement d'épilogues : D5AA96 FEAAEB D5AAAD FEAAEB.
- Après, c'est un autre sujet, que des nibbles sans queue ni tête. Itou pour la face 2.

C'est l'étape de ce soir...

Antoine
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
jvernet



Inscrit le: 18 Aoû 2007
Messages: 722

MessagePosté le: Mar 18 Oct 2011, 14:55    Sujet du message: Répondre en citant

Aaaah, je sens que ça va nous faire un suspens haletant à suivre.
Cool
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mar 18 Oct 2011, 18:49    Sujet du message: Répondre en citant

jvernet a écrit:
Aaaah, je sens que ça va nous faire un suspens haletant à suivre.
Cool


Ah ah ! Nous avons le droit à une protection... 18 secteurs ! Sur les deux faces.

Ce qui amusant, c'est que l'appel à la lecture des données se fait via une RWTS presque standard avec un décrochage vers une routine de chargement 18 secteurs des plus sioux (si, si, je vais la publier) en $1700.

Une gestion 18 secteurs en moins de 256 octets, on aura tout vu ! C'est beau, c'est propre mais cela requiert une carte contrôleur en slot 6 because la lecture se fait via $C0EC.

Pfou...

Antoine
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mar 18 Oct 2011, 21:49    Sujet du message: Now switching into English, mon ami Répondre en citant

La bête du Gévaudan is a French adventure game, published by Compagnie Informatique Ludique, circa 1985. That company has published another adventure game named L'enlèvement.

The following messages will include the raw disassembly of the boot process of the program. Further comments will follow.

PROTECTION TYPE
The game is a two-sided program.
The first ten tracks contain standard 6*2 sectors but epilog have been changed from DEAAEB to FEAAEB.
The remaining tracks of side 1 and the complete side 2 contains 18 sectors per track. Aaaarrrggghhhh !

BOOT PROCESS
- 9600<C600.C6FFM
- 96FB: AD E8 C0 60 N 9600G (remember, I use an Apple IIgs)
- Bingo! We have the first boot sector, nearly a standard one.

Code:

BOOT 1 @ $0800..$08FF


KBDSTROBE EQU $C010
ROMIN2 EQU $C081
CLRROM EQU $CFFF
INIT EQU $FB2F
APPLEII EQU $FB60
COUT EQU $FDED
MOVE EQU $FE2C
SETKBD EQU $FE89
SETVID EQU $FE93

         TYP   BIN
         ORG   $000800
         MX    %11

L0800    DB    $01
         LDA   $27
         CMP   #$09
         BNE   L081F
         LDA   $2B
         LSR
         LSR
         LSR
         LSR
         ORA   #$C0
         STA   $3F
         LDA   #$5C
         STA   $3E
         CLC
         LDA   L08FE
         ADC   L08FF
         STA   L08FE
L081F    LDX   L08FF
         BMI   L0839
         LDA   L088F,X
         STA   $3D
         DEC   L08FF
         LDA   L08FE
         STA   $27
         DEC   L08FE
         LDX   $2B
         JMP   ($003E)

L0839    BIT   CLRROM
         JSR   SETKBD
         JSR   SETVID
         JSR   INIT
         JSR   APPLEII
         BIT   KBDSTROBE
         BIT   ROMIN2
         BIT   ROMIN2
         LDA   $C0ED
         LDA   $C0EE
         BMI   L089F
         LDX   #$00
         STX   $3C
         STX   $3E
         STX   $42
         LDX   #$BB
         STX   $3D
         INX
         STX   $3F
         LDX   #$03
         STX   $43
         LDY   #$00
         JSR   MOVE
         JSR   $B7DC
         LDA   #$D0
         STA   $CE
         LDA   #$00
         STA   $CD
         TAY
         LDA   #$48
L087F    STA   ($CD),Y
         INY
         BNE   L087F
         INC   $CE
         LDX   $CE
         CPX   #$FF
         BNE   L087F
         LDX   $2B
         DB    $00
L088F    HEX   0D0B0907050300010E0C0A080604020F
L089F    LDX   #$25
L08A1    LDA   L08B0,X
         JSR   COUT
         DEX
         BPL   L08A1
         LDA   $C0E8
         JMP   $E003

L08B0    ASC   "ERUTIRCE NE EEGETORP ETTEUQSID ,RUERRE"
         DB    $0B
         DB    $25
         DB    $08
         DB    $0B
         DB    $00
         DB    $06
         DB    $08
         DB    $09
         DB    $09
         DB    $00
         DB    $08
         DB    $0C
         DB    $04
         DB    $0F
         DB    $00
         DB    $40
         DB    $60
         DB    $18
         DB    $A5
         DB    $94
         DB    $20
         DB    $1E
         DB    $03
         DB    $05
         DB    $0F
         DB    $0D
         DB    $76
         DB    $55
         DB    $4E
         DB    $5F
         DB    $45
         DB    $4E
         DB    $58
         DB    $50
         DB    $59
         DB    $5B
         DB    $0B
         DB    $67
         DB    $62
         DB    $68
L08FE    DB    $B0
L08FF    DB    $0F
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mar 18 Oct 2011, 22:07    Sujet du message: Répondre en citant

Code:

BOOT 2 @ $B000..$BFFF



KBD EQU $C000
KBDSTROBE EQU $C010
SPKR EQU $C030
MIXSET EQU $C053
HIRES EQU $C057
ROMIN2 EQU $C081
RDROM2 EQU $C082
CLRROM EQU $CFFF
INIT EQU $FB2F
APPLEII EQU $FB60
LF EQU $FC66
KEYIN EQU $FD1B
COUT EQU $FDED
COUT1 EQU $FDF0
MOVE EQU $FE2C
SETKBD EQU $FE89
SETVID EQU $FE93


*
* I include the $AF00..$AFFF data area
*
* The following data is divided into three chunks:
*  the first four $80 bytes for track index
*  the second four $80 bytes for sector index
*  the third four $80 bytes for nb of sectors to load

*
* TRACK
*

LAF00    HEX   00222120201E1E1D1C211B1A19181716
         HEX   15222121201F20211F201F1E1D1E1D1C
         HEX   1D211C1A1A1A191A1A191A1A1A1A1A1A
         HEX   1A181716141211100F100F0E0D0C0C0D
         HEX   0C0A0807060504040403030403131211
         HEX   0F0E0D0C0B0B0C0A052222222120201E
         HEX   1E1D1C211B1A19181716020122141300
         HEX   00000000000000000000000000000000
LAF80    HEX   002221201F1E1D1C1B1B1A1918171615
         HEX   142221201F1E1E201E1E1E1D1D1C1D1C
         HEX   1D1C1B19191918181818181818181818
         HEX   181716151311100F0F0F0E0D0C0C0B0B
         HEX   0B090706050403030302020202121110
         HEX   0E0D0C0B0A0A0A0A0422222221201F1E
         HEX   1D1C1B1B1A1918171615010022141300
         HEX   00000000000000000000000000000000

*
* The real start of the boot 2
*

LB000    HEX   002121211F2121211B21211921211621
         HEX   14222220202020202020202222222222
         HEX   22221B19191919191919191919191919
         HEX   19191615131111111111110D0D0D0D0D
         HEX   0D090909090404040404040404121110
         HEX   0F0D0F0F0F0F0F0A0422222121211F21
         HEX   21211B21211921211621090922131200
         HEX   00000000000000000000000000000000
LB080    HEX   002120201F1E1D1C1B1B1A1918171615
         HEX   142121201F1E1E1E1E1E1E1D1C1C1C1C
         HEX   1C1C1A19191918181818181818181818
         HEX   181716141311100F0F0F0E0D0C0C0B0B
         HEX   0B080706050403030302020202121110
         HEX   0E0D0C0B0A0A0A0A0422222120201F1E
         HEX   1D1C1B1B1A1918171615000022131200
         HEX   00000000000000000000000000000000

*
* SECTOR
*

LB100    HEX   00110D0E000F0205080D060A02050904
         HEX   06111101000500010500050B0F0B0F10
         HEX   0F110109090909090909090909090909
         HEX   090107040909070C0F0C020807100407
         HEX   1002100C09060707070A0A070A0C0C06
         HEX   11100B0E11110E0D060F0F110D0E000F
         HEX   0205080D060A020509040C0A0F0B0800
         HEX   00000000000000000000000000000000
LB180    HEX   00040000050104070E05090D04080D07
         HEX   0A040104050B0B040B0B0B0F02100201
         HEX   0201050E09090C01010C010101010101
         HEX   01070A070E0D0C0F02020A0D10040909
         HEX   09000C090B0A0A0A0A0C0C0C0C0D1008
         HEX   110E11110D0D0D0F0A0F0F0400000501
         HEX   04070E05090D04080D070A0A0F0B0800
         HEX   00000000000000000000000000000000
LB200    HEX   00110000050000000C00000E00000E00
         HEX   0B040403030303030303030404040404
         HEX   0404030E0E0E0E0E0E0E0E0E0E0E0E0E
         HEX   0E0E07030E0D0D0D0D0D0D0D0D0D0D0D
         HEX   0D000000000A0A0A0A0A0A0A0A0D0D06
         HEX   010E0101010101060A0F0F1100000500
         HEX   00000C00000E00000E0000000F101000
         HEX   00000000000000000000000000000000
LB280    HEX   000D0E00010104070A05090A04080C05
         HEX   09110100050B0B0B0B0B0B0F10101001
         HEX   01011109090905010105010101010101
         HEX   0107040B0C070C0F0202080710040909
         HEX   09100C0906070A0A0A0C0C0C0C0C0B02
         HEX   0E0B0E0F0D0D0D00070F0F0D0E000101
         HEX   04070A05090A04080C050A0A0F0A0A00
         HEX   00000000000000000000000000000000

*
* NB SECTORS
*

LB300    HEX   000D0D0E0D0D0F0F0C0D0E0E0F0E0D0F
         HEX   0D0D100F0D0C0D0F0C0D0C0E0D0E0D0F
         HEX   0D100E0D0D0D0F0D0D0F0D0D0D0D0D0D
         HEX   0D0C0F0F0D0E0D0F0D0F0A0D090C0D09
         HEX   0C141510100E0F0F0F10100F10110E10
         HEX   10140C0F14140F000000000D0D0E0D0D
         HEX   0F0F0C0D0E0E0F0E0D0F141200000000
         HEX   00000000000000000000000000000000
LB380    HEX   00050000000000000200000000000001
         HEX   00000001000000010000000004000400
         HEX   04000200000007000007000000000000
         HEX   00000304000000000000020000000000
         HEX   00000000050000000000000000000302
         HEX   00000300000000090000000500000000
         HEX   000002000000000000010000000D0A00
         HEX   00000000000000000000000000000000
LB400    HEX   00040404040404040204040404040204
         HEX   02050503030303030303030505050505
         HEX   05050405050505050505050505050505
         HEX   0505030A020606060606060606060606
         HEX   06020202020303030303030303010204
         HEX   03030303030303040300000404040404
         HEX   04040204040404040204020200080700
         HEX   00000000000000000000000000000000
LB480    HEX   00000000040000000400000800000800
         HEX   00000000000000000000000000000000
         HEX   00000800000004000004000000000000
         HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000503
         HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000

*
*
*

LB500    LDX   #$00
         STX   LB7EB
         STX   LB7F5
         LDX   $AB00
         LDA   LB300,X
         BEQ   LB534
         STA   $EF
         LDA   $AF00,X
         STA   LB7EC
         LDA   LB100,X
         STA   LB7ED
         LDA   #$40
         STA   LB7F0+1
         JSR   LB59B
         LDA   $4000
         CMP   #$02
         BNE   LB594
         LDA   $4001
         CMP   #$03
         BNE   LB594
LB534    LDX   $AB00
         LDA   LB380,X
         BEQ   LB552
         STA   $EF
         LDA   $AF80,X
         STA   LB7EC
         LDA   LB180,X
         STA   LB7ED
         LDA   #$08
         STA   LB7F0+1
         JSR   LB59B
LB552    LDX   $AB00
         LDA   LB400,X
         BEQ   LB570
         STA   $EF
         LDA   LB000,X
         STA   LB7EC
         LDA   LB200,X
         STA   LB7ED
         LDA   #$90
         STA   LB7F0+1
         JSR   LB59B
LB570    LDX   $AB00
         LDA   LB480,X
         BNE   LB57D
         STA   $9600
         BEQ   LB593
LB57D    STA   $EF
         LDA   LB080,X
         STA   LB7EC
         LDA   LB280,X
         STA   LB7ED
         LDA   #$96
         STA   LB7F0+1
         JSR   LB59B
LB593    RTS

LB594    CLC
         INC   LB7F5
         BEQ   LB594
         RTS

LB59B    CLC
LB59C    LDA   #$B7
         LDY   #$E8
         JSR   LBD00
         BCS   LB5C3
         DEC   $EF
         BEQ   LB5BE
         INC   LB7F0+1
         DEC   LB7ED
         BPL   LB59C
         LDA   #$0F
         STA   LB7ED
         DEC   LB7EC
         BPL   LB59B
         JMP   $11AC

LB5BE    LDA   #$00
         STA   LB7F5
LB5C3    RTS

         LDX   #$00
LB5C6    LDA   $4003,X
         CMP   #$0D
         BEQ   LB593
         JSR   COUT
         INX
         BNE   LB5C6
         CLC
         JMP   $135B

         LDA   #$02
         STA   LB7F4
LB5DC    LDA   #$AB
         STA   LB7F0+1
         LDA   #$04
         STA   $EF
         LDA   $AB0A
         STA   LB7ED
         LDX   #$01
         STX   LB7EC
         DEX
         STX   LB7F5
         JSR   LB59B
         LDA   #$01
         STA   LB7F4
         RTS
         JMP   LB5DC

*
* This is $B600..$B6FF
*

         DB    $01
         LDA   $27
         CMP   #$09
         BNE   LB61F
         LDA   $2B
         LSR
         LSR
         LSR
         LSR
         ORA   #$C0
         STA   $3F
         LDA   #$5C
         STA   $3E
         CLC
         LDA   $08FE
         ADC   $08FF
         STA   $08FE
LB61F    LDX   $08FF
         BMI   LB639
         LDA   $088F,X
         STA   $3D
         DEC   $08FF
         LDA   $08FE
         STA   $27
         DEC   $08FE
         LDX   $2B
         JMP   ($003E)

LB639    BIT   CLRROM
         JSR   SETKBD
         JSR   SETVID
         JSR   INIT
         JSR   APPLEII
         BIT   KBDSTROBE
         BIT   ROMIN2
         BIT   ROMIN2
         LDA   $C0ED
         LDA   $C0EE
         BMI   LB69F
         LDX   #$00
         STX   $3C
         STX   $3E
         STX   $42
         LDX   #$BB
         STX   $3D
         INX
         STX   $3F
         LDX   #$03
         STX   $43
         LDY   #$00
         JSR   MOVE
         JSR   LB7DC
         LDA   #$D0
         STA   $CE
         LDA   #$00
         STA   $CD
         TAY
         LDA   #$48
LB67F    STA   ($CD),Y
         INY
         BNE   LB67F
         INC   $CE
         LDX   $CE
         CPX   #$FF
         BNE   LB67F
         LDX   $2B
         DB    $00
         HEX   0D0B0907050300010E0C0A080604020F
LB69F    LDX   #$25
LB6A1    LDA   $08B0,X
         JSR   COUT
         DEX
         BPL   LB6A1
         LDA   $C0E8
         JMP   $E003

* Read it from right to left

         ASC   "ERUTIRCE NE EEGETORP ETTEUQSID ,RUERRE"

* Two data areas - all loaded in a loop, see $B700
* RAM pointer++
* Sector--
* Track--
* Nb sectors-- (BEQ not BPL)

LB6D6    HEX   0B25080B00   NB SECTORS
LB6DB    HEX   0608090900   TRACK
LB6E0    HEX   080C040F00   SECTOR
LB6E5    HEX   406018A594   RAM POINTER

LB6EA    HEX   201E   NB SECTORS
LB6EC    HEX   0305   TRACK
LB6EE    HEX   0F0D   SECTOR
LB6F0    HEX   7655   RAM POINTER

* CIL présente

LB6F2    ASC   'N_ENXPY['0B
         ASC   'gbh'

         DB    $B0
         DB    $0F

*
* $B700..$B7FF
*

LB700    LDY   #$07
         STY   $25
         LDY   #$0D
         STY   $24
         JSR   LF
         LDY   #$0B
LB70D    LDA   LB6F2,Y
         EOR   #$AB
         JSR   COUT
         DEY
         BPL   LB70D
         LDA   #$03
         STA   $D0
LB71C    LDX   $D0
         LDA   LB6D6,X
         STA   $EF
         LDA   LB6DB,X
         STA   LB7EC
         LDA   LB6E0,X
         STA   LB7ED
         LDA   LB6E5,X
         STA   LB7F0+1
         LDA   #$00
         STA   LB7F0
         JSR   LB59B
         DEC   $D0
         BPL   LB71C
         JSR   $8330
LB744    LDY   #$76
         STY   $68
         LDY   #$FF
         STY   $73
         STY   $32
         STY   $AF
         INY
         STY   $69
         STY   $6B
         STY   $6D
         STY   $E8
         STY   $F9
         STY   $7600
         INY
LB75F    STY   $67
         STY   $E7
         LDY   #$FB
         STY   $1E
         LDY   #$9E
         STY   $6A
         STY   $6C
         STY   $6E
         LDY   #$A4
         STY   $74
         LDY   #$20
         STY   $E6
         LDA   #$B7
         STA   $37
         LDA   #$82
         STA   $36
         JMP   $F128

LB782    LDA   #$F0
         STA   $36
         STA   $D6
         LDA   #$FD
         STA   $37
         LDA   #$01
         STA   $D0
LB790    LDX   $D0
         LDA   LB6EA,X
         STA   $EF
         LDA   LB6EC,X
         STA   LB7EC
         LDA   LB6EE,X
         STA   LB7ED
         LDA   LB6F0,X
         STA   LB7F0+1
         LDA   LB75F
         JSR   LB59B
         DEC   $D0
         BPL   LB790
         BIT   RDROM2
         BIT   MIXSET
         BIT   HIRES
         LDA   #$3B
         STA   $FE
         LDA   #$0A
         STA   $FF
         JSR   $0359
         JSR   $03D5
         JSR   LB7DC
         LDA   $FB12
         CMP   #$86
         BNE   LB7D9
         LDA   #$F9
         STA   $1A8D
LB7D9    JMP   $D566

LB7DC    LDA   $FB0A
         CMP   #$F0
         BEQ   LB7E6
         JMP   $0387
LB7E6    RTS

* An IOB table

         DB    $00
         DB    $01
         DB    $60
         DB    $01
LB7EB    DB    $00
LB7EC    DB    $02
LB7ED    DB    $0F
         DA    $B7FB
LB7F0    DA    $7800
         DB    $00
         DB    $00
LB7F4    DB    $01
LB7F5    DB    $00
         DB    $00
         DB    $60
         DB    $01
         DB    $00
         DB    $00
         DB    $00
         DB    $01
         DB    $EF
         DB    $D8
         DB    $00

* Starting with a standard RWTS

LB800    LDX   #$00
         LDY   #$02
LB804    DEY
         LDA   ($3E),Y
         LSR
         ROL   LBC00,X
         LSR
         ROL   LBC00,X
         STA   LBB00,Y
         INX
         CPX   #$56
         BCC   LB804
         LDX   #$00
         TYA
         BNE   LB804
         LDX   #$55
LB81E    LDA   LBC00,X
         AND   #$3F
LB823    STA   LBC00,X
         DEX
         BPL   LB81E
         RTS

LB82A    SEC
         STX   $27
         STX   $0678
         LDA   $C08D,X
         LDA   $C08E,X
         BMI   LB8B4
         LDA   LBC00
         STA   $26
         LDA   #$FF
         STA   $C08F,X
         ORA   $C08C,X
         PHA
         PLA
         NOP
         LDY   #$04
LB84A    PHA
         PLA
         JSR   LB8B9
         DEY
         BNE   LB84A
         LDA   #$D5
         JSR   LB8B8
         LDA   #$AA
         JSR   LB8B8
         LDA   #$AD
         JSR   LB8B8
         TYA
         LDY   #$56
         BNE   LB869
LB866    LDA   LBC00,Y
LB869    EOR   LBBFF,Y
         TAX
         LDA   LBA29,X
         LDX   $27
         STA   $C08D,X
         LDA   $C08C,X
         DEY
         BNE   LB866
         LDA   $26
         NOP
LB87E    EOR   LBB00,Y
         TAX
         LDA   LBA29,X
         LDX   $0678
         STA   $C08D,X
         LDA   $C08C,X
         LDA   LBB00,Y
         INY
         BNE   LB87E
         TAX
         LDA   LBA29,X
         LDX   $27
         JSR   LB8BB
         LDA   #$FE   **
         JSR   LB8B8
         LDA   #$AA
         JSR   LB8B8
         LDA   #$EB
         JSR   LB8B8
         LDA   #$FF
         JSR   LB8B8
         LDA   $C08E,X
LB8B4    LDA   $C08C,X
         RTS

LB8B8    CLC
LB8B9    PHA
         PLA
LB8BB    STA   $C08D,X
         ORA   $C08C,X
         RTS

LB8C2    LDY   #$00
LB8C4    LDX   #$56
LB8C6    DEX
         BMI   LB8C4
         LDA   LBB00,Y
         LSR   LBC00,X
         ROL
         LSR   LBC00,X
         ROL
         STA   ($3E),Y
         INY
         CPY   $26
         BNE   LB8C6
         RTS

LB8DC    LDY   #$20
LB8DE    DEY
         BEQ   LB942
LB8E1    LDA   $C08C,X
         BPL   LB8E1
LB8E6    EOR   #$D5
         BNE   LB8DE
         NOP
LB8EB    LDA   $C08C,X
         BPL   LB8EB
         CMP   #$AA
         BNE   LB8E6
         LDY   #$56
LB8F6    LDA   $C08C,X
         BPL   LB8F6
         CMP   #$AD
         BNE   LB8E6
         LDA   #$00
LB901    DEY
         STY   $26
LB904    LDY   $C08C,X
         BPL   LB904
         EOR   LBA00,Y
         LDY   $26
         STA   LBC00,Y
         BNE   LB901
LB913    STY   $26
LB915    LDY   $C08C,X
         BPL   LB915
         EOR   LBA00,Y
         LDY   $26
         STA   LBB00,Y
         INY
         BNE   LB913
LB925    LDY   $C08C,X
         BPL   LB925
         CMP   LBA00,Y
         BNE   LB942
LB92F    LDA   $C08C,X
         BPL   LB92F
         CMP   #$FE   **
         BNE   LB942
         NOP
LB939    LDA   $C08C,X
         BPL   LB939
         CMP   #$AA
         BEQ   LB99E
LB942    SEC
         RTS

LB944    LDY   #$FC
         STY   $26
LB948    INY
         BNE   LB94F
         INC   $26
         BEQ   LB942
LB94F    LDA   $C08C,X
         BPL   LB94F
LB954    CMP   #$D5
         BNE   LB948
         NOP
LB959    LDA   $C08C,X
         BPL   LB959
         CMP   #$AA
         BNE   LB954
         LDY   #$03
LB964    LDA   $C08C,X
         BPL   LB964
         CMP   #$96
         BNE   LB954
         LDA   #$00
LB96F    STA   $27
LB971    LDA   $C08C,X
         BPL   LB971
         ROL
         STA   $26
LB979    LDA   $C08C,X
         BPL   LB979
         AND   $26
         STA   |$002C,Y
         EOR   $27
         DEY
         BPL   LB96F
         TAY
         BNE   LB942
LB98B    LDA   $C08C,X
         BPL   LB98B
         CMP   #$FE   **
         BNE   LB942
         NOP
LB995    LDA   $C08C,X
         BPL   LB995
         CMP   #$AA
         BNE   LB942
LB99E    CLC
         RTS

LB9A0    STX   $2B
         STA   $2A
         CMP   $0478
         BEQ   LB9FC
         LDA   #$00
         STA   $26
LB9AD    LDA   $0478
         STA   $27
         SEC
         SBC   $2A
         BEQ   LB9EA
         BCS   LB9C0
         EOR   #$FF
         INC   $0478
         BCC   LB9C5
LB9C0    ADC   #$FE
         DEC   $0478
LB9C5    CMP   $26
         BCC   LB9CB
         LDA   $26
LB9CB    CMP   #$0C
         BCS   LB9D0
         TAY
LB9D0    SEC
         JSR   LB9EE
         LDA   LBA11,Y
         JSR   LBA00
         LDA   $27
         CLC
         JSR   LB9F1
         LDA   LBA1D,Y
         JSR   LBA00
         INC   $26
         BNE   LB9AD
LB9EA    JSR   LBA00
         CLC
LB9EE    LDA   $0478
LB9F1    AND   #$03
         ROL
         ORA   $2B
         TAX
         LDA   $C080,X
         LDX   $2B
LB9FC    RTS

         TAX
         LDY   #$A0
LBA00    LDX   #$11
LBA02    DEX
         BNE   LBA02
         INC   $46
         BNE   LBA0B
         INC   $47
LBA0B    SEC
         SBC   #$01
         BNE   LBA00
         RTS

LBA11    HEX   01302824201E1D1C1C1C1C1C
LBA1D    HEX   702C26221F1E1D1C1C1C1C1C

LBA29    HEX   96979A9B9D9E9FA6A7ABACADAEAFB2B3
         HEX   B4B5B6B7B9BABBBCBDBEBFCBCDCECFD3
         HEX   D6D7D9DADBDCDDDEDFE5E6E7E9EAEBEC
         HEX   EDEEEFF2F3F4F5F6F7F9FAFBFCFDFEFF
         HEX   B3B3A0E0B3C3C5B3A0E0B3C3C5B3A0E0
         HEX   B3B3C5AAA082B3B3C5AAA082C5B3B3AA
         HEX   8882C5B3B3AA8882C5C4B3B088
         HEX   0001989902039C040506A0A1A2A3A4A5
         HEX   0708A8A9AA090A0B0C0DB0B10E0F1011
         HEX   1213B81415161718191AC0C1C2C3C4C5
         HEX   C6C7C8C9CA1BCC1C1D1ED0D1D21FD4D5
         HEX   2021D822232425262728E0E1E2E3E429
         HEX   2A2BE82C2D2E2F303132F0F133343536
         HEX   3738F8393A3B3C3D3E3F

*
* This code is placed at $0300..$03FF
*

LBB00    LDA   #$00
         STA   $D0
         LDA   #$96
         STA   $D1
         LDA   $AB00
         CMP   #$08
         BNE   LBB16
         LDA   $AB12
         BEQ   LBB36
         BNE   LBB30
LBB16    CMP   #$29
         BNE   LBB21
LBB1A    LDA   $AB13
         BEQ   LBB36
         BNE   LBB30
LBB21    CMP   #$26
         BNE   LBB27
         BEQ   LBB1A
LBB27    CMP   #$4E
         BNE   LBB30
         LDA   $AB14
         BEQ   LBB36
LBB30    LDY   #$00
         LDA   ($D0),Y
         BNE   LBB3A
LBB36    STA   $9600
         RTS

LBB3A    PHA
         STA   $D2
LBB3D    LDY   #$05
         BEQ   LBB44
LBB41    DEY
         BNE   LBB41
LBB44    DEC   $D2
         BNE   LBB3D
         PLA
         CMP   #$FF
         BEQ   LBB50
         LDA   SPKR
LBB50    INC   $D0
         BNE   LBB56
         INC   $D1
LBB56    JMP   $0332

         LDA   #$4C
         STA   $BA
         LDA   #$66
         STA   $BB
         LDA   #$03
         STA   $BC
         RTS

         CMP   #$BC
         BNE   LBB71
         LDA   #$60
         STA   $E6
         JSR   $F3F2
LBB71    CMP   #$3A
         BCS   LBB78
         JMP   $00BE
LBB78    RTS

         DB    $00
         DB    $D3
         DB    $6C
         DB    $68
         DB    $68
         DB    $68
         DB    $60
         DB    $01
         DB    $30
         DB    $03
         DB    $90
         DB    $17
         DB    $00
         DB    $20

LBB87    LDA   $36
         EOR   #$64
         STA   $36
         LDA   $37
         EOR   #$FE
         STA   $37
         RTS

LBB94    PHP
         CMP   #$FB
         BNE   LBB9B
         LDA   #$E5
LBB9B    CMP   #$FD
         BNE   LBBA1
         LDA   #$E5
LBBA1    CMP   #$C0
         BNE   LBBA7
         LDA   #$E1
LBBA7    CMP   #$DC
         BNE   LBBAD
         LDA   #$C3
LBBAD    CMP   #$A0
         BMI   LBBB7
         CMP   #$C0
         BMI   LBBB7
         AND   #$DF
LBBB7    PLP
         JMP   COUT1

LBBBB    PHP
         PLA
         ROL
         ROL
         ROL
         ROL
         CLC
         ROR
         ROR
         ROR
         ROR
         PHA
         PLP
         LDA   #$AF
         STA   $03F0
         LDA   #$BE
         STA   $03F1
         JMP   (LB823+1)   $BC00

LBBD5    LDA   #$DE
         STA   $38
         LDA   #$03
         STA   $39
         RTS

LBBDE    LDA   KBD
         CMP   #$83
         BNE   LBBEB
         LDX   $F8
         TXS
         JMP   $D7D8
LBBEB    JMP   KEYIN

         NOP
         JMP   $03BB

LBBF2    DA    $BEAF
         DB    $1B
         JMP   LBEAF
         JMP   LBEAF
         JMP   LBEAF

         DB    $AF
LBBFF    DB    $BE

*
* The $BC00..$BCFF area
*

LBC00    LDY   #$00
         JMP   LB700

         HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
         HEX   00000000000000000000000000000000
         HEX   00

LBC56    SEC
         LDA   $C08D,X
         LDA   $C08E,X
         BMI   LBCBD
         LDA   #$FF
         STA   $C08F,X
         CMP   $C08C,X
         PHA
         PLA
LBC69    JSR   LBCC3
         JSR   LBCC3
         STA   $C08D,X
         CMP   $C08C,X
         NOP
         DEY
         BNE   LBC69
         LDA   #$D5
         JSR   LBCD5
         LDA   #$AA
         JSR   LBCD5
         LDA   #$96
         JSR   LBCD5
         LDA   $41
         JSR   LBCC4
         LDA   $44
         JSR   LBCC4
         LDA   $3F
         JSR   LBCC4
         LDA   $41
         EOR   $44
         EOR   $3F
         PHA
         LSR
         ORA   $3E
         STA   $C08D,X
         LDA   $C08C,X
         PLA
         ORA   #$AA
         JSR   LBCD4
         LDA   #$FE   **
         JSR   LBCD5
         LDA   #$AA
         JSR   LBCD5
         LDA   #$EB
         JSR   LBCD5
         CLC
LBCBD    LDA   $C08E,X
         LDA   $C08C,X
LBCC3    RTS

LBCC4    PHA
         LSR
         ORA   $3E
         STA   $C08D,X
         CMP   $C08C,X
         PLA
         NOP
         NOP
         NOP
         ORA   #$AA
LBCD4    NOP
LBCD5    NOP
         PHA
         PLA
         STA   $C08D,X
         CMP   $C08C,X
         RTS

         HEX   88A5E891A0948896E891A09488969191
         HEX   C894D0969191C894D09691A3C8A0A585
         HEX   A4

*
* Entry point of the RWTS
*

LBD00    STY   $48
         STA   $49
         LDY   #$02
         STY   $06F8
         LDY   #$04
         STY   $04F8
         LDY   #$01
         LDA   ($48),Y
         TAX
         LDY   #$0F
         CMP   ($48),Y
         BEQ   LBD34
         TXA
         PHA
         LDA   ($48),Y
         TAX
         PLA
         PHA
         STA   ($48),Y
         LDA   $C08E,X
LBD25    LDY   #$08
         LDA   $C08C,X
LBD2A    CMP   $C08C,X
         BNE   LBD25
         DEY
         BNE   LBD2A
         PLA
         TAX
LBD34    LDA   $C08E,X
         LDA   $C08C,X
         LDY   #$08
LBD3C    LDA   $C08C,X
         PHA
         PLA
         PHA
         PLA
         STX   $05F8
         CMP   $C08C,X
         BNE   LBD4E
         DEY
         BNE   LBD3C
LBD4E    PHP
         LDA   $C089,X
         LDY   #$06
LBD54    LDA   ($48),Y
         STA   |$0036,Y
         INY
         CPY   #$0A
         BNE   LBD54
         LDY   #$03
         LDA   ($3C),Y
         STA   $47
         LDY   #$02
         LDA   ($48),Y
         LDY   #$10
         CMP   ($48),Y
         BEQ   LBD74
         STA   ($48),Y
         PLP
         LDY   #$00
         PHP
LBD74    ROR
         BCC   LBD7C
         LDA   $C08A,X
         BCS   LBD7F
LBD7C    LDA   $C08B,X
LBD7F    ROR   $35
         PLP
         PHP
         BNE   LBD90
         LDY   #$07
LBD87    JSR   LBA00
         DEY
         BNE   LBD87
         LDX   $05F8
LBD90    LDY   #$04
         LDA   ($48),Y
         JSR   LBE5A
         PLP
         BNE   LBDAB
         LDY   $47
         BPL   LBDAB
LBD9E    LDY   #$12
LBDA0    DEY
         BNE   LBDA0
         INC   $46
         BNE   LBD9E
         INC   $47
         BNE   LBD9E
LBDAB    LDY   #$0C
         LDA   ($48),Y
         BEQ   LBE0B
         CMP   #$04
         BEQ   LBE0D
         ROR
         PHP
         BCS   LBDBC
         JSR   LB800
LBDBC    LDY   #$30
         STY   $0578
LBDC1    LDX   $05F8
         JSR   LB944
         BCC   LBDED
LBDC9    DEC   $0578
         BPL   LBDC1
LBDCE    LDA   $0478
         PHA
         LDA   #$60
         JSR   LBE95
         DEC   $06F8
         BEQ   LBE04
         LDA   #$04
         STA   $04F8
         LDA   #$00
         JSR   LBE5A
         PLA
LBDE7    JSR   LBE5A
         JMP   LBDBC

LBDED    LDY   $2E
         CPY   $0478
         BEQ   LBE10
         LDA   $0478
         PHA
         TYA
         JSR   LBE95
         PLA
         DEC   $04F8
         BNE   LBDE7
         BEQ   LBDCE
LBE04    PLA
         LDA   #$40
LBE07    PLP
         JMP   LBE48

LBE0B    BEQ   LBE46
LBE0D    JMP   LBEAF

LBE10    LDY   #$03
         LDA   ($48),Y
         PHA
         LDA   $2F
         LDY   #$0E
         STA   ($48),Y
         PLA
         BEQ   LBE26
         CMP   $2F
         BEQ   LBE26
         LDA   #$20
         BNE   LBE07
LBE26    LDY   #$05
         LDA   ($48),Y
         TAY
         LDA   LBFB8,Y
         CMP   $2D
         BNE   LBDC9
         PLP
         BCC   LBE51
         JSR   LB8DC
         PHP
         BCS   LBDC9
         PLP
         LDX   #$00
         STX   $26
         JSR   LB8C2
         LDX   $05F8
LBE46    CLC
         HEX   $24
LBE48    SEC
         LDY   #$0D
         STA   ($48),Y
         LDA   $C088,X
         RTS

LBE51    JSR   LB82A
         BCC   LBE46
         LDA   #$10
         BCS   LBE48
LBE5A    PHA
         LDY   #$01
         LDA   ($3C),Y
         ROR
         PLA
         BCC   LBE6B
         ASL
         JSR   LBE6B
         LSR   $0478
         RTS

LBE6B    STA   $2A
         JSR   LBE8E
         LDA   $0478,Y
         BIT   $35
         BMI   LBE7A
         LDA   $04F8,Y
LBE7A    STA   $0478
         LDA   $2A
         BIT   $35
         BMI   LBE88
         STA   $04F8,Y
         BPL   LBE8B
LBE88    STA   $0478,Y
LBE8B    JMP   LB9A0

LBE8E    TXA
         LSR
         LSR
         LSR
         LSR
         TAY
         RTS

LBE95    PHA
         LDY   #$02
         LDA   ($48),Y
         ROR
         ROR   $35
         JSR   LBE8E
         PLA
         ASL
         BIT   $35
         BMI   LBEAB
         STA   $04F8,Y
         BPL   LBEAE
LBEAB    STA   $0478,Y
LBEAE    RTS

LBEAF    LDY   #$03
         LDA   ($48),Y
         STA   $41
         LDA   #$AA
         STA   $3E
         LDY   #$00
         LDA   #$00
         STA   $44
LBEBF    STA   LB480+$7F,Y   $B4FF
         DEY
         BNE   LBEBF
LBEC5    STA   LBEFF+1,Y   $BF00
         DEY
         BNE   LBEC5
         LDA   #$50
         JSR   LBE95
         LDA   #$28
         STA   $45
LBED4    LDA   $44
         JSR   LBE5A
         JSR   LBF0D
         LDA   #$08
         BCS   LBF04
         LDA   #$30
         STA   $0578
LBEE5    SEC
         DEC   $0578
         BEQ   LBF04
         JSR   LB944
         BCS   LBEE5
         LDA   $2D
         BNE   LBEE5
         JSR   LB8DC
         BCS   LBEE5
         INC   $44
         LDA   $44
         CMP   #$23
LBEFF    BCC   LBED4
         CLC
         BCC   LBF09
LBF04    LDY   #$0D
         STA   ($48),Y
         SEC
LBF09    LDA   $C088,X
         RTS

LBF0D    LDA   #$00
         STA   $3F
         LDY   #$80
         BNE   LBF17
LBF15    LDY   $45
LBF17    JSR   LBC56
         BCS   LBF87
         JSR   LB82A
         BCS   LBF87
         INC   $3F
         LDA   $3F
         CMP   #$10
         BCC   LBF15
         LDY   #$0F
         STY   $3F
         LDA   #$30
         STA   $0578
LBF32    STA   LBFA8,Y
         DEY
         BPL   LBF32
         LDY   $45
LBF3A    JSR   LBF87
         JSR   LBF87
         JSR   LBF87
         PHA
         PLA
         NOP
         DEY
         BNE   LBF3A
         JSR   LB944
         BCS   LBF71
         LDA   $2D
         BEQ   LBF67
         LDA   #$10
         CMP   $45
         LDA   $45
         SBC   #$01
         STA   $45
         CMP   #$05
         BCS   LBF71
         SEC
         RTS

LBF62    JSR   LB944
         BCS   LBF6C
LBF67    JSR   LB8DC
         BCC   LBF88
LBF6C    DEC   $0578
         BNE   LBF62
LBF71    JSR   LB944
         BCS   LBF81
         LDA   $2D
         CMP   #$0F
         BNE   LBF81
         JSR   LB8DC
         BCC   LBF0D
LBF81    DEC   $0578
         BNE   LBF71
         SEC
LBF87    RTS

LBF88    LDY   $2D
         LDA   LBFA8,Y
         BMI   LBF6C
         LDA   #$FF
         STA   LBFA8,Y
         DEC   $3F
         BPL   LBF62
         LDA   $44
         BNE   LBFA6
         LDA   $45
         CMP   #$10
         BCC   LBF87
         DEC   $45
         DEC   $45
LBFA6    CLC
         RTS

LBFA8    HEX   FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
LBFB8    HEX   000D0B09070503010E0C0A080604020F

*
* Remains of DOS 3.3 patches
*

         JSR   SETVID
         LDA   KBDSTROBE
         LDA   ROMIN2
         LDA   #$00
         STA   $E000
         JMP   LB744

         DB    $00
         DB    $00
         DB    $00
         STA   $AA63
         STA   $AA70
         STA   $AA71
         RTS

         JSR   $A75B
         STY   $AAB7
         RTS

         JSR   $AE7E
         LDX   LB380+$1B
         TXS
         JSR   $A316
         TSX
         STX   LB380+$1B
         LDA   #$09
         JMP   LB380+5
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
toinet
Site Admin


Inscrit le: 15 Juin 2007
Messages: 3043
Localisation: Le Chesnay, France

MessagePosté le: Mar 18 Oct 2011, 22:12    Sujet du message: Répondre en citant

Code:

THE CODE AT $0300..$03FF



KBD EQU $C000
SPKR EQU $C030
KEYIN EQU $FD1B
COUT1 EQU $FDF0

         TYP   BIN
         ORG   $000300
         MX    %11

L0300    LDA   #$00
         STA   $D0
         LDA   #$96
         STA   $D1
         LDA   $AB00
         CMP   #$08
         BNE   L0316
         LDA   $AB12
         BEQ   L0336
         BNE   L0330
L0316    CMP   #$29
         BNE   L0321
L031A    LDA   $AB13
         BEQ   L0336
         BNE   L0330
L0321    CMP   #$26
         BNE   L0327
         BEQ   L031A
L0327    CMP   #$4E
         BNE   L0330
         LDA   $AB14
         BEQ   L0336
L0330    LDY   #$00
L0332    LDA   ($D0),Y
         BNE   L033A
L0336    STA   $9600
         RTS

L033A    PHA
         STA   $D2
L033D    LDY   #$05
         BEQ   L0344
L0341    DEY
         BNE   L0341
L0344    DEC   $D2
         BNE   L033D
         PLA
         CMP   #$FF
         BEQ   L0350
         LDA   SPKR
L0350    INC   $D0
         BNE   L0356
         INC   $D1
L0356    JMP   L0332

L0359    LDA   #$4C   JMP
         STA   $BA
         LDA   #<L0366
         STA   $BB
         LDA   #>L0366
         STA   $BC
         RTS

L0366    CMP   #$BC
         BNE   L0371
         LDA   #$60
         STA   $E6
         JSR   $F3F2
L0371    CMP   #$3A
         BCS   L0378
         JMP   $00BE
L0378    RTS

         DB    $00
         DB    $D3
         DB    $6C
         PLA
         PLA
         PLA
         RTS

         DB    $01
         DB    $30
         DB    $03
         DB    $90
         DB    $17
         DB    $00
         DB    $20

L0387    LDA   $36   $FDF0 v $FE64 = $0394
         EOR   #$64
         STA   $36
         LDA   $37
         EOR   #$FE
         STA   $37
         RTS

L0394    PHP
         CMP   #$FB
         BNE   L039B
         LDA   #$E5
L039B    CMP   #$FD
         BNE   L03A1
         LDA   #$E5
L03A1    CMP   #$C0
         BNE   L03A7
         LDA   #$E1
L03A7    CMP   #$DC
         BNE   L03AD
         LDA   #$C3
L03AD    CMP   #$A0
         BMI   L03B7
         CMP   #$C0
         BMI   L03B7
         AND   #$DF
L03B7    PLP
         JMP   COUT1

L03BB    PHP
         PLA
         ROL
         ROL
         ROL
         ROL
         CLC
         ROR
         ROR
         ROR
         ROR
         PHA
         PLP
         LDA   #$AF
         STA   L03EF+1
         LDA   #$BE
         STA   L03EF+2
         JMP   ($B824)

L03D5    LDA   #<L03DE
         STA   $38
         LDA   #>L03DE
         STA   $39
         RTS

L03DE    LDA   KBD
         CMP   #$83
         BNE   L03EB
         LDX   $F8
         TXS
         JMP   $D7D8
L03EB    JMP   KEYIN

         NOP
L03EF    JMP   L03BB

L03F2    DA    $BEAF
         DB    $1B
         JMP   $BEAF
         JMP   $BEAF
         JMP   $BEAF
         DA    $BEAF
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> PROTECTION MALEFIQUE Toutes les heures sont au format GMT + 1 Heure
Aller à la page 1, 2  Suivante
Page 1 sur 2

 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum


Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com