iocb6 = 928 ;shadow registers savmsc = 88 ;(2) dliv = 512 ;(2) dlptrs = 560 ;(2) dmactls = 559 gtiactls = 623 colpm0s = 704 colpm1s = 705 colpm2s = 706 colpm3s = 707 colpf0s = 708 colpf1s = 709 colpf2s = 710 colpf3s = 711 colbaks = 712 kbcodes = 764 ;page registers of hardware hposp0 = 53248 hposp1 = 53249 hposp2 = 53250 hposp3 = 53251 sizep0 = 53256 ;(Z) sizep1 = 53257 ;(Z) sizep2 = 53258 ;(Z) sizep3 = 53259 ;(Z) grafp0 = 53261 grafp1 = 53262 grafp2 = 53263 grafp3 = 53264 grafm = 53265 colpm0 = 53266 colpm1 = 53267 colpm2 = 53268 colpm3 = 53269 colpf0 = 53270 colpf1 = 53271 colpf2 = 53272 colpf3 = 53273 colbak = 53274 pmctl = 53277 kbcode = 53769 random = 53770 porta = 54016 portb = 54017 pactl = 54018 wsync = 54282 vcount = 54283 eol = 155 ciov = 58454 adr0 = 203 adr1 = 205 scr = 207 licz = 203 byte0 = 204 crscol = 85 crsrow = 84 oldcol = 95 oldrow = 94 adress = 212 music = $5000 replayer = $5496 setvblv = 58460 exitvblv = 58466 org 736 DB A(set) Org $2000 start: CPY #3 BEQ t_swiat CPY #2 BEQ ziemia CPY #0 BEQ nswiat LDA #200 STA 128 JMP 256 nswiat: LDY #2 nsw0: jsr random_ sta 128,y dey bpl nsw0 jmp 256 random_: lda random cmp #85 bpl ran0 lda #0 RTS ran0: cmp #170 bpl ran1 lda #1 rts ran1: lda #2 rts ziemia: lda #255 sta 128 jmp 256 t_swiat: lda #8 jsr graph LDA #3 sta power lda >chars0 sta 756 ldx #0 stx 53256 stx dmactls stx 704 stx 705 stx 706 STX 707 ldx #4 stx gtiactls dex stx 53257 stx 53258 stx 53259 lda #134 sta 708 lda #132 sta 709 lda #22 STA 710 sta 711 lda #92 sta 53248 lda #128 sta 53261 lda savmsc ldy savmsc+1 sta dl0 sty dl0+1 STA dl1 sty dl1+1 sta dl2 sty dl2+1 iny iny iny clc adc #32 sta nap0 bcc vv0 iny vv0: STY nap0+1 iny iny clc adc #48 sta nap1 bcc vv1 iny vv1: sty nap1+1 ldx dl_list stx 560 sty 561 ldx #48 lda #8 ldy #17 jsr print ldx #45 lda #21 ldy #18 jsr print ldx #227 LDA #21 ldy #19 jsr print ldx #43 lda #35 ldy #20 jsr print ldx #128 lda #35 ldy #21 JSR print ldx #214 lda #35 ldy #22 jsr print ldx #1 stx 86 dex lda #35 ldy #23 jsr print lda #12 STA 87 ldx #4 stx xcur ldy #4 lda #16 sty ycur sta byte lop0: ldx xcur ldy ycur lda byte JSR write dec byte dec ycur bpl lop0 ldx #4 ldy #5 lda #12 jsr write lda #34 sta 559 sta 554 ldx tabx1 stx 202 sty 203 ldx tabx2 stx 204 sty 205 ldy #0 sty 16 sty wsk STY wss sty line lda #8 sta 87 nnn: lda 54283 cmp #16 bne nnn lda #132 sta 53266 na0: lda 54283 cmp #24 BNE na0 ldx #20 stx 53268 stx 53267 stx 54282 stx 54282 stx 53269 nb0: lda 54283 cmp #30 ldx #240 STX 53263 ldx #122 stx 53250 na1: lda 54283 cmp #34 bne na1 ldx #165 stx 53251 ldx #248 stx 53264 nn: lda 54283 cmp #36 BNE nn lda >chars3 sta 54281 nn0: lda 54283 cmp #39 bne nn0 lda #0 sta 53267 sta 53266 ldx #0 JSR choose n1: ldx 54283 cpx #46 bne n1 lda #4 sta 53275 lda #254 sta 53262 sta 53263 sta 53264 lda #64 sta 53249 LDA #110 sta 53250 lda #156 sta 53251 lda >chars1 sta 54281 sta 54282 lda #12 sta 53270 lda #10 STA 53273 lda #24 sta 53271 lda #30 sta 53272 sta 54282 lda #56 sta 53267 lda #71 sta 53268 lda #118 sta 53269 LDA #10 sta 53266 bb: ldx 54283 cpx #53 bne bb lda #184 sta 53272 cc: lda 54283 cmp #57 bne cc LDA #196 sta 53268 n2: lda 54283 cmp #67 bne n2 lda >chars4 sta 54282 sta 54281 sta 54282 nn1: lda 54283 cmp #70 bne nn1 lda #0 sta 53267 sta 77 ldx #1 jsr choose n3: lda 54283 cmp #78 bne n3 lda #4 sta 53275 LDA #64 sta 53249 lda #110 sta 53250 lda >chars2 sta 54281 lda #30 sta 53273 ldx #12 stx 53270 stx 53266 lda #152 sta 53271 lda #26 sta 53272 sta 54282 lda #136 sta 53267 lda #148 sta 53269 lda #118 sta 53268 LDA #6 na2: lda 54283 cmp #84 bne na2 lda #198 sta 53272 sta 54282 sta 54282 lda #26 sta 53273 lda #136 sta 53271 na3: lda 54283 cmp #89 bne na3 lda #196 sta 53269 sta 53268 sta 53269 lda #24 sta 54282 sta 54282 STA 54282 sta 53267 n4: lda 54283 cmp #98 bne n4 lda >chars5 sta 54282 sta 54281 n5: lda 54283 cmp #101 bne n5 lda #0 sta 53267 ldx #2 jsr choose lda #77 sta 53249 lda #124 sta 53250 lda #168 sta 53251 lda #240 STA 53262 sta 53264 lda #224 sta 53263 lda 53279 cmp #5 bne rb ldx wsk bne rb iny sty wsk cpy #3 bne rb ldy #0 rb: cmp #7 bne fit ldx #0 stx wsk stx wss fit: cmp #6 bne fii ldx wss BNE fii dec power bmi fii jsr clslin ldx line sty 128,x txa asl @ tax lda tab0,x sta 202 lda tab0+1,x sta 203 lda tab1,x sta 204 lda tab1+1,x sta 205 inc line inc wss ldy #0 ldx line cpx #3 BNE fii lda #100 sta 540 fii: lda (202),y sta posx1 lda 554 beq fine lda (204),y sta posx2 jmp nnn fine: lda #15 jsr graph lda #192 sta 16 jmp 256 power db b(0) clslin: lda 20 cmp 20 beq *-2 lda #21 sta len LDX xpoztb,Y beq cls1 cls0: ldy line lda ypoztb,y tay stx crscol sty crsrow ldx #4 jsr fput ldx #9 sk0: ldy len sk1: lda #0 sta (adress),y dey bne sk1 clc lda #40 adc adress sta adress bcc sk2 inc adress+1 sk2: dex BNE sk0 rts cls1: ldx #20 lda #11 sta len jsr cls0 ldx #190 bne cls0 len db b(0) ypoztb db b(8),b(21),b(35) xpoztb db b(110),b(0),b(30) county db b(0) posx1 db b(0) posx2 db b(0) tab0 db a(tabx3),a(tabx5) tab1 db a(tabx4),a(tabx6) tabx1 db c'En ' tabx2 db c'Gy£' tabx3 db c'DhŸ' tabx4 db c'J„§' tabx5 db c'Cm˜' tabx6 DB C'K}¯' wsk db b(0) wss db b(0) line db b(0) choose: sta 53268 sta 53272 sta 53269 sta 53266 lda #15 sta 53271 sta 54282 cpx line beq cho1 jmp cho0 cho1: lda line bne hhh lda #3 bne jjj hhh: lda #1 jjj: sta 53258 ldx line BEQ kkk cpy line bne kkk lda #3 kkk: cpy #1 bne lll ldx #2 cpx line bne lll lda #3 lll: sta 53257 sta 54282 lda #1 sta 53275 lda posx1 sta 53249 lda posx2 sta 53250 sta 54282 lda #50 sta 53267 sta 53268 STA 54282 lda #52 sta 53267 sta 53268 sta 54282 lda #54 sta 53267 sta 53268 ldx #7 ll: sta 54282 dex bne ll lda #52 sta 53267 sta 53268 sta 54282 lda #50 sta 53267 sta 53268 sta 54282 lda #0 sta 53267 STA 53268 cho0: lda #3 sta 53257 sta 53258 rts org $3000 chars0 = * db c'' db c'U@@@@C@@UUUUU0UU' db c'UU0UUU0UU' db c'UTTTTU@@@@C@@UUUUU' db c'0UUU@@@@@@@@@@@@@@@D0' db c'UUW_UUUUUUÕõUUUUUUY•@' db c'UUUUU}ÿUUUUUUUYTTTTTT”T@@@@@@@D0' db c'UUW_UUUUUUÕõUWW___Ÿ@@@@@@@@@@@@@@@@0' db c'0UUUUUU_ÿüýüòùÆUe¦YUUVV™Yfšj' db c'WUWW__ÿÿüüüñòòÁÁ•e•YUf™VTdd””d¤¤@@@@@@@' db c'@00W__ÿÿÿÿÿùöýýÿÿüÿWVV™YfÚê@@@@@@' db c'@@@@@@@@C@UUUUUUVUUUVuiUUVeYe¦Zk',b(eol) db c'¯¯¿¿ªþþüü' db c'üðÀ0ÅWWWWWWUUÿÿÿÿÌðüVÊÆ [j¯¼¿' DB C'ÿÿÿÿ¤ääÄÄÄ@@@@@@C@WW_ÿÿÿÿÿÿÿÿÿÿÿÿÿóÿ?ÿ' db c'üÿÏÿüú>üÀðÀ@@@@@@@@@@@@@@@@AUUUUUUUWUeUYUÕöõZ–' db c'jšªjjª¿¯¯¯ªšª©ðð2òÂòò²UVUUU]_ÿU' db c'YV™ZVfZ«k«¯¯¯¿¿ÿÿüÿóüü0$$$$$$@@@@@@@@A_ÿÿÿÿÿü' db c'óÿÿóüüÌüÿðÀ:*êªÀ€¨¨ª@@@@@@@@' org $3400 chars1 = * db c'' db c'U@@@@@@@UUUUTUUUUUUUUUUTUUÀUWUU' db c'UUUU@UUUUU' db c'TU@@@@@@@UUUüÿÿÿÿÿUÀÀÀÀU' db c'U@@@@@@@@@@@@@@@@ 5555ðÐÐÐÐÐ' db c'UU UUUUUUUUUUUT' db c'TUÀÄÄ@@@@@@@@ÿÿ' db c'ÿüÀÀÃÏóóð@@@@@@@@@@EUUUUUSW__}õ' db c'ýÕÕU_W]ÐÐôôõõõõ@UUU@UW=ÕÕU??ÿÿÿÿÿÿ' db c'ÃÃ?ÿÏÿ?üÿÿÿÿüÿÿÃÿÏÿÿ?ððüüÿóüÿ??ÿÿÿÿÿÄÄôôôôôô@@@@@@@' db c'@ü???033óóÿÏÏÿÿüðüüüÀÀ??ÿÿÿüü??ÿÿÿï@@@@@@' db c'@@W}UUUuUÕUUUUuÕ]UW÷ÕWUUõõýýu×U]UUUUUUUUW_]]UU]UW__ÿ' db c'ÿõU?ÿÏÿÿÿüÿóÿÿÿÿÿÿÿóÿÿÿÿÿ?ÿÿÿÿÿÿ?ÿÿÏÿÿÿÏÿÿ3ÿóÿ?' db c'ÿÿÿÿôôôôôôôô@@@ÀÀðüÿÿü<00ÿ¯£££ (¼¾¢¢¢¢ üð°' db c'°€‚¢¢ï£££££€€@@@@@@@@UUUUWuõ÷WUUUUuUUUUUUUUUUUU]_×UU' DB C'U]wWÿÿwUUuUÿÿÿUUUßÿÿÿÿóÿðÿÿÿÿ?ÿÿÿÿÿ3ÿÀ3ÿÿÿÿÿ' db c'ÿðÿÿÿÿÿÏÿðÿÏÿÿ?óÿüÿÿô4ô4ôôô@jjjjÿÿÀ ªªªªüüªªªªª' db c'((((ªªê ªªª¢¢¢¢¢ªª€€€€‚ ªª@@@@@@@@' org $3800 chars2 = * db c'' db c'U@@@@@@@UUU?ÿÿÿÿÿUÀððððUU' db c'UUU?ÿÿõÍUÀðüü}UUUUU' db c'@UTDU@@hjJ@@UªªUªªU ªUU' db c'U@@@@@@@@@@@@@@@@ÿÿÿ?ððÀ' db c'ÕUUUU' db c'UUUUUPD@@@@@@@@ € €' db c'¼ý@ÿ ÿï ª€Ïÿ÷@@@@@@@@@@@@@ÿÿ' db c'ÿÀ?ÿÿÿÿ' db c'ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ?ÿÿÿÿÿôôôôôô||' db c'Ãÿÿ=?ÏÏÿþÿÿÿÿÿÿÿûÿÿ¿ÿÿûÿ?üÿ3ýÿ¿ÿ÷ÿßÿÿÿßÿ¿óÿ;Ï@@@@@@' db c'@@|ppÿÿÿÏÿÿÿÿÿðÿÿÿÿÿÿÿüÿÿÿÿÿÿ?ÿÿÿÏÿÿÿÿÿüÿÿÿÿÿÏÿ' db c'ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÿÿÿ' db c'ÿÿ?ÿôôôôôôôô~¼ýüÿÿþÿsþÿÿÿ¿ÏÿÏñûÿ÷óóÏÿßÿÿóüðì¿ó' db c'ð2àêÿïÿÿ6ê¦ª@@@@@@@@ppps|ÿÿÿÿÿ??ÿÿÿÿÏÿÿÿÿóÿÿÿÿÿ' db c'ÿÿðÿÿÏÿÿüÿÿÿÿÿÿÿÿüÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÏÿÿÿÏÿÿÿ' db c'ÿÿÿÿÿóÿÿÿÿ?ÿÿÿÏÿÿó?üÿ?ÿô4ôôôôôsw|sp}ÿÿ?ûïÿú÷ÿÜþÃ:ªª' DB C'í:ªjªªþêª¦ªš¦šªª©ª¦ªª«ªªª«¯¿ïÿ@@@@@@@@' Org $3c00 chars3 = * DB C'' DB C'L@@@@UU' DB C'W[[§kUõñüýñUjªªj¦U¦ªªªªU‚ªªªªUÀU' DB C'UUW[gUÿÿüóÿUV U¿«ªªjUð ªU$¤¤¤¤TL@@@@' DB C'UU_[¤kUð0ÀÁUjªªj¦UªªªªªU‚ªªªªU@@@@' DB C'@@' texts DB A(text0),A(text1),A(text2),A(text3),A(text4),A(text5) DB A(text6),A(text7),A(text8),A(text9),A(text10),A(text11) DB A(text12),A(text13),A(text14),A(text15) DB A(text16),A(text17),A(text18),A(text19),A(text20) DB A(text21),A(text22),A(text23) text0 DB C'Nowa gra',B(eol) text1 DB C'Odczyt',B(eol) text2 DB C'ZIEMIA',B(eol) text3 DB C'Nowy &wiat',B(eol) text4 DB C'Lista najlepszych',B(eol) text5 DB C'CIVILIZATION',B(eol) text6 DB C'LISTA NAJLEPSZYCH',B(eol) text7 DB C'1.Shaka.........Score 475',B(eol) text8 DB C'2.Elizabeth.....Score 349',B(eol) text9 DB C'3.Abe Lincoln..Score 280',B(eol) text10 DB C'4.Stalin.........Score 243',B(eol) text11 DB C'5.Alexander....Score 178',B(eol) text12 DB C'¡¢£¤¥¦',B(167),C' ()*+,-./ 01234567',B(eol) text13 DB C'¸¹º»¼½¾ ?@ABCDEF GHIJKLMN',B(eol) text14 DB C'ÏÐÑÒÓÔÕ VWXYZ[\] ^_',B(eol) text15 DB C'†‡ˆ‰Š‹Œ ',B(eol) text16 DB C'žŸàáâã defghijk lmnopqrs',B(eol) text17 DB C'ma)o &rednio du',B(39),C'o',B(eol) text18 DB C'zimno umiarkowanie',B(eol) text19 DB C'ciep)o',B(eol) text20 DB C'sucho',B(eol) text21 DB C'wilgotno',B(eol) text22 DB C'deszcz',B(eol) text23 DB C'owo',B(eol) write: STX 85 STY 84 ASL @ tax lda texts,x ldy texts+1,x sta 254 sty 255 ldy #255 wri0: iny lda (254),y cmp #eol beq wri1 tax sty pom0 JSR put ldy pom0 jmp wri0 wri1: rts dl_list db c'pppD' dl0 db a(0) db c'' db c'D' dl1 DB A(0) db c'N' nap0 db a(0) db c'D' dl2 db a(0) db c'N' nap1 db a(0) db c'A' db a(dl_list) org $4000 chars4 = * db c'u}UUÕÕýÿU' DB C'UÕU]ÕUUUUUUUUUUUUUUUUUUUUUUUUUÿÿ<ÿÿU' DB C'ó?ÿÿÿUÿóÏÿÿUÿÏÿÿÿUÿ?ÏÿÿUÿÏóÿÿUôôôôôT' DB C'jjjkjUª' DB C'®ºªªUª®ªªªUªªª®ªUªªªªªUªºªªªU®ªªªªU@@@@@@' put: LDA iocb6+7 PHA LDA iocb6+6 PHA TXA rts pos: sta 85 sty 84 rts fput: cpx #0 beq fput0 lda crsrow sta oldrow lsr @ lsr @ lsr @ tay LSR @ lsr @ sta adress+1 lda crsrow asl @ asl @ asl @ sta adress asl @ asl @ clc adc adress sta adress tya adc adress+1 sta adress+1 lda crscol+1 sta oldcol+1 lsr @ lda crscol sta oldcol ror @ LSR @ lsr @ clc adc adress sta adress bcc skp inc adress+1 skp: lda savmsc clc adc adress sta adress lda savmsc+1 adc adress+1 sta adress+1 cpx #4 beq fput0 lda crscol and #7 ;db b($ab),b(7) tax lda tab8,x ldy #0 ora (adress),y STA (adress),Y fput0: inc crscol rts tab8 db c'€@ ' org $4400 chars5 = * db c'' db c'ppUÿÿ?ÿÿU' db c'ÃÿÿÿÿUÿÿóÿÿUÿÿÿÿÿUüüÿÿÿU?ÿÿÿUÿÿóÿÿU' db c'ÿóÿÏÿUÿÏÿüU?ÿðUÿðUÀUTzjjj' db c'Uªª©ª¦U©ªªªªUªªšjªUªªªª«U«®¿üÿU÷ïÿÿU@@@@' db c'@@' ;tutaj jest pocz¥tek gry org $8000 set: lda #15 sta licz ; jsr install Flash: ldy #3 jsr pause dec licz BEQ st5 ldx #4 fl0: lda colpf0s,x and #15 cmp #15 beq fl1 inc colpf0s,x fl1: dex bpl fl0 bmi Flash st5: lda #15 sta licz sta colpf0s sta colpf1s sta colpf2s sta colpf3s sta colbaks ldy #50 jsr pause st6: ldy #3 jsr pause dec licz BEQ str ldx #4 fl0_: dec colpf0s,x dex bpl fl0_ bmi st6 str: lda #255 sta portb lda #12 sta iocb6+2 ldx #96 jsr ciov lda #15 jsr graph ldx

