Org $8000
iocb1 = 848
dosvec = $0a
runad = $2e0
eol = 155
iocb = 928
iccmd = iocb+2
icbufa = iocb+4
icputb = iocb+6
icbufl = iocb+8
icax1 = iocb+10
icax2 = iocb+11
ciomain = 58454
okno = 254
mode = 255
putline = 50754
tx = 252
adress = 250
savmsc = 88
mb = 248
sb = 249
dliv = 512
dl = 560
nmien = $d40e
colpf0s = 708
colpf1s = 709
colpf2s = 710
colpf3s = 711
colbak = 712
pomoc = 246
licznik = 245
cpf0 = 53270
cpf1 = 53271
cpf2 = 53272
cpf3 = 53273
colb = 53274
col = 244
vcount = 54283
wsync = 54282
crsrow = 84
crscol = 85
color = 765
crsgr8 = 243
pom3 = 242
oldrow = $5a
oldcol = $5b
dmactls = 559
vscrol = 54277
setvblv = 58460

start:    jmp pocz

graph: ldx #3
     stx iccmd
     ldx <name
     stx icbufa
     ldx >name
     stx icbufa+1
     stx icbufl
     stx icbufl+1
     ldx okno
     stx icax1
     ldx mode
     stx icax2
     ldx #96
     jmp ciomain

name db c'S:',b(eol)

close: ldx #12
     stx iccmd
     ldx #96
     jmp ciomain

spr  = *
     jsr pasy
     lda 764
     cmp #255
     bne dal
     lda 53279
     cmp #6
     beq dal
     lda 644
     beq dal
     lda 645
     bne spr
dal:  lda #0
     sta colpf0s
     sta colpf1s
     sta colpf2s
     sta colpf3s
     jmp intro2

trbyt: sei
     lda #254
     sta $d301
     lda <rti
     sta $fffa
     sta $fffe
     lda >rti
     sta $fffa+1
     sta $fffe+1
     ldx #0
skad: lda tram,x
gdzie: sta $a000+8192,x
     inx
     bne skad
     cli
     lda #255
     sta $d301
     rts
rti:  rti


intro2: ldy #$9f
     lda #0
     sta $0244
     sta gdzie+1
     sta po+1

trs:  iny
     sty gdzie+2
     sty po+2
     ldx #0
po:   lda $a000+8192,x
     sta tram,x
     inx
     bne po
     jsr trbyt
     cpy #$cf
     bne cnt
     ldy #$d7
cnt:  cpy #$ff
     beq exit
     bne trs
exit: lda #254
     sta $d301

     lda #0
     sta okno
     sta mode
     jsr graph
     lda #0
     sta colbak
     sta colpf1s
     sta colpf2s
     sta 755

     ldx <rubby
     ldy >rubby
     stx 203
     sty 204
sk0:  ldy #0
     lda (203),y
     cmp #155
     beq endd
     sta 254
     iny
     lda (203),y
     ldy #7
     sta 255
     inc 203
     inc 203
     bne sk1
     inc 204
sk1:  lda (203),y
     sta (254),y
     dey
     bpl sk1
     clc
     lda 203
     adc #8
     sta 203
     bcc sk2
     inc 204
sk2:  jmp sk0
endd:  lda #174
     sta mb
     lda #0
     sta sb
     ldx <text1
     ldy >text1
     jsr print
     lda #152-79
     sta mb
     lda #1
     sta sb
     ldx <text2
     ldy >text2
     jsr print
     lda #199
     sta mb
     lda #0
     sta sb
     ldx <text3
     ldy >text3
     jsr print
     lda #61
     sta mb
     lda #2
     sta sb
     ldx <text4
     ldy >text4
     jsr print
     ldx <text5
     ldy >text5
     lda #3
     sta sb
     lda #42-40
     sta mb
     jsr print
     ldx <text6
     ldy >text6
     lda #3
     sta sb
     lda #112-40
     sta mb
     jsr print

     lda #15
     sta colpf1s

     lda #0
     sta vscrol
     sta 207
     ldx dl
     ldy dl+1
     stx 203
     sty 204
     ldx #5
t1:   lda line_tab,x
     tay
     lda #34
     sta (203),y
     dex
     bpl t1

     ldy #15
     ldx #0
     lda #3
     jsr setvblv
     ldx #0

