;--------------------------------------; ;"CONTACT/SINISTER" ÊUNE 6TH, 1994; ; ÒELEASED: ÊULY 31, 1994 ; ;--------------------------------------; *= $4000 SKULOGO = $0800 MUSINIT = $1000 MUSPLAY = $1003 SINLOGO = $2000 CSET1X1 = $2800 SINUS1 = $3000 PAGEONE = $3100 PAGETWO = $3300 PAGETHR = $3500 SINSPRI = $3800 PAGEFOU = $4500 PAGEFIV = $4700 SKUMATR = $5000 SINMATR = $5500 SIN1A = $5A00 SIN1B = $5B00 SIN1C = $5C00 TEXT1 = $5D00 XPAUSE1 = $02 XPAUSE2 = $03 SCREEN1 = $0400 SCREEN2 = $0680 SCREEN3 = $0540 ;--------------------------------------; JMP JUMP .TEXT "COPYRIGHT (C) 1994 " .TEXT "SINISTER" 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 BEQ WHICHONE JMP SPACECK WHICHONE LDA $0FFF CMP #$01 BEQ JMPPT2 CMP #$02 BEQ JMPPT3 CMP #$03 BEQ JMPPT4 CMP #$04 BEQ JMPPT5 CMP #$05 BEQ JMPPT1 JMP SPACECK THINKNOT RTI JMPPT1 LDA #$01 STA $0FFF JSR PTEXT1 JMPPT2 LDA #$02 STA $0FFF JSR PTEXT2 JMPPT3 LDA #$03 STA $0FFF JSR PTEXT3 JMPPT4 LDA #$04 STA $0FFF JSR PTEXT4 JMPPT5 LDA #$05 STA $0FFF JSR PTEXT5 JMP SPACECK IRQ1 INC $D019 LDA #IRQ2 STA $0314 STX $0315 LDA #$72 STA $D012 LDA XPAUSE1 STA $D016 LDA #$18 STA $D018 JSR SCROLLER JMP $EA81 IRQ2 INC $D019 LDA #IRQ3 STA $0314 STX $0315 LDA #$AA STA $D012 LDA #$08 STA $D016 LDA #$1A STA $D018 JMP $EA81 IRQ3 INC $D019 LDA #IRQ4 STA $0314 STX $0315 LDA #$C2 STA $D012 LDA XPAUSE2 STA $D016 LDA #$1A STA $D018 JSR SINUS JMP $EA81 IRQ4 INC $D019 LDA #IRQ1 STA $0314 STX $0315 LDA #$00 STA $D012 LDA #$08 STA $D016 LDA #$12 STA $D018 JSR SWING1 JSR MUSPLAY JMP $EA31 ;--------------------------------------; SINUS LDA #$00 SIN = *-1 CLC ADC #$FF STA SIN TAX LDA #$00 STA $D010 LDA SIN1A,X STA $D000 LDA SIN1B,X LSR A ROR $D010 LDA SIN1C,X STA $D001 CLC TXA ADC #$F6 ;SPACE BETWEEN SPRITES TAX LDA SIN1A,X STA $D002 LDA SIN1B,X LSR A ROR $D010 LDA SIN1C,X STA $D003 CLC TXA ADC #$F6 TAX LDA SIN1A,X STA $D004 LDA SIN1B,X LSR A ROR $D010 LDA SIN1C,X STA $D005 CLC TXA ADC #$F6 TAX LDA SIN1A,X STA $D006 LDA SIN1B,X LSR A ROR $D010 LDA SIN1C,X STA $D007 CLC TXA ADC #$F6 TAX LDA SIN1A,X STA $D008 LDA SIN1B,X LSR A ROR $D010 LDA SIN1C,X STA $D009 CLC TXA ADC #$F6 TAX LDA SIN1A,X STA $D00A LDA SIN1B,X LSR A ROR $D010 LDA SIN1C,X STA $D00B CLC TXA ADC #$F6 TAX LDA SIN1A,X STA $D00C LDA SIN1B,X LSR A ROR $D010 LDA SIN1C,X STA $D00D CLC TXA ADC #$F6 TAX LDA SIN1A,X STA $D00E LDA SIN1B,X LSR A ROR $D010 LDA SIN1C,X STA $D00F CLC TXA ADC #$F6 TAX RTS SWING1 LDX SWIP1 LDA SINUS1,X PHA AND #$07 EOR #$D7 STA XPAUSE1 PLA LSR A LSR A LSR A TAY LDX #$00 SLOOP1 LDA SINMATR,Y STA SCREEN1,X LDA SINMATR+72,Y STA SCREEN1+40,X LDA SINMATR+144,Y STA SCREEN1+80,X LDA SINMATR+216,Y STA SCREEN1+120,X LDA SINMATR+288,Y STA SCREEN1+160,X LDA SINMATR+360,Y STA SCREEN1+200,X LDA SINMATR+432,Y STA SCREEN1+240,X LDA SINMATR+504,Y STA SCREEN1+280,X INX INY CPX #$28 BNE SLOOP1 INC SWIP1 RTS SCROLLER LDA XPAUSE2 SEC SBC #$01 STA XPAUSE2 BPL EXITSC1 AND #$07 STA XPAUSE2 LDX #$00 SHIFT1 LDA SCREEN2+1,X STA SCREEN2,X INX CPX #$28 BNE SHIFT1 LDA TEXT1 TP1 = *-2 BEQ RESTART1 INC TP1 BNE PCHR1 INC TP1+1 BNE PCHR1 RESTART1 LDA #>TEXT1 LDX #