dl stx dlptrs sty dlptrs+1 ldx civend stx savmsc sty savmsc+1 LDX #0 stx dmactls ldx civend stx adr0 sty adr0+1 lda #16 sta coun for0: ldy #0 tya for1: sta (adr0),y iny bne for1 dec coun beq for2 inc adr0+1 bne for0 for2: ldy #4 sty pom5 for3: ldx xprntab,y lda yprntab,y jsr print DEC pom5 ldy pom5 bpl for3 ldy #0 sty pom0 sty adr1 ldx #3 txa bege: sta sizep0,x dex bpl bege tax lda #255 begf: sta 53261,x dex bpl begf lda #62 sta dmactls lda #64 sta 53774 lda gtiactls ora #4 STA gtiactls ldy #7 sty func ldy #0 sty 16 lda #255 sta kbcodes jmp synch beg11: jmp beg1 synch: lda vcount cmp #10 bne synch begin: lda vcount adc #57 lsr @ sta wsync sta colpf0 lda vcount adc #55 LSR @ sta wsync sta colpf0 cmp #63 bne begin lda #192 sta colpf0 beg0: lda vcount cmp #120 beq beg11 cmp adr0+1 bne bega ldx hspse0,y stx hposp0 ldx hspse1,y stx hposp1 ldx hspse2,y stx hposp2 ldx hspse3,y stx hposp3 ldx #96+2 stx wsync STX colpm0 stx colpm1 stx colpm2 stx colpm3 ldx #96+4 stx wsync stx wsync stx colpm0 stx colpm1 stx colpm2 stx colpm3 ldx #96+6 stx wsync stx wsync stx colpm0 stx colpm1 stx colpm2 stx colpm3 bega: cmp adr1+1 bne begc ldx #96+4 stx wsync STX colpm0 stx colpm1 stx colpm2 stx colpm3 ldx #96+2 stx wsync stx wsync stx colpm0 stx colpm1 stx colpm2 stx colpm3 ldx #0 stx wsync stx wsync stx hposp0 stx hposp1 stx hposp2 stx hposp3 begc: lsr @ lsr @ adc #131+15 STA wsync sta colpf1 bne beg000 beg1: lda 53279 cmp func beq beg4 sta func cmp #5 bne beg3 iny beg3: cmp #6 beq beg5 cpy #5 bne beg4 ldy #0 beg4: lda vsccn0,y sta adr0+1 lda vsccn1,y sta adr1+1 lda #255 sta kbcodes ee: jmp synch beg000: JMP beg0 beg00: jmp synch beg5: cpy #4 beq najlepsi sty 212 lda #7 jsr graph ldy 212 jmp $2000 func db b(0) najlepsi: lda #7 jsr graph lda #0 sta dmactls ldx #46 lda #7 ldy #5 jsr print ldx #23 lda #19 LDY #6 jsr print ldx #0 lda #22+12 ldy #7 jsr print ldx #0 lda #22+24 ldy #8 jsr print ldx #0 lda #22+36 ldy #9 jsr print ldx #0 lda #22+48 ldy #10 jsr print ldx #0 stx colpf0s lda #22+60 ldy #11 JSR print lda #255 sta kbcodes lda #34 sta dmactls naj0: lda vcount adc #46 lsr @ sta wsync sta colpf1 lda 53279 cmp #7 beq naj0 jmp str xprntab db b(52),b(60),b(64),b(47),b(24) yprntab db b(25),b(37),b(50),b(61),b(73) vsccn0 db b(77),b(83),b(89),b(95),b(101) vsccn1 db b(84),b(90),b(96),b(102),b(108) hspse0 db b(0),b(0),b(0),b(0),b(156) hspse1 db b(0),b(0),b(0),b(132),b(134) hspse2 db b(128),b(120),b(116),b(124),b(102) hspse3 DB B(97),B(106),B(110),B(92),B(70) pause: ldx #0 lda #3 jsr setvblv pa0: lda 540 bne pa0 rts graph: sta iocb6+11 sty iocb6+10 lda #3 sta iocb6+2 sta iocb6+8 ldx sname stx iocb6+4 sty iocb6+5 ldx #96 jsr ciov lda #255 sta iocb6 jmp ISPlot sname DB C'S:',B(eol) CTab DB B(0),B(%01010101),B(%10101010),B(%11111111) STab DB C'?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü' DB C'?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü' DB C'?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü' DB C'?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü?Ïóü' MTab DB C'À0À0À0À0À0À0À0À0À0À0' DB C'À0À0À0À0À0À0À0À0À0À0' DB C'À0À0À0À0À0À0À0À0À0À0' DB C'À0À0À0À0À0À0À0À0À0À0' AdrH DB C'' DB C' ' DB C'' DB C'' AdrL DB C'(Px Èð@h¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h¸à0X' DB C'€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø' DB C'(Px Èð@h¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h¸à0X' DB C'€¨Ðø Hp˜Àè8`ˆ°Ø(Px Èð@h¸à0X€¨Ðø Hp˜Àè8`ˆ°Ø' AdrHi Org *+191 AdrLo Org *+191 Org $9000+90 xind DB B(0) yind db b(0) xcur db b(0) ycur db b(0) pom0 db b(0) pom1 db b(0) pom2 db b(0) pom3 db b(0) pom4 db b(0) pom5 db b(0) ypom db b(0) byte db b(0) coun db b(0) klaw db b(0) step db b(0) print: stx 85 sta 84 sta ypom tya asl @ tay LDA texts,Y sta adr0 lda texts+1,y sta adr0+1 ldy #0 beq pri1 pri0: sty pom0 jsr show ldy pom0 pr: iny pri1: lda (adr0),y cmp #32 bne pri2 lda 85 clc adc #8 sta 85 bne pr pri2: cmp #eol bne pri0 lda #0 sta 86 RTS show: sec sbc #33 sta pom3 asl @ tay lda covtab,y sta adr1 lda covtab+1,y sta adr1+1 ldy #0 sho0: sty pom2 lda (adr1),y cmp #eol beq sho2 ldx #4 stx coun sho1: ldx #0 stx byte asl @ rol byte ASL @ rol byte sta pom1 lda byte sho: clc adc #48 and #3 tax jsr splot lda pom1 dec coun bne sho1 ldy pom2 iny tya and #1 bne sho0 inc 84 lda 85 sta step sec sbc #8 STA 85 cmp step bcc skp0 lda #0 sta 86 skp0: jmp sho0 sho2: lda ypom sta 84 lda 85 ldy pom3 clc adc covcon,y sta 85 rts covcon db c'' db c'' covtab db a(wykrzy),a(pa),a(pc),a(pe),a(po),a(ps),a(pz),a(p_z) db a(p_l),a(dot),a(0),a(przeci),a(0),a(kropka),a(0) db a(o_) db a(_1),a(_2),a(_3),a(_4),a(_5),a(_6),a(_7),a(_8) DB A(_9),A(0),A(0),A(0),A(0),A(0),A(pytajn),A(0),A(a_) DB A(b_),A(c_),A(d_),A(e_),A(f_),A(g_),A(h_),A(i_) DB A(j_),A(k_),A(l_),A(m_),A(n_),A(o_),A(p_),A(q_) DB A(r_),A(s_),A(t_),A(u_),A(v_),A(w_),A(x_),A(y_) DB A(z_),A(0),A(0),A(0),A(0),A(0),A(0),A(a),A(b),A(c) DB A(d),A(e),A(f),A(g),A(h),A(i),A(j),A(k),A(l),A(m) DB A(n),A(o),A(p),A(q),A(r),A(s),A(t),A(u),A(v),A(w) DB A(x),A(y),A(z) colfont = * a DB C'T¤ide¤jdT',B(eol) b DB C'@@YPj¤ede¤jU@',B(eol) c DB C'T¤iPePj¤T',B(eol) d db c'@P”j¤edid¤T',b(eol) e db c'P¤idej¤T',b(eol) f db c'P¤T@jYP',b(eol) g db c'P¤idedj¤¤jU@',b(eol) h db c'PdePj¤ede¤eQ@',b(eol) i db c'dddddT',b(eol) j db c'@@fj@',b(eol) k db c'Pdd@ej@eddP',b(eol) l db c'iY',b(eol) m DB C'TTi©fYfifdQ',B(eol) n db c'UPj¤ede¤eQ@',b(eol) o db c'P¤idedj¤P',b(eol) p db c'U@je¤edj¤ePdT',b(eol) q db c'T¤idedj¤diT',b(eol) r db c'U@je¤dPdT',b(eol) s db c'T¤jP¤j¤UP',b(eol) t db c'@jY@P¤P',b(eol) u db c'Tdidedj¤P',b(eol) v db c'TTdddde¤@',b(eol) w db c'QfdfifYi©TT',b(eol) x db c'Pi¤Pi¤P',b(eol) y db c'didedj¤¤jU@',b(eol) z db c'UTj¤Pj¤UT',b(eol) a_ db c'T¤ide¤jdedddP',b(eol) b_ db c'U@je¤je¤edj¤UP',b(eol) c_ db c'T¤iPddePj¤T',b(eol) d_ db c'U@je¤ddddedj¤UP',b(eol) e_ db c'T¤iPje@ePj¤UT',b(eol) f_ db c'T¤iPje@ddT',b(eol) g_ db c'T¤iPd¤ddedj¤T',b(eol) h_ db c'didj¤edddddP',b(eol) i_ DB C'ddddddT',B(eol) j_ db c'UTj¤dddU¤j@',b(eol) k_ db c'ddej@eddddT',b(eol) l_ db c'ddddeTj¤UT',b(eol) m_ db c'ij©f™eYddT',b(eol) n_ db c'Tdidjdf¤edddTT',b(eol) o_ db c'P¤idddddedj¤P',b(eol) p_ db c'U@je¤edj¤ePdT',b(eol) q_ db c'P¤idddddejd',b(eol) r_ db c'U@je¤edj¤eddT',b(eol) s_ db c'T¤iPjP¤¤j¤UP',b(eol) t_ db c'UTj¤P@@@@@',b(eol) u_ db c'Tdidddddedj¤P',b(eol) v_ db c'TTdddddde¤f@',b(eol) w_ db c'TddeYf™j©idT',b(eol) x_ db c'Pi¤i¤Pi¤i¤P',b(eol) y_ db c'didedj¤P@@',b(eol) z_ db c'UTj¤@ePj¤UT',b(eol) kropka db c'd',b(eol) przeci db c'd',b(eol) wykrzy db c'Tddddd',b(eol) pytajn db c'P¤id¤@@',b(eol) _1 DB C'T¤dd¤¤¤T',B(eol) _2 db c'P¤id¤Tj¤UT',b(eol) _3 db c'U@j¤¤dj¤UP',b(eol) _4 db c'T¤dedj©Ud¤T',b(eol) _5 db c'UTj¤ePj¤Ud¤jU@',b(eol) _6 db c'T¤ePj¤ededj¤P',b(eol) _7 db c'UTj¤dd¤@',b(eol) _8 db c'Pj¤edededj¤P',b(eol) _9 db c'Pj¤edid¤Edj¤P',b(eol) pa db c'T¤ide¤jdTd',b(eol) pc db c'@T¤iPePj¤T',b(eol) pe db c'P¤idej¤T@',b(eol) po db c'@P¤idedj¤P',b(eol) ps db c'@T¤jP¤j¤UP',b(eol) pz db c'@UTj¤Pj¤UT',b(eol) p_z db c'PUTj¤Pj¤UT',b(eol) p_l db c'iY@i',b(eol) dot db c'',b(eol) dl db c'ppp0',b(76),a(civbit) db c'' db c'' db b(78),a(civend) DB C'' db c'' db b(65),a(dl) civbit = * db c'Çÿüÿÿýÿð?ÿ¿à|?ÿÇÿüÿÿÿÿðÿÿàþ?ÿãùø9üþûÿðÿß' db c'Àþþãùø9üþûÿðÿßÁÿ|áùøø|óÿðÿÏÿ€|ñððø|óÿ' db c'ðÿÏƒÿ€|ñððø|óÿàÿÏƒÿ€|ñððø|óÿà}÷Ïƒÿ€|ñðð' db c'ø|óÿà8yóÏƒÿ€|ùððø|óÿà`ø|ðÿðŸ÷þ|' DB C'øð>`ø|ðÿðŸ÷þ|øð`ø|ðÿðŸ÷þ|øð`ø|ðßð' DB C'Ÿ÷Þ|øð`ø|ðßðŸ÷ß|øð`ø|ðßðŸ÷ß|øðàø|ð?' DB C'ßðŸ÷ß|øðàø|ð?ßðŸ÷Ï|øðÀø|ð>ßðŸ÷ÏüøðÀ' DB C'ø|ð>ßðŸ÷ÏüøðÀø|ð>ßðŸ÷ÏüøðÀø|ð>ßðŸ÷Ïü' DB C'øðÀø|ð>ßðŸ÷ÏüøðÀø|ð>ßðŸ÷ÇüøðÀø|ð>Ÿð' DB C'Ÿ÷ÇüøðÀø|ð>ŸðŸ÷ÇüøðÀø|ð>ŸðŸ÷ÇüøðÀø|ð~' DB C'ðŸ÷ÇüøðÀø|ð~ðŸ÷ÇüøðÀø|ð|ðŸ÷ÇüøðÀ' DB C'ø|ð|ðŸ÷ÃüøðÀø|ð|ðŸ÷ÃüøðÀø|ð|ðŸ÷Ãü' DB C'øðÀø|ð|ðŸ÷ÃüøðÀø|ð|ðŸ÷ÃüøðÀø|ð|ð' DB C'Ÿ÷ÃüøðÀø|ð|ðŸ÷Áüøð€ø|ð|ðŸ÷Áüøð€ø|ðü' DB C'ðƒ÷Áüø ð€ø|ðüÿðƒçÁüø ð€ø| ðüÿðƒçÁüø ð€' DB C'ø| ðøÿðƒçÁüx ð€ø|ðøÿðƒçÀü|ð€ø|ðøÿðƒçÀü' DB C'|ð€ø|ðøÿðƒçÀü|ð€ø|ðøÿÁðƒçÀü|ð€ø|ðøÿÁð' DB C'ƒçÀü|ð€ø|9ðø3ÁðƒçÀü|ð€ø|9ðø3ÁðÇçÀü|=ð€ø|9ñø' DB C'3ÁðÇçÀ|>=ð€ø|9ñø3ÁðÇçÀ|>=ð€ø|9ñø3ÁðÇçÀ|>yð€' DB C'ø|yñð3ÁðÇçÀ|?yð€ø|qñð#Áð‡ïÇÀ|?ùð€ø|qñðgÁð‡ÿÇÀ|' DB C'?ùð€ø|qñðfÁð‡ÿÇÀ<ùð€ø|ññðæÁð‡ÿÇÀ<ñðøññÿæÁð' DB C'‡ÿÇÀ<ñðøññÿæÁðƒÿ‡À<ñðøññÿæÁðƒÿ‡À<ñðøñóÿ' DB C'æÁðƒÿ‡À<áðøñóÿæÁðƒÿ‡ÀãøüÿóûÿæãøÁÿàãø' DB C'üÿóûÿïãøÀþàÇüÿÿ÷ÿÿÿ÷ü?àþðÇüÿÿ÷ýÿÿ÷ü?à|ð' civend = *+414 ISPlot: LDY #192 CLC is0: LDA savmsc adc adrl-1,y sta adrlo-1,y lda savmsc+1 adc adrh-1,y sta adrhi-1,y dey bne is0 rts SPlot: stx 214 lda crscol ;db b($a7),b(crscol) tax ldy crsrow lsr @ LSR @ clc adc adrlo,y sta adress lda #0 adc adrhi,y sta adress+1 ldy 214 lda CTab,y and MTab,x sta 214 ldy #0 lda (adress),y and STab,x ora 214 sta (adress),y inc crscol rts inc crscol rts