h1:   lda 554
     bne h1
     inx
     stx vscrol
     txa
     cmp #7
     beq h2
     lda #255
     sta 554
     lda #15
     sta 540
     jmp h1



h2:   lda #3
     sta iocb1+2
     lda #4
     sta iocb1+10
     lda #128
     sta iocb1+11
     ldx <turbo
     ldy >turbo
     stx iocb1+4
     sty iocb1+5
     ldx #16
     stx iocb1+8
     stx iocb1+9
     jsr ciomain
     lda #7
     sta iocb1+2
     ldx <1280
     ldy >1280
     stx iocb1+4
     sty iocb1+5
     ldx #255
     stx iocb1+8
     stx iocb1+9
     ldx #16
     jsr ciomain
     jmp (runad)

turbo db c'D***',b(eol)

line_tab DB B(8),B(12),B(15),B(18),B(23),B(25)

print: stx tx
     sty tx+1
     ldx savmsc
     ldy savmsc+1
     stx adress
     sty adress+1
     lda adress
     clc
     adc mb
     bcc l3
     inc sb
l3:   sta adress
     lda adress+1
     adc sb
     sta adress+1
     ldy #0
l2:   lda (tx),y
     cmp #eol
     beq l1
     sta (adress),y
     iny
     jmp l2
l1:   rts

tab_war db b(8),b(64),b(72),b(96),b(112)

text1 db s'CIVILIZATION',b(eol)
text2 db b(72),s'1995 REGENERATION, INC.',b(eol)
text3 db s'PROGRAMMED',b(eol)
text4 db s'KRZYSZTOF G',b(68),s'RA',b(eol)
text5 db s'VERSION FOR ATARI XE',b(eol)
text6 db s'THIS IS POLISH GAME, ALL RIGHTS RESERVED',b(eol)


