;--------------------------------------;
;ÁRMAGEDDON ÉNTRO #1 V3.1    ÁPRIL 1993;
;--------------------------------------;

         *= $2D00

TEXT     = $2800
LOGO     = $0800
MATRIX   = $0C00
CSET1X2  = $2000
SPRITES  = $0E00
RELEASE  = $2C00
MUSIC1   = $1000
MUSIC2   = $1003
XPAUSE   = $02

         JSR SETUP
         SEI
         LDA #>IRQ2
         LDX #<IRQ2
         STA $0315
         STX $0314
         LDA #>NOPE
         LDX #<NOPE
         STA $0318
         STX $0319
         LDA #$7F
         STA $DC0D
         LDA #$01
         STA $D01A
         LDA #$32
         STA $D012
         LDA #$1B
         STA $D011
         CLI
SPACECK  LDA $DC01
         CMP #$EF
         BNE SPACECK
         JMP TRANSFER
NOPE     RTI
IRQ2     INC $D019
         LDA #$20
         STA $D010
         LDA #$7F
         STA $D015
         LDA #$FF
         STA $D017
         STA $D01B
         STA $D01C
         STA $D01D
         LDA #$08
         STA $D025
         LDA #$0A
         STA $D026
         LDA #$12
         STA $D018
         LDA #>IRQ2B
         LDX #<IRQ2B
         STA $0315
         STX $0314
         LDA #$19
         STA $D016
         LDA #$72
         STA $D012
         JSR SPRANI2
         JSR MUSIC2
         JMP $EA81
IRQ2B    INC $D019
         LDA #$18
         STA $D018
         LDA #>IRQ3
         LDX #<IRQ3
         STA $0315
         STX $0314
         LDA #$7A
         STA $D012
         JMP $EA81
IRQ3     INC $D019
         DEC $FFFF
         LDX #$00
FIRST    LDA WAVE,X
         STA $D016
         STA $D016
         LDY DELAY,X
         NOP
SECOND   DEY
         BNE SECOND
         INX
         CPX #$10
         BNE FIRST
         LDA #$18
         STA $D018
         LDA #>IRQ4
         LDX #<IRQ4
         STA $0315
         STX $0314
         LDA #$07
         STA $D016
         LDA #$92
         STA $D012
         LDA #$15
         STA $D018
         JMP $EA81
IRQ4     INC $D019
         LDA #>IRQ5
         LDX #<IRQ5
         STA $0315
         STX $0314
         LDA XPAUSE
         STA $D016
         LDA #$18
         STA $D018
         LDA #$A2
         STA $D012
         JMP $EA81
IRQ5     INC $D019
         LDA #>IRQ6
         LDX #<IRQ6
         STA $0315
         STX $0314
         LDA #$03
         STA $D016
         LDA #$18
         STA $D018
         LDA #$BA
         STA $D012
         LDA #$0B
         STA $D023
         JMP $EA81
IRQ6     INC $D019
         LDA #>IRQ2
         LDX #<IRQ2
         STA $0315
         STX $0314
         LDA #$19
         STA $D016
         LDA #$12
         STA $D018
         LDA #$FF
         STA $D012
         LDA #$00
         STA $D022
         JSR SPRANI1
         JSR SCROLL
         JSR ROTATE
         JMP $EA81
ROTATE   LDX #$00
         LDY WAVE
THIRD    LDA WAVE+1,X
         STA WAVE,X
         INX
         CPX #41
         BNE THIRD
         STY WAVE+41
         RTS
SPRANI1  LDX #$00
LP2      LDA SPRTBL1A,X
         STA $D000,X
         INX
         CPX #$0D
         BNE LP2
         LDX #$00
LOOP3    LDA #$02
         STA $D027,X
         LDA SPRTBL2A,X
         STA $07F8,X
         LDA COWA
         BNE HORSE
         LDA SPRTBL2A,X
         CLC
         ADC #$01
         CMP #$3F
         BNE DOG
         LDA #$38
DOG      STA SPRTBL2A,X
HORSE    INX
         CPX #$08
         BNE LOOP3
         DEC COWA
         BPL DINO
         LDA #$04
         STA COWA
DINO     RTS
SPRANI2  LDX #$00
LP4      LDA SPRTBL1B,X
         STA $D000,X
         INX
         CPX #$0D
         BNE LP4
         LDX #$00
LOOP5    LDA #$02
         STA $D027,X
         LDA SPRTBL2B,X
         STA $07F8,X
         LDA COWB
         BNE HORSE2
         LDA SPRTBL2B,X
         CLC
         ADC #$01
         CMP #$3F
         BNE DOG2
         LDA #$38
DOG2     STA SPRTBL2B,X
HORSE2   INX
         CPX #$08
         BNE LOOP5
         DEC COWB
         BPL DINO2
         LDA #$04
         STA COWB
DINO2    RTS
SCROLL   LDA XPAUSE
         SEC
         SBC #$02
         STA XPAUSE
         BPL EXITSC
         AND #$07
         STA XPAUSE
         LDX #$00
