start          equ $3500

               org start
               opt %0100101

infofonts      equ $b400
adr            equ $f0
stary          equ adr

m_adr          equ $436c
s_adr          equ $4b2e
m_init         equ m_adr+3
m_tact         equ m_adr+6
romram         equ 1160
setvbv         equ $e45c
vvblkd         equ $224

wait1          lda stary+2
               cmp #27
               beq w2
               lda 53279
               cmp #7
               beq wait1

w2             lda #6
               ldy stary
               ldx stary+1
               jsr setvbv

               lda #255
               sta 764

               jsr change_intro

               lda 20
               cmp 20
               beq *-2

               jsr romram

               ldx <s_adr
               ldy >s_adr
               lda #$70
               jsr m_init
               lda #0
               tax
               jsr m_init


               ldx #66
               lda 53770
               cmp #75
               bcs *+4
               bcc *-7
               cmp #178
               bcs *-11
               sta zamiec,x
               dex
               bne *-17

               lda <wpr_dan
               sta adr
               lda >wpr_dan
               sta adr+1


               lda >infofonts
               sta 756
               lda <wpr_display
               sta 560
               lda >wpr_display
               sta 561

               lda vvblkd
               sta stv
               lda vvblkd+1
               sta stv+1
               lda #7
               ldy <wpr_nmi
               ldx >wpr_nmi
               jsr setvbv

               lda <wpr_dli
               sta 512
               lda >wpr_dli
               sta 513

               lda #3
               sta 53277
               lda #192
               sta 54286
               lda #$58
               sta 708
               lda #$6a
               sta 709
               lda #$cf
               sta 710
               lda #$1f
               sta 704
               lda #61
               sta 559

               lda #222
               sta 54279

wait           lda 708
               and #%00001111
               ora 709
               and #%00001111
               ora 710
               and #%00001111
               cmp #0
               bne wait


               lda #0
               sta 559
               sta $d400

               lda #$40
               jsr m_init

               lda #64
               sta 54286

               lda #7
               ldy stv
               ldx stv+1
               jmp setvbv


wpr_dli        equ *

               pha
               txa
               pha

               ldx #66
               lda zamiec,x
               sta 54282
               sta 53252
               dex
               bne *-10
               lda #0
               sta 53252

               pla
               tax
               pla
               rti

wpr_nmi        equ *

               jsr wpr__nmi
               jmp $e462

wpr__nmi       jsr m_tact

               lda Y_licz
               cmp #192
               bne *+7
               inc Y_licz+2
               beq *+14

               lda 764
               cmp #255
               beq nmi2
               lda #255
               sta 764

               lda #0
               sta Y_licz
               inc Y_licz+1
               lda adr
               clc
               adc #192
               sta adr
               bcc nmi2
               inc adr+1

nmi2           lda Y_licz+1
               cmp #8
               bcc *+5

               jmp sciemniaj

               lda Y_licz
               cmp #192
               bcs *+5
               inc Y_licz
               ldy Y_licz
               cpy #192
               bcs *+7
               lda (adr),y
               sta wpr_txt+64,y

               ldx #66
               dec zamiec,x
               dec zamiec+1,x
               dec zamiec+1,x
               dex
               dex
               bne *-11
               ldx #66
               lda zamiec,x
               cmp #75
               bcs *+7
               lda #178
               sta zamiec,x
               dex
               bne *-13
               rts
sciemniaj      equ *

               lda 708
               and #%00001111
               beq *+5
               dec 708
               lda 709
               and #%00001111
               beq *+5
               dec 709
               lda 710
               and #%00001111
               beq *+5
               dec 710
               lda 704
               and #%00001111
               beq *+5
               dec 704
               rts

change_intro   equ *

               lda 20
               cmp 20
               beq *-2

               lda 708
               and #%00001111
               beq *+5
               dec 708
               lda 709
               and #%00001111
               beq *+5
               dec 709
               lda 710
               and #%00001111
               beq *+5
               dec 710

               lda 710
               ora 709
               ora 708
               and #%00001111
               bne change_intro

               lda #0
               sta 559
               sta $d400

               rts

stv            dta d'  '
Y_licz         dta d'   '

zamiec         equ *

               dta d'                                        '
               dta d'                            '

