;ÁRMAGEDDON ÉNTRO #2 V2.0    ÁPRIL 1993;
;--------------------------------------;

         *= $2A00

LOGO     = $0800
MATRIX1  = $2E00
CSET1X1  = $2000
SINUS    = $1C00
SINTBL1  = $1D00
SINTBL2  = $1E00
XPAUSE1  = $02
XPAUSE2  = $03
SCREEN1  = $03FF
SCREEN2  = $058F
SPRITES  = $2200
GAMENAME = $3000
TEXT     = $3050
MUSIC1   = $1000
MUSIC2   = $1003

         JSR SETUP
         SEI
         LDA #$7F
         STA $DC0D
         LDA #$01
         STA $D01A
         LDA #$32
         STA $D012
         LDA #$1B
         STA $D011
         LDA #<IRQ1
         LDX #>IRQ1
         STA $0314
         STX $0315
         LDA #<NOPE
         LDX #>NOPE
         STA $0318
         STX $0319
         CLI
SPACECK  LDA $DC01
         CMP #$EF
         BNE SPACECK
         JMP TRANSFER
NOPE     RTI
IRQ1     INC $D019
         LDX #$00
POS      = *-1
         LDY SINTBL1,X
FLD1     LDA $D012
FLDLP1   CMP $D012
         BEQ FLDLP1
         AND #$07
         ORA #$18
         STA $D011
         DEY
         BPL FLD1
         LDA $D012
         CLC
         ADC #$3C
         STA $D012
         INC POS
         LDA #<IRQ2
         LDX #>IRQ2
         STA $0314
         STX $0315
         LDA XPAUSE1
         STA $D016
         LDA #$12
         STA $D018
         LDA #$07
         STA $D022
         LDA #$0A
         STA $D023
         JSR SWING2
         JMP $EA81
IRQ2
FLD3     LDA $D012
FLDLP3   CMP $D012
         BEQ FLDLP3
         AND #$07
         ORA #$18
         STA $D011
         LDA $D012
         CMP #$8A
         BNE FLD3
         LDA #$1B
         STA $D011
         INC $D019
         LDA #<IRQ3
         LDX #>IRQ3
         STA $0314
         STX $0315
         LDA #$9F
         STA $D012
         LDA #$07
         STA $D016
         LDA #$18
         STA $D018
         JSR FADER
         JMP $EA81
IRQ3     INC $D019
         LDX #$00
POS2     = *-1
         LDY SINTBL1,X
FLD2     LDA $D012
FLDLP2   CMP $D012
         BEQ FLDLP2
         AND #$07
         ORA #$10
         STA $D011
         DEY
         BPL FLD2
         LDA $D012
         CLC
         ADC #$3C
         STA $D012
         INC POS2
         LDA #<IRQ1
         LDX #>IRQ1
         STA $0314
         STX $0315
         LDA #$2C
         STA $D012
         LDA XPAUSE2
         STA $D016
         LDA #$12
         STA $D018
         JSR SWING1
         JSR SCROLL
         JSR LABEL1
         JSR MUSIC2
         JMP $EA81
FADER    DEC TIME
         BNE EXITFD
         LDX #$00
         LDA DELAY,X
         STA TIME
         LDX POINTER
         INC POINTER
         LDA CLRTBL,X
         CMP #$FF
         BEQ F2
         LDX #$00
F1       STA $D940,X
         INX
         CPX #$28
         BNE F1
         RTS
F2       LDA #$00
         STA POINTER
EXITFD   RTS
LABEL1   LDX #$00
         LDY #$00
LABEL2   = *-1
         LDA SINTBL2,Y
         SBC #$07
         LDY #$00
LP1      STA $D001,X
         INX
         INX
         INY
         CPY #$08
         BNE LP1
         INC LABEL2
         RTS
SCROLL   LDX #$00
         LDY #$00