rubby db a(57344+136),b(120),b(248),b(56),b(56),b(56),b(56)
      db b(254),b(0)
      db a(57344+144),b(124),b(142),b(30),b(60),b(120)
      db b(240),b(254),b(0)
      db a(57344+152),b(124),b(142),b(14),b(60),b(14),b(142)
      db b(124),b(0)
      db a(57344+160),b(30),b(46),b(78),b(142),b(255),b(14)
      db b(14),b(0)
      db a(57344+168),b(254),b(224),b(252),b(14),b(14),b(142)
      db b(124),b(0)
      db a(57344+176),b(124),b(226),b(224),b(252),b(226)
      db b(226),b(124),b(0)
      db a(57344+184),b(254),b(14),b(14),b(28),b(28),b(56)
      db b(56),b(0)
      db a(57344+192),b(124),b(142),b(142),b(124),b(142)
      db b(142),b(124),b(0)
      db a(57344+200),b(124),b(142),b(142),b(126),b(14)
      db b(142),b(124),b(0)

      db a(57344+512),b(0),b(124),b(14),b(126),b(142),b(142)
      db b(126),b(4)
      db a(57344+520),b(4),b(124),b(234),b(224),b(224),b(226)
      db b(124),b(0)
      db a(57344+528),b(0),b(124),b(226),b(226),b(254),b(224)
      db b(124),b(8)
      db a(57344+536),b(4),b(252),b(234),b(226),b(226),b(226)
      db b(226),b(0)
      db a(57344+544),b(4),b(124),b(234),b(226),b(226),b(226)
      db b(124),b(0)
      db a(57344+552),b(8),b(124),b(226),b(112),b(28),b(142)
      db b(124),b(0)
      db a(57344+560),b(24),b(0),b(254),b(14),b(28),b(112)
      db b(224),b(254)
      db a(57344+568),b(8),b(16),b(254),b(14),b(28),b(112)
      db b(224),b(254)
      db a(57344+576),b(56),b(68),b(186),b(162),b(186),b(68)
      db b(56),b(0)
      db a(57344+584),b(4),b(124),b(234),b(226),b(226),b(226)
      db b(226),b(124)

      db a(57344+264),b(124),b(226),b(226),b(254),b(226)
      db b(226),b(226),b(0)
      db a(57344+272),b(252),b(226),b(226),b(252),b(226)
      db b(226),b(252),b(0)
      db a(57344+280),b(124),b(226),b(224),b(224),b(224)
      db b(226),b(124),b(0)
      db a(57344+288),b(252),b(226),b(226),b(226),b(226)
      db b(226),b(252),b(0)
      db a(57344+296),b(254),b(224),b(224),b(252),b(224)
      db b(224),b(254),b(0)
      db a(57344+304),b(254),b(224),b(224),b(252),b(224)
      db b(224),b(224),b(0)
      db a(57344+312),b(124),b(226),b(224),b(230),b(226)
      db b(226),b(126),b(0)
      db a(57344+320),b(226),b(226),b(226),b(254),b(226)
      db b(226),b(226),b(0)
      db a(57344+328),b(254),b(56),b(56),b(56),b(56),b(56)
      db b(254),b(0)
      db a(57344+336),b(14),b(14),b(14),b(14),b(14),b(142)
      db b(124),b(0)
      db a(57344+344),b(226),b(228),b(232),b(240),b(232)
      db b(228),b(226),b(0)
      db a(57344+352),b(224),b(224),b(224),b(224),b(224)
      db b(224),b(254),b(0)
      db a(57344+360),b(226),b(246),b(234),b(234),b(226)
      db b(226),b(226),b(0)
      db a(57344+368),b(226),b(242),b(242),b(234),b(230)
      db b(230),b(226),b(0)
      db a(57344+376),b(124),b(226),b(226),b(226),b(226)
      db b(226),b(124),b(0)
      db a(57344+384),b(252),b(226),b(226),b(252),b(224)
      db b(224),b(224),b(0)
      db a(57344+400),b(252),b(226),b(226),b(252),b(232)
      db b(228),b(226),b(0)
      db a(57344+408),b(124),b(226),b(224),b(124),b(14)
      db b(142),b(124),b(0)
      db a(57344+416),b(254),b(56),b(56),b(56),b(56),b(56)
      db b(56),b(0)
      db a(57344+424),b(226),b(226),b(226),b(226),b(226)
      db b(226),b(124),b(0)
      db a(57344+432),b(226),b(226),b(226),b(226),b(226)
      db b(100),b(56),b(0)
      db a(57344+440),b(226),b(226),b(226),b(234),b(234)
      db b(246),b(226),b(0)
      db a(57344+448),b(226),b(116),b(56),b(56),b(56),b(116)
      db b(226),b(0)
      db a(57344+456),b(226),b(226),b(226),b(124),b(56),b(56)
      db b(56),b(0)
      db a(57344+464),b(254),b(14),b(28),b(56),b(112),b(224)
      db b(254),b(0)

      db a(57344+776),b(0),b(124),b(14),b(126),b(142),b(142)
      db b(126),b(0)
      db a(57344+784),b(224),b(252),b(226),b(226),b(226)
      db b(226),b(252),b(0)
      db a(57344+792),b(0),b(124),b(226),b(224),b(224),b(226)
      db b(124),b(0)
      db a(57344+800),b(14),b(126),b(142),b(142),b(142),b(142)
      db b(126),b(0)
      db a(57344+808),b(0),b(124),b(226),b(226),b(254),b(224)
      db b(124),b(0)
      db a(57344+816),b(30),b(56),b(56),b(126),b(56),b(56)
      db b(56),b(0)
      db a(57344+824),b(0),b(126),b(142),b(142),b(142),b(126)
      db b(142),b(124)
      db a(57344+832),b(224),b(252),b(226),b(226),b(226)
      db b(226),b(226),b(0)
      db a(57344+840),b(56),b(0),b(120),b(56),b(56),b(56)
      db b(124),b(0)
      db a(57344+848),b(14),b(0),b(14),b(14),b(14),b(14),b(78)
      db b(60)
      db a(57344+856),b(224),b(228),b(232),b(240),b(232)
      db b(228),b(226),b(0)
      db a(57344+864),b(120),b(56),b(56),b(56),b(56),b(56)
      db b(124),b(0)
      db a(57344+872),b(0),b(244),b(234),b(234),b(234),b(226)
      db b(226),b(0)
      db a(57344+880),b(0),b(252),b(226),b(226),b(226),b(226)
      db b(226),b(0)
      db a(57344+888),b(0),b(124),b(226),b(226),b(226),b(226)
      db b(124),b(0)
      db a(57344+896),b(0),b(252),b(226),b(226),b(226),b(252)
      db b(224),b(224)
      db a(57344+912),b(0),b(252),b(226),b(224),b(224),b(224)
      db b(224),b(0)
      db a(57344+920),b(0),b(124),b(226),b(112),b(28),b(142)
      db b(124),b(0)
      db a(57344+928),b(56),b(254),b(56),b(56),b(56),b(58)
      db b(28),b(0)
      db a(57344+936),b(0),b(226),b(226),b(226),b(226),b(226)
      db b(126),b(0)
      db a(57344+944),b(0),b(226),b(226),b(226),b(226),b(100)
      db b(56),b(0)
      db a(57344+952),b(0),b(226),b(226),b(234),b(234),b(234)
      db b(116),b(0)
      db a(57344+960)
      db b(0),b(226),b(116),b(56),b(56),b(116),b(226)
      db b(0)
      db a(57344+968),b(0),b(142),b(142),b(142),b(126),b(14)
      db b(156),b(120)
      db a(57344+976),b(0),b(254),b(14),b(28),b(112),b(224)
      db b(254),b(0)

      db a(57344+8),b(56),b(56),b(56),b(56),b(56),b(0)
      db b(56),b(0)
      db a(57344+64),b(28),b(56),b(56),b(56),b(56),b(56)
      db b(28),b(0)
      db a(57344+72),b(56),b(28),b(28),b(28),b(28),b(28)
      db b(56),b(0)
      db a(57344+96),b(0),b(0),b(0),b(0),b(0),b(28),b(28)
      db b(56)
      db a(57344+112),b(0),b(0),b(0),b(0),b(0),b(56),b(56)
      db b(0)


      db b(155),b(155)

