;ÁRMAGEDDON ÉNTRO #3 V1.1    ÁPRIL 1993;
;--------------------------------------;

         *= $4000

LOGO     = $0800
MATRIX   = $3300
MUSIC1   = $1040
MUSIC2   = $1043
LCHAR    = $2A00
HCHAR    = $2B00
TEXT     = $2C00
POS      = $2D00
SCAREA   = $2000
CSET1X1A = $3000
CSET1X1B = $2800
SPRITES  = $3500
SINUS1   = $2E00
SCREEN1  = $04A0
SCREEN2  = $0680
STEXT    = $1C00
XPAUSE1  = $02
XPAUSE2  = $03
TEMP     = $04
SCTEMP   = $FB
NAME     = $2F00
DATE     = $2F50

         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  JSR DYCP
         LDA $DC01
         CMP #$EF
         BNE SPACECK
         JMP TRANSFER
IRQ1     INC $D019
         DEC $FFFF
         DEC $FFFF
         DEC $FFFF
         DEC $FFFF
         NOP
         LDA #<IRQ2
         LDX #>IRQ2
         STA $0314
         STX $0315
         LDA #$8A
         STA $D012
         LDA #$18
         STA $D016
         LDA #$12
         STA $D018
         LDA #$03
         STA $D022
         LDA #$0E
         STA $D023
         JSR MUSIC2
         JSR SCROLL1
         JSR SCROLL1
         JSR SCROLL2
         JSR SCROLL2
         JMP $EA81
IRQ2     INC $D019
         LDA #<IRQ3
         LDX #>IRQ3
         STA $0314
         STX $0315
         LDA #$B1
         STA $D012
         LDA #$08
         STA $D016
         LDA #$1A
         STA $D018
         JMP $EA81
IRQ3     INC $D019
         DEC $FFFF
         DEC $FFFF
         DEC $FFFF
         DEC $FFFF
         DEC $FFFF
         DEC $FFFF
         DEC $FFFF
         NOP
         LDA #<IRQ1
         LDX #>IRQ1
         STA $0314
         STX $0315
         LDA #$E1
         STA $D012
         LDA XPAUSE1
         STA $D016
         LDA #$18
         STA $D018
         JSR FADER
         JSR DELAY1
         JSR DELAY2
         JSR DELAY3
         JMP $EA81
DELAY1   LDA #$00
TIME1    = *-1
         BEQ SPRDEF1
         DEC TIME1
         RTS
SPRDEF1  LDA #$02
         STA TIME1
         LDX #$00
POINTER2 = *-1
         LDA SPRTBLB,X
         CMP #$FF
         BNE CONTINUE
         STA POINTER2
         LDA #$E0
CONTINUE STA $07F8
         INC POINTER2
         RTS
DELAY2   LDA #$00
TIME2A   = *-1
         BEQ SPRDEF2
         DEC TIME2A
         RTS
SPRDEF2  LDA #$03
         STA TIME2A
         LDX #$0D
POINTER3 = *-1
         LDA SPRTBLB,X
         CMP #$FF
         BNE CONT2
         STA POINTER3
         LDA #$E0
CONT2    STA $07F9
         INC POINTER3
         RTS
DELAY3   LDA #$00
TIME3    = *-1
         BEQ SPRDEF3
         DEC TIME3
         RTS
SPRDEF3  LDA #$04
         STA TIME3
         LDX #$0D
POINTER4 = *-1
         LDA SPRTBLB,X
         CMP #$FF
         BNE CONT3
         STA POINTER4
         LDA #$E0
CONT3    STA $07FA
         INC POINTER4
         RTS
FADER    DEC TIME2
         BNE EXITFD
         LDX #$00
         LDA DELAYTBL,X
         STA TIME2
         LDX POINTER
         INC POINTER
         LDA COLORS,X
         CMP #$FF
         BEQ F2
         LDX #$00
F1       STA $D9E0,X
         INX
         CPX #$78
         BNE F1
         RTS
F2       LDA #$00
         STA POINTER
EXITFD   RTS
SCROLL1  LDA XPAUSE1
         SEC
         SBC #$01
         STA XPAUSE1
         BPL SCROLLA
         LDA #$07
         STA XPAUSE1
         LDX #$00
SCRSHIFT LDA TEXT+1,X
         STA TEXT,X
         INX
         CPX #$28
         BNE SCRSHIFT
         LDA STEXT
TP       = *-2
         BEQ RESTART
         INC TP
         BNE PCHR
         INC TP+1
         BNE PCHR
RESTART  LDA #>STEXT
         STA TP+1
         LDA #<STEXT
         STA TP
         LDA #$20
PCHR     STA TEXT+$27
SCROLLA  RTS
SCROLL2  LDA XPAUSE2
         DEC XPAUSE2
         BPL SCROLLB
         LDA #$01
         STA XPAUSE2
         LDX #$00
