mirror of
https://github.com/antoinevignau/source.git
synced 2024-05-28 20:41:28 +00:00
339 lines
9.8 KiB
ArmAsm
339 lines
9.8 KiB
ArmAsm
*
|
|
* La maison du Professeur Folibus
|
|
*
|
|
* (c) 1982, Alain BrŽgŽon
|
|
* (c) 2023, Brutal Deluxe Software (Apple II)
|
|
*
|
|
|
|
mx %11
|
|
lst off
|
|
|
|
*-----------------------------------
|
|
* PLAYMUSIC
|
|
*-----------------------------------
|
|
|
|
playMUSIC
|
|
sty $1e
|
|
stx $1f
|
|
|
|
LDA #$01
|
|
STA $09
|
|
STA $1D
|
|
PHA
|
|
PHA
|
|
PHA
|
|
BNE LA04D
|
|
LA038 INY
|
|
LDA ($1E),Y
|
|
STA $09
|
|
INY
|
|
LDA ($1E),Y
|
|
STA $1D
|
|
LA042 LDA $1E
|
|
CLC
|
|
ADC #$03
|
|
STA $1E
|
|
BCC LA04D
|
|
INC $1F
|
|
LA04D LDY #$00
|
|
LDA ($1E),Y
|
|
CMP #$01
|
|
BEQ LA038
|
|
BCS LA067
|
|
PLA
|
|
PLA
|
|
PLA
|
|
LA05A LDX #$49
|
|
INY
|
|
LDA ($1E),Y
|
|
BNE LA063
|
|
LDX #$C9
|
|
LA063 BIT KBDSTROBE
|
|
RTS
|
|
|
|
LA067 STA $08
|
|
JSR LA05A
|
|
STX LA0B6
|
|
STA $06
|
|
LDX $09
|
|
LA073 LSR
|
|
DEX
|
|
BNE LA073
|
|
STA LA0AE+1
|
|
JSR LA05A
|
|
STX LA0EE
|
|
STA $07
|
|
LDX $1D
|
|
LA084 LSR
|
|
DEX
|
|
BNE LA084
|
|
STA LA0E6+1
|
|
*
|
|
PLA
|
|
TAY
|
|
PLA
|
|
TAX
|
|
PLA
|
|
BNE LA098
|
|
LA095 BIT SPKR
|
|
LA098 CMP #$00
|
|
BMI LA09F
|
|
NOP
|
|
BPL LA0A2
|
|
LA09F BIT SPKR
|
|
LA0A2 STA $4E
|
|
BIT KBD
|
|
BMI LA063
|
|
DEY
|
|
BNE LA0AE
|
|
BEQ LA0B4
|
|
LA0AE CPY #$36
|
|
BEQ LA0B6
|
|
BNE LA0B8
|
|
LA0B4 LDY $06
|
|
LA0B6 EOR #$40
|
|
LA0B8 BIT $4E
|
|
BVC LA0C3
|
|
BVS LA0BE
|
|
LA0BE BPL LA0C9
|
|
NOP
|
|
BMI LA0CC
|
|
LA0C3 NOP
|
|
BMI LA0C9
|
|
NOP
|
|
BPL LA0CC
|
|
LA0C9 CMP SPKR
|
|
LA0CC DEC $4F
|
|
BNE LA0E1
|
|
DEC $08
|
|
BNE LA0E1
|
|
BVC LA0D9
|
|
BIT SPKR
|
|
LA0D9 PHA
|
|
TXA
|
|
PHA
|
|
TYA
|
|
PHA
|
|
JMP LA042
|
|
|
|
LA0E1 DEX
|
|
BNE LA0E6
|
|
BEQ LA0EC
|
|
LA0E6 CPX #$0C
|
|
BEQ LA0EE
|
|
BNE LA0F0
|
|
LA0EC LDX $07
|
|
LA0EE EOR #$80
|
|
LA0F0 BVS LA095
|
|
NOP
|
|
BVC LA098
|
|
NOP
|
|
|
|
*--- End of player
|
|
|
|
*--- INTRODUCTION (Prelude)
|
|
|
|
zikINTRODUCTION
|
|
hex 0C80000C2B800C19800C1C800C19400C
|
|
hex 2B400C19560C2B560C80000C2B800C19
|
|
hex 800C1C800C19400C2B400C19560C2B56
|
|
hex 0102020C80000C26800C18800C19800C
|
|
hex 18390C26390C18400C26400C80000C26
|
|
hex 800C18800C19800C18440C26440C1840
|
|
hex 0C26400103030C80000C22800C18800C
|
|
hex 19800C18390C22390C18560C22560C80
|
|
hex 000C22800C18800C19800C18560C2256
|
|
hex 0C18390C22390102020C80000C20800C
|
|
hex 19800C1C800C19560C20560C19560C20
|
|
hex 560C4C000C204C0C194C0C1C4C0C1944
|
|
hex 0C20440C19440C20440101010C80000C
|
|
hex 26800C19800C1C800C19400C20400C22
|
|
hex 400C20400C26390C20390C22390C2039
|
|
hex 0C33000C2B330C2D330C33000102020C
|
|
hex 2D000C202D0C1C330C20330C1C390C20
|
|
hex 390C1C400C20400C44000C20440C1C4C
|
|
hex 0C204C0C1C560C20560C1C600C206001
|
|
hex 01010C22560C1C560C15560C16560C15
|
|
hex 560C1C560C20000C1C000C22560C1C56
|
|
hex 0C20560C1C560C2B560C22560C26000C
|
|
hex 2B000102020C4C000C334C0C204C0C22
|
|
hex 4C0C204C0C334C0C204C0C334C0C5600
|
|
hex 0C33560C20560C22560C204C0C334C0C
|
|
hex 20560C33560103030C4C000C264C0C2B
|
|
hex 4C0C264C0C2B000C2D000C33000C3900
|
|
hex 0C20720C22720C26720C15000C16000C
|
|
hex 19000C1C000C20000102020C22560C26
|
|
hex 560C2B560C15560C1C560C15560C2200
|
|
hex 0C1C000C2B560C26560C22560C1C560C
|
|
hex 20560C22560C26000C2B000101010C1E
|
|
hex 560C2B560C24560C26560C243C0C2B3C
|
|
hex 0C1E330C2B330C19560C2B560C24560C
|
|
hex 26560C243C0C2B3C0C1E330C2B330102
|
|
hex 020C60000C26600C1C600C19600C1860
|
|
hex 0C1C600C26600C2B600C30000C26300C
|
|
hex 1C330C19330C18390C1C390C22720C26
|
|
hex 720103030C28660C22660C28660C2266
|
|
hex 0C1C300C22300C1C330C22330C28390C
|
|
hex 22390C28390C22390C1C400C22400C1C
|
|
hex 440C22440102020C204C0C224C0C2633
|
|
hex 0C20330C22300C20300C1C300C22300C
|
|
hex 204C0C224C0C264C0C2B4C0C30000C33
|
|
hex 000C39000C40000101010C44000C3044
|
|
hex 0C2B440C30440C2B440C30440C2B000C
|
|
hex 30000102020C72000C30720C2B720C30
|
|
hex 720C2B720C30720C2B000C3000010101
|
|
hex 0C40000C33400C24400C26400C24800C
|
|
hex 33800C24800C33800102020C40000C33
|
|
hex 400C24400C26400C24800C33800C2480
|
|
hex 0C33800103030C40000C30400C26400C
|
|
hex 2B400C26800C30800C26800C30800102
|
|
hex 020C40000C30400C26400C2B400C2680
|
|
hex 0C30800C26800C30800103030C40000C
|
|
hex 22400C18400C19400C18800C22800C18
|
|
hex 800C22800102020C40000C22400C1840
|
|
hex 0C19400C18800C22800C18800C228001
|
|
hex 01010C40000C2B400C19400C1C400C19
|
|
hex 800C20800C22800C26800C2B800C3080
|
|
hex 0C33800C39800C40000C44000C4C000C
|
|
hex 56000102020C5A000C395A0C265A0C22
|
|
hex 5A0C205A0C265A0C22000C2000010401
|
|
hex 0101010C5A000C395A0C265A0C225A0C
|
|
hex 205A0C265A0C22000C20000102020C60
|
|
hex 000C39600C2B600C26600C22600C2B60
|
|
hex 0C26000C22000103030C60000C39600C
|
|
hex 2B600C26600C22600C2B600C26000C22
|
|
hex 000101010C60000C39600C2B300C2230
|
|
hex 0C1C300C16300C15560102020C15000C
|
|
hex 39000C33000C2D000C2B000C26000C22
|
|
hex 000C20000103030C1C560C22560C2B56
|
|
hex 0C26560C22560C20560C1C000C190001
|
|
hex 02020C18560C1C560C22560C20560C1C
|
|
hex 560C19560C18000C15000103030C1422
|
|
hex 0C15220C16220C15220C15280C18280C
|
|
hex 19280C18280C182B0C1C2B0C222B0C26
|
|
hex 2B0C2B560C30560C33560C3056010202
|
|
hex 0C56000C39560C2B560C22560C1C560C
|
|
hex 19560C18000C1C000C19560C20560C2B
|
|
hex 560C30560C33560C40560C39000C3300
|
|
hex 0101010C56000C40560C33560C2B560C
|
|
hex 20560C1C560C19000C20000102020C16
|
|
hex 260C1B260C1C260C1B260C1B2D0C1C2D
|
|
hex 0C1E2D0C1C2D0C1C000C20000C22000C
|
|
hex 20000C20000C26000C2D000C33000C39
|
|
hex 000C2D390C26390C20390C1C400C1640
|
|
hex 0C15400C16400103030C15440C1C440C
|
|
hex 22440C26440C22660C1C660C2B660C22
|
|
hex 660102020C39000C2B390C2D390C3339
|
|
hex 0C395A0C405A0C445A0C4C5A0101010C
|
|
hex 00560C00560C184C0C194C0C1C440C20
|
|
hex 440C22400C26400C2B390C18390C1933
|
|
hex 0C1C330C20300C22300C26400C2B4001
|
|
hex 02020C304C0C194C0C1C4C0C204C0C22
|
|
hex 000C26000C2B000C30000C33500C1C50
|
|
hex 0C204C0C224C0C26440C28440C30800C
|
|
hex 33800103030C39600C20600C22600C26
|
|
hex 600C22560C1C560C2B440C1C440C2640
|
|
hex 0C1C400C22390C1C390C20330C1C330C
|
|
hex 262D0C1C2D0102020C22560C1C560C2B
|
|
hex 440C1C440C20330C1C330C262D0C1C2D
|
|
hex 0C22560C1C560C2B440C1C440C20330C
|
|
hex 1C330C262D0C1C2D0101010C22560C1C
|
|
hex 560C2B2B0C1C2B0C26260C1C260C2222
|
|
hex 0C1C220C20200C1C200C1C1C0C1C000C
|
|
hex 19190C1C190C2B2B0C1C2B0102020C1C
|
|
hex 1C0C1C000C19190C1C190C18180C1C18
|
|
hex 0C2B2B0C1C2B0C19190C1C190C18180C
|
|
hex 1C180C15150C1C150C19190C1C190103
|
|
hex 030C18180C1C180C19190C1C190C1818
|
|
hex 0C1C180C1C1C0C1C000C19190C1C190C
|
|
hex 1C1C0C1C000C19190C1C190C20200C1C
|
|
hex 200102020C1C1C0C1C000C20200C1C20
|
|
hex 0C1C1C0C1C000C22220C1C220C20200C
|
|
hex 1C200C22220C1C220C20200C1C200C26
|
|
hex 260C1C260101010C22220C1C220C2B2B
|
|
hex 0C262B0102020C243C0C24560C22390C
|
|
hex 22560C20360C20560C1E330C1E560C1C
|
|
hex 300C1C560C1B2D0103030C1B560C192B
|
|
hex 0C19560C18280C18560C16260C16560C
|
|
hex 15240C15560C14220C14560C13200C13
|
|
hex 560C121E0C12560C111C0C1156010101
|
|
hex 0C10560C19560C2B560C19560C102B0C
|
|
hex 192B0C102B0C192B0103030C10560C19
|
|
hex 560C2B560C19560C102B0C192B0C102B
|
|
hex 0C192B0101010C10560C1C560C2B560C
|
|
hex 1C560C102B0C1C2B0C102B0C1C2B0103
|
|
hex 030C10560C1C560C2B560C1C560C102B
|
|
hex 0C1C2B0C102B0C1C2B0101010C11560C
|
|
hex 1C560C2B560C1C560C11300C1C300C11
|
|
hex 300C1C300102020C11560C1C560C2B56
|
|
hex 0C1C560C11300C1C300C11560C1C5630
|
|
hex 1040FFFFFE00FFFE1000000000000000
|
|
hex 00000000000000000000000000000000
|
|
|
|
*--- PERDU (Beethoven's fifth)
|
|
|
|
zikPERDU
|
|
hex 010303302B6C302B36302B39302B7230
|
|
hex 2B80302B40302B48302B90309FA00102
|
|
hex 0218205018285018304C18364C183998
|
|
hex 1836980C39900C36900C39900C369030
|
|
hex 39901840901848903048A00101013024
|
|
hex AC302456302460302460180066010303
|
|
hex 182B66183C6618406618308018338018
|
|
hex 24801828800102023028601828601828
|
|
hex 6C182860182856182850182860182872
|
|
hex 01010118307218407218487218369018
|
|
hex 3990182890182B90302B6C302B36302B
|
|
hex 390102021826721824723036800C3640
|
|
hex 0C3040182B40182B4C18304C18306018
|
|
hex 36600103031839481840480C406C0C39
|
|
hex 6C18366C303660183960184060010101
|
|
hex 18489018488018487218486C18486018
|
|
hex 4850184856184860010303302B6C302B
|
|
hex 36302B39302B72302B80302B40302B48
|
|
hex 302B90309FA001020218205018285018
|
|
hex 304C18364C1839981836980C39900C36
|
|
hex 900C39900C3690303990184090184890
|
|
hex 3048A00101013024AC30245630246030
|
|
hex 2460180066010303182B66183C661840
|
|
hex 66183080183380182480182880010202
|
|
hex 30286018286018286C18286018285618
|
|
hex 28501828601828720101011830721840
|
|
hex 72184872183690183990182890182B90
|
|
hex 302B6C302B36302B3901020218267218
|
|
hex 24723036800C36400C3040182B40182B
|
|
hex 4C18304C183060183660010303183948
|
|
hex 1840480C406C0C396C18366C30366018
|
|
hex 3960184060010101C0488F3039903039
|
|
hex 481839500C36500C39500C40A00C39A0
|
|
hex 1848A01848AC1840AC303C56303C6030
|
|
hex 3C600102023040663020661800561824
|
|
hex 56182880182B80010303302860302860
|
|
hex 0C286C0C2B6C0C306C0C366C18396C18
|
|
hex 406C0102021844721840723039721839
|
|
hex 80183680303080010404183090182B90
|
|
hex 302880302872302B9001020218308018
|
|
hex 36801839501840500C39600C36601830
|
|
hex 60303656304080303F40304748308F90
|
|
hex 01010130369830364C183656182B5618
|
|
hex 30AC1836AC3020601820601820563020
|
|
hex 4C18246C18266C0103030C2B720C3072
|
|
hex 18247230487230406C1840600C39600C
|
|
hex 3660303990183948183F403048500101
|
|
hex 013048A03036AC303656303650182BA0
|
|
hex 1830A001020230309830304C30304818
|
|
hex 2890182B90010303302B88302B44302B
|
|
hex 40182480182880010404302860302830
|
|
hex 30283630286C01040430487230487218
|
|
hex 48901839901830721828720103031828
|
|
hex 6C182B6C302B6C302B78182B780C2878
|
|
hex 0C247801020230368030368018369018
|
|
hex 2B90182448181E480103033020503020
|
|
hex 50302056303656183960183060302860
|
|
hex 30286C30406C3048720102020C30900C
|
|
hex 2B9018289018286C182B6C182B501830
|
|
hex 500103030C36900C39901840901840A0
|
|
hex 1839A00C39900C36900C39900C369018
|
|
hex 39901836903036D8C0D7D80066B31000
|
|
hex 00000000000000000000000000000000
|