tram org *+255





pasy = *
     lda vcount
     asl @
     asl @
     asl @
     sta wsync
     sta cpf0
     rts

plot = *
     jsr pos
     sta oldrow
     dex
     stx oldcol
     ldx #$11
     stx iccmd
     ldx #96
     lda color
     jmp ciomain
     rts


drawto = *
     jsr pos
     ldx #$11
     stx iccmd
     ldx #96
     lda color
     sta $2fb
     jmp ciomain

pos:  txa
     adc mb
     tax
     tya
     adc sb
     sta crsrow
     stx crscol
     rts

rys_napis = *
     stx tx
     sty tx+1
     ldy #0
rr:   lda (tx),y
     cmp #eol
     beq ee
     tax
     iny
     lda (tx),y
     cmp #eol
     beq ee
     sty pom3
     tay
     jsr plot
     ldy pom3
     iny
     lda (tx),y
     cmp #eol
     beq ee
     tax
     iny
     lda (tx),y
     cmp #eol
     beq ee
     sty pom3
     tay
     jsr drawto
     ldy pom3
     iny
     jmp rr
ee:   rts

a_dane db b(0),b(2),b(0),b(57),b(1),b(1),b(1),b(57)
     db b(2),b(0),b(2),b(57),b(3),b(0),b(3),b(57)
     db b(4),b(0),b(4),b(57),b(5),b(0),b(5),b(57)
     db b(6),b(0),b(15),b(0),b(6),b(1),b(15),b(1)
     db b(6),b(2),b(15),b(2),b(6),b(3),b(15),b(3)
     db b(6),b(4),b(15),b(4),b(6),b(5),b(15),b(5)
     db b(6),b(6),b(15),b(6),b(6),b(7),b(15),b(7)
     db b(6),b(8),b(15),b(8),b(6),b(9),b(15),b(9)
     db b(6),b(10),b(6),b(10),b(15),b(10),b(15),b(10)
     db b(6),b(26),b(15),b(26),b(6),b(27),b(15),b(27)
     db b(6),b(28),b(15),b(28),b(6),b(29),b(15),b(29)
     db b(6),b(30),b(15),b(30),b(6),b(31),b(15),b(31)
     db b(6),b(32),b(15),b(32),b(6),b(33),b(15),b(33)
     db b(6),b(34),b(15),b(34),b(6),b(35),b(15),b(35)
     db b(16),b(0),b(16),b(57),b(17),b(0),b(17),b(57)
     db b(18),b(0),b(18),b(57),b(19),b(0),b(19),b(57)
     db b(20),b(1),b(20),b(57),b(21),b(2),b(21),b(57)
     db b(eol)

