LST OFF ******************************** * * * BOOT1 DOC MURYADEN II * * (C)1991 BY DECKARD * * FROM THE HELLFIRE CLUB * * * ******************************** ORG $4000 * GESTION MEM ET AUTRES READER0 EQU $081B ; HELLFIRE CLUB BOOT0! SPEAK EQU $C030 TEXT EQU $F399 HOME EQU $FC58 WAIT EQU $FCA8 ******************************** * * IMAGE HELLFIRE CLUB IMAHELL HEX FFFFC080FFC080FF3E80FF1300FF6F80 HEX FF3E80FF1300FF6F80FF3E80FF1300FF HEX 6F80FF3E80FF1300FF6F80FF3E80FF13 HEX 00FF6F80FF3E80FF1300FF0980FF1F00 HEX FF4780FF6580FF1400FF4780FF4980C0 HEX 809040904080008040C0009040908080 HEX C080C010C010C0008040C0508010C080 HEX C0FF0880FF1400FF3980FF3F80A0A080 HEX A020A828A228AA20822AAA8028AA2A8A HEX 2A8222882A82AA28AA0AA028A828AA2A HEX AA2A8228AA28A02AA828A028A828A028 HEX 00A820800080200020FF0C00FF3980FF HEX 3780C000C0D040C150D450D551D45595 HEX 05D515D1459505C50585840091059401 HEX 950585008105154001011185109105D5 HEX 0185C5C515D5459515541545145594 HEX 51D415D410D514D4409411C45080FF05 HEX 00FF3980FF348020A8202AA82AAA2AAA HEX 2AAA2A8A088208820280028002FF1B80 HEX 8280800280808200800082008A208202 HEX 8A08800AA2A288AA8AAA208A0AA080A2 HEX 082280008020FF3580FF308040404441 HEX 9151C5551550C51481048104FF0980C0 HEX FF04D090D0D0D09000FF1F80FF070080 HEX 019041C1159411C551D450D455D550D4 HEX 809040FF3280FF2C80A002A000A22AA8 HEX 0AAA2AA2208288FF0F80A0A8A8A8A2AA HEX A8A8A888FF1980B09898B8988880FF0D HEX 0080828208882AA222A82AA822A802A8 HEX 20A0FF2F80FF2B80059015D5459545D5 HEX 459084818400FF1080D0C494D4D48494 HEX D4D484FF1980E1B3B3F1F0B080FF13 HEX 0004958545D411D554D1059140C0FF2D HEX 80FF298020A022AA2AA802AA22800282 HEX FF14808A8280828280888A82FF0B80FF HEX 05A0FF0A80C2E6E6E2E1C380FF070040 HEX 50545040FF08008008A88A208022AA20 HEX 8A2A8A008002FF2A80FF298011C554D5 HEX 55D554D40104D00081FF138084FF0585 HEX 91D5C581FF0780909485818181809195 HEX 85FF0880C6CCCCCCC5C380FF0900AAFF HEX 0A00808084D5018415D511D455D45594 HEX 459040FF2880FF2680A080882AAA2AAA HEX 22AA0AAA0200FF1880A0A0A0A2A2A2A0 HEX A0FF078088FF058AA2AA8A82FF08808E HEX FF04998E80FF0900D5FF0A0080808002 HEX 08800AAA0AAA28AA08AA28AA208820FF HEX 2680FF2680D005D055D551D545D551 HEX D405008000FF0780D8CCCCDCCCC4FF07 HEX 80FF0581C1C4D591FF0980FF04C0C4C4 HEX C5C1C0FF0880A2FF04B39D80FF0900AA HEX FF0A00FF0580C515D115D144D144D145 HEX D104C000FF2680FF2580008228822AAA HEX 2A8A2AAA2A8A28008000FF078090B9B9 HEX D9D988FF0880FF04A888A8A8A888FF07 HEX 8082FF04A282A2A2A08AFF0880F0BC8E HEX C6F6BC80FF0900D5FF0A00FF05808200 HEX 8A2AAA228A2AAA2A8A22A8288000FF24 HEX 80FF2580008004C155D555D550D555D5 HEX 50FF0A8082FF048382FF078085C5C184 HEX 85818080C0C0FF0780C1D1D191FF05D1 HEX 91FF0880F8BCB0B0B09880FF0900AAFF HEX 0A0080808004808001D5519415D51595 HEX 55D5118400FF2680FF258000802088 HEX 0AAA22882AAA2AA80AA0FF1680A8AA82 HEX FF048AA8AA82FF078082A8A88882A8A8 HEX 8882FF0980F1F8E0E0E0F880FF0900D5 HEX 80FF090080808000808008800AA22AA8 HEX 0AAA2A800A8000FF2680FF28808415C4 HEX 15C505C551850104C000FF1480C0D094 HEX 85D5D4C4949484FF1980A3B1B0B0F3E1 HEX 80FF0700020A2A0A02FF080090409411 HEX 408114D441D115D44481148000FF2880 HEX FF2A800A8AA228AA8AAA228A80A2A0FF HEX 1480828A8A8280828A8A88FF1980C3E6 HEX E6E6E2A180FF1200A00080AA28A022AA HEX 22A00AAA2882088200FF2A80FF2C8085 HEX 848115D5949555D58145C05000FF0F80 HEX D4D185D5D58185D5D581FF1980888D8D HEX 8E8E8880FF0D00400044D040945554 HEX C515D55085119544810184FF2D80FF2F HEX 80820282A008AA2AA80AAA2AAA0A8A00 HEX A0FF0A8082FF05808282FF2280FF0800 HEX 20A000A0208A222A222AAA2AA20A2882 HEX 808000FF3280FF328081008114D514D1 HEX 15D555D104D144818050C080C0FF2B80 HEX C080C00000C010D0549114C155D510C5 HEX 158511841185FF3980FF378002800A82 HEX 0A20220AA22AAA0AA02AAA2888288208 HEX 80008020880088208000A0FF04802080 HEX 008020A00088208800A0808008A08088 HEX 2088A82AAA2AAA08A00AAA2AA82AAA0A HEX AA0AA2028A0880008200FF3A80FF3D80 HEX 8180840480058505C415C54594458555 HEX 4551145154C154D450D154C154D05590 HEX 50C501955055508410D5508554D554 HEX 9555D555C515D5559505040185808101 HEX FF0B00FF3980FF498082808202008220 HEX 800AA22AA02A8A0AA82A8A28820A8228 HEX 80208A0AA802800A8A0088028A008282 HEX 8280000002FF1200FF3980FF50808180 HEX 8080818081018480800101FF1680FF14 HEX 00FF3980FF6580FF1400FF4780FF6580 HEX FF1400FF4780FF5A80FF1F00FF4780FF HEX C080FFC080FFC080FFC080FFC080C9 ******************************** * DECOMPACTEUR NO IV UNPACK LDX #IMAHELL STY H032E+2 LDY #$00 STY H032E+1 JSR H032E STA $FE H0311 JSR H032E CMP $FE BEQ H031D JSR H033A BCC H0311 H031D JSR H032E STA $00 JSR H032E H0325 JSR H033A DEC $00 BNE H0325 BEQ H0311 H032E LDA $FFFF INC H032E+1 BNE H0339 INC H032E+2 H0339 RTS H033A PHA TYA PHA AND #$C0 STA H0367+1 LSR LSR ORA H0367+1 STA H0367+1 PLA STA H0367+2 ASL ASL ASL ROL H0367+2 ASL ROL H0367+2 ASL ROR H0367+1 LDA H0367+2 AND #$1F ORA #$20 STA H0367+2 PLA H0367 STA $FFFF,X INY CPY #$C0 BCC H0376 LDY #$00 INX CPX #$28 BCS H0377 H0376 RTS H0377 PLA PLA RTS ******************************** * LANCEMENT PROG LST ON JSR TEXT LST OFF JSR HOME LDX #0 SIGN LDA TXT1,X BEQ FSIGN STA $533,X LDA TXT2,X STA $633,X INX BNE SIGN FSIGN LDA #2 ; SOUND2,50 (SORT) STA AD1 LDA #50 STA AD3 JSR SOUNDD JSR UNPACK ; DECOMPACTAGE EN HGR BIT $C054 ; AFFICHE LA PAGE BIT $C050 BIT $C057 BIT $C053 LDA #1 ; NOISE1,50,255 (FRAPPE) LDY #50 LDX #255 STA AD1 STY AD2 JSR NOISED LDA #$FF ; TEMPO JSR WAIT LDA #$FF JSR WAIT LDA #40 ; 3*(SOUND40,40) FOR VICTORY STA AD1 STA AD3 JSR SOUNDD LDA #40 STA AD1 STA AD3 JSR SOUNDD LDA #40 STA AD1 STA AD3 JSR SOUNDD LDA #100 ; SOUND100,50 FOR END VICTORY STA AD1 LDA #50 STA AD3 JSR SOUNDD LDA #BOOT2INFO JMP READER0 ******************************** BOOT2INFO DFB 2 ; PISTE HEX 3E ; BUF(+)-2 DFB 10 ; SECTEUR DFB 72 ; NB SECT HEX 75 ; JMP(+) HEX 00 ; JMP(-) ******************************** * * TEXTE BOOT TXT1 ASC "Elrik and Deckard"00 TXT2 ASC " present "00 ******************************** * * ROUTINES DE SONS SOUNDD LDA #$01 STA AD2 LDY #$00 ; DEBUT LDA AD3 PHA LDX AD1 DEX1 DEX BNE DEX1 BIT SPEAK LDX AD2 DEX2 DEX BNE DEX2 BIT SPEAK PLA TAX DEX TXA BNE DEBUT+3 CPY #$01 BEQ LA ; ICI LDA AD2 CLC ADC #$01 CMP #$1B BEQ CHANGE STA AD2 DEC AD1 JMP DEBUT CHANGE INY JMP DEBUT ; LA LDA AD2 SEC SBC #$01 CMP #$01 BEQ FINSOUND STA AD2 INC AD1 JMP DEBUT ; FINSOUND RTS ; AD1 DFB $00 AD2 DFB $00 AD3 DFB $00 * * NOISE * NOISED STX AD2 LDA #0 STA CPT2 BCL1 LDX AD2 BCL2 LDA CPT2 ADC AD3 STA CPT2 TAY BCL3 DEY BNE BCL3 LDA SPEAK TXA TAY BCL4 DEY BNE BCL4 LDA SPEAK DEX BNE BCL2 DEC AD1 BNE BCL1 FIN_NOISE RTS CPT2 HEX 00