;--------------------------------------; ;ÁRMAGEDDON ÉNTRO #4 ÊULY 1992; ;--------------------------------------; *= $2200 ;YES LOGO1 = $0800 ;YES $0800-0AFF MATRIX1 = $0B03 ;YES $0B00-0D3F ORGNCSET = $2000 ;YES $2000-21FF TEMPCSET = $2800 ;YES $2800-29FF CSET1X1 = $3000 ;YES $3000-37FF TEXT1 = $1A00 ;YES $1A00-1FFF SINUS1 = $2A00 ;YES $2A00-2AFF SPRITES = $2B00 ;YES $2B00-2FFF GAMENAME = $0D40 ;YES $0D40-0D6F GAMEDATE = $0D70 ;YES $0D70-0D8F MUSIC1 = $1000 ;YES $1000-19FF MUSIC2 = $1003 ;YES XPAUSE1 = $02 XPAUSE2 = $03 SCREEN1 = $0428 SCREEN2 = $06A8 SCREEN3 = $05B8 ;--------------------------------------; JMP JUMP .TEXT " [A] IN 1992!" 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 CLI SPACECK LDA $DC01 CMP #$EF BNE SPACECK JMP TRANSFER IRQ1 INC $D019 LDA #IRQ2 STA $0314 STX $0315 LDA #$77 STA $D012 LDA XPAUSE1 STA $D016 LDA #$12 STA $D018 LDA #$03 STA $D022 LDA #$0E STA $D023 JSR MUSIC2 JSR SCROLLA JSR SWING2 JMP $EA81 IRQ2 INC $D019 DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF DEC $FFFF NOP LDX #$06 SD1 LDA #$03 STA $D027,X DEX BPL SD1 LDA #$0E STA $D025 LDA #$06 STA $D026 LDA #$FF STA $D015 STA $D01C STA $D01B STA $D01D LDA #$20 STA $D010 LDA #IRQ3 STA $0314 STX $0315 LDA #$92 STA $D012 LDA #$08 STA $D016 LDA #$1C STA $D018 JMP $EA81 IRQ3 INC $D019 LDA #$00 XPOS1 = *-1 STA $D016 LDA #$1A STA $D018 LDA #$01 STA $D021 LDA #IRQ4 STA $0314 STX $0315 LDA #$99 STA $D012 JMP $EA81 IRQ4 INC $D019 DEC $FFFF LDA #$00 STA $D021 LDA #IRQ5 STA $0314 STX $0315 LDA #$B9 STA $D012 LDA #$08 STA $D016 LDA #$1C STA $D018 LDX #$06 SD2 LDA #$07 STA $D027,X DEX BPL SD2 LDA #$0A STA $D025 LDA #$02 STA $D026 LDA #$FF STA $D015 STA $D01C STA $D01B STA $D01D LDA #$00 STA $D017 LDA #$20 STA $D010 LDA #$09 STA $D000 LDA #$39 STA $D002 LDA #$69 STA $D004 LDA #$99 STA $D006 LDA #$F9 STA $D008 LDA #$29 STA $D00A LDA #$C9 STA $D00C LDA #$A2 STA $D001 STA $D003 STA $D005 STA $D007 STA $D009 STA $D00B STA $D00D JSR ANIM1 JMP $EA81 IRQ5 INC $D019 LDA #IRQ1 STA $0314 STX $0315 LDA #$FF STA $D012 LDA XPAUSE2 STA $D016 LDA #$12 STA $D018 LDA #$07 STA $D022 LDA #$0A STA $D023 JSR SWING1 JSR SPRDEF1 JMP $EA81 ANIM1 LDX #$06 ANI1 LDA SPRTBL1,X STA $07F8 STA $07F9 STA $07FA STA $07FB STA $07FC STA $07FD STA $07FE LDA POINTER1 BNE DECX1 LDA SPRTBL1,X CLC ADC #$01 CMP #$B8 BNE STOREA1 LDA #$AC STOREA1 STA SPRTBL1,X DECX1 DEX CPX #$00 BNE ANI1 DEC POINTER1 BPL EXITANI1 LDA #$03 STA POINTER1 EXITANI1 RTS SPRDEF1 LDA #$09 STA $D000 LDA #$39 STA $D002 LDA #$69 STA $D004 LDA #$99 STA $D006 LDA #$F9 STA $D008 LDA #$29 STA $D00A LDA #$C9 STA $D00C LDA #$7A STA $D001 STA $D003 STA $D005 STA $D007 STA $D009 STA $D00B STA $D00D 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 MATRIX1,Y STA SCREEN1,X LDA MATRIX1+72,Y STA SCREEN1+40,X LDA MATRIX1+144,Y STA SCREEN1+80,X LDA MATRIX1+216,Y STA SCREEN1+120,X LDA MATRIX1+288,Y STA SCREEN1+160,X LDA MATRIX1+360,Y STA SCREEN1+200,X LDA MATRIX1+432,Y STA SCREEN1+240,X LDA MATRIX1+504,Y STA SCREEN1+280,X INX INY CPX #$28 BNE SLOOP1 INC SWIP1 INC SWIP1 RTS SWING2 LDX SWIP2 LDA SINUS1,X PHA AND #$07 EOR #$D7 STA XPAUSE2 PLA LSR A LSR A LSR A TAY LDX #$00 SLOOP2 LDA MATRIX1,Y STA SCREEN2,X LDA MATRIX1+72,Y STA SCREEN2+40,X LDA MATRIX1+144,Y STA SCREEN2+80,X LDA MATRIX1+216,Y STA SCREEN2+120,X LDA MATRIX1+288,Y STA SCREEN2+160,X LDA MATRIX1+360,Y STA SCREEN2+200,X LDA MATRIX1+432,Y STA SCREEN2+240,X LDA MATRIX1+504,Y STA SCREEN2+280,X INX INY CPX #$28 BNE SLOOP2 INC SWIP2 RTS SCROLLA LDA XPOS1 SEC SBC #$01 SPEED = *-1 STA XPOS1 BPL SCROLL1 AND #$07 STA XPOS1 LDY $05B8+$28 LDX #$00 SC1 LDA $05B9+$28,X STA $05B8+$28,X INX CPX #$27 BNE SC1 STY $05DF+$28 LDY #$28 CMP #$20 BCC SC2 INY SC2 ASL A ASL A ASL A STA P1 STY P1+1 LDX #$07 SC3 LDA TEMPA,X EOR #$FF STA P1,X P1 = *-2 DEX BPL SC3 SCROLL1 LDA SPEED STA COUNTER SCVH LDY #$00 STY BITA INY LDX #$07 SC1A ASL TEMPA+$10,X ROL TEMPA+$08,X BCC FINE STY BITA FINE ROL TEMPA,X DEX BPL SC1A LDA #$00 CHAR = *-1 CMP #$20 BNE NSPACE DEC TIME BNE EXIT LDA #$04 STA TIME JMP GCHR NSPACE LDA BITA BNE EXIT GCHR LDA TEXT1 TP = *-2 BEQ RESTART INC TP BNE PCHR INC TP+1 BNE PCHR RESTART LDA #TEXT1 STA TP STX TP+1 LDA #$20 PCHR STA CHAR LDY #$20 CMP #$20 BCC PCH1 INY PCH1 ASL A ASL A ASL A STA PC1 STA PC2 STY PC1+1 TYA CLC ADC #$02 STA PC2+1 LDX #$07 SCRL1 LDA PC1,X PC1 = *-2 STA TEMPA+8,X LDA PC2,X PC2 = *-2 STA TEMPA+16,X DEX BPL SCRL1 EXIT DEC COUNTER BNE SCVH RTS ;--------------------------------------- SETUP JSR $E544 JSR MUSIC1 LDX #$00 PLACE LDA #$A0 STA $0590+$28,X INX CPX #$28 BNE PLACE LDX #$00 PLACE2 LDA #$00 STA $D990+$28,X INX CPX #$28 BNE PLACE2 LDX #$00 C0 LDA #$00 STA $D968,X INX CPX #$50 BNE C0 LDX #$00 C1 LDA #$0E STA $D828,X STA $D867,X INX BNE C1 LDX #$00 C2 LDA #$0A STA $DAA8,X STA $DAE7,X INX BNE C2 LDA #$00 STA $D020 STA $D021 LDX #$00 CHEESE TXA STA $05B8+$28,X LDA #$00 STA $D9B8+$28,X INX CPX #$28 BNE CHEESE LDX #$00 LDA #$FF LPA STA $2800,X STA $2840,X INX BNE LPA PTEXT1 LDX #$00 PT1 LDA MESSAGE1,X BEQ EXITPT1 JSR $FFD2 INX BNE PT1 EXITPT1 JMP NAME MESSAGE1 .TEXT "" .TEXT " ARMAGEDDON HEAD" .TEXT "QUARTERS! " .TEXT " THE BLACK GENESIS " .TEXT " 914/735-6653 " .TEXT " " .TEXT " " .BYTE $00 NAME LDX #$00 N1 LDA GAMENAME,X STA $0568,X INX CPX #$28 BNE N1 DATE LDX #$00 D1 LDA GAMEDATE,X STA $0590,X INX CPX #$28 BNE D1 RTS ;--------------------------------------; TRANSFER SEI LDA #$31 LDX #$EA STA $0314 STX $0315 LDA #$00 STA $D01A STA $D418 LDA #$81 STA $DC0D CLI JSR $FF81 LDX #$00 LOOPA LDA LABEL1,X STA $0400,X INX BNE LOOPA LDA #$00 STA $0800 JMP $0400 LABEL1 SEI LDA #$34 STA $01 LABEL3 LDX #$00 LABEL2 LDA $3800,X STA $0801,X INX BNE LABEL2 INC $0409 INC $040C LDA $0409 BNE LABEL3 LDA #$37 STA $01 CLI JSR $A659 JMP $A7AE ;--------------------------------------- SWIP1 .BYTE $00 SWIP2 .BYTE $00 BITA .BYTE $00 COUNTER .BYTE $00 TIME .BYTE $04 POINTER1 .BYTE $00 TEMPA .BYTE 0,0,0,0,0,0,0,0 .BYTE 0,0,0,0,0,0,0,0 .BYTE 0,0,0,0,0,0,0,0 SPRTBL1 .BYTE $AC,$AD,$AE,$AF,$B0 .BYTE $B1,$B2,$B3,$B4,$B5 .BYTE $B6,$B7,$B8,$B9,$BA