;--------------------------------------; ; УAMHAIN 2: ГHRISTI(NS)ANITY ; ; НЩУФЙСХЕ 1994! ; ;--------------------------------------; *= $3000 CSET1 = $0800 ;$0800-$0FFF MUSIC1 = $1000 ;$1000-$1CFF MUSIC2 = $1003 SWSIN = $1D00 ;$1D00-$1DFF SWLOG = $2000 ;$2000-$27FF SAMLG = $2800 ;$2800-$2FFF SPRI1 = $3800 ;$3800-$3BFF SPRI2 = $3C00 ;$3C00-$3DFF SWMAT = $5000 ;$5000-$5247 SAMMT = $5300 ; SCTXT = $6000 ;$6000-$65FF SCREEN1 = $0540 XPOS1 = $02 XPOS2 = $03 BOUNCE = $F0 JUMP JSR SETUP SEI LDA #$7F STA $DC0D LDA #$01 STA $D01A LDA #$32 STA $D012 LDA #$1B STA $D011 LDA #IRQ1 STA $0314 STX $0315 LDA #THINKNOT STA $0318 STX $0319 CLI SPACECK LDA $DC01 CMP #$EF BNE SPACECK JMP $9000 MAIN JMP MAIN IRQ1 INC $D019 LDA #$1B STA $D011 LDA #IRQ3 STA $0314 STX $0315 LDA #$71 STA $D012 LDA #$18 STA $D016 LDA #$1A STA $D018 LDA #$07 STA $D022 LDA #$0A STA $D023 JSR SPRDEF2 JSR SPRMOVE JSR SWING1 JMP $EA81 IRQ3 INC $D019 DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF NOP LDA #IRQ4 STA $0314 STX $0315 LDA #$BA STA $D012 LDA XPOS2 STA $D016 LDA #$18 STA $D018 LDA #$0B STA $D022 LDA #$06 STA $D023 JSR SCROLLER JSR ANIM1 JSR ANIM2 JSR SPRDEF1 JMP $EA81 IRQ4 INC $D019 LDA #$12 STA $D018 LDX #$00 FIRST LDA WAVE,X STA $D016 STA $D016 STA $D016 STA $D016 LDY DELAY,X NOP SECOND DEY BNE SECOND INX CPX #$10 BNE FIRST LDA #IRQ5 STA $0314 STX $0315 LDA #$CF STA $D012 LDA #$07 STA $D016 JMP $EA81 IRQ5 INC $D019 LDX #$00 FLD LDA $D012 LOOP1 CMP $D012 BEQ LOOP1 AND #$07 ORA #$10 STA $D011 INX CPX BOUNCE BNE FLD DEC $FFFF LDA #IRQ1 STA $0314 STX $0315 LDA #$FF STA $D012 LDA XPOS1 STA $D016 LDA #$12 STA $D018 JSR MUSIC2 JSR ROTATE JSR FLA JMP $EA81 ;--------------------------------------- ROTATE LDX #$00 LDY WAVE WVLOOP LDA WAVE+1,X STA WAVE,X INX CPX #13 BNE WVLOOP STY WAVE+13 RTS SPRMOVE LDX POINTR1A INC POINTR1A LDA TABLEX1A,X CMP #$FF BEQ SM1A LDX #$00 STA $D001 STA $D003 STA $D005 STA $D007 STA $D009 STA $D00B STA $D00D STA $D00F INX RTS SM1A LDA #$00 STA POINTR1A RTS SPRDEF2 LDX #$07 SD2 LDA #$00 STA $D027,X DEX BPL SD2 LDA #$00 STA $D01C LDA #%00000000 STA $D010 LDA #$F0 STA $07F8 LDA #$F1 STA $07F9 LDA #$F2 STA $07FA LDA #$F3 STA $07FB LDA #$F4 STA $07FC LDA #$F5 STA $07FD LDA #$F6 STA $07FE LDA #$F7 STA $07FF LDA #$47 STA $D001 STA $D003 STA $D005 STA $D007 STA $D009 STA $D00B STA $D00D STA $D00F LDA #$55 STA $D000 LDA #$6D STA $D002 LDA #$85 STA $D004 LDA #$9D STA $D006 LDA #$B5 STA $D008 LDA #$CD STA $D00A LDA #$E5 STA $D00C LDA #$FD STA $D00E RTS SPRDEF1 LDX #$03 SD1 LDA #$0A STA $D027,X DEX BPL SD1 LDA #$FF STA $D01C LDA #$09 STA $D025 LDA #$08 STA $D026 LDA #%00001100 STA $D010 LDA #$E0 STA $07F8 LDA #$E7 STA $07FA LDA #$1F STA $D000 STA $D002 LDA #$CE STA $D001 STA $D005 LDA #$E3 STA $D003 STA $D007 LDA #$37 STA $D004 STA $D006 RTS SWING1 LDX SWIP1 LDA SWSIN,X PHA AND #$07 EOR #$D7 STA XPOS2 PLA LSR A LSR A LSR A TAY LDX #$00 SLOOP1 LDA SWMAT,Y STA SCREEN1,X LDA SWMAT+72,Y STA SCREEN1+40,X LDA SWMAT+144,Y STA SCREEN1+80,X LDA SWMAT+216,Y STA SCREEN1+120,X LDA SWMAT+288,Y STA SCREEN1+160,X LDA SWMAT+360,Y STA SCREEN1+200,X LDA SWMAT+432,Y STA SCREEN1+240,X LDA SWMAT+504,Y STA SCREEN1+280,X INX INY CPX #$28 BNE SLOOP1 INC SWIP1 RTS FLA LDY POINTER3 INC POINTER3 LDA SINTBL1,Y CMP #$FF BNE NOTDONE LDY #$00 STY POINTER3 LDA SINTBL1 NOTDONE STA BOUNCE RTS ANIM1 LDX #$01 ANI1 LDA SPRTBL2,X STA $07FB LDA POINTER1 BNE INCX1 LDA SPRTBL2,X CLC ADC #$01 CMP #$ED BNE STOREA1 LDA #$EA STOREA1 STA SPRTBL2,X INCX1 DEX CPX #$00 BNE ANI1 DEC POINTER1 BPL EXITANI1 LDA #$0A STA POINTER1 EXITANI1 RTS ANIM2 LDX #$01 ANI2 LDA SPRTBL1,X STA $07F9 LDA POINTER2 BNE INCX2 LDA SPRTBL1,X CLC ADC #$01 CMP #$E6 BNE STOREA2 LDA #$E3 STOREA2 STA SPRTBL1,X INCX2 DEX CPX #$00 BNE ANI2 DEC POINTER2 BPL EXITANI2 LDA #$0A STA POINTER2 EXITANI2 RTS SCROLLER LDA XPOS1 SEC SBC #$01 STA XPOS1 BPL EXITSC AND #$07 STA XPOS1 LDX #$00 MOVE1 LDA 1825,X STA 1824,X LDA 1865,X STA 1864,X INX CPX #$27 BNE MOVE1 LDA SCTXT TP = *-2 BEQ RESTART INC TP BNE ST1 INC TP+1 BNE ST1 RESTART LDA #SCTXT STA TP STX TP+1 LDA #$20 ST1 STA 1863 CLC ADC #$40 STA 1903 EXITSC RTS THINKNOT RTI ;--------------------------------------- PTEXT1 LDX #$00 PT1 LDA MESSAGE1,X BEQ EXITPT1 JSR $FFD2 INX BNE PT1 EXITPT1 RTS MESSAGE1 .BYTE $0D,$0D,$0D,$0D,$0D,$0D .BYTE $0D,$0D,$0D,$0D,$0D,$0D .BYTE $0D,$0D,$0D,$0D,$0D .TEXT "— BLACKENED ARE THE PR" .TEXT "IESTS ON SAMHAIN" .BYTE $0D .TEXT " ВМБГЛЕОЕД БТЕ ФИЕ РТ" .TEXT "ЙЕУФУ ПО УБНИБЙО" .BYTE $00 SETUP JSR $E544 LDA #$00 JSR MUSIC1 JSR PTEXT1 LDA #$00 STA $D020 STA $D021 LDA #$FF STA $D015 LDA #$00 STA $D01D STA $D017 LDX #$00 PM1 LDA SAMMT,X STA $0402,X LDA SAMMT+$40,X STA $0402+$40,X INX BNE PM1 LDX #$00 C1 LDA #$0B STA $DB00,X INX BNE C1 LDX #$00 C2 LDA #$0A STA $D940,X STA $D9B0,X INX CPX #$D0 BNE C2 LDX #$00 C3 LDA #$0A STA $D800,X STA $D845,X INX BNE C3 LDA #$00 STA 56096 STA 56097 STA 56136 STA 56137 STA 56134 STA 56133 STA 56174 STA 56173 RTS ;--------------------------------------; DELAY .BYTE 1,8,8,8,8,8,8,9 .BYTE 1,8,8,8,8,8,8,9 WAVE .BYTE 6,5,5,4,3,2,1,1,2,3,4,5 .BYTE 6,5,5,4,3,2,1,1,2,3,4,5 SPRTBL1 .BYTE $E3,$E4,$E5,$E6 SPRTBL2 .BYTE $EA,$EB,$EC,$ED SINTBL1 .BYTE 1,2,3,4,5,6,7,8,9,10,11 .BYTE 12,13,14,15,16,17 .BYTE 16,15 .BYTE 14,13,12,11,10,9,8,7,6,5 .BYTE 5,5,5,5,5,5,5,6,7,8,9,10 .BYTE 11,12,13,14,13,12,11,10 .BYTE 10,10,10,10,10,10,10,10 .BYTE 10,11,12,13,14,15,16,17 .BYTE 16,15,14,13,12,11,10,9,8 .BYTE 7,6,5,4,3,2,1,$FF POINTER1 .BYTE $00 POINTER2 .BYTE $00 POINTER3 .BYTE $00 SWIP1 .BYTE $00 POINTR1A .BYTE $00 TABLEX1A .BYTE $46,$47,$48,$49,$4A,$4B .BYTE $4C,$4D,$4E,$4F,$50 .BYTE $51,$51,$51,$51,$51,$51 .BYTE $52,$52,$52,$52,$52,$52 .BYTE $53,$53,$53,$53,$53,$53 .BYTE $54,$54,$54,$54,$54,$54 .BYTE $55,$55,$55,$55,$55,$55 .BYTE $56,$56,$56,$56,$56,$56 .BYTE $56,$56,$56,$57,$57,$57 .BYTE $57,$57,$57,$57,$57,$57 .BYTE $56,$55,$54,$53,$52,$51 .BYTE $50,$4F,$4E,$4D,$4C .BYTE $4B,$4B,$4B,$4B,$4B,$4B .BYTE $4A,$4A,$4A,$4A,$4A,$4A .BYTE $49,$49,$49,$49,$49,$49 .BYTE $48,$48,$48,$48,$48,$48 .BYTE $47,$47,$47,$47,$47,$47 .BYTE $47,$47,$47,$46,$46,$46 .BYTE $46,$46,$46,$46,$46,$46 .BYTE $FF