SHIFT    LDA POS+1,X
         STA POS,X
         INX
         CPX #$28
         BNE SHIFT
         LDA SINUS1
TP2      = *-2
         INC TP2
         STA POS+$27
SCROLLB  RTS
DYCP     LDX #$00
DYLOOP   LDY TEXT,X
         LDA CHLWBYTE,Y
         STA TEMP
         LDA CHHIBYTE,Y
         CLC
         ADC #$30
         STA TEMP+1
         LDA TEMP
         SEC
         SBC #$04
         STA TEMP
         LDA POS,X
         CLC
         ADC CLWBYTE,X
         STA $FB
         LDA CHIBYTE,X
         ADC #$20
         STA $FC
         LDY #$00
         LDA #$00
         STA ($FB),Y
         INY
         STA ($FB),Y
         INY
         STA ($FB),Y
         INY
         STA ($FB),Y
         INY
         LDA (TEMP),Y
         STA ($FB),Y
         INY
         LDA (TEMP),Y
         STA ($FB),Y
         INY
         LDA (TEMP),Y
         STA ($FB),Y
         INY
         LDA (TEMP),Y
         STA ($FB),Y
         INY
         LDA (TEMP),Y
         STA ($FB),Y
         INY
         LDA (TEMP),Y
         STA ($FB),Y
         INY
         LDA (TEMP),Y
         STA ($FB),Y
         INY
         LDA (TEMP),Y
         STA ($FB),Y
         INY
         LDA #$00
         STA ($FB),Y
         INY
         STA ($FB),Y
         INY
         STA ($FB),Y
         INY
         STA ($FB),Y
         INY
         INX
         CPX #$28
         BNE DYLOOP
         RTS
PMATRIX1 LDX #$00
PM1      LDA MATRIX,X
         STA SCREEN1,X
         LDA MATRIX+$18,X
         STA SCREEN1+$18,X
         INX
         BNE PM1
         RTS
PMATRIX2 LDX #$00
         TXA
M2       CLC
         STA SCREEN2,X
         ADC #$01
         STA SCREEN2+$28,X
         ADC #$01
         STA SCREEN2+$50,X
         ADC #$01
         STA SCREEN2+$78,X
         ADC #$01
         STA SCREEN2+$A0,X
         ADC #$01
         STA SCREEN2+$C8,X
         ADC #$01
         INX
         CPX #$28
         BNE M2
         RTS
PMATRIX3 LDX #$00
PM3      LDA NAME,X
         STA $05E0,X
         INX
         CPX #$28
         BNE PM3
         RTS
PMATRIX4 LDX #$00
PM4      LDA DATE,X
         STA $0630,X
         INX
         CPX #$28
         BNE PM4
         RTS
SETUP    JSR $E544
         LDA #$00
         JSR MUSIC1
         JSR PMATRIX1
         JSR PMATRIX2
         JSR PMATRIX3
         JSR PMATRIX4
         LDA #$00
         STA $D020
         STA $D021
         LDX #$00
C1       LDA #$0E
         STA $D8A0,X
         STA $D8A0+$18,X
         INX
         BNE C1
         LDX #$00
C2       LDA #$01
         STA $DA70,X
         INX
         BNE C2
         LDX #$00
L1       LDA #$20
         STA TEXT,X
         INX
         BNE L1
         LDA #$06
         STA 55936
         STA 55976
         STA 56016
         STA 56056
         STA 56096
         STA 56136
         STA 55974
         STA 56014
         STA 56054
         STA 56094
         STA 56134
         STA 56174
         LDA #$0E
         STA 55937
         STA 55977
         STA 56017
         STA 56057
         STA 56097
         STA 56137
         STA 55973
         STA 56013
         STA 56053
         STA 56093
         STA 56133
         STA 56173
         LDA #$03
         STA 55938
         STA 55978
         STA 56018
         STA 56058
         STA 56098
         STA 56138
         STA 55972
         STA 56013
         STA 56052
         STA 56092
         STA 56132
         STA 56172
         LDA #$FF
         STA $D015
         STA $D01C
         LDA #$00
         STA $D010
         LDA #$0C
         STA $D025
         LDA #$0B
         STA $D026
         LDX #$04
SPR1     LDA #$01
         STA $D027,X
         DEX
         BNE SPR1
         LDA #$C6
         STA $D000
         LDA #$6B
         STA $D001
         LDA #$F6
         STA $D002
         LDA #$4E
         STA $D003
         LDA #$52
         STA $D004
         LDA #$5A
         STA $D005
         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 $4800,X
         STA $0801,X
         INX
         BNE LABEL2
         INC $0409
         INC $040C
         LDA $0409
         BNE LABEL3
         LDA #$37
         STA $01
         CLI
         JSR $A659
         JMP $A7AE