t_dane db b(0),b(0),b(21),b(0),b(0),b(1),b(21),b(1)
     db b(0),b(2),b(21),b(2),b(0),b(3),b(21),b(3)
     db b(0),b(4),b(21),b(4),b(0),b(5),b(21),b(5)
     db b(0),b(6),b(21),b(6),b(0),b(7),b(21),b(7)
     db b(0),b(8),b(21),b(8),b(0),b(9),b(21),b(9)
     db b(7),b(10),b(7),b(57),b(8),b(10),b(8),b(57)
     db b(9),b(10),b(9),b(57),b(10),b(10),b(10),b(57)
     db b(11),b(10),b(11),b(57),b(12),b(10),b(12),b(57)
     db b(13),b(10),b(13),b(57),b(14),b(10),b(14),b(57)
     db b(eol),b(eol)

r_dane db b(0),b(0),b(0),b(57),b(1),b(0),b(1),b(57)
     db b(2),b(0),b(2),b(57),b(3),b(0),b(3),b(57)
     db b(4),b(0),b(4),b(57),b(5),b(0),b(5),b(57)
     db b(6),b(0),b(19),b(0),b(6),b(1),b(20),b(1)
     db b(6),b(2),b(21),b(2),b(6),b(3),b(21),b(3)
     db b(6),b(4),b(21),b(4),b(6),b(5),b(21),b(5)
     db b(6),b(6),b(21),b(6),b(6),b(7),b(21),b(7)
     db b(6),b(8),b(21),b(8),b(6),b(9),b(21),b(9)
     db b(6),b(26),b(21),b(26),b(6),b(27),b(21),b(27)
     db b(6),b(28),b(21),b(28),b(6),b(29),b(21),b(29)
     db b(6),b(30),b(21),b(30),b(6),b(31),b(21),b(31)
     db b(6),b(32),b(21),b(32),b(6),b(33),b(21),b(33)
     db b(6),b(34),b(20),b(34),b(6),b(35),b(19),b(35)
     db b(15),b(10),b(15),b(10),b(16),b(10),b(16),b(25)
     db b(17),b(10),b(17),b(25),b(18),b(10),b(18),b(25)
     db b(19),b(10),b(19),b(25),b(20),b(10),b(20),b(25)
     db b(21),b(10),b(21),b(25)
     db b(15),b(25),b(15),b(25)
     db b(15),b(36),b(15),b(36)
     db b(16),b(36),b(16),b(57),b(17),b(36),b(17),b(57)
     db b(18),b(36),b(18),b(57),b(19),b(36),b(19),b(57)
     db b(20),b(37),b(20),b(57),b(21),b(38),b(21),b(57)
     db b(eol)

i_dane = *
     db b(12),b(0),b(12),b(57),b(13),b(0),b(13),b(57)
     db b(14),b(0),b(14),b(57),b(15),b(0),b(15),b(57)
     db b(16),b(0),b(16),b(57),b(17),b(0),b(17),b(57)
     db b(eol),b(eol)

pocz = *
     ldx #0
     stx col
     stx pom3
     inx
     stx color
     ldx #15
     stx mode
     ldx #0
     stx okno
     jsr graph
     jsr close
     lda #0
     sta dmactls
     sta licznik
     ldx <a_dane
     ldy >a_dane+1
     lda #32
     sta mb
     lda #60
     sta sb
     jsr rys_napis
     lda #32+23
     sta mb
     ldx <t_dane
     ldy >t_dane+1
     jsr rys_napis
     lda #32+23+23
     sta mb
     ldx <a_dane
     ldy >a_dane+1
     jsr rys_napis
     lda #32+23+23+23
     sta mb
     ldx <r_dane
     ldy >r_dane+1
     jsr rys_napis
     lda #32+23+23+23+11
     sta mb
     ldx <i_dane
     ldy >i_dane+1
     jsr rys_napis

yy:   ldx #255
     stx 764
     lda #%100010
     sta dmactls
     jsr spr
kon:  rts

     org $2e0
     db a(start)

end start