; LST OFF ******************************** * * * BOOT2 DOC MURYADEN II * * (C)1991 BY DECKARD * * FROM THE HELLFIRE CLUB * * * ******************************** ORG $7500 * GESTION MEM ET AUTRES READER0 EQU $081B ; HELLFIRE CLUB BOOT0! KEY EQU $C000 ZKEYBRD EQU $C010 MUSIC EQU $C030 HC001 EQU $C001 MAINWRT EQU $C004 AUXWRT EQU $C005 HC00C EQU $C00C HC00D EQU $C00D TXTCLR EQU $C050 MIXCLR EQU $C052 LOWSCR EQU $C054 HIRES EQU $C057 HC05D EQU $C05D HC05E EQU $C05E HC05F EQU $C05F TEXT EQU $F399 HOME EQU $FC58 PRINTACC EQU $FDED PR EQU $FE95 ; ******************************** * LANCEMENT PROG JSR HOME BIT $C051 JSR $C300 ; TEXTE 80C AVEC FOND CLEAN (SOURIS) BIT $C054 LDA #$56 STA A+1 JSR SUB BIT $C055 LDA #$57 STA A+1 JSR SUB JSR TEXT JSR DECOMP ; DECOMPACTAGE JSR PRINTDHGR ; AFFICHAGE LDA #0 STA KEY BIT ZKEYBRD JSR GOHPLAYER ; PLAY MUSIC! JSR NORM LDA #$11 ; RETOUR 40 COLONNES JSR PRINTACC LDA #$00 ; PR#0 JSR PR JSR TEXT JSR HOME LDA #BOOT3INFO JMP READER0 ******************************** BOOT3INFO DFB 7 ; PISTE HEX 3E ; BUF(+)-2 DFB 2 ; SECTEUR DFB 6 ; NB SECT HEX 40 ; JMP(+) HEX 00 ; JMP(-) ******************************** * PASSE MODE TEXT NORM LDA $C05F LDA $C07F LDA $C051 LDA $C00C RTS * NETTOYAGE DE L'ECRAN EN FOND 'SOURIS' SUB LDY #0 GO LDX #0 LDA TABLEH,Y STA B+2 LDA TABLEL,Y STA B+1 A LDA #$56 B STA $400,X INX CPX #40 BNE A INY CPY #24 BNE GO RTS TABLEH HEX 040405050606070704040505060607070404050506060707 TABLEL HEX 008000800080008028A828A828A828A850D050D050D050D0 ; ************************ * * * DECOMPACTEUR EXTASIE * * (S)OURCE BY DECKARD * * * ************************ * ; PREM EQU $4000 ; H800D LDA #$00 STA H8007 STA H8008 STA H8009 P1 LDA #>PREM STA $09 P2 LDA #PREM STA $19 P4 LDA #PART1 STA $FD LDA #PART2 STA $FF LDA #$00 STA H5054 STA H504F STA H5050 LDY H9828 LDA #$FF H56DA STA H7FEF,Y DEY BPL H56DA RTS H56E1 LDY H9828 H56E4 TXA CMP H7FEF,Y BNE H56FF LDA #$00 STA H9818,Y STA H9810,Y STA H9800,Y LDA #$90 STA H9808,Y LDA #$FF STA H7FEF,Y H56FF DEY BPL H56E4 RTS H5703 STA H9808,Y LDA H7FED,X STA H9810,Y LDA H7FF7,X STA H9800,Y LDA #$01 STA H9818,Y TXA STA H7FEF,Y RTS H571C STX H5052 TXA ASL TAX LDA ($FC,X) LDX H5052 CMP #$7C BEQ H573F STA H5051 LDY H9828 H5731 LDA H7FEF,Y BMI H5739 DEY BNE H5731 H5739 LDA H5051 JSR H5703 H573F TXA ASL TAX INC $FC,X LDA ($FC,X) BEQ H575F INC $FC,X BNE H574E INC $FD,X H574E LDX H5052 STA H5052 AND #$3F STA H504F,X LDA H5052 BMI H571C RTS H575F CPX #$00 BEQ H576B DEC $FE LDA #$31 STA H5050 RTS H576B PLA PLA RTS H576E LDX #$01 H5770 LDA H504F,X SEC SBC H5054 STA H504F,X BNE H577F JSR H56E1 H577F DEX BPL H5770 LDX #$01 H5784 LDA H504F,X BNE H578C JSR H571C H578C DEX BPL H5784 LDA H504F CMP H5050 BCC H579A LDA H5050 H579A STA H5054 LDA H7FFA LSR TAY LDA #$00 CLC H57A5 ADC H5054 DEY BNE H57A5 STA H982A JSR H982B ******************************** ; TEST CLAVIER POUR FIN LDA KEY BPL H57BD RTS ******************************** H57BD JMP H576E GOHPLAYER JSR H982E JSR HPLAYER JSR H576E JSR H9831 RTS H982B JMP H9976 H982E JMP H999E H9831 JMP H99AD ; H9834 HEX 00 ; ******************************** * * MODULE M O V E * * RECOPIE EN PAGE 0 * WARNING SI CTRL-RESET QUAND IL JOUE * CHARGET ET CHARGOT TEMPORAIREMENT DETRUITS! ; H9835 DS 124,0 ; H98B1 LDA #$4C ADC #$FA STA $8D LDA #$0E ADC #$00 STA $14,X LDA #$82 ADC #$2F STA $99 LDA #$19 ADC #$00 STA $32,X LDA #$00 ADC #$80 STA $A5 LDA #$02 ADC #$00 STA $50,X LDA #$E2 ADC #$FF STA $B1 LDA #$04 ADC #$00 STA $6E,X DEX BPL H98B1 RTS ; ****************************** ; H98E5 LDA #$00 STA $8D STA $99 STA $A5 STA $B1 STA $10 STA $11 STA $12 STA $13 LDX H9808 LDA H9810 BEQ H9904 LDA H9818 BNE H9906 H9904 LDX #$90 H9906 LDA H99BB,X STA $8F LDA H99BC,X STA $93 LDX H9809 LDA H9811 BEQ H991D LDA H9819 BNE H991F H991D LDX #$90 H991F LDA H99BB,X STA $9B LDA H99BC,X STA $9F LDX H980A LDA H9812 BEQ H9936 LDA H981A BNE H9938 H9936 LDX #$90 H9938 LDA H99BB,X STA $A7 LDA H99BC,X STA $AB LDX H980B LDA H9813 BEQ H994F LDA H981B BNE H9951 H994F LDX #$90 H9951 LDA H99BB,X STA $B3 LDA H99BC,X STA $B7 CLC LDX #$1D JSR $008C RTS H9962 LDX #$00 ; H9964 LDA H9835,X ; COMMUTATION PAGE 0 <=> MODULE MOVE LDY $10,X STA $10,X TYA STA H9835,X INX CPX #$B0 BNE H9964 CLC RTS ; H9976 SEI JSR H98E5 LDA H982A H997D SEC SBC #$1F BCS H998B ADC #$1F LDX #$00 STX H982A BEQ H9990 H998B STA H982A LDA #$1F H9990 ASL ASL ASL TAY JSR H9B0A LDA H982A BNE H997D CLI RTS H999E LDA H9834 BNE H99AB JSR H9962 LDA #$01 STA H9834 H99AB CLC RTS H99AD LDA H9834 BEQ H99BA JSR H9962 LDA #$00 STA H9834 H99BA RTS ; H99BB HEX 9E H99BC HEX 239E21BB1FF31D451CAF1A2F19C517 HEX 70162D15FD13DE12CF11CF10DD0FFA0E HEX 220E570D980CE30B380B970AFF096F09 HEX E7086708EF077D071107AC064C06F105 HEX 9C054B05FF04B70474043404F703BE03 HEX 890356032603F902CE02A60280025C02 HEX 3A021A02FC01DF01C401AB0193017C01 HEX 6701530140012E011D010D01FE00F000 HEX E200D500C900BE00B300A900A0009700 HEX 0000 ; H9B00 DEX BPL H9B0E NOP H9B04 LDX #$1D DEY BNE H9B0E RTS H9B0A CLC DEX BMI H9B04 H9B0E NOP ; 4 NOPS INDISPENSABLES POUR TEMPO NOP NOP NOP LDA $10 ADC $14,X STA $10 BMI H9B39 CLC LDA $11 ADC $32,X STA $0011 BMI H9B58 CLC LDA $12 ADC $50,X STA $12 BMI H9B6D CLC LDA $13 ADC $6E,X STA $13 BMI H9B79 JMP H9B0A H9B39 LDA $0011 ADC $32,X STA $0011 BMI H9B7C CLC LDA $12 ADC $50,X STA $12 BMI H9B91 CLC LDA $13 ADC $6E,X STA $13 BMI H9B9D JMP H9C0A H9B58 LDA $0012 ADC $50,X STA $12 BMI H9BA0 CLC LDA $13 ADC $6E,X STA $13 BMI H9BAC JMP H9C0A H9B6D LDA $0013 ADC $6E,X STA $13 BMI H9BAF JMP H9C0A H9B79 JMP H9C00 H9B7C LDA $0012 ADC $50,X STA $12 BMI H9BB2 CLC LDA $13 ADC $6E,X STA $13 BMI H9BBE JMP H9D0A H9B91 LDA $0013 ADC $6E,X STA $13 BMI H9BC1 JMP H9D0A H9B9D JMP H9D00 H9BA0 LDA $0013 ADC $6E,X STA $13 BMI H9BC4 JMP H9D0A H9BAC JMP H9D00 H9BAF JMP H9D00 H9BB2 LDA $0013 ADC $6E,X STA $13 BMI H9BC7 JMP H9E0A H9BBE JMP H9E00 H9BC1 JMP H9E00 H9BC4 JMP H9E00 H9BC7 JMP H9F00 ; H9C00 DEX BPL H9C0E NOP H9C04 LDX #$1D DEY BNE H9C0E RTS H9C0A CLC DEX BMI H9C04 H9C0E LDA $10 STA MUSIC ADC $14,X STA MUSIC STA $10 BMI H9C3B CLC LDA $11 ADC $32,X STA $0011 BMI H9C5A CLC LDA $12 ADC $50,X STA $12 BMI H9C6F CLC LDA $13 ADC $6E,X STA $13 BMI H9C7B JMP H9B0A H9C3B LDA $0011 ADC $32,X STA $0011 BMI H9C7E CLC LDA $12 ADC $50,X STA $12 BMI H9C93 CLC LDA $13 ADC $6E,X STA $13 BMI H9C9F JMP H9C0A H9C5A LDA $0012 ADC $50,X STA $12 BMI H9CA2 CLC LDA $13 ADC $6E,X STA $13 BMI H9CAE JMP H9C0A H9C6F LDA $0013 ADC $6E,X STA $13 BMI H9CB1 JMP H9C0A H9C7B JMP H9C00 H9C7E LDA $0012 ADC $50,X STA $12 BMI H9CB4 CLC LDA $13 ADC $6E,X STA $13 BMI H9CC0 JMP H9D0A H9C93 LDA $0013 ADC $6E,X STA $13 BMI H9CC3 JMP H9D0A H9C9F JMP H9D00 H9CA2 LDA $0013 ADC $6E,X STA $13 BMI H9CC6 JMP H9D0A H9CAE JMP H9D00 H9CB1 JMP H9D00 H9CB4 LDA $0013 ADC $6E,X STA $13 BMI H9CC9 JMP H9E0A H9CC0 JMP H9E00 H9CC3 JMP H9E00 H9CC6 JMP H9E00 H9CC9 JMP H9F00 ; H9D00 DEX BPL H9D0E NOP H9D04 LDX #$1D DEY BNE H9D0E RTS H9D0A CLC DEX BMI H9D04 H9D0E LDA $10 ADC $14,X STA $10 STA MUSIC BMI H9D3B CLC LDA $11 ADC $32,X STA MUSIC STA $0011 BMI H9D5D CLC LDA $12 ADC $50,X STA $12 BMI H9D72 CLC LDA $13 ADC $6E,X STA $13 BMI H9D7E JMP H9B0A H9D3B LDA $0011 ADC $32,X STA MUSIC STA $0011 BMI H9D81 CLC LDA $12 ADC $50,X STA $12 BMI H9D96 CLC LDA $13 ADC $6E,X STA $13 BMI H9DA2 JMP H9C0A H9D5D LDA $0012 ADC $50,X STA $12 BMI H9DA5 CLC LDA $13 ADC $6E,X STA $13 BMI H9DB1 JMP H9C0A H9D72 LDA $0013 ADC $6E,X STA $13 BMI H9DB4 JMP H9C0A H9D7E JMP H9C00 H9D81 LDA $0012 ADC $50,X STA $12 BMI H9DB7 CLC LDA $13 ADC $6E,X STA $13 BMI H9DC3 JMP H9D0A H9D96 LDA $0013 ADC $6E,X STA $13 BMI H9DC6 JMP H9D0A H9DA2 JMP H9D00 H9DA5 LDA $0013 ADC $6E,X STA $13 BMI H9DC9 JMP H9D0A H9DB1 JMP H9D00 H9DB4 JMP H9D00 H9DB7 LDA $0013 ADC $6E,X STA $13 BMI H9DCC JMP H9E0A H9DC3 JMP H9E00 H9DC6 JMP H9E00 H9DC9 JMP H9E00 H9DCC JMP H9F00 ; H9E00 DEX BPL H9E0E NOP H9E04 LDX #$1D DEY BNE H9E0E RTS H9E0A CLC DEX BMI H9E04 H9E0E LDA $10 ADC $14,X STA MUSIC STA $10 BMI H9E3B CLC LDA $11 ADC $32,X STA $0011 STA MUSIC BMI H9E5D CLC LDA $12 ADC $50,X STA $12 BMI H9E72 CLC LDA $13 ADC $6E,X STA $13 BMI H9E7E JMP H9B0A H9E3B LDA $0011 ADC $32,X STA $0011 STA MUSIC BMI H9E81 CLC LDA $12 ADC $50,X STA $12 BMI H9E96 CLC LDA $13 ADC $6E,X STA $13 BMI H9EA2 JMP H9C0A H9E5D LDA $0012 ADC $50,X STA $12 BMI H9EA5 CLC LDA $13 ADC $6E,X STA $13 BMI H9EB1 JMP H9C0A H9E72 LDA $0013 ADC $6E,X STA $13 BMI H9EB4 JMP H9C0A H9E7E JMP H9C00 H9E81 LDA $0012 ADC $50,X STA $12 BMI H9EB7 CLC LDA $13 ADC $6E,X STA $13 BMI H9EC3 JMP H9D0A H9E96 LDA $0013 ADC $6E,X STA $13 BMI H9EC6 JMP H9D0A H9EA2 JMP H9D00 H9EA5 LDA $0013 ADC $6E,X STA $13 BMI H9EC9 JMP H9D0A H9EB1 JMP H9D00 H9EB4 JMP H9D00 H9EB7 LDA $0013 ADC $6E,X STA $13 BMI H9ECC JMP H9E0A H9EC3 JMP H9E00 H9EC6 JMP H9E00 H9EC9 JMP H9E00 H9ECC JMP H9F00 ; H9F00 DEX BPL H9F0E NOP H9F04 LDX #$1D DEY BNE H9F0E RTS CLC DEX BMI H9F04 H9F0E LDA $10 ADC $14,X STA MUSIC STA $10 BMI H9F3B CLC LDA $11 ADC $32,X STA $0011 BMI H9F5D CLC LDA $12 STA MUSIC ADC $50,X STA $12 BMI H9F75 CLC LDA $13 ADC $6E,X STA $13 BMI H9F81 JMP H9B0A H9F3B LDA $0011 ADC $32,X STA $0011 BMI H9F84 CLC LDA $12 STA MUSIC ADC $50,X STA $12 BMI H9F9C CLC LDA $13 ADC $6E,X STA $13 BMI H9FA8 JMP H9C0A H9F5D LDA $0012 STA MUSIC ADC $50,X STA $12 BMI H9FAB CLC LDA $13 ADC $6E,X STA $13 BMI H9FB7 JMP H9C0A H9F75 LDA $0013 ADC $6E,X STA $13 BMI H9FBA JMP H9C0A H9F81 JMP H9C00 H9F84 LDA $0012 STA MUSIC ADC $50,X STA $12 BMI H9FBD CLC LDA $13 ADC $6E,X STA $13 BMI H9FC9 JMP H9D0A H9F9C LDA $0013 ADC $6E,X STA $13 BMI H9FCC JMP H9D0A H9FA8 JMP H9D00 H9FAB LDA $0013 ADC $6E,X STA $13 BMI H9FCF JMP H9D0A H9FB7 JMP H9D00 H9FBA JMP H9D00 H9FBD LDA $0013 ADC $6E,X STA $13 BMI H9FD2 JMP H9E0A H9FC9 JMP H9E00 H9FCC JMP H9E00 H9FCF JMP H9E00 H9FD2 JMP H9F00 ********************************* * * EMPLACEMENT OU ON CHARGE LE .MOD ; H7FED HEX 0607 H7FEF HEX FFFFFFFFFFFFFFFF H7FF7 HEX 000018 H7FFA HEX 074CBF HEX 900000 ; * ********************************* ; ; H9800 HEX 0000000000000000 H9808 HEX 90 H9809 HEX 90 H980A HEX 90 H980B HEX 9000000000 H9810 HEX 00 H9811 HEX 00 H9812 HEX 00 H9813 HEX 0008080808 H9818 HEX 00 H9819 HEX 00 H981A HEX 00 H981B HEX 0000000000 HEX FFFFFFFFFFFFFFFF H9828 HEX 0300 H982A HEX 00 ; H504F HEX 00 H5050 HEX 00 H5051 HEX 00 H5052 HEX 0000 H5054 HEX 00 * DATAS POUR PLAYER MUSIC C SET 2 PART1 HEX 24842C041E842C0424842C041E842C04 HEX 24842C041E842C0424842C0422842C04 HEX 1E843604168436041E84360410843604 HEX 14843604168436041A8436041E843604 HEX 1A843204168432041A8432041E843204 HEX 1A8432041E8432042284320424843204 HEX 24041E0416041A0416041A0416041004 HEX 14843A041A843A0422843A0424843A04 HEX 22843A042C843A0432843A042E843A04 HEX 240422041E0422041E041A0416041A04 HEX 16843A0414843A0410843A0414843A04 HEX 10843A0414843A0416843A041A843A04 HEX 1E843604228436042484360428843604 HEX 2284360424843604288436042E843604 HEX 36904410328844083688440836904E10 HEX 2E884E0836884E083C904A1032884A HEX 082C884A08369054102E8854083C8854 HEX 083C885208448852083A885208328852 HEX 083C885C0836885C082C905C1032A052 HEX 2040884E083A884E0836884E082E884E HEX 0836904410328844083688440836904E HEX 102E884E0836884E083C904A1032884A HEX 082C884A08369054102E8854083C8854 HEX 083C885208448852083A885208328852 HEX 083C885C0836885C082C905C1032A052 HEX 2040884E083A884E0836884E082E884E HEX 08149024101E902C10169028101E902E HEX 101C9022101C9024101C9828181C882C HEX 081C882C081E982C180CA01E207C0038 HEX 041F0A4004010A44040D0546040B0546 HEX 040105500400075C040009640400076C HEX 040D066E04010B7004010678040008 HEX 8404000A8804000890041F0AA0040B0B HEX A604000BAC040009B4040008BC04000A HEX C004000DC404000ACC040009D404000B HEX D804000AE004000DE404000FE804000D HEX F0040111F8041F0A00051F0A60051F0A HEX C0051F0A20061F0A80061F0AE0061F0A HEX 40071F0AA0071F0A00081F0A60081F0A HEX C0081F0A20091F0A80091F0AE0091F0A HEX 400A1F0AA00A1F0A000B1F0A600B1F0A HEX C00B1F0A200C1F0A800C000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 HEX 0000001F0A10000F1C28001F0A3C001F HEX 0A4000011E4800011C5000011B580001 HEX 1A600001196800011A7000011B780001 HEX 1C80001F0A9400011B98000119A00001 HEX 18A8000117B0000116B8000117C00001 HEX 18C8000119D0001F0AE800011AEC0001 HEX 18F4000117FC000116040101150C0101 HEX 16140101171C01011824011F0A3C01 HEX 01194401 PART2 HEX 3C08440440043C1044044008 HEX 3C043A083A043C0444084A044604440C HEX 3C0436843C042E843C0424843C042284 HEX 3C0424843C042C843C0436843C042E84 HEX 3C0432043A04440840043A0432043604 HEX 2C8444042E8444042C84440432844404 HEX 2E844404328444043684440432844404 HEX 3204360432042C042E0432042E042804 HEX 2E04320436043A0440043C043A043604 HEX 0C047C0414047C041E047C040C047C04 HEX 10047C041E047C04108216020C821402 HEX 108216020C821402108216020C821402 HEX 1084160414841A047C041A8424047C04 HEX 24842C047C0414841A047C0416841E04 HEX 7C041E8424047C0416821E0214821A02 HEX 16821E0214821A0216821E021A8220 HEX 0216841E0416881E08148422047C041A HEX 842C047C04228432047C04248236021E HEX 822C02148224020C821E021E822C0214 HEX 8224020C821E0206821402148224020C HEX 821E020682140202820A0206820C020A HEX 8210020C82140210821E02148422047C HEX 041A842C047C04228428041A84220416 HEX 841E0414841A0416841E047C04108416 HEX 047C0406821602028214020682160202 HEX 8214020A821602028214020A84160424 HEX 822C0228022C0236022C8236023A023C HEX 0244021E822C022202240228022C822E HEX 02320236023A02288236022C022E0232 HEX 02288236023A023C0240022282360224 HEX 0228022C0228822E02320236023A022C HEX 823C022E0232023A0232823C024002 HEX 44024A022482440228022C022E022C82 HEX 320236023A023C022E82360232023602 HEX 3A0236823C024002440246022C824E02 HEX 2E02320236022E8236023A023C024002 HEX 3282440236023A023C023A8244024602 HEX 4A024E0228824A022C022E0232022C82 HEX 36023A023C0240022C022E0232023602 HEX 3C82440240023C023A02248236022802 HEX 2C022E8236022C82320236023A023C02 HEX 22823A02240228022C0232823A023C02 HEX 400244021A8240021E02220224022282 HEX 320236023A023C02168228021A021E02 HEX 22021E82240228022C022E0232824602 HEX 36023A023C023A824002440246024A02 HEX 4E905C10449054104E90661046905810 HEX 44A0522044A0522044885208449854 HEX 1844A05C207C009F000D03A0000D03A0 HEX 000D03A0000D07860144454C330D039C HEX 000D07860144454C320D03A5000D0F44 HEX 52415754494720CE02232430300D06CD HEX 022324300D08D00154454D50320D0F44 HEX 54322020202020C502232132300D0887 HEX 0144544732540D09C501434155474854 HEX 0D0687014454340D0E44544732542020 HEX 20CD022324320D0000