* * 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