ONE      ASL $23C0,X
         ROL $2382,X
         ROL $2381,X
         ROL $2380,X
         ROL $2342,X
         ROL $2341,X
         ROL $2340,X
         ROL $2302,X
         ROL $2301,X
         ROL $2300,X
         ROL $22C2,X
         ROL $22C1,X
         ROL $22C0,X
         ROL $2282,X
         ROL $2281,X
         ROL $2280,X
         ROL $2242,X
         ROL $2241,X
         ROL $2240,X
         ROL $2202,X
         ROL $2201,X
         ROL $2200,X
         INX
         INX
         INX
         INY
         CPY #$07
         BNE ONE
         LDA #$00
SECOND   = *-1
         BEQ READCHAR
         DEC SECOND
         RTS
READCHAR LDA #$07
         STA SECOND
         LDA TEXT
TP       = *-2
         BEQ RESTART
         INC TP
         BNE PCHR
         INC TP+1
         BNE PCHR
RESTART  LDA #>TEXT
         LDX #<TEXT
         STA TP+1
         STX TP
         LDA #$20
PCHR     TAX
         LDY #$20
         CPX #$20
         BCC THIRD
         INY
THIRD    ASL A
         ASL A
         ASL A
         STA FOUR
         STY FOUR+1
         LDY #$00
         LDX #$00
FIVE     LDA FOUR,X
FOUR     = *-2
         STA $23C0,Y
         INX
         INY
         INY
         INY
         CPX #$08
         BNE FIVE
         RTS
BOUNCE   LDX #$00
         LDY #$00
         LDA #$18
STUPID   STA $D000,X
         CLC
         ADC #$30
         INX
         INX
         INY
         CPY #$08
         BNE STUPID
         LDA #$00
         STA $D01C
         LDA #$7F
         STA $D015
         STA $D01D
         LDA #$E0
         STA $D010
         LDX #$00
         LDA #$2200/$40
GOODFY   STA $07F8,X
         CLC
         ADC #$01
         INX
         CPX #$08
         BNE GOODFY
         RTS
SWING1   LDX SWIP1
         LDA SINUS,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
         INX
         INY
         CPX #$28
         BNE SLOOP1
         INC SWIP1
         RTS
SWING2   LDX SWIP2
         LDA SINUS,X
         EOR #$FF
         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
         INX
         INY
         CPX #$28
         BNE SLOOP2
         INC SWIP2
         RTS
PNAME    LDX #$00
PN1      LDA GAMENAME,X
         STA $0540,X
         INX
         CPX #$28
         BNE PN1
         RTS
SETUP    JSR $E544
         JSR BOUNCE
         JSR PNAME
         LDA #$00
         JSR MUSIC1
         LDA #$00
         STA $D020
         STA $D021
         LDA #$01
         STA $D027
         STA $D028
         STA $D029
         STA $D02A
         STA $D02B
         STA $D02C
         STA $D02D
         LDX #$00
         LDA #$0A
C1       STA $D800,X
         STA $D825,X
         STA $D975,X
         STA $DA00,X
         INX
         BNE C1
         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 LABELA,X
         STA $0400,X
         INX
         BNE LOOPA
         LDA #$00
         STA $0800
         JMP $0400
LABELA   SEI
         LDA #$34
         STA $01
LABELC   LDX #$00
LABELB   LDA $3300,X
         STA $0801,X
         INX
         BNE LABELB
         INC $0409
         INC $040C
         LDA $0409
         BNE LABELC
         LDA #$37
         STA $01
         CLI
         JSR $A659
         JMP $A7AE
SWIP1    .BYTE $00
SWIP2    .BYTE $00
POINTER  .BYTE $00
TIME     .BYTE $01
DELAY    .BYTE 10,11,12,13,50
         .BYTE 13,12,11,10
CLRTBL   .BYTE $00,$0B,$0C,$0F,$01
         .BYTE $0F,$0C,$0B,$00,$FF