CHLWBYTE .BYTE 0,8,16,24,32,40,48,56,64
         .BYTE 72,80,88,96,104,112,120
         .BYTE 128,136,144,152,160,168
         .BYTE 176,184,192,200,208,216
         .BYTE 224,232,240,248
         .BYTE 0,8,16,24,32,40,48,56,64
         .BYTE 72,80,88,96,104,112,120
         .BYTE 128,136,144,152,160,168
         .BYTE 176,184,192,200,208,216
         .BYTE 224,232,240,248
         .BYTE 0,8,16,24,32,40,48,56,64
         .BYTE 72,80,88,96,104,112,120
         .BYTE 128,136,144,152,160,168
         .BYTE 176,184,192,200,208,216
         .BYTE 224,232,240,248
         .BYTE 0,8,16,24,32,40,48,56,64
         .BYTE 72,80,88,96,104,112,120
         .BYTE 128,136,144,152,160,168
         .BYTE 176,184,192,200,208,216
         .BYTE 224,232,240,248
         .BYTE 0,8,16,24,32,40,48,56,64
         .BYTE 72,80,88,96,104,112,120
         .BYTE 128,136,144,152,160,168
         .BYTE 176,184,192,200,208,216
         .BYTE 224,232,240,248
         .BYTE 0,8,16,24,32,40,48,56,64
         .BYTE 72,80,88,96,104,112,120
         .BYTE 128,136,144,152,160,168
         .BYTE 176,184,192,200,208,216
         .BYTE 224,232,240,248
         .BYTE 0,8,16,24,32,40,48,56,64
         .BYTE 72,80,88,96,104,112,120
         .BYTE 128,136,144,152,160,168
         .BYTE 176,184,192,200,208,216
         .BYTE 224,232,240,248
         .BYTE 0,8,16,24,32,40,48,56,64
         .BYTE 72,80,88,96,104,112,120
         .BYTE 128,136,144,152,160,168
         .BYTE 176,184,192,200,208,216
         .BYTE 224,232,240,248
CHHIBYTE .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0
         .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0
         .BYTE 0,0,0,0
         .BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1
         .BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1
         .BYTE 1,1,1,1
         .BYTE 2,2,2,2,2,2,2,2,2,2,2,2,2
         .BYTE 2,2,2,2,2,2,2,2,2,2,2,2,2
         .BYTE 2,2,2,2
         .BYTE 3,3,3,3,3,3,3,3,3,3,3,3,3
         .BYTE 3,3,3,3,3,3,3,3,3,3,3,3,3
         .BYTE 3,3,3,3
         .BYTE 4,4,4,4,4,4,4,4,4,4,4,4,4
         .BYTE 4,4,4,4,4,4,4,4,4,4,4,4,4
         .BYTE 4,4,4,4
         .BYTE 5,5,5,5,5,5,5,5,5,5,5,5,5
         .BYTE 5,5,5,5,5,5,5,5,5,5,5,5,5
         .BYTE 5,5,5,5
         .BYTE 6,6,6,6,6,6,6,6,6,6,6,6,6
         .BYTE 6,6,6,6,6,6,6,6,6,6,6,6,6
         .BYTE 6,6,6,6
         .BYTE 7,7,7,7,7,7,7,7,7,7,7,7,7
         .BYTE 7,7,7,7,7,7,7,7,7,7,7,7,7
         .BYTE 7,7,7,7
CLWBYTE  .BYTE $00,$30,$60,$90,$C0,$F0
         .BYTE $20,$50,$80,$B0,$E0,$10
         .BYTE $40,$70,$A0,$D0,$00,$30
         .BYTE $60,$90,$C0,$F0,$20,$50
         .BYTE $80,$B0,$E0,$10,$40,$70
         .BYTE $A0,$D0,$00,$30,$60,$90
         .BYTE $C0,$F0,$20,$50
CHIBYTE  .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $01,$01,$01,$01,$01,$02
         .BYTE $02,$02,$02,$02,$03,$03
         .BYTE $03,$03,$03,$03,$04,$04
         .BYTE $04,$04,$04,$05,$05,$05
         .BYTE $05,$05,$06,$06,$06,$06
         .BYTE $06,$06,$07,$07
POINTER  .BYTE $00
TIME2    .BYTE $01
DELAYTBL .BYTE 10,11,12,13,50
         .BYTE 13,12,11,10
COLORS   .BYTE $00,$06,$0E,$03,$01
         .BYTE $03,$0E,$06,$00,$FF
SPRTBLB  .BYTE $E0,$E1,$E2,$E3,$E4,$E5
         .BYTE $E6,$E7,$E8,$E8,$E8,$E8
         .BYTE $E8,$E8,$E8,$FF