MOVE     LDA 1505,X
         STA 1504,X
         LDA 1545,X
         STA 1544,X
         INX
         CPX #$27
         BNE MOVE
         LDA TEXT
TP       = *-2
         BEQ RESTART
         INC TP
         BNE ST1
         INC TP+1
         BNE ST1
RESTART  LDA #<TEXT
         STA TP
         LDA #>TEXT
         STA TP+1
         LDA #$20
ST1      STA 1543
         CLC
         ADC #$40
         STA 1583
         INX
EXITSC   RTS
PTEXT    LDX #$00
PT1      LDA MESSAGE,X
         BEQ EXITPT1
         JSR $FFD2
         INX
         BNE PT1
EXITPT1  RTS
MESSAGE  .BYTE $0D,$0D,$0D,$0D,$0D
         .BYTE $0D,$0D,$0D,$0D,$0D
         .BYTE $0D,$0D,$0D,$0D,$0D
         .TEXT "   VIRTUAL REALITY     "
         .TEXT "505/296-1020"
         .BYTE $0D
         .TEXT "   ÖÉÒÔÕÁÌ ÒÅÁÌÉÔÙ     "
         .TEXT "µ°µ¯²¹¸ ·°²°"
         .BYTE $00
PMATRIX1 LDX #$00
PM1      LDA MATRIX,X
         STA $06D0,X
         STA $0428,X
         LDA MATRIX+$50,X
         STA $06D0+$50,X
         STA $0428+$50,X
         INX
         CPX #$C8
         BNE PM1
         RTS
PMATRIX2 LDX #$00
PM2      LDA RELEASE,X
         STA $0569,X
         CLC
         ADC #$40
         STA $0591,X
         INX
         CPX #$28
         BNE PM2
         RTS
SETUP    JSR $E544
         JSR PMATRIX1
         JSR PMATRIX2
         JSR PTEXT
         LDA #$00
         JSR MUSIC1
         LDA #$00
         STA $D021
         STA $D020
         LDA #$20
         STA $D010
         LDA #$7F
         STA $D015
         LDA #$FF
         STA $D017
         STA $D01B
         STA $D01C
         STA $D01D
         LDA #$08
         STA $D025
         LDA #$0A
         STA $D026
         LDX #$00
C1       LDA #$08
         STA $DAA0,X
         STA $DAF0,X
         STA $D800,X
         STA $D840,X
         INX
         BNE C1
         LDX #$00
C2       LDA #$0B
         STA $D950,X
         STA $D9D0,X
         INX
         BNE C2
         LDX #$00
C3       LDA #$0B
         STA $D9E1,X
         INX
         CPX #$24
         BNE C3
         LDX #$00
C4       LDA #$0C
         STA $D9E2,X
         INX
         CPX #$23
         BNE C4
         LDX #$00
C5       LDA #$0F
         STA $D9E3,X
         INX
         CPX #$22
         BNE C5
         LDX #$00
C6       LDA #$01
         STA $D9E4,X
         INX
         CPX #$20
         BNE C6
         LDX #$00
C7       LDA #$0B
         STA $DA09,X
         INX
         CPX #$24
         BNE C7
         LDX #$00
C8       LDA #$0C
         STA $DA0A,X
         INX
         CPX #$23
         BNE C8
         LDX #$00
C9       LDA #$0F
         STA $DA0B,X
         INX
         CPX #$22
         BNE C9
         LDX #$00
CA       LDA #$01
         STA $DA0C,X
         INX
         CPX #$20
         BNE CA
         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 $3300,X
         STA $0801,X
         INX
         BNE LABEL2
         INC $0409
         INC $040C
         LDA $0409
         BNE LABEL3
         LDA #$37
         STA $01
         CLI
         JSR $A659
         JMP $A7AE
SPRTBL1A .BYTE $E1,$CC,$82,$CC,$B2,$CC
         .BYTE $2B,$CC,$5A,$CC,$11,$CC
SPRTBL2A .BYTE $38,$39,$3A,$3B,$3C,$3D
         .BYTE $3E,$3F
SPRTBL1B .BYTE $E1,$44,$82,$44,$B2,$44
         .BYTE $2B,$44,$5A,$44,$11,$44
SPRTBL2B .BYTE $38,$39,$3A,$3B,$3C,$3D
         .BYTE $3E,$3F
COWA     .BYTE $00
COWB     .BYTE $00
DELAY    .BYTE 1,8,8,8,8,8,8,9
         .BYTE 1,8,8,8,8,8,8,9
         .BYTE 1,8,8,8,8,8,8,9
         .BYTE 1,8,8,8,8,8,8,9
WAVE     .BYTE 6,5,4,3,2,1,1,2,3,4,5,6
         .BYTE 5,5,5,4,4,4,3,3,3,2,2,2
         .BYTE 1,1,1,2,2,2,3,3,3,4,4,4
         .BYTE 5,5,5,6,6,6