wpr_display    equ *

               dta d'pppp'
               dta b(68),a(wpr_ekr)
               dta b(4),b(4),b(4)
               dta b(4+128),b(4),b(4)
               dta b(4),b(4),b(4)
               dta b(4),b(4),b(4)
               dta b(4)
               dta b(4),b(4),b(4)
               dta b(4)
               dta b(65),a(wpr_display)


wpr_ekr        equ *

               dta d'       _        [\      _       '
               dta d' [\      _      ]^              '
               dta d' ]^            _     _      _   '
               dta d'       _                _       '
wpr_txt        dta d'_ ............................  '
               dta d'  .                          ._ '
               dta d'  .                          .  '
               dta d'  .                          .  '
               dta d'_ .                          .  '
               dta d'  .                          ._ '
               dta d'  .                          .  '
               dta d'  .                          .  '
               dta d'[\.                          . _'
               dta d']^............................  '
               dta d'                 _      _       '
               dta d' _      _     _      _      [\  '
               dta d'      _   [\                ]^  '
               dta d'   _      ]^        _           '


wpr_dan        equ *

               dta d'  . JEST ROK 5477.           .  '
               dta d'  .                          .  '
               dta d'_ .  DO ZIEMI ZBLI.A SI.     .  '
               dta d'  .    JEDEN Z PATROLI       ._ '
               dta d'  . STRZEG.CYCH NASZ UK.AD   .  '
               dta d'  . S.ONECZNY.               .  '

               dta d'  . RAPORT NR 5477-03-27A:   .  '
               dta d'  .                          .  '
               dta d'_ .   NEGOCJACJE POKOJOWE    .  '
               dta d'  . Z MIESZKA.CAMI PLANETY   ._ '
               dta d'  .   SQUO ZAKO.CZY.Y SIE    .  '
               dta d'  . FIASKIEM.                .  '

               dta d'  .   DO ZIEMI ZBLI.A SI.    .  '
               dta d'  .    ESKADRA MY.LIWC.W     .  '
               dta d'_ .     NIEPRZYJACIELA.      .  '
               dta d'  .    PRZEWIDYWANY ATAK     ._ '
               dta d'  .   NAST.PI ZA OKO.O       .  '
               dta d'  .       2 GODZINY.         .  '

               dta d'  . RAPORT NR 5477-03-27B:   .  '
               dta d'  .                          .  '
               dta d'_ . NAJWA.NIEJSZA STRATEGI-  .  '
               dta d'  . CZNIE STACJA ORBITALNA,  ._ '
               dta d'  .     EARTH 2B ZOSTA.A     .  '
               dta d'  . OPANOWANA PRZEZ WROGA.   .  '

               dta d'  . ROZKAZ NR 65-SX-486:     .  '
               dta d'  .                          .  '
               dta d'_ . WYS.A. NA ZAJ.T. STACJ.  .  '
               dta d'  . ORBITALN. NAJLEPSZEGO    ._ '
               dta d'  . CZ.OWIEKA Z BRYGADY      .  '
               dta d'  . KOSMICZNYCH KOMANDOS.W.  .  '

               dta d'  . CEL AKCJI:               .  '
               dta d'  .                          .  '
               dta d'_ .  WYDOSTA. Z OPANOWANEJ   .  '
               dta d'  . BAZY TAJN. BRO. ATOMOW.  ._ '
               dta d'  .    UKRYT. W CZTERECH     .  '
               dta d'  . TAJNYCH MIEJSCACH.       .  '

               dta d'  . RAPORT NR 5477-03-27C:   .  '
               dta d'  .                          .  '
               dta d'_ .  NASZ CZ.OWIEK ZOSTA.    .  '
               dta d'  . ODTRANSPORTOWANY NA E2B. ._ '
               dta d'  .                          .  '
               dta d'  .                          .  '

               dta d'  . RAPORT NR 5477-03-27D:   .  '
               dta d'  .                          .  '
               dta d'_ .  DO ATAKU Z KOSMOSU      .  '
               dta d'  .    ZOSTA.O JESZCZE:      ._ '
               dta d'  .                          .  '
               dta d'  .       36 MINUT.          .  '


               org $2e2
               dta a(start)